[Tkabber-dev] r1028 - in trunk/tkabber: . ifacetk msgs plugins/chat

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Mar 8 12:18:19 MSK 2007


Author: sergei
Date: 2007-03-08 12:18:19 +0300 (Thu, 08 Mar 2007)
New Revision: 1028

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iroster.tcl
   trunk/tkabber/messages.tcl
   trunk/tkabber/msgs/ru.msg
   trunk/tkabber/plugins/chat/histool.tcl
   trunk/tkabber/presence.tcl
Log:
	* presence.tcl, plugins/chat/histool.tcl, messages.tcl,
	  ifacetk/iroster.tcl: Made messages, which are shown to user, more
	  clear.

	* msgs/ru.msg: Updated Russian translation.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-03-07 21:13:51 UTC (rev 1027)
+++ trunk/tkabber/ChangeLog	2007-03-08 09:18:19 UTC (rev 1028)
@@ -1,3 +1,11 @@
+2007-03-08  Sergei Golovan  <sgolovan at nes.ru>
+
+	* presence.tcl, plugins/chat/histool.tcl, messages.tcl,
+	  ifacetk/iroster.tcl: Made messages, which are shown to user, more
+	  clear.
+
+	* msgs/ru.msg: Updated Russian translation.
+
 2007-03-07  Sergei Golovan  <sgolovan at nes.ru>
 
 	* muc.tcl, chats.tcl: Added new option

Modified: trunk/tkabber/ifacetk/iroster.tcl
===================================================================
--- trunk/tkabber/ifacetk/iroster.tcl	2007-03-07 21:13:51 UTC (rev 1027)
+++ trunk/tkabber/ifacetk/iroster.tcl	2007-03-08 09:18:19 UTC (rev 1028)
@@ -79,7 +79,7 @@
 	-type string -group Roster \
 	-command [namespace current]::redraw_after_idle
     custom::defvar options(show_own_resources) 0 \
-	[::msgcat::mc "Show own resources in roster."] \
+	[::msgcat::mc "Show my own resources in the roster."] \
 	-type boolean -group Roster \
 	-command [namespace current]::redraw_after_idle
     custom::defvar options(chats_group) 0 \
@@ -1198,17 +1198,17 @@
     set subsc [::roster::itemconfig $connid $bare_user -subsc]
     if {($options(show_subscription) && ![cequal $subsc ""]) &&
 	    !([cequal $category1 conference] && [cequal $category user])} {
+	set subsc [format "\n\t[::msgcat::mc {Subscription:}] %s" $subsc]
 	set ask [::roster::itemconfig $connid $bare_user -ask]
 	if {![cequal $ask ""]} {
-	    set subsc " \[$subsc, $ask\]"
-	} else {
-	    set subsc " \[$subsc\]"
+	    set ask [format "  [::msgcat::mc {Ask:}] %s" $ask]
 	}
     } else {
 	set subsc ""
+	set ask ""
     }
 
-    set user_popup_info "$name$subsc: $status"
+    set user_popup_info "$name: $status$subsc$ask"
 
     if {!([cequal $category1 conference] && $i > 0) || \
 	    $options(show_conference_user_info)} {

Modified: trunk/tkabber/messages.tcl
===================================================================
--- trunk/tkabber/messages.tcl	2007-03-07 21:13:51 UTC (rev 1027)
+++ trunk/tkabber/messages.tcl	2007-03-08 09:18:19 UTC (rev 1028)
@@ -207,6 +207,7 @@
 
     incr msgid
 
+    BWidget::place $mw 0 0 center
     wm deiconify $mw
 }
 
@@ -454,6 +455,7 @@
 
     hook::run open_message_post_hook $mw $connid $to
 
+    BWidget::place $mw 0 0 center
     wm deiconify $mw
 }
 
@@ -602,15 +604,16 @@
     set mw .subscshow$msgid
     toplevel $mw -class Message
     wm group $mw .
+    wm withdraw $mw
 
