[Tkabber-dev] r1382 - trunk/tkabber

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Tue Mar 4 00:29:19 MSK 2008


Author: sergei
Date: 2008-03-04 00:29:19 +0300 (Tue, 04 Mar 2008)
New Revision: 1382

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/muc.tcl
Log:
	* muc.tcl: Added a warning message to groupchat window if a room the
	  user enters is newly created.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-03-02 21:52:38 UTC (rev 1381)
+++ trunk/tkabber/ChangeLog	2008-03-03 21:29:19 UTC (rev 1382)
@@ -1,3 +1,8 @@
+2008-03-03  Sergei Golovan  <sgolovan at nes.ru>
+
+	* muc.tcl: Added a warning message to groupchat window if a room the
+	  user enters is newly created.
+
 2008-03-02  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/bwidget_workarounds.tcl: Changed look and feel of paned

Modified: trunk/tkabber/muc.tcl
===================================================================
--- trunk/tkabber/muc.tcl	2008-03-02 21:52:38 UTC (rev 1381)
+++ trunk/tkabber/muc.tcl	2008-03-03 21:29:19 UTC (rev 1382)
@@ -1027,6 +1027,9 @@
 		set chatid [chat::chatid $connid $group]
 		switch -- $code {
 		    201 {
+			chat::add_message \
+			    $chatid $group groupchat \
+			    [::msgcat::mc "A new room is created"] {}
 			# 201: room creation
 			if {$options(propose_configure)} {
 			    request_config_dialog $chatid



More information about the Tkabber-dev mailing list