Changeset 5510 for branches/uq

Timestamp:

May 13, 2015 9:44:59 AM (9 years ago)

Author:

mmh

Message:

fix histogram xvector to allow labels

File:

• branches/uq/gui/scripts/histogram.tcl (modified) (1 diff)

branches/uq/gui/scripts/histogram.tcl

@@ -376 +376 @@
         return
     }
-    set xv [$_hist get $comp.xvector]
-    set yv [$_hist get $comp.yvector]
-    if { $xv != "" && $yv != "" } {
-        $_yvalues($comp) set $yv
-        $_xvalues($comp) set $xv
-    }
+
+    # If we reached here, must be <yvector>
+    $_yvalues($comp) set [$_hist get ${comp}.yvector]
+    $_xvalues($comp) length [$_yvalues($comp) length]
+    $_xvalues($comp) seq 1 [$_yvalues($comp) length]
+    set _xlabels($comp) [$_hist get ${comp}.xvector]
     set _comp2hist($comp) [list $_xvalues($comp) $_yvalues($comp)]
 }