[Tkabber-dev] r1042 - in trunk/tkabber: . msgs plugins/general

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Sat Mar 10 19:18:59 MSK 2007


Author: sergei
Date: 2007-03-10 19:18:58 +0300 (Sat, 10 Mar 2007)
New Revision: 1042

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/msgs/uk.msg
   trunk/tkabber/plugins/general/headlines.tcl
Log:
	* plugins/general/headlines.tcl: After removing a from headlines tree
	  select the closest node to make keyboard traversal easier (thanks to
	  Konstantin Khomoutov).

	* msgs/uk.msg: Updated Ukrainian translation (thanks to Artem
	  Bondarenko).


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-03-10 15:04:00 UTC (rev 1041)
+++ trunk/tkabber/ChangeLog	2007-03-10 16:18:58 UTC (rev 1042)
@@ -15,6 +15,13 @@
 	* jabberlib-tclxml/jabberlib.tcl: Added few extra checks if connection
 	  exists.
 
+	* plugins/general/headlines.tcl: After removing a from headlines tree
+	  select the closest node to make keyboard traversal easier (thanks to
+	  Konstantin Khomoutov).
+
+	* msgs/uk.msg: Updated Ukrainian translation (thanks to Artem
+	  Bondarenko).
+
 2007-03-09  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/iface.tcl, splash.tcl, tkabber.tcl: Withdraw main window at

Modified: trunk/tkabber/msgs/uk.msg
===================================================================
--- trunk/tkabber/msgs/uk.msg	2007-03-10 15:04:00 UTC (rev 1041)
+++ trunk/tkabber/msgs/uk.msg	2007-03-10 16:18:58 UTC (rev 1042)
@@ -2,8 +2,8 @@
 
 # ukrainian messages file
 # writed by levsha at jabber.net.ua. Last change 10.03.2006
-# updated by uzver at jabber.kiev.ua Last change 23.02.2007
-# Vypravleno i dopovneno pereklad na Tkabber 0.9.9
+# updated by uzver at jabber.kiev.ua Last change 08.03.2007
+# Vypravleno i dopovneno pereklad na Tkabber 0.9.9 SVN
 # Pereklady na plaginy dodani u vidpovidni teky /msgs kozhnohgo plaginu
 # charset - UTF8
 # hmm..
@@ -1422,6 +1422,32 @@
 ::msgcat::mcset uk "Ping server using urn:xmpp:ping requests." "Пінгувати сервер використовуючи запити urn:xmpp:ping."
 ::msgcat::mcset uk "Show images for emoticons." "Показувати малюнки до смайликів."
 ::msgcat::mcset uk "Complete nickname or command" "Доповнювати до кінця псевдонім чи команду"
+::msgcat::mcset uk "Abbreviations:" "Скорочення:"
+::msgcat::mcset uk "Added abbreviation:\n%s: %s" "Додано скорочення:\n%s: %s"
+::msgcat::mcset uk "Deleted abbreviation: %s" "Видалено cкорочення: %s"
+::msgcat::mcset uk "No such abbreviation: %s" "Немає такого cкорочення: %s"
+::msgcat::mcset uk "Purged all abbreviations" "Знищено всі cкорочення"
+::msgcat::mcset uk "Usage: /abbrev WHAT FOR" "Використання: /abbrev ДЛЯ ЧОГО"
+::msgcat::mcset uk "Usage: /unabbrev WHAT" "Використання: /abbrev ЩО"
+::msgcat::mcset uk "Chats History" "Історія Розмов"
+::msgcat::mcset uk "Chats history" "Історія розмов"
+::msgcat::mcset uk "Full-text search" "Повнотекстовий пошук"
+::msgcat::mcset uk "JIDs" "JIDs"
+::msgcat::mcset uk "Logs" "Логи"
+::msgcat::mcset uk "To be done..." "Буде виконано..."
+::msgcat::mcset uk "Unsupported log dir format" "Непідтримуваний формат теки логів"
+::msgcat::mcset uk "Generate chat messages when chat peer changes his/her status and/or status message" "Генерувати повідомлення чату, якщо його учасник змінює свій статус чи статусне повідомлення"
+::msgcat::mcset uk "Generate groupchat messages when occupant changes his/her status and/or status message" "Генерувати повідомлення групового чату, якщо його учасник змінює свій статус чи статусне повідомлення"
+::msgcat::mcset uk "Show own resources in roster." "Показувати особисті ресурси в ростері."
+::msgcat::mcset uk "My Resources" "Мої Ресурси"
+::msgcat::mcset uk "Activate visible/invisible/ignore/conference lists before sending initial presence." "Активувати видимий/невидимий/ігнорований списки, а також список конференцій перед оголошенням своєї присутності."
+::msgcat::mcset uk "Changing accept messages from roster only: %s" "Заміна на прийом повідомлень тільки від користувачів з ростера: %s"
+::msgcat::mcset uk "Edit conference list" "Редагувати список конференцій"
+::msgcat::mcset uk "Requesting converence list: %s" "Запитується список конференцій: %s"
+::msgcat::mcset uk "Sending conference list: %s" "Відсилається список конференцій: %s"
+::msgcat::mcset uk "Accept messages from roster users only" "Приймати повідомлення тільки від користувачів з ростера"
+::msgcat::mcset uk "Edit conference list " "Редагувати список конференцій "
+::msgcat::mcset uk "Show own resources" "Показувати особисті ресурси"
 
 namespace eval :: {
 proc load_ukrainian_procs {} {

Modified: trunk/tkabber/plugins/general/headlines.tcl
===================================================================
--- trunk/tkabber/plugins/general/headlines.tcl	2007-03-10 15:04:00 UTC (rev 1041)
+++ trunk/tkabber/plugins/general/headlines.tcl	2007-03-10 16:18:58 UTC (rev 1042)
@@ -555,7 +555,24 @@
             $tw itemconfigure $node -fill $options(seencolor) -data [array get props]
             update $tw $node
 
+	    # Deduce the node to select after $node is deleted:
+	    # Next sibling is tried first, then previous, then parent node.
+	    set p [$tw parent $node]
+	    set end [expr {[llength [$tw nodes $p]] - 1}]
+	    set ix [$tw index $node]
+	    if {$ix < $end} {
+		set next [$tw nodes $p [incr ix]]
+	    } elseif {$ix > 0} {
+		set next [$tw nodes $p [incr ix -1]]
+	    } else {
+		set next $p
+	    }
+
             $tw delete $node
+
+	    if {![string equal $next root]} {
+		$tw selection set $next
+	    }
         }
 
         article/deleteseen {



More information about the Tkabber-dev mailing list