Changeset 858 for trunk/gui/scripts

Timestamp:

Jan 25, 2008, 10:25:14 AM (17 years ago)

Author:

gah

Message:

 

Location:

trunk/gui/scripts

Files:

• historesult.tcl (modified) (2 diffs)
• unirect2d.tcl (modified) (1 diff)

trunk/gui/scripts/historesult.tcl

@@ -22 +22 @@
 option add *HistogramResult*y.loose 1 widgetDefault
 option add *HistogramResult*Element.relief solid widgetDefault
-option add *HistogramResult*Element.borderWidth 0 widgetDefault
+option add *HistogramResult*Element.borderWidth 1 widgetDefault
+# Don't let the step size default to 1.0 (for barcharts)
+option add *HistogramResult*x.stepSize 0.0 widgetDefault
 
 option add *HistogramResult.width 3i widgetDefault
@@ -791 +793 @@
                 set min $_limits(${axis}lin-min)
                 set max $_limits(${axis}lin-max)
-
                 if {[string match y* $axis]} {
                     # add a little padding

trunk/gui/scripts/unirect2d.tcl

@@ -136 +136 @@
         }
         v - xlin - vlog - z - zlin - zlog {
-            set min [blt::vector expr min($_zv)]
-            set max [blt::vector expr max($_zv)]
+            if { [$_zv length] > 0 } {
+               set min [blt::vector expr min($_zv)]
+               set max [blt::vector expr max($_zv)]
+            } else {
+                set min 0.0
+                set max 1.0
+            }
             set axis "zaxis"
         }