equal
deleted
inserted
replaced
1471 activeHelpKey: menuSaveOrSaveAs |
1471 activeHelpKey: menuSaveOrSaveAs |
1472 label: 'Save Text' |
1472 label: 'Save Text' |
1473 itemValue: menuSave |
1473 itemValue: menuSave |
1474 translateLabel: true |
1474 translateLabel: true |
1475 isButton: true |
1475 isButton: true |
1476 labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileAsIcon) |
1476 labelImage: (ResourceRetriever ToolbarIconLibrary saveToFileIcon) |
1477 ) |
1477 ) |
1478 (MenuItem |
1478 (MenuItem |
1479 label: '-' |
1479 label: '-' |
1480 isVisible: doItMenuButtonVisibile |
1480 isVisible: doItMenuButtonVisibile |
1481 ) |
1481 ) |
1537 ) |
1537 ) |
1538 nil |
1538 nil |
1539 nil |
1539 nil |
1540 ) |
1540 ) |
1541 |
1541 |
1542 "Modified: / 05-07-2011 / 15:49:14 / cg" |
1542 "Modified: / 19-07-2012 / 12:04:47 / cg" |
1543 ! |
1543 ! |
1544 |
1544 |
1545 workspaceMenu |
1545 workspaceMenu |
1546 "This resource specification was automatically generated |
1546 "This resource specification was automatically generated |
1547 by the MenuEditor of ST/X." |
1547 by the MenuEditor of ST/X." |
2066 ^ self thisIsASmalltalkWorkspace |
2066 ^ self thisIsASmalltalkWorkspace |
2067 ! |
2067 ! |
2068 |
2068 |
2069 languageInfoLabelHolder |
2069 languageInfoLabelHolder |
2070 ^ BlockValue |
2070 ^ BlockValue |
2071 with:[:syntax | "'Syntax: ',"syntax name ] |
2071 with:[:syntax | |
|
2072 syntax notNil ifTrue:[ |
|
2073 "'Syntax: ',"syntax name |
|
2074 ] ifFalse:[ |
|
2075 'Plain Text' |
|
2076 ] |
|
2077 ] |
2072 argument:self syntaxHolder |
2078 argument:self syntaxHolder |
2073 |
2079 |
2074 "Modified: / 26-04-2012 / 12:53:20 / cg" |
2080 "Modified: / 19-07-2012 / 12:05:54 / cg" |
2075 ! |
2081 ! |
2076 |
2082 |
2077 modeLabelHolder |
2083 modeLabelHolder |
2078 modeLabelHolder isNil ifTrue:[ |
2084 modeLabelHolder isNil ifTrue:[ |
2079 modeLabelHolder := IndirectValue for:('I' asValue) |
2085 modeLabelHolder := IndirectValue for:('I' asValue) |
2907 |
2913 |
2908 language := self syntaxHolder value. |
2914 language := self syntaxHolder value. |
2909 language isSymbol ifTrue:[ |
2915 language isSymbol ifTrue:[ |
2910 language := ProgrammingLanguage named:language |
2916 language := ProgrammingLanguage named:language |
2911 ]. |
2917 ]. |
2912 aWorkspace compilerClass:(language evaluatorClass "self compilerClassForSyntaxName:syntax"). |
2918 language isNil ifTrue:[ |
2913 self smalltalkMenuEnabledHolder value:(language isSmalltalk). |
2919 aWorkspace compilerClass:nil |
|
2920 ] ifFalse:[ |
|
2921 aWorkspace compilerClass:(language evaluatorClass "self compilerClassForSyntaxName:syntax"). |
|
2922 ]. |
|
2923 self smalltalkMenuEnabledHolder value:(language notNil and:[language isSmalltalk]). |
2914 |
2924 |
2915 "Created: / 08-02-2011 / 21:32:39 / cg" |
2925 "Created: / 08-02-2011 / 21:32:39 / cg" |
2916 "Modified: / 17-08-2011 / 08:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2926 "Modified: / 17-08-2011 / 08:47:09 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
2917 "Modified: / 26-04-2012 / 12:04:42 / cg" |
2927 "Modified: / 19-07-2012 / 10:54:18 / cg" |
2918 ! |
2928 ! |
2919 |
2929 |
2920 spyOnIt |
2930 spyOnIt |
2921 self selectedWorkspacesTextView spyOnIt |
2931 self selectedWorkspacesTextView spyOnIt |
2922 ! |
2932 ! |
3590 allLanguages := ProgrammingLanguage all reject:[:lang | lang isSmalltalk ]. |
3600 allLanguages := ProgrammingLanguage all reject:[:lang | lang isSmalltalk ]. |
3591 allLanguages sort:[:a :b | a name < b name]. |
3601 allLanguages sort:[:a :b | a name < b name]. |
3592 |
3602 |
3593 m := Menu new. |
3603 m := Menu new. |
3594 m addItem:((MenuItem |
3604 m addItem:((MenuItem |
|
3605 label:'Text' |
|
3606 choice: #syntaxHolder |
|
3607 choiceValue:nil) |
|
3608 itemValue:#syntaxChangedByUser). |
|
3609 m addItem:((MenuItem |
3595 label:'Smalltalk' |
3610 label:'Smalltalk' |
3596 choice: #syntaxHolder |
3611 choice: #syntaxHolder |
3597 choiceValue:SmalltalkLanguage instance) |
3612 choiceValue:SmalltalkLanguage instance) |
3598 itemValue:#syntaxChangedByUser). |
3613 itemValue:#syntaxChangedByUser). |
3599 |
3614 |
3608 itemValue:#syntaxChangedByUser). |
3623 itemValue:#syntaxChangedByUser). |
3609 ]. |
3624 ]. |
3610 "/ ]. |
3625 "/ ]. |
3611 ^ m |
3626 ^ m |
3612 |
3627 |
3613 "Modified: / 26-04-2012 / 12:53:47 / cg" |
3628 "Modified: / 19-07-2012 / 10:53:05 / cg" |
3614 ! |
3629 ! |
3615 |
3630 |
3616 makeRecentDoItsMenuFor:aSelector |
3631 makeRecentDoItsMenuFor:aSelector |
3617 |doIts m cmdLabelLen| |
3632 |doIts m cmdLabelLen| |
3618 |
3633 |
3942 ! ! |
3957 ! ! |
3943 |
3958 |
3944 !WorkspaceApplication class methodsFor:'documentation'! |
3959 !WorkspaceApplication class methodsFor:'documentation'! |
3945 |
3960 |
3946 version |
3961 version |
3947 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.220 2012-05-04 14:04:21 cg Exp $' |
3962 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.221 2012-07-19 12:59:49 cg Exp $' |
3948 ! |
3963 ! |
3949 |
3964 |
3950 version_CVS |
3965 version_CVS |
3951 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.220 2012-05-04 14:04:21 cg Exp $' |
3966 ^ '$Header: /cvs/stx/stx/libtool/WorkspaceApplication.st,v 1.221 2012-07-19 12:59:49 cg Exp $' |
3952 ! |
3967 ! |
3953 |
3968 |
3954 version_SVN |
3969 version_SVN |
3955 ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §' |
3970 ^ '§Id: WorkspaceApplication.st 7812 2011-08-17 08:55:59Z vranyj1 §' |
3956 ! ! |
3971 ! ! |