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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Jan 20 22:49:13 MSK 2008


Author: sergei
Date: 2008-01-20 22:49:12 +0300 (Sun, 20 Jan 2008)
New Revision: 1349

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/attline/attline.tcl
Log:
	* attline/attline.tcl: Fixed bug with leaving chatlog window in normal
	  state if an attention doesn't need to be redrawn (thanks to
	  Konstantin Khomoutov).


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2008-01-16 21:04:03 UTC (rev 1348)
+++ trunk/tkabber-plugins/ChangeLog	2008-01-20 19:49:12 UTC (rev 1349)
@@ -1,3 +1,9 @@
+2008-01-20  Sergei Golovan <sgolovan at nes.ru>
+
+	* attline/attline.tcl: Fixed bug with leaving chatlog window in normal
+	  state if an attention doesn't need to be redrawn (thanks to
+	  Konstantin Khomoutov).
+
 2008-01-16  Sergei Golovan <sgolovan at nes.ru>
 
 	* attline/attline.tcl: Removed tags ATLINE, made the line more thin,

Modified: trunk/tkabber-plugins/attline/attline.tcl
===================================================================
--- trunk/tkabber-plugins/attline/attline.tcl	2008-01-16 21:04:03 UTC (rev 1348)
+++ trunk/tkabber-plugins/attline/attline.tcl	2008-01-20 19:49:12 UTC (rev 1349)
@@ -193,9 +193,6 @@
 }
 
 proc attline::redraw_attention_line {cw} {
-    set state [$cw cget -state]
-    $cw configure -state normal
-
     set al [attline $cw]
     set ix [$cw index $al]
 
@@ -204,6 +201,9 @@
 	return
     }
 
+    set state [$cw cget -state]
+    $cw configure -state normal
+
     $cw window configure $ix -window {}
     $cw delete $ix
 



More information about the Tkabber-dev mailing list