Changeset 1422 for trunk/gui/scripts/radiodial.tcl

Timestamp:

Apr 22, 2009 8:36:59 PM (15 years ago)

Author:

gah

Message:

fix for radiodial, preserve raw values

File:

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

trunk/gui/scripts/radiodial.tcl

@@ -244 +244 @@
         set newval [lindex $args 0]
         set n [_findLabel $newval]
-        set rawval [expr {($n >= 0) ? [lindex $_values $n] : ""}]
+
+        # Don't use expr (?:) because it evaluates the resulting string.
+        # For example, it changes -0.020 to -0.02. 
+        if { $n >= 0 } {
+            set rawval [lindex $_values $n]
+        } else {
+            set rawval ""
+        }
         _setCurrent $rawval