diff --git a/plugins/Tk-BList/Milkbone/BList.pm b/plugins/Tk-BList/Milkbone/BList.pm index 963f190..588f6a3 100644 --- a/plugins/Tk-BList/Milkbone/BList.pm +++ b/plugins/Tk-BList/Milkbone/BList.pm @@ -279,7 +279,7 @@ sub init $self->{tree} = $self->Scrolled("MBTree" => -scrollbars => 'oe', - -background => 'white', -font => hook("tk_get_default_font") . ' 10 medium', -fg => 'black', -selectborderwidth => 0, + -background => 'white', -font => hook("tk_get_default_font") . ' 9 medium', -fg => 'black', -selectborderwidth => 0, -itemtype => 'imagetext', -highlightthickness => 0, -drawbranch => 0, -indicator => 1, -selectbackground => "darkblue", -selectforeground => "white", -ignoreinvoke => 1, -selectmode => 'single', -itemtype => 'imagetext', -indent => 14, @@ -288,13 +288,13 @@ sub init $self->{tree}->Subwidget("yscrollbar")->configure(-width => 15); $self->{group_style} = $self->{tree}->ItemStyle('imagetext', - -background => 'white', -font => hook("tk_get_default_font") . ' 10 bold', -fg => 'black', + -background => 'white', -font => hook("tk_get_default_font") . ' 9 bold', -fg => 'black', -selectbackground => "white", -selectforeground => "white", -stylename => 'group'); $self->{changed_style} = $self->{tree}->ItemStyle('imagetext', - -background => 'white', -font => hook("tk_get_default_font") . ' 10', -fg => 'red', + -background => 'white', -font => hook("tk_get_default_font") . ' 9', -fg => 'red', -selectbackground => "darkblue", -selectforeground => "white", -stylename => 'changed'); $self->{normal_style} = $self->{tree}->ItemStyle('imagetext', - -background => 'white', -font => hook("tk_get_default_font") . ' 10', -fg => 'black', + -background => 'white', -font => hook("tk_get_default_font") . ' 9', -fg => 'black', -selectbackground => "darkblue", -selectforeground => "white", -stylename => 'normal'); $self->{away_button} = "Away Message";