[Tkabber-dev] r925 - in trunk/tkabber-plugins: . whiteboard

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Feb 11 15:40:48 MSK 2007


Author: sergei
Date: 2007-02-11 15:40:45 +0300 (Sun, 11 Feb 2007)
New Revision: 925

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/whiteboard/whiteboard.tcl
Log:
	* whiteboard/whiteboard.tcl: Made using jlib::x_delay for computing
	  message time.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2007-02-11 12:40:21 UTC (rev 924)
+++ trunk/tkabber-plugins/ChangeLog	2007-02-11 12:40:45 UTC (rev 925)
@@ -11,6 +11,9 @@
 	  iconsets/kroc/tkabber/search_exact.gif,
 	  iconsets/kroc/tkabber/search_fw.gif: Removed unused icons.
 
+	* whiteboard/whiteboard.tcl: Made using jlib::x_delay for computing
+	  message time.
+
 2006-02-10  Sergei Golovan <sgolovan at nes.ru>
 
 	* whiteboard/whiteboard.tcl, whiteboard/svgrender.tcl: Added

Modified: trunk/tkabber-plugins/whiteboard/whiteboard.tcl
===================================================================
--- trunk/tkabber-plugins/whiteboard/whiteboard.tcl	2007-02-11 12:40:21 UTC (rev 924)
+++ trunk/tkabber-plugins/whiteboard/whiteboard.tcl	2007-02-11 12:40:45 UTC (rev 925)
@@ -315,15 +315,8 @@
 }
 
 proc wb::handle_wb {chatid from type body x} {
-    set seconds [clock seconds]
-    foreach xelem $x {
-	jlib::wrapper:splitxml $xelem tag vars isempty chdata children
+    set seconds [jlib::x_delay $x]
 
-	if {[cequal [jlib::wrapper:getattr $vars xmlns] jabber:x:delay]} {
-	    set seconds [clock scan [jlib::wrapper:getattr $vars stamp] -gmt 1]
-	}
-    }
-
     foreach xelem $x {
 	jlib::wrapper:splitxml $xelem tag vars isempty chdata children
 	



More information about the Tkabber-dev mailing list