# HG changeset patch # User Claus Gittinger # Date 1516138361 -3600 # Node ID 25fa267c550ab2e9f379707c1c6f16035e279606 # Parent 2a319ce123194c41a48d12a4a3c42e4b1d59110e flyByHelpSpec -> helpSpec diff -r 2a319ce12319 -r 25fa267c550a 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 " @@ -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 - " - - - - ^ super helpSpec addPairsFrom:#( - -#documentExtensions -'";"-separated list of file extensions' - -) ! ! !ProjectDefinitionEditor class methodsFor:'interface specs'! @@ -181,94 +160,94 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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 @@ - ^ + ^ #(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"