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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Jan 19 11:51:16 MSK 2014


Author: sergei
Date: 2014-01-19 11:51:16 +0400 (Sun, 19 Jan 2014)
New Revision: 2060

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/plugins/chat/open_window.tcl
Log:
	* plugins/chat/open_window.tcl: Open a chat (and not a groupchat)
	  window if an info message is displayed first.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2014-01-18 18:35:20 UTC (rev 2059)
+++ trunk/tkabber/ChangeLog	2014-01-19 07:51:16 UTC (rev 2060)
@@ -1,3 +1,8 @@
+2014-01-19  Sergei Golovan  <sgolovan at nes.ru>
+
+	* plugins/chat/open_window.tcl: Open a chat (and not a groupchat)
+	  window if an info message is displayed first.
+
 2014-01-16  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iface.tcl: Fixed encoding the primary X selection in chat

Modified: trunk/tkabber/plugins/chat/open_window.tcl
===================================================================
--- trunk/tkabber/plugins/chat/open_window.tcl	2014-01-18 18:35:20 UTC (rev 2059)
+++ trunk/tkabber/plugins/chat/open_window.tcl	2014-01-19 07:51:16 UTC (rev 2060)
@@ -1,6 +1,9 @@
 # $Id$
 
 proc chat_open_window {chatid from type body x} {
+    if {$type eq "info"} {
+	set type chat
+    }
     chat::open_window $chatid $type -cleanroster 0
     set chatw [chat::chat_win $chatid]
     $chatw configure -state normal



More information about the Tkabber-dev mailing list