[Tkabber-dev] r1888 - in trunk/tkabber-plugins: . quotelastmsg

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Jan 24 00:06:15 MSK 2010


Author: sergei
Date: 2010-01-24 00:06:15 +0300 (Sun, 24 Jan 2010)
New Revision: 1888

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/quotelastmsg/quotelastmsg.tcl
Log:
	* quotelastmsg/quotelastmsg.tcl: Fixed escaping % in bind scripts.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2010-01-23 17:45:11 UTC (rev 1887)
+++ trunk/tkabber-plugins/ChangeLog	2010-01-23 21:06:15 UTC (rev 1888)
@@ -13,6 +13,8 @@
 
 	* Makefile: Added floatingcontact plugin to plugins list.
 
+	* quotelastmsg/quotelastmsg.tcl: Fixed escaping % in bind scripts.
+
 2010-01-16  Sergei Golovan <sgolovan at nes.ru>
 
 	* spy/spy.tcl: Fixed adding new spy watch if some of them were added

Modified: trunk/tkabber-plugins/quotelastmsg/quotelastmsg.tcl
===================================================================
--- trunk/tkabber-plugins/quotelastmsg/quotelastmsg.tcl	2010-01-23 17:45:11 UTC (rev 1887)
+++ trunk/tkabber-plugins/quotelastmsg/quotelastmsg.tcl	2010-01-23 21:06:15 UTC (rev 1888)
@@ -45,11 +45,11 @@
     variable state
 
     set iw [::chat::input_win $chatid]
-    bind $iw <<QuoteLastMessage>> [list [namespace current]::quote $chatid]
+    bind $iw <<QuoteLastMessage>> [list [namespace current]::quote [double% $chatid]]
 
     set cw [::chat::chat_win $chatid]
     set state($cw,last) 1.0
-    bind $cw <Destroy> +[list [namespace current]::cleanup $cw %W]
+    bind $cw <Destroy> +[list [namespace current]::cleanup [double% $cw] %W]
 }
 
 proc quotelastmsg::cleanup {w1 w2} {



More information about the Tkabber-dev mailing list