2927 |
2927 |
2928 "Modified: / 26-09-2012 / 11:55:59 / cg" |
2928 "Modified: / 26-09-2012 / 11:55:59 / cg" |
2929 ! |
2929 ! |
2930 |
2930 |
2931 setCompilerForSyntaxIn:aWorkspace |
2931 setCompilerForSyntaxIn:aWorkspace |
2932 |language| |
2932 |compilerClass language| |
2933 |
2933 |
2934 language := self syntaxHolder value. |
2934 language := self syntaxHolder value. |
2935 language isSymbol ifTrue:[ |
2935 language isSymbol ifTrue:[ |
2936 language := ProgrammingLanguage named:language |
2936 language := ProgrammingLanguage named:language |
2937 ]. |
2937 ]. |
2938 language isNil ifTrue:[ |
2938 language isNil ifTrue:[ |
2939 aWorkspace compilerClass:nil |
2939 compilerClass := nil |
2940 ] ifFalse:[ |
2940 ] ifFalse:[ |
2941 aWorkspace compilerClass:(language evaluatorClass "self compilerClassForSyntaxName:syntax"). |
2941 compilerClass := (language evaluatorClass "self compilerClassForSyntaxName:syntax"). |
2942 ]. |
2942 ]. |
|
2943 [ |
|
2944 "/ could be a non-text view (VT100Terminal) |
|
2945 aWorkspace compilerClass:compilerClass. |
|
2946 ] on:MessageNotUnderstood do:[]. |
|
2947 |
2943 self smalltalkMenuEnabledHolder value:(language notNil and:[language isSmalltalk]). |
2948 self smalltalkMenuEnabledHolder value:(language notNil and:[language isSmalltalk]). |
2944 |
2949 |
2945 "Created: / 08-02-2011 / 21:32:39 / cg" |
2950 "Created: / 08-02-2011 / 21:32:39 / cg" |
2946 "Modified: / 17-08-2011 / 08:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2951 "Modified: / 17-08-2011 / 08:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2947 "Modified: / 19-07-2012 / 10:54:18 / cg" |
2952 "Modified: / 28-09-2012 / 19:55:18 / cg" |
2948 ! |
2953 ! |
2949 |
2954 |
2950 spyOnIt |
2955 spyOnIt |
2951 self selectedWorkspacesTextView spyOnIt |
2956 self selectedWorkspacesTextView spyOnIt |
2952 ! |
2957 ! |
3916 |
3921 |
3917 selectedWorkspace := self selectedWorkspace. |
3922 selectedWorkspace := self selectedWorkspace. |
3918 (selectedWorkspace notNil and:[selectedWorkspace isScrollWrapper]) ifTrue:[ |
3923 (selectedWorkspace notNil and:[selectedWorkspace isScrollWrapper]) ifTrue:[ |
3919 selectedWorkspace := selectedWorkspace scrolledView |
3924 selectedWorkspace := selectedWorkspace scrolledView |
3920 ]. |
3925 ]. |
3921 compilerClass := selectedWorkspace |
3926 [ |
3922 perform: #compilerClass |
3927 "/ catch, because it could be a non-edit view there (VT100 view) |
3923 ifNotUnderstood: [nil]. |
3928 compilerClass := selectedWorkspace compilerClass. |
|
3929 ] on:MessageNotUnderstood do:[]. |
|
3930 |
3924 compilerClass notNil ifTrue:[ |
3931 compilerClass notNil ifTrue:[ |
3925 self syntaxHolder value:(self syntaxFromEvaluatorClass:compilerClass). |
3932 self syntaxHolder value:(self syntaxFromEvaluatorClass:compilerClass). |
3926 ] ifFalse:[ |
3933 ] ifFalse:[ |
3927 self syntaxHolder value:nil. |
3934 self syntaxHolder value:nil. |
3928 ]. |
3935 ]. |
3952 self toolBarView |
3959 self toolBarView |
3953 client: self spec: #toolBarSpec builder: builder. |
3960 client: self spec: #toolBarSpec builder: builder. |
3954 ] |
3961 ] |
3955 |
3962 |
3956 "Modified: / 11-06-2011 / 00:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3963 "Modified: / 11-06-2011 / 00:06:58 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3957 "Modified: / 19-07-2012 / 16:55:56 / cg" |
3964 "Modified: / 28-09-2012 / 19:53:46 / cg" |
3958 ! ! |
3965 ! ! |
3959 |
3966 |
3960 !WorkspaceApplication methodsFor:'user actions'! |
3967 !WorkspaceApplication methodsFor:'user actions'! |
3961 |
3968 |
3962 infoVisibilityChanged |
3969 infoVisibilityChanged |
3982 ! ! |
3989 ! ! |
3983 |
3990 |
3984 !WorkspaceApplication class methodsFor:'documentation'! |
3991 !WorkspaceApplication class methodsFor:'documentation'! |
3985 |
3992 |
3986 version |
3993 version |
3987 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.231 2012-09-26 09:58:28 cg Exp $' |
3994 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.232 2012-09-28 17:55:57 cg Exp $' |
3988 ! |
3995 ! |
3989 |
3996 |
3990 version_CVS |
3997 version_CVS |
3991 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.231 2012-09-26 09:58:28 cg Exp $' |
3998 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.232 2012-09-28 17:55:57 cg Exp $' |
3992 ! |
3999 ! |
3993 |
4000 |
3994 version_SVN |
4001 version_SVN |
3995 ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §' |
4002 ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §' |
3996 ! ! |
4003 ! ! |