""

docs/VERSION.txt

@@ -1,3 +1,9 @@
+0.356
+--
+
+* Buddy list now uses Tahoma 
+* Fixed links problem on Win32 (thanks to Bob for pointing it out)
+
 0.355 07-21-2003
 --
 

plugins/Tk-BList/Milkbone/BList.pm

@@ -279,7 +279,7 @@ sub init
 
 	$self->{tree} = $self->Scrolled("MBTree" =>
 		-scrollbars => 'oe',
-		-background => 'white', -font => 'arial 9', -fg => 'black', -selectborderwidth => 0,
+		-background => 'white', -font => hook("tk_get_default_font") .  ' 9', -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 => 'arial 9 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 => 'arial 9', -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 => 'arial 9', -fg => 'black', 
+		-background => 'white', -font => hook("tk_get_default_font") . ' 9', -fg => 'black', 
 		-selectbackground => "darkblue", -selectforeground => "white", -stylename => 'changed');
 
 	$self->{away_button} = "Away Message";

plugins/Tk-GUI/Tk-GUI.pl

@@ -40,6 +40,7 @@ $mw->optionAdd("*background", option("ThemeColor")) if(option("ThemeColor"));
 my $icon = $mw->Photo(-file => path("images/icon.bmp"));
 
 register_hook("tk_seticon", sub { $ARGS{-wnd}->Icon(-image => $icon); });
+register_hook("tk_get_default_font", sub { $defaultFont });
 
 register_hook("tick", \&tick);
 register_hook("tk_getmain", sub {