diff options
Diffstat (limited to 'library/demos/ttkbut.tcl')
| -rw-r--r-- | library/demos/ttkbut.tcl | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/library/demos/ttkbut.tcl b/library/demos/ttkbut.tcl index ab49cf4..86e4382 100644 --- a/library/demos/ttkbut.tcl +++ b/library/demos/ttkbut.tcl @@ -17,7 +17,7 @@ wm title $w "Simple Ttk Widgets" wm iconname $w "ttkbut" positionWindow $w -ttk::label $w.msg -font $font -wraplength 4i -justify left -text "Ttk is the new Tk themed widget set. This is a Ttk themed label, and below are three groups of Ttk widgets in Ttk labelframes. The first group are all buttons that set the current application theme when pressed. The second group contains three sets of checkbuttons, with a separator widget between the sets. Note that the \u201cEnabled\u201d button controls whether all the other themed widgets in this toplevel are in the disabled state. The third group has a collection of linked radiobuttons." +ttk::label $w.msg -font $font -wraplength 4i -justify left -text "Ttk is the new Tk themed widget set. This is a Ttk themed label, and below are three groups of Ttk widgets in Ttk labelframes. The first group are all buttons that set the current application theme when pressed. The second group contains three sets of checkbuttons, with a separator widget between the sets. Note that the “Enabled” button controls whether all the other themed widgets in this toplevel are in the disabled state. The third group has a collection of linked radiobuttons." pack $w.msg -side top -fill x ## See Code / Dismiss @@ -26,10 +26,10 @@ pack [addSeeDismiss $w.seeDismiss $w {enabled cheese tomato basil oregano happin ## Add buttons for setting the theme ttk::labelframe $w.buttons -text "Buttons" -foreach theme [ttk::themes] { +foreach theme [lsort [ttk::themes]] { ttk::button $w.buttons.$theme -text $theme \ -command [list ttk::setTheme $theme] - pack $w.buttons.$theme -pady 2 + pack $w.buttons.$theme -pady 1.5p } ## Helper procedure for the top checkbutton @@ -65,7 +65,7 @@ ttk::separator $w.checks.sep2 ttk::checkbutton $w.checks.c3 -text Basil -variable basil ttk::checkbutton $w.checks.c4 -text Oregano -variable oregano pack $w.checks.e $w.checks.sep1 $w.checks.c1 $w.checks.c2 $w.checks.sep2 \ - $w.checks.c3 $w.checks.c4 -fill x -pady 2 + $w.checks.c3 $w.checks.c4 -fill x -pady 1.5p ## Set up the radiobutton group ttk::labelframe $w.radios -text "Radiobuttons" @@ -75,10 +75,10 @@ ttk::radiobutton $w.radios.r3 -text "OK" -variable happiness -value ok ttk::radiobutton $w.radios.r4 -text "Poor" -variable happiness -value poor ttk::radiobutton $w.radios.r5 -text "Awful" -variable happiness -value awful pack $w.radios.r1 $w.radios.r2 $w.radios.r3 $w.radios.r4 $w.radios.r5 \ - -fill x -padx 3 -pady 2 + -fill x -padx 3p -pady 1.5p ## Arrange things neatly pack [ttk::frame $w.f] -fill both -expand 1 lower $w.f -grid $w.buttons $w.checks $w.radios -in $w.f -sticky nwe -pady 2 -padx 3 +grid $w.buttons $w.checks $w.radios -in $w.f -sticky nwe -pady 1.5p -padx 3p grid columnconfigure $w.f {0 1 2} -weight 1 -uniform yes |