[Tkabber-dev] r1805 - in trunk/tkabber: . plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon May 11 11:38:00 MSD 2009


Author: sergei
Date: 2009-05-11 11:38:00 +0400 (Mon, 11 May 2009)
New Revision: 1805

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/chatstate.tcl
Log:
	* plugins/chat/chatstate.tcl: Fixed order of running bind scripts when
	  <Delete> or <BackSpace> events are fired.
	* ChangeLog: Fixed name of Jan Zachorowski in acknowledgement.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-05-09 16:00:44 UTC (rev 1804)
+++ trunk/tkabber/ChangeLog	2009-05-11 07:38:00 UTC (rev 1805)
@@ -1,3 +1,8 @@
+2009-05-11  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/chat/chatstate.tcl: Fixed order of running bind scripts when
+	  <Delete> or <BackSpace> events are fired.
+
 2009-05-09  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/chat/events.tcl, plugins/chat/chatstate.tcl:: Fixed
@@ -6,13 +11,32 @@
 	  or in a groupchat.
 
 	* plugins/chat/chatstate.tcl: Added sending 'paused' event (thanks to
-	  quantifier at jabster.pl).
+	  Jan Zachorowski).
 
 	* plugins/general/remote.tcl: Fixed binding of <Destroy> event if the
 	  bound script contains % sign.
 
 	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).
 
+	* balloon.tcl, chats.tcl, custom.tcl, datagathering.tcl, disco.tcl,
+	  filetransfer.tcl, ifacetk/buttonbar.tcl, ifacetk/iface.tcl,
+	  ifacetk/ilogin.tcl, ifacetk/iroster.tcl, itemedit.tcl, messages.tcl,
+	  muc.tcl, plugins/chat/bookmark_highlighted.tcl,
+	  plugins/chat/draw_xhtml_message.tcl, plugins/chat/histool.tcl,
+	  plugins/chat/logger.tcl, plugins/chat/muc_ignore.tcl,
+	  plugins/chat/nick_colors.tcl, plugins/chat/popupmenu.tcl,
+	  plugins/chat/postpone.tcl, plugins/chat/unisymbols.tcl,
+	  plugins/filetransfer/http.tcl, plugins/filetransfer/si.tcl,
+	  plugins/general/headlines.tcl, plugins/general/ispell.tcl,
+	  plugins/general/message_archive.tcl, plugins/general/offline.tcl,
+	  plugins/general/rawxml.tcl, plugins/general/subscribe_gateway.tcl,
+	  plugins/general/xcommands.tcl, plugins/pep/user_tune.tcl,
+	  plugins/richtext/emoticons.tcl, plugins/richtext/urls.tcl,
+	  plugins/roster/annotations.tcl, plugins/unix/dockingtray.tcl,
+	  plugins/unix/systray.tcl, plugins/unix/tktray.tcl, privacy.tcl,
+	  pubsub.tcl, register.tcl, richtext.tcl, search.tcl, splash.tcl,
+	  userinfo.tcl, utils.tcl: Escaped % in event bindings.
+
 2009-05-07  Sergei Golovan  <sgolovan at nes.ru>
 
 	* joingrdialog.tcl: Added another room JID normalization.

Modified: trunk/tkabber/plugins/chat/chatstate.tcl
===================================================================
--- trunk/tkabber/plugins/chat/chatstate.tcl	2009-05-09 16:00:44 UTC (rev 1804)
+++ trunk/tkabber/plugins/chat/chatstate.tcl	2009-05-11 07:38:00 UTC (rev 1805)
@@ -259,9 +259,9 @@
     }
 
     bind $input <Key-Delete> \
-	 [namespace code [list event_composing %W <Delete>]]
+	 [list after idle [namespace code [list event_composing %W <Delete>]]]
     bind $input <Key-BackSpace> \
-	 [namespace code [list event_composing %W <BackSpace>]]
+	 [list after idle [namespace code [list event_composing %W <BackSpace>]]]
 }
 
 hook::add text_on_keypress_hook [namespace current]::chatstate::event_composing



More information about the Tkabber-dev mailing list