--- a/Tools_NavigatorModel.st	Thu Oct 29 18:56:10 2009 +0100
+++ b/Tools_NavigatorModel.st	Thu Oct 29 18:56:33 2009 +0100
@@ -158,6 +158,19 @@
 
 nameListEntryForVisited
     ^ '* visited (%1) *'
+!
+
+pseudoEntryForegroundColor
+    |bg|
+
+    bg := SelectionInListView defaultBackgroundColor.
+    (Color grey brightness - (bg brightness)) abs < 0.3 ifTrue:[
+        (bg brightness) > 0.7 ifTrue:[
+            ^ Color grey:20.
+        ].
+        ^ Color grey:80.
+    ].
+    ^ Color grey
 ! !
 
 !NavigatorModel class methodsFor:'interface specs'!
@@ -241,11 +254,11 @@
 !NavigatorModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.14 2009-10-26 17:28:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.15 2009-10-29 17:56:33 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.14 2009-10-26 17:28:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_NavigatorModel.st,v 1.15 2009-10-29 17:56:33 cg Exp $'
 ! !
 
 NavigatorModel initialize!