diff options
Diffstat (limited to 'library/demos/ttkprogress.tcl')
| -rw-r--r-- | library/demos/ttkprogress.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/library/demos/ttkprogress.tcl b/library/demos/ttkprogress.tcl index 8a72cf9..e5d0e22 100644 --- a/library/demos/ttkprogress.tcl +++ b/library/demos/ttkprogress.tcl @@ -15,7 +15,7 @@ wm title $w "Progress Bar Demonstration" wm iconname $w "ttkprogress" positionWindow $w -ttk::label $w.msg -font $font -wraplength 4i -justify left -text "Below are two progress bars. The top one is a \u201Cdeterminate\u201D progress bar, which is used for showing how far through a defined task the program has got. The bottom one is an \u201Cindeterminate\u201D progress bar, which is used to show that the program is busy but does not know how long for. Both are run here in self-animated mode, which can be turned on and off using the buttons underneath." +ttk::label $w.msg -font $font -wraplength 4i -justify left -text "Below are two progress bars. The top one is a “determinate” progress bar, which is used for showing how far through a defined task the program has got. The bottom one is an “indeterminate” progress bar, which is used to show that the program is busy but does not know how long for. Both are run here in self-animated mode, which can be turned on and off using the buttons underneath." pack $w.msg -side top -fill x ## See Code / Dismiss buttons @@ -38,9 +38,9 @@ ttk::button $w.start -text "Start Progress" -command [list \ ttk::button $w.stop -text "Stop Progress" -command [list \ doBars stop $w.p1 $w.p2] -grid $w.p1 - -pady 5 -padx 10 -grid $w.p2 - -pady 5 -padx 10 -grid $w.start $w.stop -padx 10 -pady 5 +grid $w.p1 - -pady 3p -padx 7.5p +grid $w.p2 - -pady 3p -padx 7.5p +grid $w.start $w.stop -padx 7.5p -pady 3p grid configure $w.start -sticky e grid configure $w.stop -sticky w grid columnconfigure $w all -weight 1 |