-    set title [format [::msgcat::mc "Subscribe request from %s"] $from]
+    set title [format [::msgcat::mc "Subscription request from %s"] $from]
     wm title $mw $title
     wm iconname $mw $title
 
     set bbox [ButtonBox $mw.buttons -spacing 0 -padx 10 -default 0]
-    $bbox add -text [::msgcat::mc "Subscribe"] \
+    $bbox add -text [::msgcat::mc "Approve subscription"] \
 	      -command [list [namespace current]::subscribe $mw $connid $from]
-    $bbox add -text [::msgcat::mc "Unsubscribe"] \
+    $bbox add -text [::msgcat::mc "Decline subscription"] \
 	      -command [list [namespace current]::unsubscribe $mw $connid $from]
     bind $mw <Return> "ButtonBox::invoke $bbox default"
     bind $mw <Escape> "ButtonBox::invoke $bbox 1"
@@ -635,7 +638,7 @@
     }
 
 
-    label $mw.subj.lab -text [::msgcat::mc "Subscribe request from:"]
+    label $mw.subj.lab -text [::msgcat::mc "Subscription request from:"]
     menubutton $mw.subj.mb -text $from -font $font -menu $mw.subj.mb.menu
     subject_menu $mw.subj.mb.menu $connid $from subscribe
     grid $mw.subj.lab -row 1 -column 0 -sticky e
@@ -660,6 +663,9 @@
     pack $mw.body -side bottom -fill both -expand yes -in $mw.sw
     $mw.sw setwidget $mw.body
 
+    BWidget::place $mw 0 0 center
+    wm deiconify $mw
+
     incr msgid
 }
 
@@ -798,17 +804,18 @@
     set mw .subscsend$msgid
     toplevel $mw -class Message
     wm group $mw .
+    wm withdraw $mw
 
     if {[cequal $to ""]} {
-        set title [::msgcat::mc "Send subscription"]
+        set title [::msgcat::mc "Send subscription request"]
     } else {
-        set title [format [::msgcat::mc "Send subscription to %s"] $to]
+        set title [format [::msgcat::mc "Send subscription request to %s"] $to]
     }
     wm title $mw $title
     wm iconname $mw $title
 
     set bbox [ButtonBox $mw.buttons -spacing 0 -padx 10 -default 0]
-    $bbox add -text [::msgcat::mc "Subscribe"] \
+    $bbox add -text [::msgcat::mc "Request subscription"] \
         -command [list message::send_subscribe0 $mw]
     $bbox add -text [::msgcat::mc "Cancel"] -command [list destroy $mw]
     bind $mw <Return> "ButtonBox::invoke $bbox default"
@@ -841,7 +848,7 @@
 	grid $mw.subj.connection  -row 0 -column 1 -sticky ew
     }
 
-    label $mw.subj.lab -text [::msgcat::mc "Send subscription to: "]
+    label $mw.subj.lab -text [::msgcat::mc "Send request to: "]
     entry $mw.subj.entry -font $font
     $mw.subj.entry insert 0 $to
     grid $mw.subj.lab   -row 1 -column 0 -sticky e
@@ -860,6 +867,8 @@
 
     focus $mw.subj.entry
 
+    BWidget::place $mw 0 0 center
+    wm deiconify $mw
     incr msgid
 }
 

Modified: trunk/tkabber/msgs/ru.msg
===================================================================
--- trunk/tkabber/msgs/ru.msg	2007-03-07 21:13:51 UTC (rev 1027)
+++ trunk/tkabber/msgs/ru.msg	2007-03-08 09:18:19 UTC (rev 1028)
@@ -64,6 +64,7 @@
 ::msgcat::mcset ru "and" "и"
 ::msgcat::mcset ru "Announce" "Объявление"
 ::msgcat::mcset ru "Application Error" "Ошибка приложения"
+::msgcat::mcset ru "Approve subscription" "Утвердить подписку"
 ::msgcat::mcset ru "April" "Апрель"
 ::msgcat::mcset ru "Are you sure to remove group '%s' from roster? \n(Users which are in this group only, will be in undefined group.)" \
     "Вы действительно хотите удалить группу '%s' из контактов? \n(Контакты, которые есть только в этой группе, окажутся без группы.)"
