[Tkabber-dev] r1218 - in trunk/tkabber-plugins: . gmail

tkabber-svn at jabber.ru tkabber-svn at jabber.ru
Mon Sep 3 09:37:28 MSD 2007


Author: sergei
Date: 2007-09-03 09:37:27 +0400 (Mon, 03 Sep 2007)
New Revision: 1218

Modified:
   trunk/tkabber-plugins/ChangeLog
   trunk/tkabber-plugins/gmail/gmail.tcl
Log:
	* gmail/gmail.tcl: Fixed bug with empty disabledForeground option.


Modified: trunk/tkabber-plugins/ChangeLog
===================================================================
--- trunk/tkabber-plugins/ChangeLog	2007-09-02 10:16:25 UTC (rev 1217)
+++ trunk/tkabber-plugins/ChangeLog	2007-09-03 05:37:27 UTC (rev 1218)
@@ -1,3 +1,7 @@
+2007-09-03  Sergei Golovan <sgolovan at nes.ru>
+
+	* gmail/gmail.tcl: Fixed bug with empty disabledForeground option.
+
 2007-09-02  Sergei Golovan <sgolovan at nes.ru>
 
 	* tkabber-khim/tkabber-khim.tcl: Removed unnecessary namespace level.

Modified: trunk/tkabber-plugins/gmail/gmail.tcl
===================================================================
--- trunk/tkabber-plugins/gmail/gmail.tcl	2007-09-02 10:16:25 UTC (rev 1217)
+++ trunk/tkabber-plugins/gmail/gmail.tcl	2007-09-03 05:37:27 UTC (rev 1218)
@@ -111,17 +111,18 @@
     add_win $w -title [::msgcat::mc "Gmail notifications"] \
 	-tabtitle [::msgcat::mc "Gmail"] \
 	-raisecmd [list focus $w.tree] \
-	-class JBrowser
+	-class JDisco
 
     if {![info exists options(seencolor)]} {
-	if {[cequal $tcl_platform(platform) unix]} {
-	    set options(seencolor) [option get $w disabledForeground JBrowser]
+	if {[cequal $tcl_platform(platform) unix] && \
+		![string equal [option get $w disabledForeground JDisco] ""]} {
+	    set options(seencolor) [option get $w disabledForeground JDisco]
 	} else {
-	    set options(seencolor) [option get $w nscolor JBrowser]
+	    set options(seencolor) [option get $w featurecolor JDisco]
 	}
     }
     if {![info exists options(unseencolor)]} {
-	set options(unseencolor) [option get $w fill JBrowser]
+	set options(unseencolor) [option get $w fill JDisco]
     }
 
     set sw [ScrolledWindow $w.sw]



More information about the Tkabber-dev mailing list