Changeset 1650 for branches/blt4/gui/scripts/barresult.tcl

Timestamp:

Feb 1, 2010, 3:23:15 PM (15 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/barresult.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/barresult.tcl

@@ -558 +558 @@
                 pdf {
                     set psdata [$itk_component(plot) postscript output \
-                                    -decorations no -maxpect 1]
+                                    -decorations no]
 
                     set cmds {
@@ -1561 +1561 @@
 # ----------------------------------------------------------------------
 itcl::configbody Rappture::BarResult::gridcolor {
-    if {"" == $itk_option(-gridcolor)} {
-        $itk_component(plot) grid off
+    if { "" == $itk_option(-gridcolor) } {
+        foreach axis [$itk_component(plot) axis names] { 
+            $itk_component(plot) axis configure $axis -grid off
+        }
     } else {
-        $itk_component(plot) grid configure -color $itk_option(-gridcolor)
-        $itk_component(plot) grid on
+        foreach axis [$itk_component(plot) axis names] { 
+            $itk_component(plot) axis configure $axis \
+                -gridcolor $itk_option(-gridcolor) -grid on
+        }
     }
 }