@@ -72,6 +73,7 @@
 ::msgcat::mcset ru "Are you sure to remove group '%s' from roster?" "Удалить группу '%s' из контактов?"
 ::msgcat::mcset ru "Are you sure to remove %s from roster?" \
     "Вы действительно хотите удалить %s из контактов?"
+::msgcat::mcset ru "Ask:" "Запрос:"
 ::msgcat::mcset ru "Attached URL:" "Приложенный URL:"
 ::msgcat::mcset ru "Attached user:" "Приложенный пользователь:"
 ::msgcat::mcset ru "Attention" "Внимание"
@@ -134,6 +136,7 @@
 ::msgcat::mcset ru "Change Presence Priority" "Изменить приоритет присутствия"
 ::msgcat::mcset ru "Change priority..." "Изменить приоритет..."
 ::msgcat::mcset ru "Change security preferences for %s" "Изменение параметров безопасности для %s"
+::msgcat::mcset ru "Changing accept messages from roster only: %s" "Изменение приема сообщений только из ростера: %s"
 ::msgcat::mcset ru "Chats history is converted.\nBackup of the old history is stored in %s" \
     "История разговоров преобразована в новый формат.\nРезервная копия сохранена в %s"
 ::msgcat::mcset ru "Chat message" "Сообщение типа \"chat\""
@@ -150,6 +153,8 @@
 ::msgcat::mcset ru "Chat with %s" "Разговор с %s"
 ::msgcat::mcset ru "Chat" "Разговаривать"
 ::msgcat::mcset ru "Chat " "Разговор"
+::msgcat::mcset ru "Chats History" "История разговоров"
+::msgcat::mcset ru "Chats history" "Разговоры"
 ::msgcat::mcset ru "Check spell after every entered symbol." \
     "Проверять правописание после каждого введенного символа."
 ::msgcat::mcset ru "Cipher" "Метод шифрования"
@@ -228,6 +233,7 @@
 ::msgcat::mcset ru "Date:" "Дата:"
 ::msgcat::mcset ru "Day:" "День:"
 ::msgcat::mcset ru "December" "Декабрь"
+::msgcat::mcset ru "Decline subscription" "Отклонить подписку"
 ::msgcat::mcset ru "Default directory for downloaded files." \
     "Директория в которой по умолчанию сохраняются полученные файлы."
 ::msgcat::mcset ru "Default message type (if not specified explicitly)." \
@@ -429,8 +435,11 @@
 ::msgcat::mcset ru "From: " "От кого: "
 ::msgcat::mcset ru "Full Name:" "Полное имя:"
 ::msgcat::mcset ru "Full Name" "Полное имя"
-::msgcat::mcset ru "Generate chat messages when room occupant or chat peer changes his/her status and/or status message" \
-    "Генерировать сообщения о том, что участник конференции или собеседник сменил своё присутствие или статусное сообщение."
+::msgcat::mcset ru "Full-text search" "Полнотекстовый поиск"
+::msgcat::mcset ru "Generate chat messages when chat peer changes his/her status and/or status message" \
+    "Генерировать сообщения о том, что собеседник сменил своё присутствие или статусное сообщение."
+::msgcat::mcset ru "Generate groupchat messages when occupant changes his/her status and/or status message" \
+    "Генерировать сообщения о том, что участник конференции сменил своё присутствие или статусное сообщение."
 ::msgcat::mcset ru "Generate status messages when occupants enter/exit MUC compatible conference rooms." \
     "Генерировать статусные сообщения о входе/выходе участников в MUC-конференциях."
 ::msgcat::mcset ru "Generate enter/exit messages" "Генерирование сообщений о входе/выходе"
@@ -451,6 +460,7 @@
 ::msgcat::mcset ru "Grant Membership" "Предоставить членство"
 ::msgcat::mcset ru "Grant Moderator Privileges" "Предоставить права модератора"
 ::msgcat::mcset ru "Grant Owner Privileges" "Предоставить права владельца"
