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

Timestamp:

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

Author:

gah

Message:

Add string trim to select 'xml get' calls

File:

• trunk/gui/scripts/controls.tcl (modified) (2 diffs)

trunk/gui/scripts/controls.tcl

@@ -169 +169 @@
         }
         control {
-            set label [$_owner xml get $path.label]
-            if {"" == $label} { set label "Simulate" }
-            set service [$_owner xml get $path.service]
+            set label [string trim [$_owner xml get $path.label]]
+            if {"" == $label} { 
+                set label "Simulate" 
+            }
+            set service [string trim [$_owner xml get $path.service]]
             button $w -text $label -command [list $service run]
         }
@@ -266 +268 @@
     set _name2info($name-enable) $enable
 
-    set hidden [$_owner xml get $_name2info($name-path).hide]
+    set hidden [string trim [$_owner xml get $_name2info($name-path).hide]]
     if { $hidden != "" } {
         set _name2info($name-enable) [expr !$hidden]