Changeset 3726 for branches

Timestamp:

Jun 29, 2013 7:40:00 AM (11 years ago)

Author:

gah

Message:

bugfix: set log scale from hint in XML

File:

• branches/1.3/gui/scripts/xyresult.tcl (modified) (3 diffs)

branches/1.3/gui/scripts/xyresult.tcl

@@ -391 +391 @@
         foreach {map(x) map(y)} [GetAxes $dataobj] break
         foreach axis {x y} {
+            if {[$dataobj hints ${axis}scale] == "log"} {
+                set _limits(${axis}log) 1
+            }
             # Get defaults for both linear and log scales
             foreach type {lin log} {
@@ -552 +555 @@
 
     foreach axis [$g axis names] {
-        if { [$g axis cget $axis -logscale] } {
+        if { [info exist _limits(${axis}log)] } {
             set type "log"
+            set logscale 1
         } else {
             set type "lin"
+            set logscale 0
         }
         set amin ""
@@ -568 +573 @@
             -hide yes -checklimits no \
             -command [itcl::code $this GetFormattedValue $axis] \
-            -min $amin -max $amax
+            -min $amin -max $amax -logscale $logscale
     }
     # Presumably you want at least an X-axis and Y-axis displayed.