Changeset 1643 for branches/blt4/gui/scripts

Timestamp:

Jan 26, 2010, 10:14:14 PM (15 years ago)

Author:

gah

Message:

 

Location:

branches/blt4/gui/scripts

Files:

• Makefile.in (modified) (1 diff)
• sidebarframe.tcl (modified) (1 diff)
• xylegend.tcl (modified) (1 diff)
• xyresult.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/Makefile.in

@@ -14 +14 @@
 INSTALL         = @INSTALL@
 MKDIR_P         = @MKDIR_P@
-TCLSH           = $(bindir)/tclsh8.4
+TCLSH           = $(bindir)/tclsh8.5
 VPATH           = $(srcdir)
 PACKAGE_VERSION = @PACKAGE_VERSION@

branches/blt4/gui/scripts/sidebarframe.tcl

@@ -197 +197 @@
         blt::tabset $itk_component(controlbar).tabs \
             -highlightthickness 0 -tearoff 0 -side left \
-            -bd 0 -gap 0 -tabborderwidth 1 \
+            -bd 0 -gap 0 -outerborderwidth 1 \
             -outerpad 1
     } {

branches/blt4/gui/scripts/xylegend.tcl

@@ -226 +226 @@
     set data(delete) [expr { $flags == "-delete" }]
     set node [$tree_ insert root -at 0 -label $elem -data [array get data]]
-    $itk_component(legend) entry configure $node -label $label -icon $im \
-        -activeicon $im
+    $itk_component(legend) entry configure $node -label $label -icon $im 
     update idletasks
     return $node

branches/blt4/gui/scripts/xyresult.tcl

@@ -250 +250 @@
     }
     pack $itk_component(legend) -expand yes -fill both
-
     after idle [subst {
         update idletasks
-        $itk_component(legend) reset 
+        #$itk_component(legend) reset 
     }]
 
@@ -1555 +1554 @@
 itcl::configbody Rappture::XyResult::gridcolor {
     if {"" == $itk_option(-gridcolor)} {
-        $itk_component(plot) grid off
+        foreach axis [$itk_component(plot) axis names] { 
+            $itk_component(plot) axis configure -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 \
+                -gridcolor $itk_option(-gridcolor) -grid on
+        }
     }
 }