flyByHelpSpec -> helpSpec draft
authorClaus Gittinger <cg@exept.de>
Tue, 16 Jan 2018 22:32:41 +0100
changeset 3523 25fa267c550a
parent 3522 2a319ce12319
child 3524 366f04fbfb23
flyByHelpSpec -> helpSpec
Tools__ProjectDefinitionEditor.st
--- 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"