[Tkabber-dev] r1809 - in trunk/tkabber: . ifacetk

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Jun 8 09:01:43 MSD 2009


Author: sergei
Date: 2009-06-08 09:01:42 +0400 (Mon, 08 Jun 2009)
New Revision: 1809

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iface.tcl
Log:
	* ifacetk/iface.tcl: Fixed sending announce messages.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-05-16 20:26:40 UTC (rev 1808)
+++ trunk/tkabber/ChangeLog	2009-06-08 05:01:42 UTC (rev 1809)
@@ -1,3 +1,7 @@
+2009-06-08  Sergei Golovan  <sgolovan at nes.ru>
+
+	* ifacetk/iface.tcl: Fixed sending announce messages.
+
 2009-05-16  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iface.tcl: Fixed changing text status.

Modified: trunk/tkabber/ifacetk/iface.tcl
===================================================================
--- trunk/tkabber/ifacetk/iface.tcl	2009-05-16 20:26:40 UTC (rev 1808)
+++ trunk/tkabber/ifacetk/iface.tcl	2009-06-08 05:01:42 UTC (rev 1809)
@@ -457,12 +457,13 @@
 proc ifacetk::send_announce_message {resource} {
     if {[llength [connections]] == 0} return
 
-    set server [connection_server [lindex [connections] 0]]
+    set xlib [lindex [connections] 0]
+    set server [connection_server $xlib]
 
-    if {$resource == "announce/motd/delete"} {
-	message::send_msg "$server/$resource" -type normal
+    if {[string equal $resource announce/motd/delete]} {
+	message::send_msg $xlib $server/$resource -type normal
     } else {
-	message::send_dialog -to "$server/$resource"
+	message::send_dialog -to $server/$resource -connection $xlib
     }
 }
 



More information about the Tkabber-dev mailing list