""

build.bat

@@ -1,2 +1,2 @@
-perlapp --nocompress --gui --lib lib --verbose --icon images\mbone.ico --force --xclude mos.pl --freestanding --exe milkbone.exe --trim POSIX --add Tk;Tk::Photo;Tk::Text;Tk::TextUndo;Tk::ROText;Tk::HList;Tk::Tree;Tk::ItemStyle;Tk::LabEntry;Socket;Digest::MD5;Win32::API;Win32::GuiTest;Tk::Font;Winamp::Control;Tk::BrowseEntry;Win32::Sound;Win32::GUI;integer;Net::SMTP;constant;Fcntl
+perlapp --nocompress --gui --lib lib --verbose --icon images\mbone.ico --force --xclude mos.pl --freestanding --exe milkbone.exe --trim POSIX --add Tk;Tk::Photo;Tk::Text;Tk::TextUndo;Tk::ROText;Tk::HList;Tk::Tree;Tk::ItemStyle;Tk::LabEntry;Socket;Digest::MD5;Win32::API;Win32::GuiTest;Tk::Font;Winamp::Control;Tk::BrowseEntry;Win32::Sound;Win32::GUI;integer;Net::SMTP;constant;Fcntl;Win32::Process
 upx milkbone.exe 

docs/VERSION.txt

@@ -1,6 +1,7 @@
 0.355
 --
 
+* New Logon Screen
 * Menus don't look cheesy on Win98
 * Browser option in the conf
 * Configuration dialog

plugins/Tk-Conf/Milkbone/Conf.pm

@@ -22,7 +22,7 @@ sub init
     my ($self) = @_;
 
     $self->{text} = $self->Frame->pack(-expand => 1, -fill => 'both')->Scrolled(
-                                                                                "TextUndo", -scrollbars => 'oe', -background => 'white', -wrap => 'word', -font => "times 12")->
+                                                                                "TextUndo", -scrollbars => 'oe', -background => 'white', -wrap => 'word')->
                                                                                 pack(-expand => 1, -fill => 'both');
     
     $self->Button(-text => "Close", -command => [$self, "destroy"])->pack(-side => 'right');

plugins/Tk-File/Milkbone/File.pm

@@ -24,7 +24,7 @@ sub init
 	my ($self, $mw, $data, $file, $type) = @_;
 
 	$self->{text} = $self->Frame->pack(-expand => 1, -fill => 'both')->Scrolled(
-		"Text", -scrollbars => 'oe', -background => 'white', -wrap => 'word', -font => "times 12")->
+		"Text", -scrollbars => 'oe', -background => 'white', -wrap => 'word')->
 		pack(-expand => 1, -fill => 'both');
 	
 	$self->Button(-text => "Close", -command => [$self, "destroy"])->pack(-side => 'right');

plugins/Tk-Logon/Milkbone/Logon.pm

@@ -71,7 +71,7 @@ sub on_cancel
 
 	hook("protocol_signoff");
 	$self->{signed_on} = 0;
-	$self->{status_label}->configure(-text => 'Connecting to the Evil Empire...');
+	$self->{status_label}->configure(-text => 'Connecting to login.oscar.aol.com...');
 	$self->{sn_entry}->focus;
         $self->update;
 }
@@ -122,9 +122,9 @@ sub init
 
 	# create the status frame
 	$self->{status_label} = $self->{status}->Label(-text => "Connecting to the Evil Empire...")->pack;
-	$self->{status}->Button(-text => "Cancel", -command => [$self, "on_cancel"])->pack(-pady => 5);
+	$self->{status}->Button(-text => "Cancel", -takefocus => 0, command => [$self, "on_cancel"])->pack(-pady => 5);
 
-	$self->{logon_button} = $self->{controls}->Button(-text => 'log on', -command => [$self, "on_logon"], 
+	$self->{logon_button} = $self->{controls}->Button(-text => 'log on', -takefocus => 0, -command => [$self, "on_logon"], 
 		-height => 0.5, -borderwidth => 1)->
 		pack(-pady => 7, -padx => 3, -expand => 0, -side => 'left');
 	$self->{controls}->Button(-text => 'about', -command => sub { hook("show_about") },