Changeset 2530 for trunk/gui

Timestamp:

Sep 21, 2011 5:40:33 AM (13 years ago)

Author:

gah

Message:

 

File:

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

trunk/gui/scripts/histogramresult.tcl

@@ -545 +545 @@
                             set xv [$dataobj mesh $comp]
                             set yv [$dataobj values $comp]
-                            foreach x [$xv values] y [$yv values] {
+                            foreach x [$xv range 0 end] y [$yv range 0 end] {
                                 append csvdata \
                                     [format "%20.15g, %20.15g\n" $x $y]
@@ -717 +717 @@
             # Compute default bar width for histogram elements.
             if { [$zv length] == [$xv length] } {
-                foreach x [$xv values] y [$yv values] z [$zv values] {
+                foreach x [$xv range 0 end] y [$yv range 0 end] z [$zv range 0 end] {
                     set elem "elem[incr count]"
                     set _elem2dataobj($elem) $dataobj