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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sun Mar 23 20:54:26 MSK 2008


Author: sergei
Date: 2008-03-23 20:54:25 +0300 (Sun, 23 Mar 2008)
New Revision: 1398

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/msgs/de.msg
   trunk/tkabber/muc.tcl
Log:
	* muc.tcl: Added a possibility to change affiliation/role for all MUC
	  list at once.

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


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2008-03-23 08:04:51 UTC (rev 1397)
+++ trunk/tkabber/ChangeLog	2008-03-23 17:54:25 UTC (rev 1398)
@@ -18,6 +18,9 @@
 	  plugins/pep/user_mood.tcl, plugins/pep/user_tune.tcl: Enable/disable
 	  menu items on connect/disconnect to a server.
 
+	* muc.tcl: Added a possibility to change affiliation/role for all MUC
+	  list at once.
+
 	* msgs/de.msg: Updated German translation (thanks to Roger Sondermann).
 
 2008-03-07  Sergei Golovan  <sgolovan at nes.ru>

Modified: trunk/tkabber/msgs/de.msg
===================================================================
--- trunk/tkabber/msgs/de.msg	2008-03-23 08:04:51 UTC (rev 1397)
+++ trunk/tkabber/msgs/de.msg	2008-03-23 17:54:25 UTC (rev 1398)
@@ -1,6 +1,6 @@
 
 # German messages file
-# Roger Sondermann 11.03.2008
+# Roger Sondermann 23.03.2008
 
 # .../chats.tcl
 ::msgcat::mcset de "%s has changed nick to %s."                             "%s hat seinen Nicknamen geändert in %s"
@@ -33,7 +33,7 @@
 ::msgcat::mcset de "Stop chat window autoscroll."                           "Automatisches Scrollen von Chat-Fenstern abstellen."
 ::msgcat::mcset de "Subject is set to: %s"                                  "Betreff ist gesetzt zu: %s"
 ::msgcat::mcset de "Subject:"                                               "Betreff:"
-::msgcat::mcset de "Users"                                                  "Kontakte"
+::msgcat::mcset de "Users"                                                  "Benutzer"
 ::msgcat::mcset de "Visitors"                                               "Besucher"
 
 # .../configdir.tcl
@@ -1434,8 +1434,9 @@
 ::msgcat::mcset de "Auto-subscribe to other's user activity notifications." "Benachrichtigungen über die Kontakt-Aktivitäten Anderer automatisch abonnieren."
 ::msgcat::mcset de "Cannot publish empty activity"                          "Unausgefüllte Aktivität kann nicht veröffentlicht werden"
 ::msgcat::mcset de "Error"                                                  "Fehler"
-::msgcat::mcset de "Publish user activity"                                  "Eigene Kontakt-Aktivität veröffentlichen..."
+::msgcat::mcset de "Publish user activity..."                               "Eigene Kontakt-Aktivität veröffentlichen..."
 ::msgcat::mcset de "Unpublish user activity"                                "Eigene Kontakt-Aktivität zurückziehen"
+::msgcat::mcset de "Unpublish user activity..."                             "Eigene Kontakt-Aktivität zurückziehen..."
 ::msgcat::mcset de "Subactivity"                                            "Neben-Aktivität"
 ::msgcat::mcset de "Subactivity:"                                           "Neben-Aktivität:"
 ::msgcat::mcset de "User activity"                                          "Kontakt-Aktivität"
@@ -1521,8 +1522,9 @@
 ::msgcat::mcset de "%s's location is unset"                                 "Standort für %s ist nicht gesetzt"
 ::msgcat::mcset de "Auto-subscribe to other's user location"                "Kontakt-Standort Anderer automatisch abonnieren"
 ::msgcat::mcset de "Auto-subscribe to other's user location notifications." "Benachrichtigungen über die Kontakt-Standorte Anderer automatisch abonnieren."
-::msgcat::mcset de "Publish user location"                                  "Eigenen Kontakt-Standort veröffentlichen..."
+::msgcat::mcset de "Publish user location..."                               "Eigenen Kontakt-Standort veröffentlichen..."
 ::msgcat::mcset de "Unpublish user location"                                "Eigenen Kontakt-Standort zurückziehen"
+::msgcat::mcset de "Unpublish user location..."                             "Eigenen Kontakt-Standort zurückziehen..."
 ::msgcat::mcset de "User location"                                          "Kontakt-Standort"
 ::msgcat::mcset de "User location publishing failed: %s"                    "Veröffentlichen des Kontakt-Standorts misslungen: %s"
 ::msgcat::mcset de "User location unpublishing failed: %s"                  "Zurückziehen des Kontakt-Standorts misslungen: %s"
