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} {
