--- a/NewLauncher.st Fri Nov 05 15:24:22 2021 +0000
+++ b/NewLauncher.st Tue Nov 09 15:42:24 2021 +0000
@@ -3497,30 +3497,13 @@
"provide access to my transcript view"
transcript isNil ifTrue:[
- | 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
- ]
- ].
+ (self componentAt: #transcriptView) notNil ifTrue:[
+ transcript := (self componentAt: #transcriptView) subViews first.
+ ] ifFalse:[
+ transcript := Workspace new.
+ ]
].
^ transcript
-
- "Modified: / 11-10-2018 / 14:10:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!NewLauncher methodsFor:'aspects'!