Changeset 4248 for trunk/gui/scripts/tuples.tcl

Timestamp:

Mar 17, 2014 10:21:54 AM (10 years ago)

Author:

gah

Message:

band-aid for data strings that are also ill-formed lists '}.'

File:

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

trunk/gui/scripts/tuples.tcl

@@ -70 +70 @@
                 value -default ""
             }
+
+            # FIXME: This is a band-aid.  The value can be an arbitrary
+            # string and therefore misinterpretered as an invalid list.
+            # Try to parse the value as a list and if that fails make a
+            # list out of it.  Hopefully this doesn't break run file
+            # comparisons.
+            if { [catch {llength $params(-default)}] != 0 } {
+                set params(-default) [list $params(-default)]
+            }
+
             if {[llength $args] != 0} {
                 error "wrong # args: should be \"column insert pos ?-name n? ?-label l? ?-default v?\""