Changeset 1075 for trunk/gui/scripts/numberentry.tcl

Timestamp:

Jul 18, 2008 11:57:18 AM (16 years ago)

Author:

mmh

Message:

Rewritten color range code for integers and numbers.
examples/canvas rewritten.
examples/zoo/[integer|number]2 added

File:

• trunk/gui/scripts/numberentry.tcl (modified) (1 diff)

trunk/gui/scripts/numberentry.tcl

@@ -82 +82 @@
     set max [$_owner xml get $path.max]
     if {"" != $max} { $itk_component(gauge) configure -maxvalue $max }
-
+    
     if {$class == "Rappture::Gauge" && "" != $min && "" != $max} {
-        set color [$_owner xml get $path.color]
-        if {$color == ""} {
-            set color blue
-        }
-        if {$units != ""} {
-            set min [Rappture::Units::convert $min -to $units -units off]
-            set max [Rappture::Units::convert $max -to $units -units off]
-        }
-        $itk_component(gauge) configure \
-            -spectrum [Rappture::Spectrum ::#auto [list \
-                $min white $max $color] -units $units]
+        set color [$_owner xml get $path.about.color]
+        if {$color == ""} {
+            # deprecated.  Color should be in "about"
+            set color [$_owner xml get $path.color]
+        }
+        if {$color != ""}  {
+            if {$units != ""} {
+                set min [Rappture::Units::convert $min -to $units -units off]
+                set max [Rappture::Units::convert $max -to $units -units off]
+            }
+            # For compatibility. If only one color use white for min
+            if {[llength $color] == 1} {
+                set color [list $min white $max $color]
+            }
+            $itk_component(gauge) configure \
+                -spectrum [Rappture::Spectrum ::#auto $color -units $units]
+        }
     }