25 lines
905 B
Tcl
25 lines
905 B
Tcl
--- 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 } {
|