148
149
150
151
152
153
154
155
156
157
158
159
160
161
|
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
|
+
|
set ::eskil(wClip1) $t1
set ::eskil(wClip2) $t2
bind $t1 <Control-o> [list focus $t2]
bind $t2 <Control-o> [list focus $t1]
# Have the file menu in top frame to save space
ttk::frame $top.f
menubutton $top.f.mf -menu $top.f.mf.m -text "File" -underline 0
menu $top.f.mf.m
$top.f.mf.m add command -label "Close" -underline 0 \
-command [list cleanupAndExit $top]
$top.f.mf.m add separator
$top.f.mf.m add command -label "Quit" -underline 0 \
|