[Tkabber-dev] r1807 - in trunk/tkabber: . plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Fri May 15 10:47:21 MSD 2009


Author: sergei
Date: 2009-05-15 10:47:21 +0400 (Fri, 15 May 2009)
New Revision: 1807

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/general/message_archive.tcl
Log:
	* plugins/general/message_archive.tcl: Fixed message selection which was
	  broken when escaping % in event bindings.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-05-11 10:53:20 UTC (rev 1806)
+++ trunk/tkabber/ChangeLog	2009-05-15 06:47:21 UTC (rev 1807)
@@ -1,3 +1,8 @@
+2009-05-15  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/general/message_archive.tcl: Fixed message selection which was
+	  broken when escaping % in event bindings.
+
 2009-05-11  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/chat/chatstate.tcl: Fixed order of running bind scripts when

Modified: trunk/tkabber/plugins/general/message_archive.tcl
===================================================================
--- trunk/tkabber/plugins/general/message_archive.tcl	2009-05-11 10:53:20 UTC (rev 1806)
+++ trunk/tkabber/plugins/general/message_archive.tcl	2009-05-15 06:47:21 UTC (rev 1807)
@@ -105,11 +105,11 @@
 
     bind $l <1> \
 	    "[namespace current]::select_and_print_body \
-	     [double% $dw] %W \[%W nearest \[::mclistbox::convert %W -y %y\]\]"
+	     [double% $dw] [double% $l] \[[double% $l] nearest \[::mclistbox::convert %W -y %y\]\]"
 
 #    bind $l <3> \
 #	    "[namespace current]::select_and_popup_menu \
-#	     %W \[%W nearest \[::mclistbox::convert %W -y %y\]\]"
+#	     [double% $l] \[[double% $l] nearest \[::mclistbox::convert %W -y %y\]\]"
 
     bindscroll $sww $l
 



More information about the Tkabber-dev mailing list