Attachment "tkchatStatus2.diff" to
ticket [1187190fff]
added by
wildcard_25
2005-04-21 15:06:28.
Index: tkchat.tcl
===================================================================
RCS file: /cvsroot/tcllib/tclapps/apps/tkchat/tkchat.tcl,v
retrieving revision 1.275
diff -u -d -r1.275 tkchat.tcl
--- tkchat.tcl 13 Apr 2005 12:15:21 -0000 1.275
+++ tkchat.tcl 21 Apr 2005 07:36:00 -0000
@@ -1118,6 +1118,7 @@
set title "$MessageCounter - $chatWindowTitle"
wm title . $title
wm iconname . $title
+ WinicoUpdate
}
}
proc ::tkchat::ResetMessageCounter {} {
@@ -1127,6 +1128,7 @@
set title $chatWindowTitle
wm title . $title
wm iconname . $title
+ WinicoUpdate
}
proc ::tkchat::InsertTimestamp {w nick {mark end} {seconds 0} {tags ""}} {
@@ -5501,8 +5503,9 @@
-text [wm title .] \
-callback [list [namespace origin WinicoCallback] %m %i]
bind . <Destroy> [namespace origin WinicoCleanup]
- Hook add chat [namespace origin WinicoChatHook]
}
+ } else {
+ proc ::tkchat::WinicoUpdate {} {}
}
}
@@ -5517,7 +5520,6 @@
if {[wm state .] == "withdrawn"} {
wm deiconify .
ResetMessageCounter
- WinicoChatHook
} else {
wm withdraw .
}
@@ -5525,7 +5527,7 @@
}
}
-proc ::tkchat::WinicoChatHook {} {
+proc ::tkchat::WinicoUpdate {} {
variable MessageCounter
variable TaskbarIcon
if {$MessageCounter > 0} {
