diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2009-12-16 13:20:18 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2009-12-16 13:20:18 (GMT) |
commit | 4234ced65ff4cea56909cbbbc71affb96a37abb7 (patch) | |
tree | 7fe420a4dd7b67e12481cfc84abb5516ef1fa7a5 /library/demos/ttkscale.tcl | |
parent | d98553d4645b44a9e51415ccf4310a5a5ba00cd8 (diff) | |
download | tk-4234ced65ff4cea56909cbbbc71affb96a37abb7.zip tk-4234ced65ff4cea56909cbbbc71affb96a37abb7.tar.gz tk-4234ced65ff4cea56909cbbbc71affb96a37abb7.tar.bz2 |
Rename variable to avoid clash with floorplan demo. Reported by
Emiliano Gavilan.
Diffstat (limited to 'library/demos/ttkscale.tcl')
-rw-r--r-- | library/demos/ttkscale.tcl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/library/demos/ttkscale.tcl b/library/demos/ttkscale.tcl index 13e2c4d..dbd09a3 100644 --- a/library/demos/ttkscale.tcl +++ b/library/demos/ttkscale.tcl @@ -2,7 +2,7 @@ # # This demonstration script shows an example with a horizontal scale. # -# RCS: @(#) $Id: ttkscale.tcl,v 1.2 2009/12/10 11:48:38 dkf Exp $ +# RCS: @(#) $Id: ttkscale.tcl,v 1.3 2009/12/16 13:20:18 dkf Exp $ if {![info exists widgetDemo]} { error "This script should be run from the \"widget\" demo." @@ -30,10 +30,10 @@ ttk::frame $w.frame -borderwidth 10 pack $w.frame -side top -fill x # List of colors from rainbox; "Indigo" is not a standard color -set colors {Red Orange Yellow Green Blue Violet} +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} { - set c [lindex $::colors [tcl::mathfunc::int $idx]] + set c [lindex $::colorList [tcl::mathfunc::int $idx]] $w.frame.label configure -foreground $c -text "Color: $c" }} $w] # Trigger the setting of the label's text |