--- a/Tools__BrowserList.st	Fri Sep 28 10:18:00 2018 +0100
+++ b/Tools__BrowserList.st	Thu Oct 11 14:14:49 2018 +0200
@@ -1287,8 +1287,26 @@
 
     list := builder componentAt:#List.
     list notNil ifTrue:[
+        | codeViewTheme |
+
         list selectConditionBlock:[:item | self selectionChangeAllowed].
         list ignoreReselect:false.
+
+        "/ EXPERIMENTAL:
+        "/ 
+        "/ To make tools look more consistent, use same background color
+        "/ as code editor's background. But do so only if the list is
+        "/ past of the browser it.
+        codeViewTheme := UserPreferences current codeViewTheme.
+        (codeViewTheme notNil and:[list topView application isKindOf: NewSystemBrowser]) ifTrue:[ 
+            | background |
+
+            background := codeViewTheme defaultSyntaxBackground.
+            background notNil ifTrue:[
+                list scrolledView backgroundChannel: background
+            ]
+        ].
+
     ].
 
     UserPreferences current useInPlaceSearchInBrowserLists ifTrue:[
@@ -1301,7 +1319,7 @@
         ]
     ]
 
-    "Modified: / 28-07-2011 / 09:39:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (comment): / 11-10-2018 / 11:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 commonPostOpen