""

mb.conf

@@ -4,7 +4,7 @@ Goodbye sorry, gotta, go
 Modules Tk-PluginsConf, Net-OSCAR, Tk-GUI, Tk-Logon, Tk-BList, Tk-Profile, Tk-File, Tk-About, Tk-Convo, Tk-Conf, Tk-AddBuddy
 Plugins XAMP, Monitor, Counterstrike, Win32X, Win32-Tray
 Port 5190
-HeavyLogging 0
+HeavyLogging 1
 SoundsWhileAway 0
 AwayTimeout 60
 TrayIcon 1

plugins/Net-OSCAR/Net-OSCAR.pl

@@ -138,7 +138,7 @@ sub signon
                     hook("error", 
                          -short => "You've exceeded one of AOL's rate limits.  You will be alerted when the rate limit ends.");
                     hook("rate_alert");
-                    hook("tk_getmain")->after(10 * 1000, sub { 
+                    hook("tk_getmain")->after($_[2], sub { 
                         hook("error", -short => "Rate limit has expired.");
                     });
                 }

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") .  ' 9', -fg => 'black', -selectborderwidth => 0,
+		-background => 'white', -font => hook("tk_get_default_font") .  ' 10', -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") . ' 9 bold', -fg => 'black', 
+		-background => 'white', -font => hook("tk_get_default_font") . ' 11 bold', -fg => 'black', 
 		-selectbackground => "white", -selectforeground => "white", -stylename => 'group');
 	$self->{changed_style} = $self->{tree}->ItemStyle('imagetext', 
-		-background => 'white', -font => hook("tk_get_default_font") . ' 9', -fg => 'red', 
+		-background => 'white', -font => hook("tk_get_default_font") . ' 10', -fg => 'red', 
 		-selectbackground => "darkblue", -selectforeground => "white", -stylename => 'changed');
 	$self->{normal_style} = $self->{tree}->ItemStyle('imagetext', 
-		-background => 'white', -font => hook("tk_get_default_font") . ' 9', -fg => 'black', 
+		-background => 'white', -font => hook("tk_get_default_font") . ' 10', -fg => 'black', 
 		-selectbackground => "darkblue", -selectforeground => "white", -stylename => 'normal');
 
 	$self->{away_button} = "Away Message";

plugins/Tk-GUI/Tk-GUI.pl

@@ -19,10 +19,7 @@ my $mw = MainWindow->new();
 $mw->withdraw();
 $mw->OnDestroy(\&on_destroy);
 
-my %installed_fonts;
-$installed_fonts{lc($_)} = 1 for $mw->fontFamilies;
-my $defaultFont;
-if($installed_fonts{'tahoma'})
+if(win32())
 {
     $defaultFont = 'tahoma';
 }

plugins/Tk-GUI/Tk/BrowseEdit.pm

@@ -20,6 +20,7 @@ sub Populate
                 -font => $self->Font(-family => 'times', -weight => 'bold', -size => '8'),
                 -command => [sub {
                         my ($self) = @_;
+			print "hit b\n";
                         $self->toggleTag('<b>');
                 }, $self]
                 )->pack(-pady => 0, -side => 'left', -fill => 'both');
@@ -50,7 +51,10 @@ $self]);
                 'DEFAULT' => $self->{text},
                 'to_html' => $self,
         );
-        $self->after(200, [$self, "init"]);
+}
+sub insert
+{
+    shift->{text}->insert(@_);
 }
 sub toggleTag
 {
@@ -63,7 +67,7 @@ sub toggleTag
 		print "tag names gotten\n";
                 if ($cur_tag =~ /$tag/i)
                 {
-                        # tag is defined for this range - remove it from the composite tag name and then add the resulting
+                        # tag is not defined for this range - add it from the composite tag name and then add the resulting
                         # tag, creating it if necessary
                         return unless $cur_tag ne "";
                         $self->{text}->tagRemove($cur_tag, 'insert');
@@ -74,10 +78,11 @@ sub toggleTag
                         $self->insert('insert', '%%%ignore%%%', [$cur_tag, 'elide']);
                         $self->tagAdd($cur_tag, 'insert');
                         $self->{$tag}->configure(-relief => 'flat');
+			print "done\n";
                 }
                 else
                 {
-                        # tag not enabled for this range - add it
+                        # tag not enabled for this range - remove it
                         $self->{text}->tagRemove($cur_tag, 'insert');
                         $cur_tag .= $tag;
                         $self->create_tag($cur_tag);
@@ -129,7 +134,10 @@ sub create_tag
         {
                 $fontparams{-slant} = 'italic';
         }
-        $self->tagConfigure($tag, %tagparams, -font => $self->Font(%fontparams));
+
+	my $font = $self->Font(%fontparams);
+        $self->tagConfigure($tag, %tagparams, -font => $font);
+	$self->{created_tags}->{$tag} = 1;
 }
 sub to_html
 {
@@ -174,8 +182,5 @@ sub end_tag
         $tag =~ s/^</<\//;
         return $tag;
 }
-sub init
-{
-        my ($self) = @_;
-}
+
 1;