--- a/UserPreferences.st	Tue Sep 06 10:35:19 2011 +0100
+++ b/UserPreferences.st	Wed Sep 07 17:25:40 2011 +0100
@@ -635,6 +635,7 @@
 ! !
 
 
+
 !UserPreferences methodsFor:'accessing-misc-communication'!
 
 dotNetBridgeRunsInIDE
@@ -745,6 +746,7 @@
     ^ self at:#soapLoggingLevel put:anIntegerBetween0_and_3
 ! !
 
+
 !UserPreferences methodsFor:'accessing-pref''d tools'!
 
 changeSetBrowserClass
@@ -1806,6 +1808,34 @@
     "Created: / 28-04-2010 / 14:00:56 / cg"
 !
 
+colorForPseudoProtocolsInMethodListInBrowser
+    "eventually, make this also a settings value (for people with weak gray-visibility)"
+
+    |bg|
+
+    SelectionInListView notNil ifTrue:[
+        bg := SelectionInListView defaultBackgroundColor.
+    ].
+    bg isNil ifTrue:[
+        View notNil ifTrue:[
+            bg := View defaultBackgroundColor.
+        ].
+        bg isNil ifTrue:[
+            ^ Color grey
+        ].
+    ].
+
+    (Color grey brightness - (bg brightness)) abs < 0.3 ifTrue:[
+        (bg brightness) > 0.7 ifTrue:[
+            ^ Color grey:20.
+        ].
+        ^ Color grey:80.
+    ].
+    ^ Color grey
+
+    "Created: / 07-09-2011 / 09:51:12 / cg"
+!
+
 emphasisForChangedCode
     "the emphasis for changed code (in changeSet) in the browser"
 
@@ -3650,7 +3680,7 @@
 !UserPreferences class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.287 2011/08/19 12:03:39 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/UserPreferences.st,v 1.288 2011/09/07 09:18:28 cg Exp §'
 !
 
 version_SVN
@@ -3659,3 +3689,4 @@
 
 
 
+