equal
deleted
inserted
replaced
3495 |
3495 |
3496 transcriptView |
3496 transcriptView |
3497 "provide access to my transcript view" |
3497 "provide access to my transcript view" |
3498 |
3498 |
3499 transcript isNil ifTrue:[ |
3499 transcript isNil ifTrue:[ |
3500 (self componentAt: #transcriptView) notNil ifTrue:[ |
3500 | codeViewTheme | |
3501 transcript := (self componentAt: #transcriptView) subViews first. |
3501 |
3502 ] ifFalse:[ |
3502 (self componentAt: #transcriptView) notNil ifTrue:[ |
3503 transcript := Workspace new. |
3503 transcript := (self componentAt: #transcriptView) subViews first. |
3504 ] |
3504 ] ifFalse:[ |
|
3505 transcript := Workspace new. |
|
3506 ]. |
|
3507 "/ EXPERIMENTAL: |
|
3508 "/ |
|
3509 "/ To make tools look more consistent, use same background color |
|
3510 "/ as code editor's background. |
|
3511 codeViewTheme := UserPreferences current codeViewTheme. |
|
3512 codeViewTheme notNil ifTrue:[ |
|
3513 | background | |
|
3514 |
|
3515 background := codeViewTheme defaultSyntaxBackground. |
|
3516 background notNil ifTrue:[ |
|
3517 transcript backgroundChannel: background |
|
3518 ] |
|
3519 ]. |
3505 ]. |
3520 ]. |
3506 ^ transcript |
3521 ^ transcript |
|
3522 |
|
3523 "Modified: / 11-10-2018 / 14:10:38 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3507 ! ! |
3524 ! ! |
3508 |
3525 |
3509 !NewLauncher methodsFor:'aspects'! |
3526 !NewLauncher methodsFor:'aspects'! |
3510 |
3527 |
3511 canDoTerminal |
3528 canDoTerminal |