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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Feb 23 23:52:30 MSK 2009


Author: sergei
Date: 2009-02-23 23:52:29 +0300 (Mon, 23 Feb 2009)
New Revision: 1686

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/attline/attline.tcl
Log:
	* attline/attline.tcl: Removed reconfiguring attention line script from
	  <Configure> event in chatlog windows on plugin unload.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2009-02-23 15:27:07 UTC (rev 1685)
+++ trunk/tkabber-plugins/ChangeLog	2009-02-23 20:52:29 UTC (rev 1686)
@@ -7,6 +7,9 @@
 	* browser/msgs/de.msg: Updated German translation (thanks to Roger
 	  Sondermann).
 
+	* attline/attline.tcl: Removed reconfiguring attention line script from
+	  <Configure> event in chatlog windows on plugin unload.
+
 2009-02-20  Sergei Golovan <sgolovan at nes.ru>
 
 	* aniemoticons/aniemoticons.tcl, attline/attline.tcl,

Modified: trunk/tkabber-plugins/attline/attline.tcl
===================================================================
--- trunk/tkabber-plugins/attline/attline.tcl	2009-02-23 15:27:07 UTC (rev 1685)
+++ trunk/tkabber-plugins/attline/attline.tcl	2009-02-23 20:52:29 UTC (rev 1686)
@@ -86,7 +86,14 @@
 	set cw [chat::chat_win $chatid]
 	set iw [chat::input_win $chatid]
 	bind $iw <<ChatSeeAttentionLine>> {}
-	# TODO: Unbind configure event?
+
+	set al [attline $cw]
+	set script [split [bind $cw <Configure>] \n]
+	set idx [lsearch -exact $script [mycmd reconfigure_attention_line $cw $al]]
+	if {$idx >= 0} {
+	    bind $cw <Configure> [join [lreplace $script $idx $idx] \n]
+	}
+
 	delete_attention_line $cw
 	cleanup $chatid
     }



More information about the Tkabber-dev mailing list