summaryrefslogtreecommitdiffstats
path: root/library/demos/radio.tcl
diff options
context:
space:
mode:
authordas <das>2007-04-23 21:16:00 (GMT)
committerdas <das>2007-04-23 21:16:00 (GMT)
commit97873b5cca440eeaaf3787bc7d4fa5188b2510d3 (patch)
treed05530f9850fbb244956c2cdd80abfda3de610e3 /library/demos/radio.tcl
parenteed9e6e51c9b315cca0fab5242fb5d5ed79f1d92 (diff)
downloadtk-97873b5cca440eeaaf3787bc7d4fa5188b2510d3.zip
tk-97873b5cca440eeaaf3787bc7d4fa5188b2510d3.tar.gz
tk-97873b5cca440eeaaf3787bc7d4fa5188b2510d3.tar.bz2
* library/demos/goldberg.tcl: fix overwriting of widget demo global.
* library/demos/menu.tcl: on aqua, use custom MDEF and tearoffs; * library/demos/menubu.tcl: correct menubutton toplevel name. * library/demos/puzzle.tcl: fix button size & padding for aqua. * library/demos/radio.tcl:
Diffstat (limited to 'library/demos/radio.tcl')
-rw-r--r--library/demos/radio.tcl6
1 files changed, 4 insertions, 2 deletions
diff --git a/library/demos/radio.tcl b/library/demos/radio.tcl
index be8a0cc..28ea236 100644
--- a/library/demos/radio.tcl
+++ b/library/demos/radio.tcl
@@ -3,7 +3,7 @@
# This demonstration script creates a toplevel window containing
# several radiobutton widgets.
#
-# RCS: @(#) $Id: radio.tcl,v 1.7 2004/12/21 11:56:35 dkf Exp $
+# RCS: @(#) $Id: radio.tcl,v 1.8 2007/04/23 21:16:01 das Exp $
if {![info exists widgetDemo]} {
error "This script should be run from the \"widget\" demo."
@@ -29,7 +29,9 @@ labelframe $w.mid -pady 2 -text "Color" -padx 2
labelframe $w.right -pady 2 -text "Alignment" -padx 2
button $w.tristate -text Tristate -command "set size multi; set color multi" \
-pady 2 -padx 2
-
+if {[tk windowingsystem] eq "aqua"} {
+ $w.tristate configure -padx 10
+}
grid $w.left -column 0 -row 1 -pady .5c -padx .5c -rowspan 2
grid $w.mid -column 1 -row 1 -pady .5c -padx .5c -rowspan 2
grid $w.right -column 2 -row 1 -pady .5c -padx .5c