Changeset 566 for trunk/gui/scripts/sequence.tcl

Timestamp:

Jan 23, 2007 7:29:54 AM (17 years ago)

Author:

mmc

Message:

Fixed a bug in sequences that was causing real values without units
to get scrambled. The real numbers weren't being recognized if they
didn't have an exponent, so the numbers were being dictionary sorted.

File:

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

trunk/gui/scripts/sequence.tcl

@@ -103 +103 @@
         set how -integer
         foreach key [array names _dataobjs] {
-            if {[regexp {^[0-9]+[eE][-+]?[0-9]+|([0-9]+)?\.[0-9]+([eE][-+]?[0-9]+)$} $key]} {
+            if {[regexp {^[0-9]+[eE][-+]?[0-9]+|([0-9]+)?\.[0-9]+([eE][-+]?[0-9]+)?$} $key]} {
                 set how -real
                 break
@@ -125 +125 @@
             }
         }
-    }
-}
+puts "indices $how: $_indices"
+    }
+}
+puts "loaded"
 
 # ----------------------------------------------------------------------