summaryrefslogtreecommitdiffstats
path: root/library
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2009-12-16 13:19:47 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2009-12-16 13:19:47 (GMT)
commitbbaf51c9b840baff04f83fc2c0d86d553deda5bf (patch)
tree1d780569c2dd29068c5887fbed67832d2afb2eab /library
parentbf9abb7ceed49cb412e42ac2f7f5d5d017da72c4 (diff)
downloadtk-bbaf51c9b840baff04f83fc2c0d86d553deda5bf.zip
tk-bbaf51c9b840baff04f83fc2c0d86d553deda5bf.tar.gz
tk-bbaf51c9b840baff04f83fc2c0d86d553deda5bf.tar.bz2
Rename variable to avoid clash with floorplan demo. Reported by
Emiliano Gavilan.
Diffstat (limited to 'library')
-rw-r--r--library/demos/ttkscale.tcl6
1 files changed, 3 insertions, 3 deletions
diff --git a/library/demos/ttkscale.tcl b/library/demos/ttkscale.tcl
index 473dbdb..5c0bdbe 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.1.2.1 2009/12/10 11:44:07 dkf Exp $
+# RCS: @(#) $Id: ttkscale.tcl,v 1.1.2.2 2009/12/16 13:19:47 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