""

Milkbone.pm

@@ -409,10 +409,9 @@ sub user_file
 	my $user = data("me");
 
         $ENV{HOME} ||= '';
-        $ENV{APPDATA} ||= '';
 
         my $dir = (nix()  ? "$ENV{HOME}/.milkbone" : 
-            (nt() ? "$ENV{APPDATA}/milkbone" : "profiles"));
+            (exists($ENV{APPDATA}) ? "$ENV{APPDATA}/milkbone" : "profiles"));
 
 	mkdir $dir unless -e $dir && -d $dir;
 	mkdir path("$dir/$user") unless -e path("$dir/$user") && -d path("$dir/$user");

mb.conf

@@ -1,7 +1,7 @@
 # mb.conf - milkbone global configuration file
 
 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
+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

milkbone

@@ -1,3 +1,3 @@
 #!/bin/sh
-cd /home/bill/milkbone
-/home/bill/milkbone/mos.pl
+cd $HOME/milkbone
+perl mos.pl

mosh

@@ -1,3 +1,3 @@
 #!/bin/sh
-cd /home/bill/milkbone
-/home/bill/milkbone/mosh.pl
+cd $HOME/milkbone
+perl mosh.pl

plugins/Tk-Convo/Milkbone/Convo.pm

@@ -194,7 +194,7 @@ sub init
 	$self->{off} = 0;
 	$self->{hide_stamps} = 1;
 
-	$self->{top} = $self->{frame}->Scrolled("Browser", -background => 'white', 
+	$self->{top} = $self->{frame}->Scrolled("Browser", 
 		-height => 6, -font => "times 12", -scrollbars => 'oe', -wrap => 'word', -takefocus => 0)->
 		pack(-side => 'top', -expand => 1, -fill => 'both', -padx => 5);
 	$self->{bottom} = $self->{frame}->Scrolled("BrowseEdit",
@@ -229,7 +229,6 @@ sub init
 	#	 set_option('ConvoWidth', $width);
 	# }, Ev('w'), Ev('h')]);
 
-	$self->{bottom}->configure(-background => 'white');
 	$self->{me} = data("me");
 	$self->{buddy} = $buddy;
 	$self->{empty} = 1;

plugins/Tk-GUI/Tk/BrowseEdit.pm

@@ -21,7 +21,7 @@ sub Populate
 	$self->SUPER::Populate($args);
 
 	$self->{panel} = $self->Frame(-borderwidth => 0)->pack(-fill => 'both');
-	$self->{text} = $self->Text(-background => 'white')->pack(-expand => 1, -fill => 'both');
+	$self->{text} = $self->Text->pack(-expand => 1, -fill => 'both');
 
 	$self->{'<b>'} = $self->{panel}->Button(-text => 'B', -relief => 'flat',
 		-font => $self->Font(-family => 'times', -weight => 'bold', -size => '8'),
@@ -179,8 +179,6 @@ sub end_tag
 sub init
 {
 	my ($self) = @_;
-
-	$self->{text}->configure(-background => 'white');
 }
 
 1;