""

docs/VERSION.txt

@@ -1,6 +1,8 @@
 0.7
 --
 
+* Fixed a random typing notifications bug that appeared out of nowhere
+* Temporarily fixed the fatal chat invitation bug
 * Finally got around to changing milkbone.batkins.com to milkbone.org in the default profile
 * Text selection works a lot better in profiles and convos
 * Resized profile windows

mb.conf

@@ -1,7 +1,7 @@
 # mb.conf - milkbone global configuration file
 
 Goodbye sorry, gotta, go
-Modules Tk-PluginsConf, Net-Demo, Tk-GUI, Tk-Logon, Tk-BList, Tk-Profile, Tk-File, Tk-About, Tk-Convo, Tk-Conf, Tk-AddBuddy
+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, Win32-Tray, Log
 Port 5190
 HeavyLogging 0

plugins/Net-OSCAR/Net-OSCAR.pl

@@ -161,7 +161,7 @@ sub signon
 	$oscar->set_callback_chat_invite(
 	sub {
 		hook("protocol_chat_invited", -user => $_[1], -msg => $_[2], -url => $_[4]);
-		$chats{$_[3]->{name}} = $_[3];
+		#$chats{$_[3]->{name}} = $_[3];
 	} );
 
 	$oscar->set_callback_chat_joined(

plugins/Tk-Convo/Milkbone/Convo.pm

@@ -140,6 +140,7 @@ sub typing_status
     my ($self, $status) = @_;
 
     my @msgs = ("", $self->{buddy} . " has typed text.", $self->{buddy} . " is typing...");
+
     $self->{typing}->configure(-text => $msgs[$status]);
 }
 

plugins/Tk-Convo/Tk-Convo.pl

@@ -61,6 +61,7 @@ register_hook("remove_convo", sub {
     deregister_hook("msg_in_$ARGS{-user}");
     deregister_hook("buddy_in_$ARGS{-user}");
     deregister_hook("buddy_out_$ARGS{-user}");
+    deregister_hook("protocol_typing_status_changed_$ARGS{-user}");
 
     $convos{$ARGS{-user}}->destroy;
     delete $convos{$ARGS{-user}};

plugins/Tk-GUI/Tk-GUI.pl

@@ -28,8 +28,8 @@ else
     $defaultFont = '{open look glyph}';
 }
 
-$mw->optionAdd("*font", "-*-$defaultFont-norma-r-*-*-*-140-*-*-*-*-*-*") if win32();
-$mw->optionAdd("*font", "{adobe arial} 10 bold") if nix();
+$mw->optionAdd("*font", "-*-$defaultFont-norma-r-*-*-*-120-*-*-*-*-*-*") if win32();
+$mw->optionAdd("*font", "{open look glyph} 8 bold") if nix();
 $mw->optionAdd("*borderWidth", 1);
 $mw->optionAdd("*highlightThickness", 0);
 

plugins/Tk-GUI/Tk/Browser.pm

@@ -205,14 +205,12 @@ sub font_begin
 	  }
 	}
 
-        $back = "" if $back eq "white" or $back =~ /ffffff/i;
+        $back = "" if defined($back) and $back eq "white" or $back =~ /ffffff/i;
 
 	my %opts;
 	$opts{-foreground} = $color if $color;
 	$opts{-background} = $back if $back;
 
-        print "$color, $back\n";
-	
 	$data->{tags}->{$tag} = 1;
 	$self->tagConfigure($tag, %opts, -font => $self->Font(%{$font})->Pattern);
         $self->tagRaise(sel => $tag);