Changeset 1129 for trunk/gui/scripts/xylegend.tcl
- Timestamp:
- Aug 26, 2008, 5:45:43 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/xylegend.tcl
r1128 r1129 16 16 package require BLT 17 17 18 option add *XyLegend.font \ 19 -*-helvetica-medium-r-normal-*-10-* widgetDefault 18 option add *Xylegend.font \ 19 -*-helvetica-medium-r-normal-*-8-* widgetDefault 20 21 option add *Xylegend.Button.font \ 22 -*-helvetica-medium-r-normal-*-9-* widgetDefault 20 23 21 24 itcl::class ::Rappture::XyLegend { … … 48 51 49 52 itk::usual XyLegend { 50 keep -background -foreground -cursor -font53 keep -background -foreground -cursor 51 54 } 52 55 53 56 itk::usual TreeView { 54 keep -background -foreground -cursor -font57 keep -background -foreground -cursor 55 58 } 56 59 … … 75 78 blt::treeview $itk_component(scrollbars).legend -linewidth 0 \ 76 79 -bg white -selectmode multiple -width 0 \ 77 -highlightthickness 0 -tree $tree_ -flat yes -separator / 80 -highlightthickness 0 \ 81 -tree $tree_ \ 82 -font "Arial 9" \ 83 -flat yes -separator / 78 84 } 79 85 $itk_component(scrollbars) contents $itk_component(legend) … … 108 114 set title [string totitle $but] 109 115 button $controls.$but -text $title \ 110 -relief flat -pady 0 -padx 0 -font "Arial 10" \116 -relief flat -pady 0 -padx 0 -font "Arial 9" \ 111 117 -command [itcl::code $this $title] -overrelief flat \ 112 118 -activebackground grey90
Note: See TracChangeset
for help on using the changeset viewer.