Changeset 1422 for trunk/gui/scripts/radiodial.tcl
- Timestamp:
- Apr 22, 2009, 8:36:59 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/radiodial.tcl
r1407 r1422 244 244 set newval [lindex $args 0] 245 245 set n [_findLabel $newval] 246 set rawval [expr {($n >= 0) ? [lindex $_values $n] : ""}] 246 247 # Don't use expr (?:) because it evaluates the resulting string. 248 # For example, it changes -0.020 to -0.02. 249 if { $n >= 0 } { 250 set rawval [lindex $_values $n] 251 } else { 252 set rawval "" 253 } 247 254 _setCurrent $rawval 248 255
Note: See TracChangeset
for help on using the changeset viewer.