diff --git a/build.bat b/build.bat index cde5f78..6145592 100644 --- a/build.bat +++ b/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 \ No newline at end of file diff --git a/docs/VERSION.txt b/docs/VERSION.txt index 35929a3..2b9af6c 100644 --- a/docs/VERSION.txt +++ b/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 diff --git a/images/logon.bmp b/images/logon.bmp index 09467ed..ac9d99d 100644 Binary files a/images/logon.bmp and b/images/logon.bmp differ diff --git a/plugins/Tk-Conf/Milkbone/Conf.pm b/plugins/Tk-Conf/Milkbone/Conf.pm index 0c9d255..bb84ab1 100644 --- a/plugins/Tk-Conf/Milkbone/Conf.pm +++ b/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'); diff --git a/plugins/Tk-File/Milkbone/File.pm b/plugins/Tk-File/Milkbone/File.pm index bbd7320..041ef90 100644 --- a/plugins/Tk-File/Milkbone/File.pm +++ b/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'); diff --git a/plugins/Tk-Logon/Milkbone/Logon.pm b/plugins/Tk-Logon/Milkbone/Logon.pm index 1dcd15f..dafc2df 100644 --- a/plugins/Tk-Logon/Milkbone/Logon.pm +++ b/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") },