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

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Thu Apr 19 13:14:49 MSD 2007


Author: sergei
Date: 2007-04-19 13:14:48 +0400 (Thu, 19 Apr 2007)
New Revision: 1121

Modified:
   trunk/tkabber/ChangeLog
   trunk/tkabber/ifacetk/iface.tcl
Log:
	* ifacetk/iface.tcl: Color active tab foreground to highlight received
	  messages when Tkabber has lost focus.


Modified: trunk/tkabber/ChangeLog
===================================================================
--- trunk/tkabber/ChangeLog	2007-04-19 05:58:30 UTC (rev 1120)
+++ trunk/tkabber/ChangeLog	2007-04-19 09:14:48 UTC (rev 1121)
@@ -4,6 +4,9 @@
 	  that it might be wider than required and under certain conditions
 	  there was an infinite <Configure> event loop.
 
+	* ifacetk/iface.tcl: Color active tab foreground to highlight received
+	  messages when Tkabber has lost focus.
+
 2007-04-18  Sergei Golovan  <sgolovan at nes.ru>
 
 	* ifacetk/buttonbar.tcl, ifacetk/iface.tcl, ifacetk/systray.tcl,

Modified: trunk/tkabber/ifacetk/iface.tcl
===================================================================
--- trunk/tkabber/ifacetk/iface.tcl	2007-04-19 05:58:30 UTC (rev 1120)
+++ trunk/tkabber/ifacetk/iface.tcl	2007-04-19 09:14:48 UTC (rev 1121)
@@ -1392,10 +1392,10 @@
     global alert_colors
 
     if {$usetabbar} {
-	option add *ButtonBar.alertColor0 Black widgetDefault
-	option add *ButtonBar.alertColor1 DarkBlue widgetDefault
-	option add *ButtonBar.alertColor2 Blue widgetDefault
-	option add *ButtonBar.alertColor3 Red widgetDefault
+	option add *alertColor0 Black widgetDefault
+	option add *alertColor1 DarkBlue widgetDefault
+	option add *alertColor2 Blue widgetDefault
+	option add *alertColor3 Red widgetDefault
 
 	set alert_colors [list \
 		[option get .nb alertColor0 ButtonBar] \
@@ -1446,7 +1446,7 @@
 
     if {!$updated || $tabcolors($page) < $lvlnum} {
 	set color [lindex $alert_colors $lvlnum]
-	.nb itemconfigure $page -foreground $color
+	.nb itemconfigure $page -foreground $color -activeforeground $color
 	set tabcolors($page) $lvlnum
 	hook::run tab_set_updated $path $updated $level
     }



More information about the Tkabber-dev mailing list