[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[OpenVerse] ANOTHER patch
This one spiffs up the Pro panel a bit more, and makes a few changes in some
other source files to facilitate the changes. I hope it doesn't break
anything. ;^)
Also, this patch includes my previous patch, in case you haven't figured out
how to apply it yet. If you have already applied patch 2, you can either
delete the first 36 lines of this file or say "n" when patch asks whether to
apply anyway.
I generated this patch with "cvs diff openverse > openverse.patch.3", which
was VERY easy. It just lists all the differences between my version and the
latest cvs.
--
Andy Goth | unununium@openverse.org | http://null.cc.uic.edu/~andy/
Index: openverse/OpenVerse.tcl
===================================================================
RCS file: /cvsroot/osrs/openverse/OpenVerse.tcl,v
retrieving revision 1.25
diff -u -3 -p -r1.25 OpenVerse.tcl
--- openverse/OpenVerse.tcl 2001/10/20 18:56:04 1.25
+++ openverse/OpenVerse.tcl 2001/10/27 19:19:37
@@ -161,6 +161,9 @@ switch [array get tcl_platform platform]
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
Index: openverse/lib/BaseFunc.tcl
===================================================================
RCS file: /cvsroot/osrs/openverse/lib/BaseFunc.tcl,v
retrieving revision 1.47
diff -u -3 -p -r1.47 BaseFunc.tcl
--- openverse/lib/BaseFunc.tcl 2000/10/10 16:04:38 1.47
+++ openverse/lib/BaseFunc.tcl 2001/10/27 19:19:41
@@ -39,6 +39,9 @@ image create photo OpenVerse_Image_CHAT_
image create photo OpenVerse_Image_CHAT_smile -file "$MV(icondir)/smile.gif"
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.
Index: openverse/lib/ChtFuncs.tcl
===================================================================
RCS file: /cvsroot/osrs/openverse/lib/ChtFuncs.tcl,v
retrieving revision 1.22
diff -u -3 -p -r1.22 ChtFuncs.tcl
--- openverse/lib/ChtFuncs.tcl 2001/02/23 21:09:38 1.22
+++ openverse/lib/ChtFuncs.tcl 2001/10/27 19:19:42
@@ -98,7 +98,7 @@ proc ToggleText {} {
-bg red
} else {
button .chat.bottom.log -image OpenVerse_Image_LOG -command LogTog \
- -bg white
+ -bg $MV(defbg)
}
if $MV(textwindow.lock) {
button .chat.bottom.scrlk -image OpenVerse_Image_SCRLK -command ToggleChatLock
@@ -278,10 +278,11 @@ proc LogTog {} {
global MV
if $MV(log) {
- .chat.bottom.log configure -bg white
+ .chat.bottom.log configure -bg $MV(defbg) \
+ -activebackground $MV(defhl)
StopLog
} else {
- .chat.bottom.log configure -bg red
+ .chat.bottom.log configure -bg red -activebackground pink
StartLog
}
}
@@ -291,12 +292,14 @@ proc ChtButShowHide {} {
switch $MV(ChtButState) {
show {
pack forget .chat.bottom.buttons.frame
- .chat.bottom.buttons.handle configure -image OpenVerse_Image_hhandle
+ .chat.bottom.buttons.handle configure \
+ -image OpenVerse_Image_hhandle
set MV(ChtButState) hide
return
}
hide {
- .chat.bottom.buttons.handle configure -image OpenVerse_Image_vhandle
+ .chat.bottom.buttons.handle configure \
+ -image OpenVerse_Image_vhandle
pack .chat.bottom.buttons.frame -fill both -expand 1
set MV(ChtButState) show
return
@@ -312,15 +315,14 @@ proc SetSCHATcmd {idx} {
set MV(TCCommand) 0
for {set c 1} {$c < 8} {incr c} {
- if {$idx == $c} {
- if {[string compare [.chat.bottom.buttons.frame.$idx cget -bg] "red"]} {
- .chat.bottom.buttons.frame.$idx configure -bg red
- set MV(TCCommand) $idx
- } else {
- .chat.bottom.buttons.frame.$c configure -bg white
- }
+ if {$idx == $c && [string compare \
+ [.chat.bottom.buttons.frame.$idx cget -bg] "red"]} {
+ .chat.bottom.buttons.frame.$idx configure -bg red \
+ -activebackground pink
+ set MV(TCCommand) $idx
} else {
- .chat.bottom.buttons.frame.$c configure -bg white
+ .chat.bottom.buttons.frame.$c configure -bg $MV(defbg) \
+ -activebackground $MV(defhl)
}
}
}
Index: openverse/lib/InitMain.tcl
===================================================================
RCS file: /cvsroot/osrs/openverse/lib/InitMain.tcl,v
retrieving revision 1.19
diff -u -3 -p -r1.19 InitMain.tcl
--- openverse/lib/InitMain.tcl 2001/10/20 18:51:19 1.19
+++ openverse/lib/InitMain.tcl 2001/10/27 19:19:42
@@ -78,16 +78,20 @@ image create photo OpenVerse_Image_room
frame .menu
frame .top -relief sunken -borderwidth 2
canvas .top.c -height 480.0 -width 640.0
-pack .menu -side top -fill both -expand y
-pack .top -fill both -expand y
-pack .top.c
.top.c create image 320 240 -image OpenVerse_Image_room
+button .moo
+set MV(defhl) [.moo cget -activebackground]
+set MV(defbg) [.moo cget -background]
+destroy .moo
#
# Panel Initalization
#
source "$MV(homedir)/panels/$MV(panel)"
+pack .menu -side top -fill both -expand 0
+pack .top.c
+pack .top -fill both -expand 0
#
# Quick Keys!
#
