From 0eb54b6472932eb3aabbf6fbf57587a191c3112f Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Wed, 16 Jul 2003 19:37:34 +0000
Subject: [PATCH] *** empty log message ***

---
 Milkbone.pm                  | 2 +-
 build-temp.bat               | 5 +----
 build.bat                    | 5 +----
 docs/VERSION.txt             | 2 ++
 plugins/Tk-Convo/Tk-Convo.pl | 2 ++
 plugins/Tk-GUI/Tk-GUI.pl     | 2 +-
 6 files changed, 8 insertions(+), 10 deletions(-)

diff --git a/Milkbone.pm b/Milkbone.pm
index d494424..94d8ef7 100644
--- a/Milkbone.pm
+++ b/Milkbone.pm
@@ -14,8 +14,8 @@ use strict;
 use warnings;
 
 use Carp qw(longmess);
-use PAR;
 use Milkbone::HookEntry;
+use Milkbone::AllHooks;
 use Benchmark;
 
 our $VERSION = "0.355";
diff --git a/build-temp.bat b/build-temp.bat
index 966f293..d3d3a93 100644
--- a/build-temp.bat
+++ b/build-temp.bat
@@ -1,4 +1 @@
-cd plugins
-perl compress_dist.pl
-cd ..
-perlapp --nocompress --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;UNIVERSAL;Win32::Sound;Winamp::Control;Tk::BrowseEntry
\ No newline at end of file
+perlapp --nocompress --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;UNIVERSAL;Win32::Sound;Winamp::Control;Tk::BrowseEntry;Tk::FastSplash
\ No newline at end of file
diff --git a/build.bat b/build.bat
index 44bd32e..f7e98da 100644
--- a/build.bat
+++ b/build.bat
@@ -1,5 +1,2 @@
-cd plugins
-perl compress_dist.pl
-cd ..
-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
+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;Tk::FastSplash
 upx milkbone.exe 
\ No newline at end of file
diff --git a/docs/VERSION.txt b/docs/VERSION.txt
index 57b859b..5c3862c 100644
--- a/docs/VERSION.txt
+++ b/docs/VERSION.txt
@@ -1,6 +1,8 @@
 0.355
 --
 
+* Errors are handled a little more smoothly
+* Compiled with PDK 5.2 (EXE size is roughly 50% smaller)
 * Experimental mosh guidance script
 * deregister_hook no longer clears all handlers registered on a hookname (hehe - oops)
 * No more PAR packages - 50% decrease in loadup time + easier modification of source
diff --git a/plugins/Tk-Convo/Tk-Convo.pl b/plugins/Tk-Convo/Tk-Convo.pl
index bf521d3..dbcce99 100644
--- a/plugins/Tk-Convo/Tk-Convo.pl
+++ b/plugins/Tk-Convo/Tk-Convo.pl
@@ -14,6 +14,8 @@ my %convos;
 register_hook("create_convo", sub {
 	my $buddy = $ARGS{-user};
 	my $convo;
+
+        print "IN CREATE_CONVO\n";
 	
  	return if(exists $convos{$buddy});
         $convos{$buddy} = 1;
diff --git a/plugins/Tk-GUI/Tk-GUI.pl b/plugins/Tk-GUI/Tk-GUI.pl
index 34d94c5..844a079 100644
--- a/plugins/Tk-GUI/Tk-GUI.pl
+++ b/plugins/Tk-GUI/Tk-GUI.pl
@@ -70,7 +70,7 @@ register_hook("error", sub {
 	my $text = $ARGS{-short};
 	($text) = $text =~ m/^(.*?)\n/;
 	my $error_box = $mw->Toplevel(-title => "Milkbone Error");
-	$error_box->Label(-text => $ARGS{-short})->pack;
+	$error_box->Label(-text => $ARGS{-short}, -wraplength => 200)->pack;
 	$error_box->Button(-text => "OK", -command => [sub {
 		my ($self, $fatal) = @_;
 		$self->destroy;