[Tkabber-dev] r1674 - in trunk/tkabber: . msgs

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Feb 19 22:28:11 MSK 2009


Author: sergei
Date: 2009-02-19 22:28:11 +0300 (Thu, 19 Feb 2009)
New Revision: 1674

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/msgs/de.msg
   trunk/tkabber/presence.tcl
Log:
	* presence.tcl: Greyed out sending custom presence submenu in chat
	  windows which correspond to groupchat members.

	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2009-02-19 19:27:46 UTC (rev 1673)
+++ trunk/tkabber/ChangeLog	2009-02-19 19:28:11 UTC (rev 1674)
@@ -1,3 +1,10 @@
+2009-02-19  Sergei Golovan  <sgolovan at nes.ru>
+
+	* presence.tcl: Greyed out sending custom presence submenu in chat
+	  windows which correspond to groupchat members.
+
+	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).
+
 2009-02-18  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iface.tcl: Exported procedure which destroys opened tab or

Modified: trunk/tkabber/msgs/de.msg
===================================================================
--- trunk/tkabber/msgs/de.msg	2009-02-19 19:27:46 UTC (rev 1673)
+++ trunk/tkabber/msgs/de.msg	2009-02-19 19:28:11 UTC (rev 1674)
@@ -1,6 +1,6 @@
 
 # German messages file
-# Roger Sondermann 15.02.2009
+# Roger Sondermann 18.02.2009
 
 # .../chats.tcl
 ::msgcat::mcset de "%s has changed nick to %s."                             "%s hat seinen Nicknamen geändert in %s"
@@ -417,7 +417,7 @@
 ::msgcat::mcset de "Tkabber icon theme. To make new theme visible for Tkabber put it to some subdirectory of %s." "Tkabber Icon-Thema. Um es für Tkabber sichtbar zu machen, muß es in einem Unterordner von %s platziert werden."
 
 # .../plugins.tcl
-::msgcat::mcset de "External plugins options."                              "Optionen für externe Plugins."
+::msgcat::mcset de "Loading and unloading external plugins."                "Laden und Entladen externer Plugins."
 
 # .../presence.tcl
 ::msgcat::mcset de "Change Presence Priority"                               "Präsenz-Priorität ändern"

Modified: trunk/tkabber/presence.tcl
===================================================================
--- trunk/tkabber/presence.tcl	2009-02-19 19:27:46 UTC (rev 1673)
+++ trunk/tkabber/presence.tcl	2009-02-19 19:28:11 UTC (rev 1674)
@@ -582,6 +582,13 @@
 ###############################################################################
 
 proc custom_presence_menu {m xlib jid} {
+    set chatid [chat::chatid $xlib [::xmpp::jid::stripResource $jid]]
+    if {[chat::is_groupchat $chatid]} {
+	set state disabled
+    } else {
+	set state normal
+    }
+
     set mm [menu $m.custom_presence -tearoff 0]
 
     $mm add command -label [::msgcat::mc "Available"] \
@@ -598,6 +605,7 @@
 		    -command [list send_custom_presence $xlib $jid unavailable]
 
     $m add cascade -label [::msgcat::mc "Send custom presence"] \
+		   -state $state \
 		   -menu $mm
 }
 



More information about the Tkabber-dev mailing list