Changeset 1129 for trunk

Timestamp:

Aug 26, 2008 5:45:43 PM (16 years ago)

Author:

gah

Message:

xylegend redraws

File:

• trunk/gui/scripts/xylegend.tcl (modified) (4 diffs)

trunk/gui/scripts/xylegend.tcl

@@ -16 +16 @@
 package require BLT
 
-option add *XyLegend.font \
-    -*-helvetica-medium-r-normal-*-10-* widgetDefault
+option add *Xylegend.font \
+    -*-helvetica-medium-r-normal-*-8-* widgetDefault
+
+option add *Xylegend.Button.font \
+    -*-helvetica-medium-r-normal-*-9-* widgetDefault
 
 itcl::class ::Rappture::XyLegend {
@@ -48 +51 @@
                                                                                 
 itk::usual XyLegend {
-    keep -background -foreground -cursor -font
+    keep -background -foreground -cursor 
 }
 
 itk::usual TreeView {
-    keep -background -foreground -cursor -font
+    keep -background -foreground -cursor 
 }
 
@@ -75 +78 @@
         blt::treeview $itk_component(scrollbars).legend -linewidth 0 \
             -bg white -selectmode multiple -width 0 \
-            -highlightthickness 0 -tree $tree_ -flat yes -separator /
+            -highlightthickness 0 \
+            -tree $tree_ \
+            -font "Arial 9" \
+            -flat yes -separator / 
     }
     $itk_component(scrollbars) contents $itk_component(legend)
@@ -108 +114 @@
         set title [string totitle $but]
         button $controls.$but -text $title \
-            -relief flat -pady 0 -padx 0 -font "Arial 10" \
+            -relief flat -pady 0 -padx 0  -font "Arial 9" \
             -command [itcl::code $this $title]  -overrelief flat \
             -activebackground grey90