diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-18 14:15:49 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-07-18 14:15:49 (GMT) |
| commit | 9bd0f9a676dc8cf52d4f73b0cf766d4643b64956 (patch) | |
| tree | f23e6916460d21f4cdab3544051f4c297ef9007b /library/demos/check.tcl | |
| parent | 3eac0e260bf334098c61c36eff9890b2c97a52b3 (diff) | |
| parent | c00e981adab518faf0a905cb261fbddae340d33f (diff) | |
| download | tk-9bd0f9a676dc8cf52d4f73b0cf766d4643b64956.zip tk-9bd0f9a676dc8cf52d4f73b0cf766d4643b64956.tar.gz tk-9bd0f9a676dc8cf52d4f73b0cf766d4643b64956.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'library/demos/check.tcl')
| -rw-r--r-- | library/demos/check.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/demos/check.tcl b/library/demos/check.tcl index c072096..96ff251 100644 --- a/library/demos/check.tcl +++ b/library/demos/check.tcl @@ -30,8 +30,8 @@ checkbutton $w.b0 -text "Safety Check" -variable safety -relief flat \ checkbutton $w.b1 -text "Wipers OK" -variable wipers -relief flat checkbutton $w.b2 -text "Brakes OK" -variable brakes -relief flat checkbutton $w.b3 -text "Driver Sober" -variable sober -relief flat -pack $w.b0 -side top -pady 2 -anchor w -pack $w.b1 $w.b2 $w.b3 -side top -pady 2 -anchor w -padx 15 +pack $w.b0 -side top -pady 1.5p -anchor w +pack $w.b1 $w.b2 $w.b3 -side top -pady 1.5p -anchor w -padx 12p ## This code makes $w.b0 function as a tri-state button; it's not ## needed at all for just straight yes/no buttons. @@ -65,7 +65,7 @@ proc tristate_check {n1 n2 op} { set in_check 0 } -trace variable wipers w tristate_check -trace variable brakes w tristate_check -trace variable sober w tristate_check -trace variable safety w tristate_check +trace add variable wipers write tristate_check +trace add variable brakes write tristate_check +trace add variable sober write tristate_check +trace add variable safety write tristate_check |