--- a/Tools__ProjectDefinitionEditor.st Tue Jan 16 22:31:20 2018 +0100
+++ b/Tools__ProjectDefinitionEditor.st Tue Jan 16 22:32:41 2018 +0100
@@ -84,7 +84,7 @@
the UIHelpTool may not be able to read the specification."
"
- UIHelpTool openOnClass:Tools::ProjectDefinitionEditor
+ UIHelpTool openOnClass:Tools::ProjectDefinitionEditor
"
<resource: #help>
@@ -97,27 +97,6 @@
)
"Created: / 15-10-2006 / 14:34:57 / cg"
-!
-
-helpSpec
- "This resource specification was automatically generated
- by the UIHelpTool of ST/X."
-
- "Do not manually edit this!! If it is corrupted,
- the UIHelpTool may not be able to read the specification."
-
- "
- UIHelpTool openOnClass:Tools::ProjectDefinitionEditor
- "
-
- <resource: #help>
-
- ^ super helpSpec addPairsFrom:#(
-
-#documentExtensions
-'";"-separated list of file extensions'
-
-)
! !
!ProjectDefinitionEditor class methodsFor:'interface specs'!
@@ -181,94 +160,94 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
- name: compilationSpec
- window:
+ name: compilationSpec
+ window:
(WindowSpec
- label: 'NewApplication'
- name: 'NewApplication'
- min: (Point 0 0)
- bounds: (Rectangle 0 0 433 300)
- )
- component:
+ label: 'NewApplication'
+ name: 'NewApplication'
+ min: (Point 0 0)
+ bounds: (Rectangle 0 0 433 300)
+ )
+ component:
(SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Optimization'
- name: 'FramedBox1'
- layout: (LayoutFrame 0 0 0 0 0 1 93 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'STC Optimization Flags:'
- name: 'Label1'
- layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'STCOptimizationFlagsComboBox'
- layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
- model: stcOptimizationFlagsHolder
- acceptOnPointerLeave: false
- comboList: stcOptimizationFlagList
- postBuildCallback: flagHolderBuilt:
- )
- (LabelSpec
- label: 'CC Optimization Flags:'
- name: 'Label2'
- layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
- translateLabel: true
- adjust: right
- )
- (ComboBoxSpec
- name: 'CCOptimizationFlagsComboBox'
- layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
- model: ccOptimizationFlagsHolder
- acceptOnPointerLeave: false
- comboList: ccOptimizationFlagList
- postBuildCallback: flagHolderBuilt:
- )
- )
-
- )
- )
- (FramedBoxSpec
- label: 'Includes'
- name: 'FramedBox2'
- layout: (LayoutFrame 0 0 98 0 0 1 160 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Additional Includes:'
- name: 'Label3'
- layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'IncludeFlagsEntryField'
- layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
- model: includeFlagsHolder
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- )
-
- )
- )
- )
-
- )
+ collection: (
+ (FramedBoxSpec
+ label: 'Optimization'
+ name: 'FramedBox1'
+ layout: (LayoutFrame 0 0 0 0 0 1 93 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'STC Optimization Flags:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'STCOptimizationFlagsComboBox'
+ layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
+ model: stcOptimizationFlagsHolder
+ acceptOnPointerLeave: false
+ comboList: stcOptimizationFlagList
+ postBuildCallback: flagHolderBuilt:
+ )
+ (LabelSpec
+ label: 'CC Optimization Flags:'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
+ translateLabel: true
+ adjust: right
+ )
+ (ComboBoxSpec
+ name: 'CCOptimizationFlagsComboBox'
+ layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
+ model: ccOptimizationFlagsHolder
+ acceptOnPointerLeave: false
+ comboList: ccOptimizationFlagList
+ postBuildCallback: flagHolderBuilt:
+ )
+ )
+
+ )
+ )
+ (FramedBoxSpec
+ label: 'Includes'
+ name: 'FramedBox2'
+ layout: (LayoutFrame 0 0 98 0 0 1 160 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Additional Includes:'
+ name: 'Label3'
+ layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'IncludeFlagsEntryField'
+ layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
+ model: includeFlagsHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
+ )
+ )
+
+ )
)
!
@@ -288,212 +267,212 @@
^
#(FullSpec
- name: descriptionSpec
- window:
+ name: descriptionSpec
+ window:
(WindowSpec
- label: 'NewApplication'
- name: 'NewApplication'
- min: (Point 0 0)
- bounds: (Rectangle 0 0 433 300)
- )
- component:
+ label: 'NewApplication'
+ name: 'NewApplication'
+ min: (Point 0 0)
+ bounds: (Rectangle 0 0 433 300)
+ )
+ component:
(SpecCollection
- collection: (
- (LabelSpec
- label: 'Company:'
- name: 'CompanyLabel'
- layout: (LayoutFrame 2 0.0 13 0 160 0 35 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'CompanyEntryField'
- layout: (LayoutFrame 162 0.0 12 0 -2 1.0 34 0)
- model: companyNameHolder
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Description:'
- name: 'DescriptionLabel'
- layout: (LayoutFrame 2 0.0 39 0 160 0 61 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'DescriptionEntryField'
- layout: (LayoutFrame 162 0.0 38 0 -2 1.0 60 0)
- model: descriptionHolder
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'ProductName:'
- name: 'ProductNameLabel'
- layout: (LayoutFrame 2 0.0 65 0 160 0 87 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'ProductNameEntryField'
- layout: (LayoutFrame 162 0.0 64 0 -2 1.0 86 0)
- model: productNameHolder
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'ProductVersion:'
- name: 'ProductVersionLabel'
- layout: (LayoutFrame 2 0.0 91 0 160 0 113 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'MajorVersionNrEntryField'
- layout: (LayoutFrame 162 0.0 90 0 182 0.0 112 0)
- model: majorVersionNrHolder
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'MinorVersionNrEntryField'
- layout: (LayoutFrame 184 0.0 90 0 204 0.0 112 0)
- model: minorVersionNrHolder
- type: numberOrNil
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'RevisionNrEntryField'
- layout: (LayoutFrame 206 0.0 90 0 226 0.0 112 0)
- model: revisionNrHolder
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'ReleaseNrEntryField'
- layout: (LayoutFrame 228 0.0 90 0 248 0.0 112 0)
- model: releaseNrHolder
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'LegalCopyright:'
- name: 'LegalCopyrightLabel'
- layout: (LayoutFrame 2 0.0 119 0 160 0 141 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'LegalCopyrightEntryField'
- layout: (LayoutFrame 162 0.0 118 0 -2 1.0 140 0)
- model: legalCopyrightHolder
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'FileDescriptionDescription:'
- name: 'FileDescriptionLabel'
- layout: (LayoutFrame 2 0.0 161 0 160 0 183 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'FileDescriptionEntryField'
- layout: (LayoutFrame 162 0.0 160 0 -2 1.0 182 0)
- model: fileDescriptionHolder
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'FileVersion:'
- name: 'FileVersionLabel'
- layout: (LayoutFrame 2 0.0 187 0 160 0 209 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'FileMajorVersionNrEntryField'
- layout: (LayoutFrame 162 0.0 186 0 182 0.0 208 0)
- model: fileMajorVersionNrHolder
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'FileMinorVersionNrEntryField'
- layout: (LayoutFrame 184 0.0 186 0 204 0.0 208 0)
- model: fileMinorVersionNrHolder
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'FileRevisionNrEntryField'
- layout: (LayoutFrame 206 0.0 186 0 226 0.0 208 0)
- model: fileRevisionNrHolder
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (InputFieldSpec
- name: 'FileReleaseNrEntryField'
- layout: (LayoutFrame 228 0.0 186 0 248 0.0 208 0)
- model: fileReleaseNrHolder
- type: number
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Icon Filename:'
- name: 'IconFileNameLabel'
- layout: (LayoutFrame 2 0.0 236 0 160 0 258 0)
- visibilityChannel: isApplicationDefinitionHolder
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'IconFileNameEntryField'
- layout: (LayoutFrame 162 0.0 234 0 -2 1.0 256 0)
- visibilityChannel: isApplicationDefinitionHolder
- model: iconFileNameHolder
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- )
+ collection: (
+ (LabelSpec
+ label: 'Company:'
+ name: 'CompanyLabel'
+ layout: (LayoutFrame 2 0.0 13 0 160 0 35 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'CompanyEntryField'
+ layout: (LayoutFrame 162 0.0 12 0 -2 1.0 34 0)
+ model: companyNameHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Description:'
+ name: 'DescriptionLabel'
+ layout: (LayoutFrame 2 0.0 39 0 160 0 61 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'DescriptionEntryField'
+ layout: (LayoutFrame 162 0.0 38 0 -2 1.0 60 0)
+ model: descriptionHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'ProductName:'
+ name: 'ProductNameLabel'
+ layout: (LayoutFrame 2 0.0 65 0 160 0 87 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'ProductNameEntryField'
+ layout: (LayoutFrame 162 0.0 64 0 -2 1.0 86 0)
+ model: productNameHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'ProductVersion:'
+ name: 'ProductVersionLabel'
+ layout: (LayoutFrame 2 0.0 91 0 160 0 113 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'MajorVersionNrEntryField'
+ layout: (LayoutFrame 162 0.0 90 0 182 0.0 112 0)
+ model: majorVersionNrHolder
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'MinorVersionNrEntryField'
+ layout: (LayoutFrame 184 0.0 90 0 204 0.0 112 0)
+ model: minorVersionNrHolder
+ type: numberOrNil
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'RevisionNrEntryField'
+ layout: (LayoutFrame 206 0.0 90 0 226 0.0 112 0)
+ model: revisionNrHolder
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'ReleaseNrEntryField'
+ layout: (LayoutFrame 228 0.0 90 0 248 0.0 112 0)
+ model: releaseNrHolder
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'LegalCopyright:'
+ name: 'LegalCopyrightLabel'
+ layout: (LayoutFrame 2 0.0 119 0 160 0 141 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'LegalCopyrightEntryField'
+ layout: (LayoutFrame 162 0.0 118 0 -2 1.0 140 0)
+ model: legalCopyrightHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'FileDescriptionDescription:'
+ name: 'FileDescriptionLabel'
+ layout: (LayoutFrame 2 0.0 161 0 160 0 183 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'FileDescriptionEntryField'
+ layout: (LayoutFrame 162 0.0 160 0 -2 1.0 182 0)
+ model: fileDescriptionHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'FileVersion:'
+ name: 'FileVersionLabel'
+ layout: (LayoutFrame 2 0.0 187 0 160 0 209 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'FileMajorVersionNrEntryField'
+ layout: (LayoutFrame 162 0.0 186 0 182 0.0 208 0)
+ model: fileMajorVersionNrHolder
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'FileMinorVersionNrEntryField'
+ layout: (LayoutFrame 184 0.0 186 0 204 0.0 208 0)
+ model: fileMinorVersionNrHolder
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'FileRevisionNrEntryField'
+ layout: (LayoutFrame 206 0.0 186 0 226 0.0 208 0)
+ model: fileRevisionNrHolder
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (InputFieldSpec
+ name: 'FileReleaseNrEntryField'
+ layout: (LayoutFrame 228 0.0 186 0 248 0.0 208 0)
+ model: fileReleaseNrHolder
+ type: number
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Icon Filename:'
+ name: 'IconFileNameLabel'
+ layout: (LayoutFrame 2 0.0 236 0 160 0 258 0)
+ visibilityChannel: isApplicationDefinitionHolder
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'IconFileNameEntryField'
+ layout: (LayoutFrame 162 0.0 234 0 -2 1.0 256 0)
+ visibilityChannel: isApplicationDefinitionHolder
+ model: iconFileNameHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ )
- )
+ )
)
!
@@ -600,135 +579,135 @@
<resource: #canvas>
- ^
+ ^
#(FullSpec
- name: startupSpec
- window:
+ name: startupSpec
+ window:
(WindowSpec
- label: 'NewApplication'
- name: 'NewApplication'
- min: (Point 0 0)
- bounds: (Rectangle 0 0 433 300)
- )
- component:
+ label: 'NewApplication'
+ name: 'NewApplication'
+ min: (Point 0 0)
+ bounds: (Rectangle 0 0 433 300)
+ )
+ component:
(SpecCollection
- collection: (
- (FramedBoxSpec
- label: 'Startup'
- name: 'StartupFrame'
- layout: (LayoutFrame 0 0 0 0 0 1 93 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Startup Class:'
- name: 'Label1'
- layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'StartupClassEntryField'
- layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
- model: startupClassNameHolder
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- (LabelSpec
- label: 'Startup Selector:'
- name: 'Label2'
- layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- name: 'StartupSelectorEntryField'
- layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
- model: startupSelectorHolder
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- )
-
- )
- )
- (FramedBoxSpec
- label: 'Execution'
- name: 'ExecutionFrame'
- layout: (LayoutFrame 0 0 94 0 0 1 176 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (CheckBoxSpec
- label: 'Non-GUI Application'
- name: 'Non-GUI CheckBox'
- layout: (LayoutFrame 0 0.0 7 0 0 0.5 29 0)
- model: isNonGUIApplicationHolder
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Singlethreaded'
- name: 'SinglethreadedCheckBox'
- layout: (LayoutFrame 0 0.5 7 0 0 1 29 0)
- enableChannel: isNonGUIApplicationHolder
- model: startSinglethreadedHolder
- translateLabel: true
- )
- (CheckBoxSpec
- label: 'Has Console'
- name: 'HasConsoleCheckBox1'
- layout: (LayoutFrame 0 0.5 34 0 0 1 56 0)
- enableChannel: isGUIApplicationHolder
- model: shownHasConsoleHolder
- translateLabel: true
- )
- )
-
- )
- )
- (FramedBoxSpec
- label: 'File Extensions'
- name: 'FileExtensionsFrame'
- layout: (LayoutFrame 0 0 177 0 0 1 237 0)
- labelPosition: topLeft
- translateLabel: true
- component:
- (SpecCollection
- collection: (
- (LabelSpec
- label: 'Document Extensions:'
- name: 'Label3'
- layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
- activeHelpKey: documentExtensions
- translateLabel: true
- adjust: right
- )
- (InputFieldSpec
- activeHelpKey: documentExtensions
- name: 'EntryField1'
- layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
- model: documentExtensionsListStringHolder
- type: string
- acceptOnReturn: true
- acceptOnTab: true
- acceptOnLostFocus: true
- acceptOnPointerLeave: false
- )
- )
-
- )
- )
- )
-
- )
+ collection: (
+ (FramedBoxSpec
+ label: 'Startup'
+ name: 'StartupFrame'
+ layout: (LayoutFrame 0 0 0 0 0 1 93 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Startup Class:'
+ name: 'Label1'
+ layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'StartupClassEntryField'
+ layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
+ model: startupClassNameHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ (LabelSpec
+ label: 'Startup Selector:'
+ name: 'Label2'
+ layout: (LayoutFrame 0 0.0 35 0 160 0 57 0)
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ name: 'StartupSelectorEntryField'
+ layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0)
+ model: startupSelectorHolder
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
+ )
+ (FramedBoxSpec
+ label: 'Execution'
+ name: 'ExecutionFrame'
+ layout: (LayoutFrame 0 0 94 0 0 1 176 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (CheckBoxSpec
+ label: 'Non-GUI Application'
+ name: 'Non-GUI CheckBox'
+ layout: (LayoutFrame 0 0.0 7 0 0 0.5 29 0)
+ model: isNonGUIApplicationHolder
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Singlethreaded'
+ name: 'SinglethreadedCheckBox'
+ layout: (LayoutFrame 0 0.5 7 0 0 1 29 0)
+ enableChannel: isNonGUIApplicationHolder
+ model: startSinglethreadedHolder
+ translateLabel: true
+ )
+ (CheckBoxSpec
+ label: 'Has Console'
+ name: 'HasConsoleCheckBox1'
+ layout: (LayoutFrame 0 0.5 34 0 0 1 56 0)
+ enableChannel: isGUIApplicationHolder
+ model: shownHasConsoleHolder
+ translateLabel: true
+ )
+ )
+
+ )
+ )
+ (FramedBoxSpec
+ label: 'File Extensions'
+ name: 'FileExtensionsFrame'
+ layout: (LayoutFrame 0 0 177 0 0 1 237 0)
+ labelPosition: topLeft
+ translateLabel: true
+ component:
+ (SpecCollection
+ collection: (
+ (LabelSpec
+ label: 'Document Extensions:'
+ name: 'Label3'
+ layout: (LayoutFrame 0 0.0 7 0 160 0 29 0)
+ activeHelpKey: documentExtensions
+ translateLabel: true
+ adjust: right
+ )
+ (InputFieldSpec
+ activeHelpKey: documentExtensions
+ name: 'EntryField1'
+ layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0)
+ model: documentExtensionsListStringHolder
+ type: string
+ acceptOnReturn: true
+ acceptOnTab: true
+ acceptOnLostFocus: true
+ acceptOnPointerLeave: false
+ )
+ )
+
+ )
+ )
+ )
+
+ )
)
"Modified: / 15-10-2006 / 14:35:12 / cg"
@@ -983,127 +962,127 @@
<resource: #menu>
- ^
+ ^
#(Menu
- (
- (MenuItem
- label: 'File'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- label: 'New Library'
- itemValue: menuNewLibraryDefinition
- translateLabel: true
- )
- (MenuItem
- label: 'New Application'
- itemValue: menuNewApplicationDefinition
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Open...'
- itemValue: menuOpen
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- enabled: hasDefinitionClassHolder
- label: 'Save'
- itemValue: menuSave
- translateLabel: true
- )
- (MenuItem
- enabled: hasDefinitionClassHolder
- label: 'Save As...'
- itemValue: menuSaveAs
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'Exit'
- itemValue: closeRequest
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: 'Definition'
- translateLabel: true
- submenu:
- (Menu
- (
- (MenuItem
- enabled: hasDefinitionClassHolder
- label: 'Generate Definitions'
- itemValue: menuGenerateProjectDefinitions
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- (MenuItem
- label: 'Classes'
- translateLabel: true
- isVisible: classesMenuVisibleHolder
- submenuChannel: classListMenu
- keepLinkedMenu: true
- )
- (MenuItem
- label: 'Extensions'
- translateLabel: true
- isVisible: extensionsMenuVisibleHolder
- submenuChannel: extensionsListMenu
- keepLinkedMenu: true
- )
- (MenuItem
- label: 'Prerequisites'
- translateLabel: true
- isVisible: prerequisitesMenuVisibleHolder
- submenuChannel: prerequisitesListMenu
- keepLinkedMenu: true
- )
- (MenuItem
- label: 'MENU_Help'
- translateLabel: true
- startGroup: conditionalRight
- submenu:
- (Menu
- (
- (MenuItem
- label: 'Documentation'
- itemValue: openDocumentation
- translateLabel: true
- )
- (MenuItem
- label: '-'
- )
- (MenuItem
- label: 'About this Application...'
- itemValue: openAboutThisApplication
- translateLabel: true
- )
- )
- nil
- nil
- )
- )
- )
- nil
- nil
+ (
+ (MenuItem
+ label: 'File'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'New Library'
+ itemValue: menuNewLibraryDefinition
+ translateLabel: true
+ )
+ (MenuItem
+ label: 'New Application'
+ itemValue: menuNewApplicationDefinition
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Open...'
+ itemValue: menuOpen
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ enabled: hasDefinitionClassHolder
+ label: 'Save'
+ itemValue: menuSave
+ translateLabel: true
+ )
+ (MenuItem
+ enabled: hasDefinitionClassHolder
+ label: 'Save As...'
+ itemValue: menuSaveAs
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'Exit'
+ itemValue: closeRequest
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: 'Definition'
+ translateLabel: true
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ enabled: hasDefinitionClassHolder
+ label: 'Generate Definitions'
+ itemValue: menuGenerateProjectDefinitions
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ (MenuItem
+ label: 'Classes'
+ translateLabel: true
+ isVisible: classesMenuVisibleHolder
+ submenuChannel: classListMenu
+ keepLinkedMenu: true
+ )
+ (MenuItem
+ label: 'Extensions'
+ translateLabel: true
+ isVisible: extensionsMenuVisibleHolder
+ submenuChannel: extensionsListMenu
+ keepLinkedMenu: true
+ )
+ (MenuItem
+ label: 'Prerequisites'
+ translateLabel: true
+ isVisible: prerequisitesMenuVisibleHolder
+ submenuChannel: prerequisitesListMenu
+ keepLinkedMenu: true
+ )
+ (MenuItem
+ label: 'MENU_Help'
+ translateLabel: true
+ startGroup: conditionalRight
+ submenu:
+ (Menu
+ (
+ (MenuItem
+ label: 'Documentation'
+ itemValue: openDocumentation
+ translateLabel: true
+ )
+ (MenuItem
+ label: '-'
+ )
+ (MenuItem
+ label: 'About this Application...'
+ itemValue: openAboutThisApplication
+ translateLabel: true
+ )
+ )
+ nil
+ nil
+ )
+ )
+ )
+ nil
+ nil
)
!
@@ -1168,35 +1147,35 @@
^#(
(DataSetColumnSpec
- label: 'Class'
- labelAlignment: left
- labelButtonType: Button
- model: className
- canSelect: false
+ label: 'Class'
+ labelAlignment: left
+ labelButtonType: Button
+ model: className
+ canSelect: false
)
(DataSetColumnSpec
- label: 'Auto'
- labelButtonType: Button
- editorType: CheckToggle
- rendererType: CheckToggle
- model: autoloaded
+ label: 'Auto'
+ labelButtonType: Button
+ editorType: CheckToggle
+ rendererType: CheckToggle
+ model: autoloaded
)
(DataSetColumnSpec
- label: 'Win32'
- labelButtonType: Button
- editorType: CheckToggle
- rendererType: CheckToggle
- model: win32
+ label: 'Win32'
+ labelButtonType: Button
+ editorType: CheckToggle
+ rendererType: CheckToggle
+ model: win32
)
(DataSetColumnSpec
- label: 'Unix'
- labelButtonType: Button
- editorType: CheckToggle
- rendererType: CheckToggle
- model: unix
+ label: 'Unix'
+ labelButtonType: Button
+ editorType: CheckToggle
+ rendererType: CheckToggle
+ model: unix
)
)
-
+
!
extensionsTableColumns
@@ -1282,8 +1261,8 @@
ccOptimizationFlagList
^ #(
- '-O'
- '-g'
+ '-O'
+ '-g'
)
"Created: / 15-10-2006 / 15:14:39 / cg"
@@ -1291,7 +1270,7 @@
ccOptimizationFlagsHolder
ccOptimizationFlagsHolder isNil ifTrue:[
- ccOptimizationFlagsHolder := ValueHolder new.
+ ccOptimizationFlagsHolder := ValueHolder new.
].
^ ccOptimizationFlagsHolder
@@ -1336,7 +1315,7 @@
documentExtensionsListStringHolder
documentExtensionsListStringHolder isNil ifTrue:[
- documentExtensionsListStringHolder := '' asValue.
+ documentExtensionsListStringHolder := '' asValue.
].
^ documentExtensionsListStringHolder.
@@ -1431,7 +1410,7 @@
hasConsoleHolder
hasConsoleHolder isNil ifTrue:[
- hasConsoleHolder := false asValue
+ hasConsoleHolder := false asValue
].
^ hasConsoleHolder.
@@ -1464,8 +1443,8 @@
isNonGUIApplicationHolder
isNonGUIApplicationHolder isNil ifTrue:[
- isNonGUIApplicationHolder := false asValue.
- isNonGUIApplicationHolder addDependent:self.
+ isNonGUIApplicationHolder := false asValue.
+ isNonGUIApplicationHolder addDependent:self.
].
^ isNonGUIApplicationHolder.
@@ -1603,7 +1582,7 @@
shownHasConsoleHolder
shownHasConsoleHolder isNil ifTrue:[
- shownHasConsoleHolder := IndirectValue for:self hasConsoleHolder.
+ shownHasConsoleHolder := IndirectValue for:self hasConsoleHolder.
].
^ shownHasConsoleHolder
@@ -1611,11 +1590,11 @@
!
shownHasConsoleValue
- ^ BlockValue
- with:[:m1 :m2 | self isGUIApplicationHolder value not
- or:[ self hasConsoleHolder value] ]
- argument:(self hasConsoleHolder)
- argument:(self isGUIApplicationHolder).
+ ^ BlockValue
+ with:[:m1 :m2 | self isGUIApplicationHolder value not
+ or:[ self hasConsoleHolder value] ]
+ argument:(self hasConsoleHolder)
+ argument:(self isGUIApplicationHolder).
"Created: / 15-10-2006 / 13:54:16 / cg"
!
@@ -1649,13 +1628,13 @@
stcOptimizationFlagList
^ #(
- '+optSpace'
- '+optSpace2'
- '+optSpace3'
- '+optInline'
- '-optInline'
- '-inlineNew'
- '-inlineNot'
+ '+optSpace'
+ '+optSpace2'
+ '+optSpace3'
+ '+optInline'
+ '-optInline'
+ '-inlineNew'
+ '-inlineNot'
)
"Created: / 15-10-2006 / 15:14:29 / cg"
@@ -1663,7 +1642,7 @@
stcOptimizationFlagsHolder
stcOptimizationFlagsHolder isNil ifTrue:[
- stcOptimizationFlagsHolder := ValueHolder new.
+ stcOptimizationFlagsHolder := ValueHolder new.
].
^ stcOptimizationFlagsHolder
@@ -1732,17 +1711,17 @@
entries := OrderedCollection new.
definitionClass
- classNamesAndAttributesDo:[:className :attributes |
- |entry|
+ classNamesAndAttributesDo:[:className :attributes |
+ |entry|
- entry := ClassListEntry new.
- entry
- className:className
- autoloaded:(attributes includes:#autoload)
- win32:(attributes includes:#win32)
- unix:(attributes includes:#unix).
- entries add:entry.
- ].
+ entry := ClassListEntry new.
+ entry
+ className:className
+ autoloaded:(attributes includes:#autoload)
+ win32:(attributes includes:#win32)
+ unix:(attributes includes:#unix).
+ entries add:entry.
+ ].
entries sort:[:a :b | a className < b className].
^ entries.
@@ -1801,19 +1780,19 @@
self startSinglethreadedHolder value:(isApplicationDefinition and:[definitionClass isSingleThreadedApplication]).
isApplicationDefinition ifTrue:[
- startupClassName := definitionClass name.
- startupSelector := #start.
+ startupClassName := definitionClass name.
+ startupSelector := #start.
- Error handle:[:ex | ] do:[ startupClassName := definitionClass startupClassName].
- Error handle:[:ex | ] do:[ startupSelector := definitionClass startupSelector].
- self startupClassNameHolder value:startupClassName.
- self startupSelectorHolder value:startupSelector.
+ Error handle:[:ex | ] do:[ startupClassName := definitionClass startupClassName].
+ Error handle:[:ex | ] do:[ startupSelector := definitionClass startupSelector].
+ self startupClassNameHolder value:startupClassName.
+ self startupSelectorHolder value:startupSelector.
- self iconFileNameHolder value:(definitionClass applicationIconFileName).
- self tabList value:(self class tabListForApplication).
- self documentExtensionsListStringHolder value:(definitionClass documentExtensions asStringWith:';').
+ self iconFileNameHolder value:(definitionClass applicationIconFileName).
+ self tabList value:(self class tabListForApplication).
+ self documentExtensionsListStringHolder value:(definitionClass documentExtensions asStringWith:';').
] ifFalse:[
- self tabList value:(self class tabListForLibrary).
+ self tabList value:(self class tabListForLibrary).
].
self companyNameHolder value:(definitionClass companyName).
@@ -1836,11 +1815,11 @@
self prerequisitesListHolder value:(self fetchPrerequisitesListEntries).
self window notNil ifTrue:[
- self window
- label:(isApplicationDefinition
- ifTrue:'Application'
- ifFalse:'Library' )
- , ' Definition: ',definitionClass name.
+ self window
+ label:(isApplicationDefinition
+ ifTrue:'Application'
+ ifFalse:'Library' )
+ , ' Definition: ',definitionClass name.
].
"Created: / 04-09-2006 / 16:34:39 / cg"
@@ -1856,18 +1835,18 @@
update:something with:parameter from:changedObject
changedObject == self selectedTabIndexHolder ifTrue:[
- self updateMenuVisibility.
- ^ self.
+ self updateMenuVisibility.
+ ^ self.
].
changedObject == self isNonGUIApplicationHolder ifTrue:[
- changedObject value ifTrue:[
- "/ a NON-GUI application - always has a console
- self shownHasConsoleHolder valueHolder:true
- ] ifFalse:[
- "/ a GUI application - sometimes has a console
- self shownHasConsoleHolder valueHolder:(self hasConsoleHolder)
- ].
- ^ self.
+ changedObject value ifTrue:[
+ "/ a NON-GUI application - always has a console
+ self shownHasConsoleHolder valueHolder:true
+ ] ifFalse:[
+ "/ a GUI application - sometimes has a console
+ self shownHasConsoleHolder valueHolder:(self hasConsoleHolder)
+ ].
+ ^ self.
].
^ super update:something with:parameter from:changedObject
@@ -1900,7 +1879,7 @@
flagHolderBuilt:aComboBox
aComboBox menuSelectAction:[:txt |
- self updateFlagsIn:aComboBox from:txt
+ self updateFlagsIn:aComboBox from:txt
].
"Created: / 15-10-2006 / 15:11:50 / cg"
@@ -1932,32 +1911,32 @@
|className class newPackage|
self hasUnsavedChanges ifTrue:[
- self halt.
+ self halt.
].
className := Dialog
- requestClassName:'Name of new Definition class'
- okLabel:'Create'
- initialAnswer:'private_myProject'.
+ requestClassName:'Name of new Definition class'
+ okLabel:'Create'
+ initialAnswer:'private_myProject'.
className isEmptyOrNil ifTrue:[^ self].
class := Smalltalk classNamed:className.
class notNil ifTrue:[
- (class isLibraryDefinition == (definitionClass == LibraryDefinition)) ifFalse:[
- Dialog warn:(resources
- string:'A class named "%1" already exists as %2.'
- with:className allBold
- with:(class isLibraryDefinition
- ifTrue:'Library'
- ifFalse:'Application')).
- ^ self
- ].
- Dialog warn:(resources
- string:'A class named "%1" already exists. Editing the existing definition.'
- with:className allBold).
+ (class isLibraryDefinition == (definitionClass == LibraryDefinition)) ifFalse:[
+ Dialog warn:(resources
+ string:'A class named "%1" already exists as %2.'
+ with:className allBold
+ with:(class isLibraryDefinition
+ ifTrue:'Library'
+ ifFalse:'Application')).
+ ^ self
+ ].
+ Dialog warn:(resources
+ string:'A class named "%1" already exists. Editing the existing definition.'
+ with:className allBold).
] ifFalse:[
- newPackage := className copy replaceAll:$_ with:$/.
- newPackage replaceAll:$/ with:$:.
- class := definitionClass newNamed:className package:newPackage.
+ newPackage := className copy replaceAll:$_ with:$/.
+ newPackage replaceAll:$/ with:$:.
+ class := definitionClass newNamed:className package:newPackage.
].
self definitionClass:class.
@@ -2058,19 +2037,19 @@
|className class newPackage|
className := Dialog
- requestClassName:'Name of new Definition class'
- okLabel:'Create'
- initialAnswer:'private_myProject'.
+ requestClassName:'Name of new Definition class'
+ okLabel:'Create'
+ initialAnswer:'private_myProject'.
className isEmptyOrNil ifTrue:[^ self].
class := Smalltalk classNamed:className.
class notNil ifTrue:[
- Dialog warn:(resources
- string:'A class named %1 already exists'
- with:className).
- ^ self.
+ Dialog warn:(resources
+ string:'A class named %1 already exists'
+ with:className).
+ ^ self.
].
newPackage := className copy replaceAll:$_ with:$/.
- newPackage replaceAll:$/ with:$:.
+ newPackage replaceAll:$/ with:$:.
class := ApplicationDefinition newNamed:className package:newPackage.
self menuSaveAs:class.
@@ -2111,13 +2090,13 @@
s := aComboBox editor contents.
flags := s asCollectionOfWords.
(flags includes:flag) ifFalse:[
- base := (flag copyFrom:2).
- negation := (flag startsWith:'+')
- ifTrue:[ ('-',base) ]
- ifFalse:[ ('+',base) ].
- flags remove:negation ifAbsent:[].
- flags add:flag.
- aComboBox editor contents:(flags asStringWith:' ').
+ base := (flag copyFrom:2).
+ negation := (flag startsWith:'+')
+ ifTrue:[ ('-',base) ]
+ ifFalse:[ ('+',base) ].
+ flags remove:negation ifAbsent:[].
+ flags add:flag.
+ aComboBox editor contents:(flags asStringWith:' ').
].
"Created: / 15-10-2006 / 15:35:53 / cg"