--- a/NewLauncher.st	Fri Sep 28 10:18:00 2018 +0100
+++ b/NewLauncher.st	Thu Oct 11 14:14:49 2018 +0200
@@ -3497,13 +3497,30 @@
     "provide access to my transcript view"
 
     transcript isNil ifTrue:[
-	(self componentAt: #transcriptView) notNil ifTrue:[
-	    transcript := (self componentAt: #transcriptView) subViews first.
-	] ifFalse:[
-	    transcript := Workspace new.
-	]
+        | codeViewTheme |
+
+        (self componentAt: #transcriptView) notNil ifTrue:[
+            transcript := (self componentAt: #transcriptView) subViews first.
+        ] ifFalse:[
+            transcript := Workspace new.
+        ].
+        "/ EXPERIMENTAL:
+        "/ 
+        "/ To make tools look more consistent, use same background color
+        "/ as code editor's background.
+        codeViewTheme := UserPreferences current codeViewTheme.
+        codeViewTheme notNil ifTrue:[ 
+            | background |
+
+            background := codeViewTheme defaultSyntaxBackground.
+            background notNil ifTrue:[
+                transcript backgroundChannel: background
+            ]
+        ].                         
     ].
     ^ transcript
+
+    "Modified: / 11-10-2018 / 14:10:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !NewLauncher methodsFor:'aspects'!