[OpenVerse] Another patch

[Andy Goth <unununium@openverse.org>]

Now that you're all used to patches...

This one fixes up some icons in the Pro panel.  It also removes the ANNOYING 
close button.

The gifs go in the icons directory.  Actually, I drew them one year and 25 
days ago... but better late than never.

-- 
Andy Goth  |  unununium@openverse.org  |  http://null.cc.uic.edu/~andy/
diff -ur openverse.old/OpenVerse.tcl openverse/OpenVerse.tcl
--- openverse.old/OpenVerse.tcl	Wed Oct 24 18:40:59 2001
+++ openverse/OpenVerse.tcl	Fri Oct 26 01:07:39 2001
@@ -161,6 +161,9 @@
 			file copy "$MV(libbase)/icons/unlocked.gif" "$MV(homedir)/icons/unlocked.gif"
 			file copy "$MV(libbase)/icons/locked.gif" "$MV(homedir)/icons/locked.gif"
 			file copy "$MV(libbase)/icons/default.gif" "$MV(homedir)/icons/default.gif"
+			file copy "$MV(libbase)/icons/shiver.gif" "$MV(homedir)/icons/"
+			file copy "$MV(libbase)/icons/jump.gif" "$MV(homedir)/icons/"
+			file copy "$MV(libbase)/icons/shutdown.gif" "$MV(homedir)/icons/"
 		}
 		if {![file exists $MV(homedir)/simages]} {
 			file mkdir $MV(homedir)/simages
diff -ur openverse.old/lib/BaseFunc.tcl openverse/lib/BaseFunc.tcl
--- openverse.old/lib/BaseFunc.tcl	Fri Oct 26 01:05:54 2001
+++ openverse/lib/BaseFunc.tcl	Fri Oct 26 01:04:41 2001
@@ -40,6 +40,8 @@
 image create photo OpenVerse_Image_CHAT_frown -file "$MV(icondir)/frown.gif"
 image create photo OpenVerse_Image_CHAT_wink -file "$MV(icondir)/wink.gif"
 image create photo OpenVerse_Image_CHAT_jump -file "$MV(icondir)/jump.gif"
+image create photo OpenVerse_Image_CHAT_shiver -file "$MV(icondir)/shiver.gif"
+image create photo OpenVerse_Image_CHAT_quit -file "$MV(icondir)/shutdown.gif"
 
 #
 # Translator - This is an attempt to make a portable translator.
diff -ur openverse.old/panels/Pro openverse/panels/Pro
--- openverse.old/panels/Pro	Wed Oct 24 18:41:01 2001
+++ openverse/panels/Pro	Fri Oct 26 01:06:18 2001
@@ -186,25 +186,25 @@
 			-command {SetSCHATcmd 7} -width 20 -height 20
 		
 		# Called Directly
-		button $bframe.jump  -activeforeground red -text [Trns jump] \
-			-command { SendToServer "EFFECT jump"}
-		button $bframe.shiver -activeforeground red -text [Trns shiver] \
-			-command { SendToServer "EFFECT shiver"}
-		button $bframe.quit_ov -activebackground red -text [Trns quit_ov] \
+		button $bframe.jump -image OpenVerse_Image_CHAT_jump \
+			-command { SendToServer "EFFECT jump"} -width 20 \
+			-height 20
+		button $bframe.shiver -image OpenVerse_Image_CHAT_shiver \
+			-command { SendToServer "EFFECT shiver"} -width 20 \
+			-height 20
+		button $bframe.quit_ov -image OpenVerse_Image_CHAT_quit \
 			-command { 
-				if ![tk_dialog .chat.quitQuestion [Trns really_quit] \
+				if ![tk_dialog .chat.quitQuestion \
+				[Trns really_quit] \
 				[Trns quit_question] \
 				"" 1 [Trns quit] [Trns cancel]] {
 					exit
 				}
 			}
-		button $bframe.quit -activeforeground red -text [Trns close] \
-			-command {destroy .chat}
-		
-		pack $bframe.label \
-		 	$bframe.1 $bframe.2 $bframe.3 $bframe.4 $bframe.5 \
-			$bframe.6 $bframe.7 $bframe.jump $bframe.shiver \
-			$bframe.quit $bframe.quit_ov -side left -fill both -padx 1
+		pack $bframe.label $bframe.1 $bframe.2 $bframe.3 $bframe.4 \
+			$bframe.5 $bframe.6 $bframe.7 $bframe.jump \
+			$bframe.shiver -side left -fill both -padx 1
+		pack $bframe.quit_ov -side right
 		###############################################################
 		# 2/25/2000 -JACK- 
 		# Added Bubbles to the command buttons

jump.gif

shiver.gif

shutdown.gif

rubber.gif

locked.gif

unlocked.gif