Changeset 1671 for branches/blt4/gui/scripts

Timestamp:

Mar 25, 2010 9:42:41 AM (14 years ago)

Author:

gah

Message:

 

Location:

branches/blt4/gui/scripts

Files:

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

branches/blt4/gui/scripts/xylegend.tcl

@@ -449 +449 @@
     #         unique values.
 
-    foreach node $nodes {
-        set elem [$_tree label $node]
+    set labels {}
+    foreach node $nodes {
+        set elem [$_tree label $node]
+        set label [$graph_ element cget $elem -label]
         $xcoords append [GetData $elem -x]
         set elements [linsert $elements 0 $elem]
+        set labels [linsert $labels 0 $label]
     }
     # Sort the abscissas keeping unique values.
@@ -487 +490 @@
         incr count
     }
-    set elements [lsort -dictionary $elements]
+    set labels [lsort -dictionary $labels]
     set name "avg$count" 
-    set label "Avg. [join $elements ,]"
+    set label "Avg. [join $labels ,]"
 
     # Don't use the vector because we don't know when it will be cleaned up.

branches/blt4/gui/scripts/xyprint.tcl

@@ -284 +284 @@
         lappend configLine $switch $current
     }
-    puts stderr $configLine
     eval $configLine
 }