--- a/WorkspaceApplication.st Tue Feb 24 16:44:47 2015 +0100
+++ b/WorkspaceApplication.st Tue Feb 24 16:45:11 2015 +0100
@@ -4184,7 +4184,7 @@
|compilerClass|
[
- "/ catch, because it could be a non-edit view there (VT100 view)
+ "/ catch, because it could be a non-edit view there (VT100, TeaTimer etc.)
compilerClass := aWorkspace compilerClass.
] on:MessageNotUnderstood do:[].
^ compilerClass
@@ -4390,7 +4390,6 @@
|compilerClass selectedWorkspace selectedWorkspaceApp |
-
"JV@2012-05-10: Modified to better support complex application models as tabs"
super workspaceSelectionChanged.
@@ -4406,7 +4405,6 @@
self canChangeLanguageHolder value:
(selectedWorkspaceApp ? selectedWorkspace respondsTo: #compilerClass:).
-
self syntaxHolder value:(self syntaxFromEvaluatorClass:compilerClass).
(selectedWorkspace notNil and:[ selectedWorkspace scrolledView isTextView or:[selectedWorkspaceApp notNil] ]) ifTrue:[
@@ -4420,17 +4418,13 @@
].
"Update toolbar"
- selectedWorkspaceApp notNil ifTrue:[
- (selectedWorkspaceApp class respondsTo: #toolBarSpec) ifTrue:[
- self toolBarView
- client: selectedWorkspaceApp spec: #toolBarSpec
- ] ifFalse:[
- self toolBarView
- client: self spec: #toolBarSpec builder: builder.
- ]
+ (selectedWorkspaceApp notNil
+ and:[ (selectedWorkspaceApp class respondsTo: #toolBarSpec) ]) ifTrue:[
+ "/ client provides one
+ self toolBarView client: selectedWorkspaceApp spec: #toolBarSpec
] ifFalse:[
- self toolBarView
- client: self spec: #toolBarSpec builder: builder.
+ "/ I provides it
+ self toolBarView client: self spec: #toolBarSpec builder: builder.
]
! !
@@ -4591,14 +4585,14 @@
!WorkspaceApplication class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.283 2015-02-24 11:48:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.284 2015-02-24 15:45:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.283 2015-02-24 11:48:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.284 2015-02-24 15:45:11 cg Exp $'
!
version_SVN
- ^ '$Id: WorkspaceApplication.st,v 1.283 2015-02-24 11:48:27 cg Exp $'
+ ^ '$Id: WorkspaceApplication.st,v 1.284 2015-02-24 15:45:11 cg Exp $'
! !