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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Sep 13 10:39:52 MSD 2009


Author: sergei
Date: 2009-09-13 10:39:52 +0400 (Sun, 13 Sep 2009)
New Revision: 1838

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/attline/attline.tcl
Log:
	* attline/attline.tcl: Fixed removing expired attention line if it
	  isn't drawn (thanks to Jan Zachorowski).


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2009-09-02 09:31:01 UTC (rev 1837)
+++ trunk/tkabber-plugins/ChangeLog	2009-09-13 06:39:52 UTC (rev 1838)
@@ -1,3 +1,8 @@
+2009-09-12  Sergei Golovan <sgolovan at nes.ru>
+
+	* attline/attline.tcl: Fixed removing expired attention line if it
+	  isn't drawn (thanks to Jan Zachorowski).
+
 2009-08-16  Sergei Golovan <sgolovan at nes.ru>
 
 	* attline/msgs/es.msg, browser/msgs/es.msg, checkers/msgs/es.msg,

Modified: trunk/tkabber-plugins/attline/attline.tcl
===================================================================
--- trunk/tkabber-plugins/attline/attline.tcl	2009-09-02 09:31:01 UTC (rev 1837)
+++ trunk/tkabber-plugins/attline/attline.tcl	2009-09-13 06:39:52 UTC (rev 1838)
@@ -354,7 +354,7 @@
     if {[info exists state($cw,expiring)]} {
 	unread $cw false
 	unset state($cw,expiring)
-	if {$options(remove_expired)} {
+	if {$options(remove_expired) && [drawn $cw]} {
 	    delete_attention_line $cw
 	}
 	debugmsg attline "expired"



More information about the Tkabber-dev mailing list