+::msgcat::mcset ru "Grant subscription" "Предоставить подписку"
 ::msgcat::mcset ru "Grant Voice" "Предоставить право говорить"
 ::msgcat::mcset ru "Groupchat message highlighting plugin options." \
     "Настройки модуля выделения слов в сообщениях конференций."
@@ -570,6 +580,7 @@
 ::msgcat::mcset ru "January" "Январь"
 ::msgcat::mcset ru "JID:"
 ::msgcat::mcset ru "JID"
+::msgcat::mcset ru "JID list" "Список собеседников"
 ::msgcat::mcset ru "Jidlink connection closed" "Соединение Jidlink закрыто"
 ::msgcat::mcset ru "Jidlink connection failed" "Соединиться по Jidlink не удалось"
 ::msgcat::mcset ru "Jidlink transfer failed" "Передать файл по Jidlink не удалось"
@@ -620,6 +631,7 @@
 ::msgcat::mcset ru "Loading photo failed: %s." "Не удалось загрузить фото: %s."
 ::msgcat::mcset ru "Location" "Адрес"
 ::msgcat::mcset ru "Logging options." "Параметры протоколирования."
+::msgcat::mcset ru "Logs" "Протоколы"
 ::msgcat::mcset ru "Login options." "Параметры подключения."
 ::msgcat::mcset ru "Login" "Подключение"
 ::msgcat::mcset ru "Log in..." "Подключиться..."
@@ -699,6 +711,7 @@
     "Отключить звук при получении отложенных сообщений в конференциях."
 ::msgcat::mcset ru "Mute sound when displaying delayed personal chat messages." \
     "Отключить звук при получении отложенных персональных сообщений."
+::msgcat::mcset ru "My Resources" "Мои ресурсы"
 ::msgcat::mcset ru "my status is" "мой статус равен"
 ::msgcat::mcset ru "Name:" "Имя:"
 ::msgcat::mcset ru "Name" "Имя"
@@ -969,6 +982,7 @@
     "Отвечать на запрос disco#items о MUC-конференциях, в которых Вы принимаете участие."
 ::msgcat::mcset ru "Request Error" "Ошибка запроса"
 ::msgcat::mcset ru "Request failed: %s" "Запрос не удался: %s"
+::msgcat::mcset ru "Request subscription" "Запросить подписку"
 ::msgcat::mcset ru "Requesting converence list: %s" "Запрос списка конференций: %s"
 ::msgcat::mcset ru "Requesting filter rules: %s" "Запрос правил фильтрования: %s"
 ::msgcat::mcset ru "Requesting ignore list: %s" "Запрос игнорируемого списка: %s"
@@ -1071,10 +1085,11 @@
 ::msgcat::mcset ru "Send message to %s" "Отправка сообщения %s"
 ::msgcat::mcset ru "Send message..." "Отправить сообщение..."
 ::msgcat::mcset ru "Send message" "Отправка сообщения"
+::msgcat::mcset ru "Send request to: " "Отправка запроса: "
 ::msgcat::mcset ru "Send subscription at %s" "Отправка запроса на подписку на %s"
-::msgcat::mcset ru "Send subscription to %s" "Отправка запроса на подписку %s"
+::msgcat::mcset ru "Send subscription request to %s" "Отправка запроса на подписку %s"
 ::msgcat::mcset ru "Send subscription to: " "Отправка запроса на подписку: "
-::msgcat::mcset ru "Send subscription" "Отправка запроса на подписку"
+::msgcat::mcset ru "Send subscription request" "Отправка запроса на подписку"
 ::msgcat::mcset ru "Send to server" "Отправить на сервер"
 ::msgcat::mcset ru "Send users..." "Отправить контакты..."
 ::msgcat::mcset ru "Send" "Отправить"
