Changeset 3513 for trunk/gui/scripts/integerentry.tcl

Timestamp:

Mar 16, 2013, 12:28:44 PM (12 years ago)

Author:

gah

Message:

Add string trim to select 'xml get' calls

File:

• trunk/gui/scripts/integerentry.tcl (modified) (5 diffs)

trunk/gui/scripts/integerentry.tcl

@@ -60 +60 @@
 
     # if there are min/max values, plug them in.
-    set min [$_owner xml get $path.min]
+    set min [string trim [$_owner xml get $path.min]]
     if {"" != $min} {
         $itk_component(spinner) configure -minvalue $min
     }
 
-    set max [$_owner xml get $path.max]
+    set max [string trim [$_owner xml get $path.max]]
     if {"" != $max} {
         $itk_component(spinner) configure -maxvalue $max
@@ -71 +71 @@
 
     # if there is a color, use it for the min/max spectrum
-    set color [$_owner xml get $path.about.color]
+    set color [string trim [$_owner xml get $path.about.color]]
     if {$color != "" && $min != "" && $max != ""} {
         # For compatibility. If only one color use white for min
@@ -78 +78 @@
         }
         $itk_component(spinner) configure \
-            -spectrum [Rappture::Spectrum ::#auto $color]
+            -spectrum [Rappture::Spectrum ::\#auto $color]
     }
 
     # if the control has an icon, plug it in
-    set str [$_owner xml get $path.about.icon]
+    set str [string trim [$_owner xml get $path.about.icon]]
     if {$str != ""} {
         $itk_component(spinner) configure -image \
@@ -93 +93 @@
     # Assign the default value to this widget, if there is one.
     #
-    set str [$_owner xml get $path.default]
-    if {"" != $str != ""} { $itk_component(spinner) value $str }
+    set str [string trim [$_owner xml get $path.default]]
+    if {"" != $str != ""} { 
+        $itk_component(spinner) value $str 
+    }
 }
 
@@ -158 +160 @@
     set str [$_owner xml get $_path.about.description]
 
-    set min [$_owner xml get $_path.min]
-    set max [$_owner xml get $_path.max]
+    set min [string trim [$_owner xml get $_path.min]]
+    set max [string trim [$_owner xml get $_path.max]]
 
     if {$min != "" || $max != ""} {