# HG changeset patch # User Claus Gittinger # Date 1158756128 -7200 # Node ID 4a7a7734e30c4b82de58bbee3200c6eb77442260 # Parent 720f27e752689c69bd05def3821d1c8e7bb5e58c *** empty log message *** diff -r 720f27e75268 -r 4a7a7734e30c Tools__ProjectDefinitionEditor.st --- a/Tools__ProjectDefinitionEditor.st Mon Sep 18 15:26:44 2006 +0200 +++ b/Tools__ProjectDefinitionEditor.st Wed Sep 20 14:42:08 2006 +0200 @@ -10,7 +10,7 @@ fileRevisionNrHolder fileDescriptionHolder releaseNrHolder fileMinorVersionNrHolder descriptionHolder legalCopyrightHolder isApplicationDefinitionHolder isNonGUIApplicationHolder - startSinglethreadedHolder startupClassNameHolder + startSinglethreadedHolder hasConsoleHolder startupClassNameHolder startupSelectorHolder prerequisitesList classListHolder extensionsListHolder prerequisitesListHolder' classVariableNames:'' @@ -46,7 +46,7 @@ unfinished app-definition editor [author:] - cg (cg@FUSI) + cg (cg@FUSI) [instance variables:] @@ -60,15 +60,15 @@ examples " Starting the application: - [exBegin] + [exBegin] (ProjectDefinitionEditor new - definitionClass:stx_libbasic) open - [exEnd] + definitionClass:stx_libbasic) open + [exEnd] - [exBegin] + [exBegin] (ProjectDefinitionEditor new - definitionClass:bosch_dapasx_application) open - [exEnd] + definitionClass:bosch_dapasx_application) open + [exEnd] " ! ! @@ -88,32 +88,32 @@ - ^ + ^ #(FullSpec - name: classesSpec - window: + name: classesSpec + window: (WindowSpec - label: 'NewApplication' - name: 'NewApplication' - min: (Point 0 0) - bounds: (Rectangle 0 0 300 300) - ) - component: + label: 'NewApplication' + name: 'NewApplication' + min: (Point 0 0) + bounds: (Rectangle 0 0 300 300) + ) + component: (SpecCollection - collection: ( - (DataSetSpec - name: 'ClassesTable' - layout: (LayoutFrame 0 0 0 0 0 1 0 1) - model: selectedClassIndexHolder - menu: classListMenu - hasHorizontalScrollBar: true - hasVerticalScrollBar: true - dataList: classListHolder - columnHolder: classesTableColumns - ) - ) - - ) + collection: ( + (DataSetSpec + name: 'ClassesTable' + layout: (LayoutFrame 0 0 0 0 0 1 0 1) + model: selectedClassIndexHolder + menu: classListMenu + hasHorizontalScrollBar: true + hasVerticalScrollBar: true + dataList: classListHolder + columnHolder: classesTableColumns + ) + ) + + ) ) "Modified: / 07-09-2006 / 11:35:14 / cg" @@ -133,96 +133,96 @@ - ^ + ^ #(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 - ) - (InputFieldSpec - name: 'STCOptimizationFlagsEntryField' - layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0) - model: stcOptimizationFlagsHolder - acceptOnReturn: true - acceptOnTab: true - acceptOnLostFocus: true - acceptOnPointerLeave: false - ) - (LabelSpec - label: 'CC Optimization Flags:' - name: 'Label2' - layout: (LayoutFrame 0 0.0 35 0 160 0 57 0) - translateLabel: true - adjust: right - ) - (InputFieldSpec - name: 'CCOptimizationFlagsEntryField' - layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0) - model: ccOptimizationFlagsHolder - acceptOnReturn: true - acceptOnTab: true - acceptOnLostFocus: true - acceptOnPointerLeave: false - ) - ) - - ) - ) - (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 + ) + (InputFieldSpec + name: 'STCOptimizationFlagsEntryField' + layout: (LayoutFrame 162 0.0 5 0 0 1.0 27 0) + model: stcOptimizationFlagsHolder + acceptOnReturn: true + acceptOnTab: true + acceptOnLostFocus: true + acceptOnPointerLeave: false + ) + (LabelSpec + label: 'CC Optimization Flags:' + name: 'Label2' + layout: (LayoutFrame 0 0.0 35 0 160 0 57 0) + translateLabel: true + adjust: right + ) + (InputFieldSpec + name: 'CCOptimizationFlagsEntryField' + layout: (LayoutFrame 162 0.0 33 0 0 1.0 55 0) + model: ccOptimizationFlagsHolder + acceptOnReturn: true + acceptOnTab: true + acceptOnLostFocus: true + acceptOnPointerLeave: false + ) + ) + + ) + ) + (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 + ) + ) + + ) + ) + ) + + ) ) ! @@ -240,214 +240,214 @@ - ^ + ^ #(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 + ) + ) + + ) ) ! @@ -465,31 +465,31 @@ - ^ + ^ #(FullSpec - name: extensionsSpec - window: + name: extensionsSpec + window: (WindowSpec - label: 'NewApplication' - name: 'NewApplication' - min: (Point 0 0) - bounds: (Rectangle 0 0 300 300) - ) - component: + label: 'NewApplication' + name: 'NewApplication' + min: (Point 0 0) + bounds: (Rectangle 0 0 300 300) + ) + component: (SpecCollection - collection: ( - (DataSetSpec - name: 'ExtensionsTable' - layout: (LayoutFrame 0 0 0 0 0 1 0 1) - model: selectedExtensionIndexHolder - hasHorizontalScrollBar: true - hasVerticalScrollBar: true - dataList: extensionsListHolder - columnHolder: extensionsTableColumns - ) - ) - - ) + collection: ( + (DataSetSpec + name: 'ExtensionsTable' + layout: (LayoutFrame 0 0 0 0 0 1 0 1) + model: selectedExtensionIndexHolder + hasHorizontalScrollBar: true + hasVerticalScrollBar: true + dataList: extensionsListHolder + columnHolder: extensionsTableColumns + ) + ) + + ) ) "Modified: / 07-09-2006 / 11:35:17 / cg" @@ -509,31 +509,31 @@ - ^ + ^ #(FullSpec - name: extensionsSpec - window: + name: extensionsSpec + window: (WindowSpec - label: 'NewApplication' - name: 'NewApplication' - min: (Point 0 0) - bounds: (Rectangle 0 0 300 300) - ) - component: + label: 'NewApplication' + name: 'NewApplication' + min: (Point 0 0) + bounds: (Rectangle 0 0 300 300) + ) + component: (SpecCollection - collection: ( - (DataSetSpec - name: 'ExtensionsTable' - layout: (LayoutFrame 0 0 0 0 0 1 0 1) - model: selectedPrerequisitesIndexHolder - hasHorizontalScrollBar: true - hasVerticalScrollBar: true - dataList: prerequisitesListHolder - columnHolder: prerequisitesTableColumns - ) - ) - - ) + collection: ( + (DataSetSpec + name: 'ExtensionsTable' + layout: (LayoutFrame 0 0 0 0 0 1 0 1) + model: selectedPrerequisitesIndexHolder + hasHorizontalScrollBar: true + hasVerticalScrollBar: true + dataList: prerequisitesListHolder + columnHolder: prerequisitesTableColumns + ) + ) + + ) ) "Created: / 05-09-2006 / 13:21:32 / cg" @@ -615,7 +615,7 @@ (FramedBoxSpec label: 'Execution' name: 'FramedBox2' - layout: (LayoutFrame 0 0 97 0 0 1 160 0) + layout: (LayoutFrame 0 0 97 0 0 1 186 0) labelPosition: topLeft translateLabel: true component: @@ -623,19 +623,27 @@ collection: ( (CheckBoxSpec label: 'Non-GUI Application' - name: 'CheckBox1' + name: 'Non-GUI CheckBox' layout: (LayoutFrame 0 0.0 7 0 0 0.5 29 0) model: isNonGUIApplicationHolder translateLabel: true ) (CheckBoxSpec label: 'Singlethreaded' - name: 'CheckBox2' + 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: hasConsoleHolder + translateLabel: true + ) ) ) @@ -661,31 +669,31 @@ - ^ + ^ #(FullSpec - name: windowSpec - window: + name: windowSpec + window: (WindowSpec - label: 'ApplicationDefinitionBuilder' - name: 'ApplicationDefinitionBuilder' - min: (Point 10 10) - max: (Point 1024 768) - bounds: (Rectangle 0 0 596 339) - menu: mainMenu - ) - component: + label: 'ApplicationDefinitionBuilder' + name: 'ApplicationDefinitionBuilder' + min: (Point 10 10) + max: (Point 1024 768) + bounds: (Rectangle 0 0 596 339) + menu: mainMenu + ) + component: (SpecCollection - collection: ( - (NoteBookViewSpec - name: 'NoteBook1' - layout: (LayoutFrame 0 0 0 0 0 1 0 1) - model: selectedTabIndexHolder - menu: tabList - useIndex: true - ) - ) - - ) + collection: ( + (NoteBookViewSpec + name: 'NoteBook1' + layout: (LayoutFrame 0 0 0 0 0 1 0 1) + model: selectedTabIndexHolder + menu: tabList + useIndex: true + ) + ) + + ) ) "Modified: / 03-09-2006 / 10:57:33 / cg" @@ -714,33 +722,33 @@ ^ #( (TabItem - label: 'Description' - minorKey: descriptionSpec - ) + label: 'Description' + minorKey: descriptionSpec + ) (TabItem - label: 'Classes' - createNewBuilder: false - translateLabel: true - minorKey: classesSpec - ) + label: 'Classes' + createNewBuilder: false + translateLabel: true + minorKey: classesSpec + ) (TabItem - label: 'Extensions' - minorKey: extensionsSpec - ) + label: 'Extensions' + minorKey: extensionsSpec + ) (TabItem - label: 'Prerequisites' - minorKey: prerequisitesSpec - ) + label: 'Prerequisites' + minorKey: prerequisitesSpec + ) (TabItem - label: 'Compilation' - minorKey: compilationSpec - ) + label: 'Compilation' + minorKey: compilationSpec + ) (TabItem - label: 'Startup' - minorKey: startupSpec - ) + label: 'Startup' + minorKey: startupSpec + ) ) - + collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ] "Created: / 05-09-2006 / 16:24:48 / cg" @@ -762,29 +770,29 @@ ^ #( (TabItem - label: 'Description' - minorKey: descriptionSpec - ) + label: 'Description' + minorKey: descriptionSpec + ) (TabItem - label: 'Classes' - createNewBuilder: false - translateLabel: true - minorKey: classesSpec - ) + label: 'Classes' + createNewBuilder: false + translateLabel: true + minorKey: classesSpec + ) (TabItem - label: 'Extensions' - minorKey: extensionsSpec - ) + label: 'Extensions' + minorKey: extensionsSpec + ) (TabItem - label: 'Prerequisites' - minorKey: prerequisitesSpec - ) + label: 'Prerequisites' + minorKey: prerequisitesSpec + ) (TabItem - label: 'Compilation' - minorKey: compilationSpec - ) + label: 'Compilation' + minorKey: compilationSpec + ) ) - + collect:[:aTab| TabItem new fromLiteralArrayEncoding:aTab ] "Created: / 05-09-2006 / 16:24:52 / cg" @@ -807,33 +815,33 @@ - ^ + ^ #(Menu - ( - (MenuItem - enabled: hasDefinitionClassHolder - label: 'Generate' - itemValue: menuGenerateClassList - translateLabel: true - ) - (MenuItem - label: '-' - ) - (MenuItem - enabled: hasDefinitionClassHolder - label: 'Add...' - itemValue: menuAddClass - translateLabel: true - ) - (MenuItem - enabled: hasDefinitionClassHolder - label: 'Remove...' - itemValue: menuRemoveClass - translateLabel: true - ) - ) - nil - nil + ( + (MenuItem + enabled: hasDefinitionClassHolder + label: 'Generate' + itemValue: menuGenerateClassList + translateLabel: true + ) + (MenuItem + label: '-' + ) + (MenuItem + enabled: hasDefinitionClassHolder + label: 'Add...' + itemValue: menuAddClass + translateLabel: true + ) + (MenuItem + enabled: hasDefinitionClassHolder + label: 'Remove...' + itemValue: menuRemoveClass + translateLabel: true + ) + ) + nil + nil ) ! @@ -851,33 +859,33 @@ - ^ + ^ #(Menu - ( - (MenuItem - enabled: hasDefinitionClassHolder - label: 'Generate' - itemValue: menuGenerateExtensionsList - translateLabel: true - ) - (MenuItem - label: '-' - ) - (MenuItem - enabled: hasDefinitionClassHolder - label: 'Add...' - itemValue: menuAddExtension - translateLabel: true - ) - (MenuItem - enabled: hasDefinitionClassHolder - label: 'Remove...' - itemValue: menuRemoveExtension - translateLabel: true - ) - ) - nil - nil + ( + (MenuItem + enabled: hasDefinitionClassHolder + label: 'Generate' + itemValue: menuGenerateExtensionsList + translateLabel: true + ) + (MenuItem + label: '-' + ) + (MenuItem + enabled: hasDefinitionClassHolder + label: 'Add...' + itemValue: menuAddExtension + translateLabel: true + ) + (MenuItem + enabled: hasDefinitionClassHolder + label: 'Remove...' + itemValue: menuRemoveExtension + translateLabel: true + ) + ) + nil + nil ) ! @@ -895,122 +903,122 @@ - ^ + ^ #(Menu - ( - (MenuItem - label: 'File' - translateLabel: true - submenu: - (Menu - ( - (MenuItem - label: 'New' - itemValue: menuNew - 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: 'Help' - translateLabel: true - startGroup: right - 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' + itemValue: menuNew + 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: 'Help' + translateLabel: true + startGroup: right + submenu: + (Menu + ( + (MenuItem + label: 'Documentation' + itemValue: openDocumentation + translateLabel: true + ) + (MenuItem + label: '-' + ) + (MenuItem + label: 'About this Application...' + itemValue: openAboutThisApplication + translateLabel: true + ) + ) + nil + nil + ) + ) + ) + nil + nil ) ! @@ -1028,33 +1036,33 @@ - ^ + ^ #(Menu - ( - (MenuItem - enabled: hasDefinitionClassHolder - label: 'Generate' - itemValue: menuGeneratePrerequisitesList - translateLabel: true - ) - (MenuItem - label: '-' - ) - (MenuItem - enabled: hasDefinitionClassHolder - label: 'Add...' - itemValue: menuAddPrerequisite - translateLabel: true - ) - (MenuItem - enabled: hasDefinitionClassHolder - label: 'Remove...' - itemValue: menuRemovePrerequisite - translateLabel: true - ) - ) - nil - nil + ( + (MenuItem + enabled: hasDefinitionClassHolder + label: 'Generate' + itemValue: menuGeneratePrerequisitesList + translateLabel: true + ) + (MenuItem + label: '-' + ) + (MenuItem + enabled: hasDefinitionClassHolder + label: 'Add...' + itemValue: menuAddPrerequisite + translateLabel: true + ) + (MenuItem + enabled: hasDefinitionClassHolder + label: 'Remove...' + itemValue: menuRemovePrerequisite + translateLabel: true + ) + ) + nil + nil ) ! ! @@ -1075,35 +1083,35 @@ ^#( (DataSetColumnSpec - label: 'Auto' - labelButtonType: Button - rendererType: CheckToggle - model: autoloaded - canSelect: false + label: 'Auto' + labelButtonType: Button + rendererType: CheckToggle + model: autoloaded + canSelect: false ) (DataSetColumnSpec - label: 'Win32' - labelButtonType: Button - rendererType: CheckToggle - model: win32 - canSelect: false + label: 'Win32' + labelButtonType: Button + rendererType: CheckToggle + model: win32 + canSelect: false ) (DataSetColumnSpec - label: 'Unix' - labelButtonType: Button - rendererType: CheckToggle - model: unix - canSelect: false + label: 'Unix' + labelButtonType: Button + rendererType: CheckToggle + model: unix + canSelect: false ) (DataSetColumnSpec - label: 'Class' - labelAlignment: left - labelButtonType: Button - model: className - canSelect: false + label: 'Class' + labelAlignment: left + labelButtonType: Button + model: className + canSelect: false ) ) - + ! extensionsTableColumns @@ -1121,21 +1129,21 @@ ^#( (DataSetColumnSpec - label: 'Class' - labelAlignment: left - labelButtonType: Button - model: className - canSelect: false + label: 'Class' + labelAlignment: left + labelButtonType: Button + model: className + canSelect: false ) (DataSetColumnSpec - label: 'Selector' - labelAlignment: left - labelButtonType: Button - model: selector - canSelect: false + label: 'Selector' + labelAlignment: left + labelButtonType: Button + model: selector + canSelect: false ) ) - + ! prerequisitesTableColumns @@ -1153,13 +1161,13 @@ ^#( (DataSetColumnSpec - label: 'Package' - labelAlignment: left - labelButtonType: Button - model: package + label: 'Package' + labelAlignment: left + labelButtonType: Button + model: package ) ) - + ! ! !ProjectDefinitionEditor methodsFor:'accessing'! @@ -1189,7 +1197,7 @@ classListHolder classListHolder isNil ifTrue:[ - classListHolder := #() asValue. + classListHolder := #() asValue. ]. ^ classListHolder. @@ -1198,7 +1206,7 @@ classesTableColumns classesTableColumns isNil ifTrue:[ - classesTableColumns := self class classesTableColumns asValue. + classesTableColumns := self class classesTableColumns asValue. ]. ^ classesTableColumns. @@ -1207,7 +1215,7 @@ companyNameHolder companyNameHolder isNil ifTrue:[ - companyNameHolder := ValueHolder new. + companyNameHolder := ValueHolder new. ]. ^ companyNameHolder. @@ -1216,7 +1224,7 @@ descriptionHolder descriptionHolder isNil ifTrue:[ - descriptionHolder := ValueHolder new. + descriptionHolder := ValueHolder new. ]. ^ descriptionHolder. @@ -1225,7 +1233,7 @@ extensionsListHolder extensionsListHolder isNil ifTrue:[ - extensionsListHolder := #() asValue. + extensionsListHolder := #() asValue. ]. ^ extensionsListHolder. @@ -1234,7 +1242,7 @@ fileDescriptionHolder fileDescriptionHolder isNil ifTrue:[ - fileDescriptionHolder := ValueHolder new. + fileDescriptionHolder := ValueHolder new. ]. ^ fileDescriptionHolder. @@ -1250,7 +1258,7 @@ "*** (and replace this comment by something more useful ;-)" fileMajorVersionNrHolder isNil ifTrue:[ - fileMajorVersionNrHolder := ValueHolder new. + fileMajorVersionNrHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ fileMajorVersionNrHolder addDependent:self. "/ fileMajorVersionNrHolder onChangeSend:#fileMajorVersionNrHolderChanged to:self. @@ -1267,7 +1275,7 @@ "*** (and replace this comment by something more useful ;-)" fileMinorVersionNrHolder isNil ifTrue:[ - fileMinorVersionNrHolder := ValueHolder new. + fileMinorVersionNrHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ fileMinorVersionNrHolder addDependent:self. "/ fileMinorVersionNrHolder onChangeSend:#fileMinorVersionNrHolderChanged to:self. @@ -1284,7 +1292,7 @@ "*** (and replace this comment by something more useful ;-)" fileReleaseNrHolder isNil ifTrue:[ - fileReleaseNrHolder := ValueHolder new. + fileReleaseNrHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ fileReleaseNrHolder addDependent:self. "/ fileReleaseNrHolder onChangeSend:#fileReleaseNrHolderChanged to:self. @@ -1301,7 +1309,7 @@ "*** (and replace this comment by something more useful ;-)" fileRevisionNrHolder isNil ifTrue:[ - fileRevisionNrHolder := ValueHolder new. + fileRevisionNrHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ fileRevisionNrHolder addDependent:self. "/ fileRevisionNrHolder onChangeSend:#fileRevisionNrHolderChanged to:self. @@ -1309,9 +1317,18 @@ ^ fileRevisionNrHolder. ! +hasConsoleHolder + hasConsoleHolder isNil ifTrue:[ + hasConsoleHolder := false asValue + ]. + ^ hasConsoleHolder. + + "Created: / 20-09-2006 / 14:39:18 / cg" +! + iconFileNameHolder iconFileNameHolder isNil ifTrue:[ - iconFileNameHolder := ValueHolder new. + iconFileNameHolder := ValueHolder new. ]. ^ iconFileNameHolder. @@ -1327,7 +1344,7 @@ "*** (and replace this comment by something more useful ;-)" iconFilenameHolder isNil ifTrue:[ - iconFilenameHolder := ValueHolder new. + iconFilenameHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ iconFilenameHolder addDependent:self. "/ iconFilenameHolder onChangeSend:#iconFilenameHolderChanged to:self. @@ -1337,16 +1354,22 @@ isApplicationDefinitionHolder isApplicationDefinitionHolder isNil ifTrue:[ - isApplicationDefinitionHolder := false asValue + isApplicationDefinitionHolder := false asValue ]. ^ isApplicationDefinitionHolder. "Created: / 04-09-2006 / 19:22:47 / cg" ! +isGUIApplicationHolder + ^ BlockValue forLogicalNot:self isNonGUIApplicationHolder + + "Created: / 20-09-2006 / 14:38:32 / cg" +! + isNonGUIApplicationHolder isNonGUIApplicationHolder isNil ifTrue:[ - isNonGUIApplicationHolder := false asValue. + isNonGUIApplicationHolder := false asValue. ]. ^ isNonGUIApplicationHolder. @@ -1362,7 +1385,7 @@ "*** (and replace this comment by something more useful ;-)" legalCopyrightHolder isNil ifTrue:[ - legalCopyrightHolder := ValueHolder new. + legalCopyrightHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ legalCopyrightHolder addDependent:self. "/ legalCopyrightHolder onChangeSend:#legalCopyrightHolderChanged to:self. @@ -1379,7 +1402,7 @@ "*** (and replace this comment by something more useful ;-)" majorVersionNrHolder isNil ifTrue:[ - majorVersionNrHolder := ValueHolder new. + majorVersionNrHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ majorVersionNrHolder addDependent:self. "/ majorVersionNrHolder onChangeSend:#majorVersionNrHolderChanged to:self. @@ -1396,7 +1419,7 @@ "*** (and replace this comment by something more useful ;-)" minorVersionNrHolder isNil ifTrue:[ - minorVersionNrHolder := ValueHolder new. + minorVersionNrHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ minorVersionNrHolder addDependent:self. "/ minorVersionNrHolder onChangeSend:#minorVersionNrHolderChanged to:self. @@ -1406,7 +1429,7 @@ prerequisitesListHolder prerequisitesListHolder isNil ifTrue:[ - prerequisitesListHolder := #() asValue. + prerequisitesListHolder := #() asValue. ]. ^ prerequisitesListHolder. @@ -1422,7 +1445,7 @@ "*** (and replace this comment by something more useful ;-)" productNameHolder isNil ifTrue:[ - productNameHolder := ValueHolder new. + productNameHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ productNameHolder addDependent:self. "/ productNameHolder onChangeSend:#productNameHolderChanged to:self. @@ -1439,7 +1462,7 @@ "*** (and replace this comment by something more useful ;-)" releaseNrHolder isNil ifTrue:[ - releaseNrHolder := ValueHolder new. + releaseNrHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ releaseNrHolder addDependent:self. "/ releaseNrHolder onChangeSend:#releaseNrHolderChanged to:self. @@ -1456,7 +1479,7 @@ "*** (and replace this comment by something more useful ;-)" revisionNrHolder isNil ifTrue:[ - revisionNrHolder := ValueHolder new. + revisionNrHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ revisionNrHolder addDependent:self. "/ revisionNrHolder onChangeSend:#revisionNrHolderChanged to:self. @@ -1473,7 +1496,7 @@ "*** (and replace this comment by something more useful ;-)" selectedClassIndexHolder isNil ifTrue:[ - selectedClassIndexHolder := ValueHolder new. + selectedClassIndexHolder := ValueHolder new. "/ if your app needs to be notified of changes, uncomment one of the lines below: "/ selectedClassIndexHolder addDependent:self. "/ selectedClassIndexHolder onChangeSend:#selectedClassIndexHolderChanged to:self. @@ -1483,7 +1506,7 @@ startSinglethreadedHolder startSinglethreadedHolder isNil ifTrue:[ - startSinglethreadedHolder := false asValue. + startSinglethreadedHolder := false asValue. ]. ^ startSinglethreadedHolder. @@ -1492,7 +1515,7 @@ startupClassNameHolder startupClassNameHolder isNil ifTrue:[ - startupClassNameHolder := '' asValue. + startupClassNameHolder := '' asValue. ]. ^ startupClassNameHolder. @@ -1501,7 +1524,7 @@ startupSelectorHolder startupSelectorHolder isNil ifTrue:[ - startupSelectorHolder := '' asValue. + startupSelectorHolder := '' asValue. ]. ^ startupSelectorHolder. @@ -1514,7 +1537,7 @@ |list| (list := builder bindingAt:#tabList) isNil ifTrue:[ - builder aspectAt:#tabList put:(list := self class tabListForApplication asValue). + builder aspectAt:#tabList put:(list := self class tabListForApplication asValue). ]. ^ list @@ -1569,18 +1592,18 @@ |entries| entries := OrderedCollection new. - definitionClass - classNamesAndAttributesDo:[:className :attributes | - |entry| + definitionClass + 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. @@ -1591,14 +1614,14 @@ |entries| entries := OrderedCollection new. - definitionClass - extensionMethodNames pairWiseDo:[:className :selector | - |entry| + definitionClass + extensionMethodNames pairWiseDo:[:className :selector | + |entry| - entry := ExtensionsListEntry new. - entry className:className selector:selector. - entries add:entry. - ]. + entry := ExtensionsListEntry new. + entry className:className selector:selector. + entries add:entry. + ]. ^ entries. @@ -1609,14 +1632,14 @@ |entries| entries := OrderedCollection new. - definitionClass - preRequisites do:[:packageName | - |entry| + definitionClass + preRequisites do:[:packageName | + |entry| - entry := PrerequisitesListEntry new. - entry package:packageName. - entries add:entry. - ]. + entry := PrerequisitesListEntry new. + entry package:packageName. + entries add:entry. + ]. ^ entries. @@ -1633,6 +1656,10 @@ isApplicationDefinition := definitionClass isApplicationDefinition. self isApplicationDefinitionHolder value:isApplicationDefinition. + self isNonGUIApplicationHolder value:definitionClass isGUIApplication not. + self hasConsoleHolder value:definitionClass isConsoleApplication. + self startSinglethreadedHolder value:definitionClass isSingleThreadedApplication. + isApplicationDefinition ifTrue:[ startupClassName := definitionClass name. startupSelector := #start. @@ -1667,14 +1694,16 @@ self extensionsListHolder value:(self fetchExtensionsListEntries). self prerequisitesListHolder value:(self fetchPrerequisitesListEntries). - self window - label:(isApplicationDefinition - ifTrue:'Application' - ifFalse:'Library' ) - , ' Definition: ',definitionClass name. + self window notNil ifTrue:[ + self window + label:(isApplicationDefinition + ifTrue:'Application' + ifFalse:'Library' ) + , ' Definition: ',definitionClass name. + ]. "Created: / 04-09-2006 / 16:34:39 / cg" - "Modified: / 07-09-2006 / 12:36:10 / cg" + "Modified: / 20-09-2006 / 14:41:39 / cg" ! refetchDefinitionValues @@ -1686,8 +1715,8 @@ update:something with:parameter from:changedObject changedObject == self selectedTabIndexHolder ifTrue:[ - self updateMenuVisibility. - ^ self. + self updateMenuVisibility. + ^ self. ]. ^ super update:something with:parameter from:changedObject @@ -1707,9 +1736,9 @@ closeRequest (self hasUnsavedChanges) ifTrue:[ - (self confirm:(resources string:'Close without saving ?')) ifFalse:[ - ^ self - ] + (self confirm:(resources string:'Close without saving ?')) ifFalse:[ + ^ self + ] ]. ^ super closeRequest @@ -1743,24 +1772,24 @@ |action| action := [:generator :defClass | - defClass theNonMetaclass - forEachMethodsCodeToCompileDo: - [:code :category | - generator - compile:code - forClass:defClass theMetaclass - inCategory:category. - ] - ignoreOldDefinition:true - ]. + defClass theNonMetaclass + forEachMethodsCodeToCompileDo: + [:code :category | + generator + compile:code + forClass:defClass theMetaclass + inCategory:category. + ] + ignoreOldDefinition:true + ]. masterApplication notNil ifTrue:[ - masterApplication - generateUndoableChange:'Generate Project Definitions' - overClasses:(Array with:self definitionClass) - via:action. + masterApplication + generateUndoableChange:'Generate Project Definitions' + overClasses:(Array with:self definitionClass) + via:action. ] ifFalse:[ - action value:Compiler value:self definitionClass + action value:Compiler value:self definitionClass ]. self refetchDefinitionValues @@ -1782,18 +1811,18 @@ projectID := Dialog requestProject:'Project' initialAnswer:'' suggestions:nil. class := ProjectDefinition definitionClassForPackage:projectID. class isNil ifTrue:[ - answer := Dialog - confirmWithCancel:(resources string:'No Projectdefinition class exists for "%1".\\Create ?' with:projectID allBold) - labels:(resources array:#('Cancel' 'Create Library' 'Create Application' )) - values:#(nil LibraryDefinition ApplicationDefinition) - default:2 - boxLabel:(resources string:'Create Projectdefinition'). - answer isNil ifTrue:[^ self]. + answer := Dialog + confirmWithCancel:(resources string:'No Projectdefinition class exists for "%1".\\Create ?' with:projectID allBold) + labels:(resources array:#('Cancel' 'Create Library' 'Create Application' )) + values:#(nil LibraryDefinition ApplicationDefinition) + default:2 + boxLabel:(resources string:'Create Projectdefinition'). + answer isNil ifTrue:[^ self]. ]. answer == #LibraryDefinition ifTrue:[ - class := LibraryDefinition definitionClassForPackage:projectID createIfAbsent:true + class := LibraryDefinition definitionClassForPackage:projectID createIfAbsent:true ] ifFalse:[ - class := ApplicationDefinition definitionClassForPackage:projectID createIfAbsent:true + class := ApplicationDefinition definitionClassForPackage:projectID createIfAbsent:true ]. self definitionClass:class. @@ -1820,17 +1849,17 @@ menuSaveAs |className class newPackage| - className := Dialog - requestClassName:'Name of new Definition class' - okLabel:'Create' - initialAnswer:'privete_myProject'. + className := Dialog + requestClassName:'Name of new Definition class' + okLabel:'Create' + initialAnswer:'privete_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 replace:$/ with:$:. @@ -1931,7 +1960,7 @@ className := something. ! -className:classNameArg autoloaded:autoloadedArg win32:win32Arg unix:unixArg +className:classNameArg autoloaded:autoloadedArg win32:win32Arg unix:unixArg className := classNameArg. autoloaded := autoloadedArg. win32 := win32Arg. @@ -1960,7 +1989,7 @@ ^ className ! -className:classNameArg selector:selectorArg +className:classNameArg selector:selectorArg className := classNameArg. selector := selectorArg. !