- Timestamp:
- Mar 17, 2014, 10:21:54 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/tuples.tcl
r3330 r4248 70 70 value -default "" 71 71 } 72 73 # FIXME: This is a band-aid. The value can be an arbitrary 74 # string and therefore misinterpretered as an invalid list. 75 # Try to parse the value as a list and if that fails make a 76 # list out of it. Hopefully this doesn't break run file 77 # comparisons. 78 if { [catch {llength $params(-default)}] != 0 } { 79 set params(-default) [list $params(-default)] 80 } 81 72 82 if {[llength $args] != 0} { 73 83 error "wrong # args: should be \"column insert pos ?-name n? ?-label l? ?-default v?\""
Note: See TracChangeset
for help on using the changeset viewer.