From 5421f053e5e29a9990f03096b4e7bfb23d5e9669 Mon Sep 17 00:00:00 2001
From: milkbone57 <milkbone57>
Date: Fri, 18 Jul 2003 14:21:17 +0000
Subject: [PATCH] *** empty log message ***

---
 docs/VERSION.txt                       | 1 +
 mb.conf                                | 3 ++-
 milkbone.nsi                           | 3 +--
 mos.pl                                 | 2 +-
 mosh.conf                              | 3 ++-
 plugins/Net-OSCAR/Net-OSCAR.pl         | 6 +++---
 plugins/Tk-Convo/Tk-Convo.pl           | 2 --
 plugins/Tk-GUI/Tk-GUI.pl               | 2 +-
 plugins/Tk-Profile/Milkbone/Profile.pm | 3 +++
 plugins/Win32X.pl                      | 2 +-
 10 files changed, 15 insertions(+), 12 deletions(-)

diff --git a/docs/VERSION.txt b/docs/VERSION.txt
index 5c3862c..fde37bc 100644
--- a/docs/VERSION.txt
+++ b/docs/VERSION.txt
@@ -1,6 +1,7 @@
 0.355
 --
 
+* Customizable themes
 * Errors are handled a little more smoothly
 * Compiled with PDK 5.2 (EXE size is roughly 50% smaller)
 * Experimental mosh guidance script
diff --git a/mb.conf b/mb.conf
index 1fe5c0a..51af1a3 100644
--- a/mb.conf
+++ b/mb.conf
@@ -8,4 +8,5 @@ HeavyLogging 0
 SoundsWhileAway 0
 AwayTimeout 60
 TrayIcon 1
-HideBListLogo 0
\ No newline at end of file
+HideBListLogo 0
+ThemeColor lightblue
\ No newline at end of file
diff --git a/milkbone.nsi b/milkbone.nsi
index 8344562..3d562de 100644
--- a/milkbone.nsi
+++ b/milkbone.nsi
@@ -44,8 +44,7 @@ File images\*
 SetOutPath $INSTDIR\sounds
 File sounds\*
 SetOutPath $INSTDIR\plugins
-File  plugins\*
-File  plugins\*
+File /r plugins\*
 SetOutPath $INSTDIR
 
 SetShellVarContext all
diff --git a/mos.pl b/mos.pl
index 345f7eb..b299494 100755
--- a/mos.pl
+++ b/mos.pl
@@ -31,7 +31,7 @@ sub main
 
 	hook("load_options");
 
-	require "plugins/Tk-Splash.pl" unless option("NoSplash");
+#	require "plugins/Tk-Splash.pl" unless option("NoSplash");
 
 	hook("load_plugins");
 	hook("pre_mainloop");
diff --git a/mosh.conf b/mosh.conf
index df13f62..9b0bce2 100644
--- a/mosh.conf
+++ b/mosh.conf
@@ -1,3 +1,4 @@
 Plugins Mosh, Counterstrike, Net-OSCAR
 Port 5190
-HeavyLogging 0
\ No newline at end of file
+HeavyLogging 0
+MOSHLoop 1
\ No newline at end of file
diff --git a/plugins/Net-OSCAR/Net-OSCAR.pl b/plugins/Net-OSCAR/Net-OSCAR.pl
index e69df44..9471ec7 100644
--- a/plugins/Net-OSCAR/Net-OSCAR.pl
+++ b/plugins/Net-OSCAR/Net-OSCAR.pl
@@ -194,8 +194,8 @@ sub signon
 		hook("protocol_chat_buddy_out", -user => $_[1], -chat => $_[2]->name);
 	} );
 
-	# hook("tk_getmain")->after(30, \&tick);
-        register_hook("tick", \&tick);
+	hook("tk_getmain")->after(30, \&tick) unless option("MOSHLoop");
+        register_hook("tick", \&tick) if option("MOSHLoop");
 
         $should_die = 0;
 
@@ -213,7 +213,7 @@ sub tick
 {
 	return unless $oscar;
 	$oscar->do_one_loop;
-	# hook("tk_getmain")->after(30, \&tick) unless $should_die;
+	hook("tk_getmain")->after(30, \&tick) unless $should_die || option("MOSHLoop");
 }
 
 sub request_info
diff --git a/plugins/Tk-Convo/Tk-Convo.pl b/plugins/Tk-Convo/Tk-Convo.pl
index dbcce99..a3d30e2 100644
--- a/plugins/Tk-Convo/Tk-Convo.pl
+++ b/plugins/Tk-Convo/Tk-Convo.pl
@@ -15,8 +15,6 @@ 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 844a079..4fff340 100644
--- a/plugins/Tk-GUI/Tk-GUI.pl
+++ b/plugins/Tk-GUI/Tk-GUI.pl
@@ -22,7 +22,7 @@ $mw->OnDestroy(\&on_destroy);
 $mw->optionAdd("*font", "-*-arial-norma-r-*-*-*-120-*-*-*-*-*-*");
 $mw->optionAdd("*borderWidth", 1);
 $mw->optionAdd("*highlightThickness", 0);
-$mw->optionAdd("*background", "lightblue");
+$mw->optionAdd("*background", option("ThemeColor"));
 
 my $icon = $mw->Photo(-file => path("images/icon.bmp"));
 
diff --git a/plugins/Tk-Profile/Milkbone/Profile.pm b/plugins/Tk-Profile/Milkbone/Profile.pm
index fd65f71..d2701ec 100644
--- a/plugins/Tk-Profile/Milkbone/Profile.pm
+++ b/plugins/Tk-Profile/Milkbone/Profile.pm
@@ -77,6 +77,8 @@ sub init
 
 	$self->{who} = $who;
 
+        $self->withdraw;
+
 	my $on_time = time - hook("protocol_on_since", -who => $who);
 	(undef, $mins, $hrs, $days, undef, undef, undef) = gmtime($on_time);
 	$days--;
@@ -117,6 +119,7 @@ sub init
 	hook("tk_bindwheel", -window => $self->{text});
 
         $self->geometry("650x430") if $^O =~ /Win32/;
+        $self->deiconify;
 
 	$self->OnDestroy([\&on_destroy, $self]);
 	$self->bind("<Escape>", [$self, "destroy"]);
diff --git a/plugins/Win32X.pl b/plugins/Win32X.pl
index 299f68e..c8d148c 100644
--- a/plugins/Win32X.pl
+++ b/plugins/Win32X.pl
@@ -15,4 +15,4 @@ register_hook("flash_window", sub {
 	$wnd->after(200, [sub { $_[0]->Call(hex($_[1]->frame()), 1) if $_[1]; }, $FlashWindow, $wnd]);
 });
 
-1;
\ No newline at end of file
+1;