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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Wed Nov 23 20:35:39 MSK 2011


Author: kostix
Date: 2011-11-23 21:35:39 +0400 (Wed, 23 Nov 2011)
New Revision: 1986

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/systray.tcl
   trunk/tkabber/msgs/ru.msg
Log:
Improve abilities to configure system tray icon blinking

Thanks to Gebb.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2011-11-19 18:13:44 UTC (rev 1985)
+++ trunk/tkabber/ChangeLog	2011-11-23 17:35:39 UTC (rev 1986)
@@ -1,3 +1,8 @@
+2011-11-23  Konstantin Khomoutov  <flatworm at users.sourceforge.net>
+
+	* Improve ability to configure system tray icon blinking
+	  (thanks to Gebb).
+
 2011-11-15  Konstantin Khomoutov  <flatworm at users.sourceforge.net>
 
 	* Fix parsing output of lsb_release binary.

Modified: trunk/tkabber/ifacetk/systray.tcl
===================================================================
--- trunk/tkabber/ifacetk/systray.tcl	2011-11-19 18:13:44 UTC (rev 1985)
+++ trunk/tkabber/ifacetk/systray.tcl	2011-11-23 17:35:39 UTC (rev 1986)
@@ -26,9 +26,13 @@
 		       to systray."] \
 	-group Systray -type boolean
 
-    custom::defvar options(blink) 0 \
+    custom::defvar options(blink_type) 100 \
 	[::msgcat::mc "Systray icon blinks when there are unread messages."] \
-	-group Systray -type boolean
+	-group Systray -type options \
+	-values [list 1    [::msgcat::mc "On any messages (including service messages)"] \
+		      2    [::msgcat::mc "On conference and personal messages"] \
+		      3    [::msgcat::mc "On personal messages only"] \
+		      100  [::msgcat::mc "Turn blinking off"]]
 
     custom::defvar options(display_muc_change) 1 \
 	[::msgcat::mc "Change icon on server and enter/exit groupchat messages."] \
@@ -264,7 +268,7 @@
 	return
     }
 
-    if {$options(blink)} {
+    if {$options(blink_type) <= $hitP} {
 	set state(tray) \
 	    [after 500 [list [namespace current]::toggle $icon [expr {!$ff}]]]
 	if {$ff} {

Modified: trunk/tkabber/msgs/ru.msg
===================================================================
--- trunk/tkabber/msgs/ru.msg	2011-11-19 18:13:44 UTC (rev 1985)
+++ trunk/tkabber/msgs/ru.msg	2011-11-23 17:35:39 UTC (rev 1986)
@@ -2033,6 +2033,14 @@
 ::msgcat::mcset ru "System shutdown" "Завершение работы системы"
 ::msgcat::mcset ru "Systray icon blinks when there are unread messages."\
 	"Значок в системном лотке мигает, если есть непрочитанные сообщения."
+::msgcat::mcset ru "On any messages (including service messages)"\
+	"Для всех сообщений, включая служебные"
+::msgcat::mcset ru "On conference and personal messages"\
+	"Для сообщений в конференциях и личных сообщениях"
+::msgcat::mcset ru "On personal messages only"\
+	"Только для личных сообщений"
+::msgcat::mcset ru "Turn blinking off"\
+	"Мигание выключено"
 ::msgcat::mcset ru "Systray icon options." "Параметры значка системного\
 	лотка."
 ::msgcat::mcset ru "Systray:" "Системный лоток:"



More information about the Tkabber-dev mailing list