Tk Library Source Code

Artifact 1445d0cba3e5f80a3020829ad0061bbe01e74720:

Attachment "tkchatStatus1.diff" to ticket [1187190fff] added by wildcard_25 2005-04-21 15:07:49.

---

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 04:02:21 -0000
@@ -1127,6 +1127,7 @@
     set title $chatWindowTitle
     wm title . $title
     wm iconname . $title
+    WinicoChatHook
 }
 
 proc ::tkchat::InsertTimestamp {w nick {mark end} {seconds 0} {tags ""}} {
@@ -5503,6 +5504,8 @@
             bind . <Destroy> [namespace origin WinicoCleanup]
             Hook add chat [namespace origin WinicoChatHook]
         }
+    } else {
+        proc ::tkchat::WinicoChatHook {} {}
     }
 }
 
@@ -5517,7 +5520,6 @@
             if {[wm state .] == "withdrawn"} {
                 wm deiconify .
                 ResetMessageCounter
-                WinicoChatHook
             } else {
                 wm withdraw .
             }