Changeset 3513 for trunk/gui/scripts/controls.tcl
- Timestamp:
- Mar 16, 2013, 12:28:44 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/controls.tcl
r3330 r3513 169 169 } 170 170 control { 171 set label [$_owner xml get $path.label] 172 if {"" == $label} { set label "Simulate" } 173 set service [$_owner xml get $path.service] 171 set label [string trim [$_owner xml get $path.label]] 172 if {"" == $label} { 173 set label "Simulate" 174 } 175 set service [string trim [$_owner xml get $path.service]] 174 176 button $w -text $label -command [list $service run] 175 177 } … … 266 268 set _name2info($name-enable) $enable 267 269 268 set hidden [ $_owner xml get $_name2info($name-path).hide]270 set hidden [string trim [$_owner xml get $_name2info($name-path).hide]] 269 271 if { $hidden != "" } { 270 272 set _name2info($name-enable) [expr !$hidden]
Note: See TracChangeset
for help on using the changeset viewer.