Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
changed: #pseudoEntryForegroundColor
authorClaus Gittinger <cg@exept.de>
Thu, 29 Oct 2009 19:10:38 +0100
changeset 9130 e46e456da73a
parent 9129 c4bd6c5e946f
child 9131 3787cb7519e8
changed: #pseudoEntryForegroundColor
Tools_NavigatorModel.st file | annotate | diff | comparison | revisions 
--- a/Tools_NavigatorModel.st	Thu Oct 29 18:56:33 2009 +0100
+++ b/Tools_NavigatorModel.st	Thu Oct 29 19:10:38 2009 +0100
@@ -163,7 +163,8 @@
 pseudoEntryForegroundColor
     |bg|
 
-    bg := SelectionInListView defaultBackgroundColor.
+    bg := SelectionInListView defaultBackgroundColor ? View defaultBackgroundColor.
+    bg isNil ifTrue:[ bg := View defaultBackgroundColor ].
     (Color grey brightness - (bg brightness)) abs < 0.3 ifTrue:[
         (bg brightness) > 0.7 ifTrue:[
             ^ Color grey:20.
@@ -254,11 +255,11 @@
 !NavigatorModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.15 2009-10-29 17:56:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.16 2009-10-29 18:10:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.15 2009-10-29 17:56:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.16 2009-10-29 18:10:38 cg Exp $'
 ! !
 
 NavigatorModel initialize!
hg/stx-libtool