-
Notifications
You must be signed in to change notification settings - Fork 0
/
managerview.tcl
134 lines (120 loc) · 3.89 KB
/
managerview.tcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
#############################################################################
# Generated by PAGE version 4.7
# in conjunction with Tcl version 8.6
# Apr 24, 2016 03:05:38 AM
set vTcl(actual_gui_bg) #d9d9d9
set vTcl(actual_gui_fg) #000000
set vTcl(actual_gui_menu_bg) #d9d9d9
set vTcl(actual_gui_menu_fg) #000000
set vTcl(complement_color) #d9d9d9
set vTcl(analog_color_p) #d9d9d9
set vTcl(analog_color_m) #d9d9d9
set vTcl(active_fg) #111111
#############################################################################
# vTcl Code to Load User Fonts
vTcl:font:add_font \
"-family {DejaVu Sans} -size 20 -weight normal -slant roman -underline 0 -overstrike 0" \
user \
vTcl:font10
#################################
#LIBRARY PROCEDURES
#
if {[info exists vTcl(sourcing)]} {
proc vTcl:project:info {} {
set base .top36
namespace eval ::widgets::$base {
set dflt,origin 0
set runvisible 1
}
namespace eval ::widgets_bindings {
set tagslist _TopLevel
}
namespace eval ::vTcl::modules::main {
set procs {
}
set compounds {
}
set projectType single
}
}
}
#################################
# USER DEFINED PROCEDURES
#
#################################
# GENERATED GUI PROCEDURES
#
proc vTclWindow.top36 {base} {
if {$base == ""} {
set base .top36
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
set top $base
###################
# CREATING WIDGETS
###################
vTcl::widgets::core::toplevel::createCmd $top -class Toplevel \
-background {#d9d9d9}
wm focusmodel $top passive
wm geometry $top 600x450+236+138
update
# set in toplevel.wgt.
global vTcl
set vTcl(save,dflt,origin) 0
wm maxsize $top 1244 723
wm minsize $top 1 1
wm overrideredirect $top 0
wm resizable $top 1 1
wm deiconify $top
wm title $top "Mananger Functions"
vTcl:DefineAlias "$top" "managerscr" vTcl:Toplevel:WidgetProc "" 1
label $top.lab37 \
-background {#d9d9d9} -font $::vTcl(fonts,vTcl:font10,object) \
-foreground {#000000} -text {Manager Functionality}
vTcl:DefineAlias "$top.lab37" "Label1" vTcl:WidgetProc "managerscr" 1
button $top.but38 \
-activebackground {#d9d9d9} -background {#d9d9d9} \
-foreground {#000000} -highlightcolor black \
-text {View revenue Report}
vTcl:DefineAlias "$top.but38" "Button1" vTcl:WidgetProc "managerscr" 1
button $top.but39 \
-activebackground {#d9d9d9} -background {#d9d9d9} \
-foreground {#000000} -highlightcolor black \
-text {View Popular Route Report}
vTcl:DefineAlias "$top.but39" "Button2" vTcl:WidgetProc "managerscr" 1
button $top.but40 \
-activebackground {#d9d9d9} -background {#d9d9d9} \
-foreground {#000000} -highlightcolor black -text Logout
vTcl:DefineAlias "$top.but40" "Button3" vTcl:WidgetProc "managerscr" 1
###################
# SETTING GEOMETRY
###################
place $top.lab37 \
-in $top -x 110 -y 40 -anchor nw -bordermode ignore
place $top.but38 \
-in $top -x 180 -y 100 -anchor nw -bordermode ignore
place $top.but39 \
-in $top -x 180 -y 150 -anchor nw -bordermode ignore
place $top.but40 \
-in $top -x 180 -y 200 -anchor nw -bordermode ignore
vTcl:FireEvent $base <<Ready>>
}
#############################################################################
## Binding tag: _TopLevel
bind "_TopLevel" <<Create>> {
if {![info exists _topcount]} {set _topcount 0}; incr _topcount
}
bind "_TopLevel" <<DeleteWindow>> {
if {[set ::%W::_modal]} {
vTcl:Toplevel:WidgetProc %W endmodal
} else {
destroy %W; if {$_topcount == 0} {exit}
}
}
bind "_TopLevel" <Destroy> {
if {[winfo toplevel %W] == "%W"} {incr _topcount -1}
}
Window show .
Window show .top36