[Tkabber-dev] r1149 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Jul 9 16:39:58 MSD 2007


Author: sergei
Date: 2007-07-09 16:39:58 +0400 (Mon, 09 Jul 2007)
New Revision: 1149

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/hooks.tcl
Log:
	* hooks.tcl: Allowed hook priority to take real value instead of
	  integer. This helps inserting a procedure to a hook between two
	  existing procedures easier.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-06-22 04:51:29 UTC (rev 1148)
+++ trunk/tkabber/ChangeLog	2007-07-09 12:39:58 UTC (rev 1149)
@@ -1,3 +1,9 @@
+2007-07-09  Sergei Golovan  <sgolovan at nes.ru>
+
+	* hooks.tcl: Allowed hook priority to take real value instead of
+	  integer. This helps inserting a procedure to a hook between two
+	  existing procedures easier.
+
 2007-06-22  Sergei Golovan  <sgolovan at nes.ru>
 
 	* plugins/filetransfer/si.tcl: Don't close SOCKS5 connection upon

Modified: trunk/tkabber/hooks.tcl
===================================================================
--- trunk/tkabber/hooks.tcl	2007-06-22 04:51:29 UTC (rev 1148)
+++ trunk/tkabber/hooks.tcl	2007-07-09 12:39:58 UTC (rev 1149)
@@ -6,7 +6,7 @@
     variable $hook
 
     lappend $hook [list $func $seq]
-    set $hook [lsort -integer -index 1 [lsort -unique [set $hook]]]
+    set $hook [lsort -real -index 1 [lsort -unique [set $hook]]]
 }
 
 proc hook::set_flag {hook flag} {



More information about the Tkabber-dev mailing list