-
Notifications
You must be signed in to change notification settings - Fork 0
/
checkStep.tcl
213 lines (201 loc) · 8.26 KB
/
checkStep.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
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
#############################################################################
# Generated by PAGE version 4.24.1
# in conjunction with Tcl version 8.6
# Aug 16, 2019 12:28:56 PM CDT platform: Windows NT
set vTcl(timestamp) ""
if {!$vTcl(borrow)} {
set vTcl(actual_gui_bg) #d9d9d9
set vTcl(actual_gui_fg) #000000
set vTcl(actual_gui_analog) #ececec
set vTcl(actual_gui_menu_analog) #ececec
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) #ececec
set vTcl(active_fg) #000000
set vTcl(actual_gui_menu_active_bg) #ececec
set vTcl(active_menu_fg) #000000
}
if {[info exists vTcl(sourcing)]} {
proc vTcl:project:info {} {
set base .top42
global vTcl
set base $vTcl(btop)
if {$base == ""} {
set base .top42
}
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
}
}
}
proc vTclWindow.top42 {base} {
if {$base == ""} {
set base .top42
}
if {[winfo exists $base]} {
wm deiconify $base; return
}
set top $base
###################
# CREATING WIDGETS
###################
vTcl::widgets::core::toplevel::createCmd $top -class Toplevel \
-menu "$top.m43" -background {#d9d9d9} -highlightbackground {#d9d9d9} \
-highlightcolor black
wm focusmodel $top passive
wm geometry $top 457x327+650+150
update
# set in toplevel.wgt.
global vTcl
global img_list
set vTcl(save,dflt,origin) 0
wm maxsize $top 1924 1061
wm minsize $top 120 1
wm overrideredirect $top 0
wm resizable $top 1 1
wm deiconify $top
wm title $top "Check Step7"
vTcl:DefineAlias "$top" "title" vTcl:Toplevel:WidgetProc "" 1
set site_3_0 $top.m43
menu $site_3_0 \
-activebackground {#ececec} -activeforeground {#000000} \
-background {#d9d9d9} -font TkMenuFont -foreground {#000000} \
-tearoff 0
checkbutton $top.che44 \
-activebackground {#ececec} -activeforeground {#000000} \
-background {#d9d9d9} -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black -justify left \
-text {Check Network Comments} -variable che44
vTcl:DefineAlias "$top.che44" "checkComments" vTcl:WidgetProc "title" 1
checkbutton $top.che45 \
-activebackground {#ececec} -activeforeground {#000000} \
-background {#d9d9d9} -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black -justify left \
-text {Check FB Name} -variable che45
vTcl:DefineAlias "$top.che45" "checkFBName" vTcl:WidgetProc "title" 1
ttk::progressbar $top.tPr46
vTcl:DefineAlias "$top.tPr46" "progressBar" vTcl:WidgetProc "title" 1
labelframe $top.lab47 \
-font TkDefaultFont -foreground black -text Message \
-background {#d9d9d9} -height 75 -highlightbackground {#d9d9d9} \
-highlightcolor black -width 440
vTcl:DefineAlias "$top.lab47" "statusProg" vTcl:WidgetProc "title" 1
label $top.lab48 \
-activebackground {#f9f9f9} -activeforeground black \
-background {#d9d9d9} -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black -text {AWL File}
vTcl:DefineAlias "$top.lab48" "awlFile" vTcl:WidgetProc "title" 1
label $top.lab49 \
-activebackground {#f9f9f9} -activeforeground black -anchor sw \
-background {#d9d9d9} -compound left -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black \
-text {AWL Path:}
vTcl:DefineAlias "$top.lab49" "pathAWLFile" vTcl:WidgetProc "title" 1
button $top.but50 \
-activebackground {#ececec} -activeforeground {#000000} \
-background {#d9d9d9} -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black -pady 0 \
-text Browse
vTcl:DefineAlias "$top.but50" "awlBrowse" vTcl:WidgetProc "title" 1
button $top.but51 \
-activebackground {#ececec} -activeforeground {#000000} \
-background {#d9d9d9} -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black -pady 0 \
-text Browse
vTcl:DefineAlias "$top.but51" "symbolBrowse" vTcl:WidgetProc "title" 1
label $top.lab52 \
-activebackground {#f9f9f9} -activeforeground black \
-background {#d9d9d9} -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black \
-text {Symbol File}
vTcl:DefineAlias "$top.lab52" "symbolFile" vTcl:WidgetProc "title" 1
label $top.lab53 \
-activebackground {#f9f9f9} -activeforeground black -anchor sw \
-background {#d9d9d9} -compound left -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black \
-text {Symbol Path:}
vTcl:DefineAlias "$top.lab53" "pathSymbolFile" vTcl:WidgetProc "title" 1
label $top.lab55 \
-activebackground {#f9f9f9} -activeforeground black \
-background {#d9d9d9} -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black \
-text {v0.1 - Developed by Gabriel Nakata - 2019}
vTcl:DefineAlias "$top.lab55" "byNakata" vTcl:WidgetProc "title" 1
button $top.but56 \
-activebackground {#ececec} -activeforeground {#000000} \
-background {#d9d9d9} -disabledforeground {#a3a3a3} \
-font TkDefaultFont -foreground {#000000} \
-highlightbackground {#d9d9d9} -highlightcolor black -pady 0 \
-text Start
vTcl:DefineAlias "$top.but56" "startCheck" vTcl:WidgetProc "title" 1
###################
# SETTING GEOMETRY
###################
place $top.che44 \
-in $top -x 10 -y 140 -anchor nw -bordermode ignore
place $top.che45 \
-in $top -x 10 -y 160 -anchor nw -bordermode ignore
place $top.tPr46 \
-in $top -x 10 -y 200 -width 440 -relwidth 0 -height 22 -relheight 0 \
-anchor nw -bordermode ignore
place $top.lab47 \
-in $top -x 10 -y 220 -width 440 -relwidth 0 -height 75 -relheight 0 \
-anchor nw -bordermode ignore
place $top.lab48 \
-in $top -x 10 -y 10 -anchor nw -bordermode ignore
place $top.lab49 \
-in $top -x 10 -y 40 -width 431 -relwidth 0 -height 21 -relheight 0 \
-anchor nw -bordermode ignore
place $top.but50 \
-in $top -x 90 -y 10 -width 79 -relwidth 0 -height 24 -relheight 0 \
-anchor nw -bordermode ignore
place $top.but51 \
-in $top -x 90 -y 70 -width 79 -relwidth 0 -height 24 -relheight 0 \
-anchor nw -bordermode ignore
place $top.lab52 \
-in $top -x 10 -y 70 -anchor nw -bordermode ignore
place $top.lab53 \
-in $top -x 10 -y 100 -width 436 -relwidth 0 -height 21 -relheight 0 \
-anchor nw -bordermode ignore
place $top.lab55 \
-in $top -x 220 -y 300 -anchor nw -bordermode ignore
place $top.but56 \
-in $top -x 280 -y 150 -width 95 -relwidth 0 -height 24 -relheight 0 \
-anchor nw -bordermode ignore
vTcl:FireEvent $base <<Ready>>
}
set btop ""
if {$vTcl(borrow)} {
set btop .bor[expr int([expr rand() * 100])]
while {[lsearch $btop $vTcl(tops)] != -1} {
set btop .bor[expr int([expr rand() * 100])]
}
}
set vTcl(btop) $btop
Window show .
Window show .top42 $btop
if {$vTcl(borrow)} {
$btop configure -background plum
}