Changeset 2700 for trunk/gui/scripts/resultset.tcl

Timestamp:

Nov 21, 2011 2:28:55 PM (13 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/resultset.tcl

@@ -1520 +1520 @@
                     set val "#[expr {$which+1}]"
                 } else { 
+                    # Be careful giving singleton elements as the "columns"
+                    # argument to "Tuples::get". It is expecting a list.
                     set val [lindex [$_results get -format [list $col] $which] 0]
                 }
@@ -1612 +1614 @@
             foreach col $_cntlInfo($this-all) {
                 set quantity $_cntlInfo($this-$col-label)
+                # Be careful giving singleton elements as the "columns"
+                # argument to "Tuples::get". It is expecting a list.
                 set val [lindex [$_results get -format [list $col] $index] 0]
                 if {$col == "xmlobj"} {