diff options
Diffstat (limited to 'library/demos/ttkscale.tcl')
| -rw-r--r-- | library/demos/ttkscale.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/library/demos/ttkscale.tcl b/library/demos/ttkscale.tcl index 1a95416..e08d9b2 100644 --- a/library/demos/ttkscale.tcl +++ b/library/demos/ttkscale.tcl @@ -24,10 +24,10 @@ pack $w.msg -side top -padx .5c set btns [addSeeDismiss $w.buttons [winfo toplevel $w]] pack $btns -side bottom -fill x -ttk::frame $w.frame -borderwidth 10 +ttk::frame $w.frame -borderwidth 7.5p pack $w.frame -side top -fill x -# List of colors from rainbox; "Indigo" is not a standard color +# List of colors from rainbow; "Indigo" is not a standard color set colorList {Red Orange Yellow Green Blue Violet} ttk::label $w.frame.label ttk::scale $w.frame.scale -from 0 -to 5 -command [list apply {{w idx} { |