@@ -1553,8 +1555,9 @@
 ::msgcat::mcset de "Mood:"                                                  "Gemütslage:"
 ::msgcat::mcset de "Publish"                                                "Veröffentlichen"
 ::msgcat::mcset de "Unpublish"                                              "Zurückziehen"
-::msgcat::mcset de "Publish user mood"                                      "Eigene Kontakt-Gemütslage veröffentlichen..."
+::msgcat::mcset de "Publish user mood..."                                   "Eigene Kontakt-Gemütslage veröffentlichen..."
 ::msgcat::mcset de "Unpublish user mood"                                    "Eigene Kontakt-Gemütslage zurückziehen"
+::msgcat::mcset de "Unpublish user mood..."                                 "Eigene Kontakt-Gemütslage zurückziehen..."
 ::msgcat::mcset de "Publishing is only possible while being online"         "Veröffentlichung nur möglich wenn 'Online'"
 ::msgcat::mcset de "Unpublishing is only possible while being online"       "Zurückziehung nur möglich wenn 'Online'"
 ::msgcat::mcset de "Unsubscribe"                                            "Abmelden/Zurückziehen"
@@ -1634,8 +1637,9 @@
 ::msgcat::mcset de "Auto-subscribe to other's user tune"                    "Kontakt-Musik Anderer automatisch abonnieren"
 ::msgcat::mcset de "Auto-subscribe to other's user tune notifications."     "Benachrichtigungen über die Kontakt-Musik Anderer automatisch abonnieren."
 ::msgcat::mcset de "Length:"                                                "Länge:"
-::msgcat::mcset de "Publish user tune"                                      "Eigene Kontakt-Musik veröffentlichen..."
+::msgcat::mcset de "Publish user tune..."                                   "Eigene Kontakt-Musik veröffentlichen..."
 ::msgcat::mcset de "Unpublish user tune"                                    "Eigene Kontakt-Musik zurückziehen"
+::msgcat::mcset de "Unpublish user tune..."                                 "Eigene Kontakt-Musik zurückziehen..."
 ::msgcat::mcset de "Source:"                                                "Quelle:"
 ::msgcat::mcset de "Track:"                                                 "Index:"
 ::msgcat::mcset de "URI:"                                                   "URI:"

Modified: trunk/tkabber/muc.tcl
===================================================================
--- trunk/tkabber/muc.tcl	2008-03-23 08:04:51 UTC (rev 1397)
+++ trunk/tkabber/muc.tcl	2008-03-23 17:54:25 UTC (rev 1398)
@@ -565,9 +565,35 @@
     $w add -text [::msgcat::mc "Cancel"] -command [list destroy $w]
     bind $w <Destroy> [list after idle [list muc::list_cleanup $w $f]]
 
-    button $w.add -text [::msgcat::mc "Add"] \
+    frame $w.fr
+    pack $w.fr -side bottom -in $wf -fill x
+
+    button $w.add -text [::msgcat::mc "Add new item"] \
 	-command [list muc::list_add_item $sf $f $attr $val]
-    pack $w.add -side bottom -anchor e -in $wf -padx 1m -pady 1m
+    pack $w.add -side right -in $w.fr -padx 1m -pady 1m
+
+    label $w.lall -text [::msgcat::mc "All items:"]
+    pack $w.lall -side left -in $w.fr -padx 1m -pady 1m
+
+    switch -- $attr {
+	role {
+	    ComboBox $w.roleall -text $val \
+		-values {moderator participant visitor none} \
+		-editable no \
+		-width 11 \
+		-modifycmd [list muc::change_all_items $f $w.roleall $attr]
+	    pack $w.roleall -side left -anchor w -in $w.fr -pady 1m
+	}
+	affiliation {
+	    ComboBox $w.affiliationall -text $val \
+		-values {owner admin member none outcast} \
+		-editable no \
+		-width 7 \
+		-modifycmd [list muc::change_all_items $f $w.affiliationall $attr]
+	    pack $w.affiliationall -side left -in $w.fr -pady 1m
+	}
+    }
+
     pack $sw -side top -expand yes -fill both
 
     bindscroll $f $sf
@@ -592,6 +618,19 @@
 
 ###############################################################################
 
+proc muc::change_all_items {f combobox attr} {
+    variable listdata
+    variable origlistdata
+
+    set value [$combobox get]
+
+    for {set i 1} {$i <= $listdata($f,rows)} {incr i} {
+	set listdata($f,$attr,$i) $value
+    }
+}
+
+###############################################################################
+
 proc muc::fill_list {sf f items attr val} {
     variable listdata
     variable origlistdata



More information about the Tkabber-dev mailing list