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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Sep 20 21:32:53 MSD 2007


Author: sergei
Date: 2007-09-20 21:32:53 +0400 (Thu, 20 Sep 2007)
New Revision: 1234

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/chatstate.tcl
   trunk/tkabber/plugins/chat/events.tcl
Log:
	* plugins/chat/events.tcl, plugins/chat/chatstate.tcl: Registered
	  jabber:x:event and http://jabber.org/protocol/chatstates as Disco
	  features.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-09-20 17:19:32 UTC (rev 1233)
+++ trunk/tkabber/ChangeLog	2007-09-20 17:32:53 UTC (rev 1234)
@@ -14,6 +14,10 @@
 
 	* ifacetk/systray.tcl: Raise main window to top when showing it.
 
+	* plugins/chat/events.tcl, plugins/chat/chatstate.tcl: Registered
+	  jabber:x:event and http://jabber.org/protocol/chatstates as Disco
+	  features.
+
 2007-09-18  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iroster.tcl: Fixed showing own resources if username is not

Modified: trunk/tkabber/plugins/chat/chatstate.tcl
===================================================================
--- trunk/tkabber/plugins/chat/chatstate.tcl	2007-09-20 17:19:32 UTC (rev 1233)
+++ trunk/tkabber/plugins/chat/chatstate.tcl	2007-09-20 17:32:53 UTC (rev 1234)
@@ -10,6 +10,8 @@
     custom::defvar options(enable) 0 \
 	[::msgcat::mc "Enable sending chat state notifications."] \
 	-type boolean -group Chatstate
+
+    disco::register_feature $::NS(chatstate)
 }
 
 # Workaround a bug in JIT, which responds with error to chatstate

Modified: trunk/tkabber/plugins/chat/events.tcl
===================================================================
--- trunk/tkabber/plugins/chat/events.tcl	2007-09-20 17:19:32 UTC (rev 1233)
+++ trunk/tkabber/plugins/chat/events.tcl	2007-09-20 17:32:53 UTC (rev 1234)
@@ -10,6 +10,8 @@
     custom::defvar options(enable) 1 \
 	[::msgcat::mc "Enable sending chat message events."] \
 	-type boolean -group Events
+
+    disco::register_feature $::NS(event)
 }
 
 proc events::process_x {check_request chatid from type body xs} {



More information about the Tkabber-dev mailing list