@@ -1158,6 +1173,7 @@
 ::msgcat::mcset ru "Show online users only" "Показываются только активные пользователи"
 ::msgcat::mcset ru "Show only online users in roster." \
     "Показывать в окне контактов только подключённые контакты."
+::msgcat::mcset ru "Show own resources" "Показывать собственные ресурсы"
 ::msgcat::mcset ru "Show palette of emoticons" "Показать меню эмоциконок"
 ::msgcat::mcset ru "Show presence bar." "Показывать панель присутствия/статуса."
 ::msgcat::mcset ru "Show status bar." "Показывать статусную строку."
@@ -1263,8 +1279,10 @@
 ::msgcat::mcset ru "Subject" "Тема"
 ::msgcat::mcset ru "Subject is set to: %s" "Тема установлена в: %s"
 ::msgcat::mcset ru "Submit" "Отправить"
-::msgcat::mcset ru "Subscribe request from %s" "Запрос на подписку на присутствие от %s"
-::msgcat::mcset ru "Subscribe request from:" "Запрос на подписку на присутствие от:"
+::msgcat::mcset ru "Subscription" "Подписка на присутствие"
+::msgcat::mcset ru "Subscription:" "Подписка:"
+::msgcat::mcset ru "Subscription request from %s" "Запрос на подписку на присутствие от %s"
+::msgcat::mcset ru "Subscription request from:" "Запрос на подписку на присутствие от:"
 ::msgcat::mcset ru "Subscribe to a node" "Подписаться на узел"
 ::msgcat::mcset ru "Subscribe" "Подписаться"
 ::msgcat::mcset ru "Subscription Required" "Требуется подписка"
@@ -1369,6 +1387,7 @@
 ::msgcat::mcset ru "Unsubscribe from a node" "Отписаться от узла"
 ::msgcat::mcset ru "Unsupported compression method" "Неподдерживаемый метод сжатия"
 ::msgcat::mcset ru "Unsupported Encoding" "Неподдерживаемая кодировка"
+::msgcat::mcset ru "Unsupported log dir format" "Неподдерживаемый формат директории протоколов."
 ::msgcat::mcset ru "Unsupported Stanza Type" "Неподдерживаемый тип элемента"
 ::msgcat::mcset ru "Unsupported Version" "Неподдерживаемая версия"
 ::msgcat::mcset ru "Update message of the day..." "Обновить сообщение дня..."

Modified: trunk/tkabber/plugins/chat/histool.tcl
===================================================================
--- trunk/tkabber/plugins/chat/histool.tcl	2007-03-07 21:13:51 UTC (rev 1027)
+++ trunk/tkabber/plugins/chat/histool.tcl	2007-03-08 09:18:19 UTC (rev 1028)
@@ -53,7 +53,7 @@
     set nb [NoteBook $w.nb]
 
     set p [$nb insert end jidlist \
-	       -text [::msgcat::mc "JIDs"] \
+	       -text [::msgcat::mc "JID list"] \
 	       -raisecmd [list [namespace current]::jidlist_raise $nb]]
     jidlist_create $p $loghier
 

Modified: trunk/tkabber/presence.tcl
===================================================================
--- trunk/tkabber/presence.tcl	2007-03-07 21:13:51 UTC (rev 1027)
+++ trunk/tkabber/presence.tcl	2007-03-08 09:18:19 UTC (rev 1028)
@@ -549,6 +549,22 @@
 
 ###############################################################################
 
+proc add_presence_to_popup_info {infovar connid jid} {
+    upvar 0 $infovar info
+
+    set bjid [node_and_server_from_jid $jid]
+    if {[chat::is_groupchat [chat::chatid $connid $bjid]]} return
+
+    set priority [get_jid_presence_info priority $connid $jid]
+    if {$priority != ""} {
+	append info [format "\n\t[::msgcat::mc {Priority:}] %s" $priority]
+    }
+}
+
+hook::add roster_user_popup_info_hook add_presence_to_popup_info 20
+
+###############################################################################
+
 proc clear_presence_info {connid} {
     global presence
 



More information about the Tkabber-dev mailing list