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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Aug 2 17:02:44 MSK 2012


Author: sergei
Date: 2012-08-02 17:02:44 +0400 (Thu, 02 Aug 2012)
New Revision: 2003

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/general/headlines.tcl
Log:
	* plugins/general/headlines.tcl: Fixed calling namespaced procedure
	  with args.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2012-07-22 15:34:17 UTC (rev 2002)
+++ trunk/tkabber/ChangeLog	2012-08-02 13:02:44 UTC (rev 2003)
@@ -1,3 +1,8 @@
+2012-08-02  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/general/headlines.tcl: Fixed calling namespaced procedure
+	  with args.
+
 2012-07-22  Sergei Golovan  <sgolovan at nes.ru>
 
 	* default.tcl: Do not escape semicolon and @ as per RFC 1738.

Modified: trunk/tkabber/plugins/general/headlines.tcl
===================================================================
--- trunk/tkabber/plugins/general/headlines.tcl	2012-07-22 15:34:17 UTC (rev 2002)
+++ trunk/tkabber/plugins/general/headlines.tcl	2012-08-02 13:02:44 UTC (rev 2003)
@@ -382,8 +382,9 @@
 	if {$props(unseen)} {
 	    switch -- $options(mark_seen_by) {
 		selection {
-		    [namespace code [list action toggle \
-			       [winfo parent $tw] $node]]
+		    after idle
+			  [namespace code [list action toggle \
+						[winfo parent $tw] $node]]
 		}
 		timeout {
 		    if {$props(unseen) == 1} {



More information about the Tkabber-dev mailing list