*** empty log message ***

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

mb.conf

@@ -8,4 +8,5 @@ HeavyLogging 0
 SoundsWhileAway 0
 AwayTimeout 60
 TrayIcon 1
-HideBListLogo 0
+HideBListLogo 0
+ThemeColor lightblue

milkbone.nsi

@@ -44,8 +44,7 @@ File images\*
 SetOutPath $INSTDIR\sounds
 File sounds\*
 SetOutPath $INSTDIR\plugins
-File  plugins\*
+File /r plugins\*
-File  plugins\*
 SetOutPath $INSTDIR
 
 SetShellVarContext all

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");

mosh.conf

@@ -1,3 +1,4 @@
 Plugins Mosh, Counterstrike, Net-OSCAR
 Port 5190
-HeavyLogging 0
+HeavyLogging 0
+MOSHLoop 1

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);
+	hook("tk_getmain")->after(30, \&tick) unless option("MOSHLoop");
-        register_hook("tick", \&tick);
+        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

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;
 

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"));
 

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"]);

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;
+1;