[Tkabber-dev] r1324 - in trunk/tkabber-plugins: . attline

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri Nov 30 13:24:35 MSK 2007


Author: sergei
Date: 2007-11-30 13:24:33 +0300 (Fri, 30 Nov 2007)
New Revision: 1324

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/attline/attline.tcl
Log:
	* attline/attline.tcl: Fixed attline state cleanup after closing chat
	  window.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2007-11-29 16:23:04 UTC (rev 1323)
+++ trunk/tkabber-plugins/ChangeLog	2007-11-30 10:24:33 UTC (rev 1324)
@@ -1,3 +1,8 @@
+2007-11-30  Sergei Golovan <sgolovan at nes.ru>
+
+	* attline/attline.tcl: Fixed attline state cleanup after closing chat
+	  window.
+
 2007-11-29  Sergei Golovan <sgolovan at nes.ru>
 
 	* attline/attline.tcl: Fixed crash after closing chat tab/window

Modified: trunk/tkabber-plugins/attline/attline.tcl
===================================================================
--- trunk/tkabber-plugins/attline/attline.tcl	2007-11-29 16:23:04 UTC (rev 1323)
+++ trunk/tkabber-plugins/attline/attline.tcl	2007-11-30 10:24:33 UTC (rev 1324)
@@ -88,11 +88,15 @@
 proc attline::cleanup winid {
     variable state
 
+    if {![info exists state($winid,chatwindow)]} return
+
     set cw $state($winid,chatwindow)
     cancel_atline_expiration $cw
 
-    array unset state $cw,*
-    unset state($winid,chatwindow)
+    catch {unset state($cw,expiring)}
+    catch {unset state($cw,mainwindow)}
+    catch {unset state($cw,unread)}
+    catch {unset state($winid,chatwindow)}
 }
 
 proc attline::getopt {cw opt} {



More information about the Tkabber-dev mailing list