blob: d8a3514fe5950cc9cce6decd3c2e452652b6a260 (
plain) (
blame)
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
|
--- tcl/ui-ctrlmenu.tcl.org Thu May 10 08:44:51 2001
+++ tcl/ui-ctrlmenu.tcl Thu May 10 08:48:19 2001
@@ -408,16 +408,16 @@
-relief raised -command transmit \
-anchor w -variable transmitButtonState -font $f \
-state disabled -highlightthickness 0
-# checkbutton $w.freeze -text "Freeze" \
-# -relief raised -command "grabber freeze \$freeze" \
-# -anchor w -variable freeze -font $f \
-# -highlightthickness 0
+ checkbutton $w.freeze -text "Freeze" \
+ -relief raised -command "grabber freeze \$freeze" \
+ -anchor w -variable freeze -font $f \
+ -highlightthickness 0
button $w.release -text "Release" \
-relief raised -command release_device \
-font $f -highlightthickness 0
-# pack $w.send $w.release $w.freeze -fill both
- pack $w.send $w.release -fill both
+ pack $w.send $w.release $w.freeze -fill both
+# pack $w.send $w.release -fill both
}
proc doNothing { args } {
|
