Changeset 2699 for trunk

Timestamp:

Nov 21, 2011, 2:25:08 PM (13 years ago)

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• resultset.tcl (modified) (2 diffs)
• xylegend.tcl (modified) (1 diff)

trunk/gui/scripts/resultset.tcl

@@ -1519 +1519 @@
                 if {$col == "xmlobj"} {
                     set val "#[expr {$which+1}]"
-                } else {
-                    set val [lindex [$_results get -format $col $which] 0]
+                } else { 
+                    set val [lindex [$_results get -format [list $col] $which] 0]
                 }
                 if {[info exists label2val($val)]} {
@@ -1612 +1612 @@
             foreach col $_cntlInfo($this-all) {
                 set quantity $_cntlInfo($this-$col-label)
-                set val [lindex [$_results get -format $col $index] 0]
+                set val [lindex [$_results get -format [list $col] $index] 0]
                 if {$col == "xmlobj"} {
                     set num [lindex [$_results find -format xmlobj $val] 0]

trunk/gui/scripts/xylegend.tcl

@@ -76 +76 @@
     private method Average {} 
     private method BuildPopup { popup } 
-    private method Check { menu }
+    private method Check {}
     private method Delete { args } 
     private method Difference {}