[Tkabber-dev] r547 - trunk/plugins/aclosetab

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Dec 18 14:46:37 MSK 2013


Author: rejjin
Date: 2013-12-18 14:46:37 +0400 (Wed, 18 Dec 2013)
New Revision: 547

Modified:
   trunk/plugins/aclosetab/aclosetab.tcl
Log:
fixed error when tab closing.

Modified: trunk/plugins/aclosetab/aclosetab.tcl
===================================================================
--- trunk/plugins/aclosetab/aclosetab.tcl	2013-11-20 17:55:40 UTC (rev 546)
+++ trunk/plugins/aclosetab/aclosetab.tcl	2013-12-18 10:46:37 UTC (rev 547)
@@ -82,7 +82,10 @@
 proc aclosetab::chat_win_close { chatid } {
     variable actabs
     
-    after cancel $actabs(aid,$chatid)
+	if {[info exist actabs(aid,$chatid)]} {
+		catch { after cancel $actabs(aid,$chatid) }
+	}
+	
     array unset actabs *,$chatid
 }
 



More information about the Tkabber-dev mailing list