hg/stx-libtool2: comparison Tools__ProjectBuilderAssistantApplication.st

equal deleted inserted replaced

-:c284507a1279
+:bec4c94bc628
 "{ Package: 'stx:libtool2' }"
 "{ NameSpace: Tools }"
 AssistantApplication subclass:#ProjectBuilderAssistantApplication
-	instanceVariableNames:'packageToBuildHolder projectType selectedProjectIndexHolder
+	instanceVariableNames:'packageToBuildHolder projectType projectTypeHolder
-		selectedProjectDefinition listOfMatchingProjects
+		selectedProjectIndexHolder selectedProjectDefinition
-		selectedProjectsComment newProjectsName hideSTXProjects
+		listOfMatchingProjects selectedProjectsComment
+		hasProjectSelectedHolder newProjectsName hideSTXProjects
 		startMakeButtonEnabled stopMakeButtonVisible makeOutputHolder
 		newApplicationsName listOfApplicationsInProject
 		selectedApplicationIndexHolder selectedApplication
-		listOfStartupClassesInProject selectedStartupClassIndexHolder
+		hasApplicationSelectedHolder listOfStartupClassesInProject
-		selectedStartupClass selectedApplicationsComment
+		selectedStartupClassIndexHolder selectedStartupClass
+		hasStartupClassSelectedHolder selectedApplicationsComment
 		buildDirectoryHolder makeProcess listOfClassesInProject
-		makeOutputWindow projectBuilder'
+		makeOutputWindow projectBuilder newStartupClassName'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Support-Projects'
 !
 )
 (RadioButtonSpec
 label: 'GUI Application'
 name: 'RadioButton1'
 translateLabel: true
-model: projectType
+model: projectTypeHolder
 isTriggerOnDown: true
 onCallBackSelector: projectTypeChanged
 select: guiApplicationType
 extent: (Point 136 22)
 )
 (RadioButtonSpec
 label: 'Non-GUI Application'
 name: 'RadioButton2'
 translateLabel: true
-model: projectType
+model: projectTypeHolder
 isTriggerOnDown: true
 onCallBackSelector: projectTypeChanged
 select: nonGuiApplicationType
 extent: (Point 136 22)
 )
 (RadioButtonSpec
 label: 'Class Library'
 name: 'RadioButton3'
 translateLabel: true
-model: projectType
+model: projectTypeHolder
 isTriggerOnDown: true
 onCallBackSelector: projectTypeChanged
 select: libraryType
 extent: (Point 136 22)
 )
 handles: (Any 0.34560327198364 1.0)
 )
 (CheckBoxSpec
 label: 'Hide ST/X Base Packages'
 name: 'CheckBox1'
-layout: (LayoutFrame -1 0 -18 1 275 0 4 1)
+layout: (LayoutFrame -1 0 -18 1 0 1 4 1)
 model: hideSTXProjects
 translateLabel: true
 )
 )
 component:
 (SpecCollection
 collection: (
 (InputFieldSpec
 name: 'EntryField1'
-layout: (LayoutFrame 1 0 6 0 210 0 28 0)
+layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
 model: newProjectsName
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnPointerLeave: true
 emptyFieldReplacementText: 'module:directory'
 )
 (ActionButtonSpec
 label: 'Create'
 name: 'Button1'
-layout: (LayoutFrame 216 0 6 0 341 0 28 0)
+layout: (LayoutFrame -100 1 6 0 2 1 28 0)
 translateLabel: true
 model: createNewProject
 )
 )
 handles: (Any 0.34560327198364 1.0)
 )
 (CheckBoxSpec
 label: 'Hide ST/X Base Packages'
 name: 'CheckBox1'
-layout: (LayoutFrame -1 0 -17 1 275 0 5 1)
+layout: (LayoutFrame -1 0 -17 1 0 1 5 1)
 model: hideSTXProjects
 translateLabel: true
 )
 )
 (ActionButtonSpec
 label: 'Browse Selected Project'
 name: 'Button3'
 translateLabel: true
 model: doBrowseProject
+enableChannel: hasProjectSelectedHolder
 extent: (Point 180 22)
 )
 )
 )
 component:
 (SpecCollection
 collection: (
 (InputFieldSpec
 name: 'EntryField1'
-layout: (LayoutFrame 1 0 6 0 210 0 28 0)
+layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
 model: newApplicationsName
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnPointerLeave: true
 emptyFieldReplacementText: 'MyApplication'
 )
 (ActionButtonSpec
 label: 'Create'
 name: 'Button1'
-layout: (LayoutFrame 216 0 6 0 341 0 28 0)
+layout: (LayoutFrame -100 1 6 0 1 1 28 0)
 translateLabel: true
 model: createNewApplication
 )
 )
 (ActionButtonSpec
 label: 'Browse Selected Application'
 name: 'Button3'
 translateLabel: true
 model: doBrowseApplication
+enableChannel: hasApplicationSelectedHolder
+extent: (Point 180 22)
+)
+(ActionButtonSpec
+label: 'Launch Selected Application'
+name: 'Button4'
+translateLabel: true
+model: doLaunchApplication
+enableChannel: hasApplicationSelectedHolder
 extent: (Point 180 22)
 )
 )
 )
 component:
 (SpecCollection
 collection: (
 (InputFieldSpec
 name: 'EntryField1'
-layout: (LayoutFrame 1 0 6 0 210 0 28 0)
+layout: (LayoutFrame 1 0 6 0 -113 1 28 0)
 model: newStartupClassName
 acceptOnReturn: true
 acceptOnTab: true
 acceptOnPointerLeave: true
 emptyFieldReplacementText: 'MyStandAloneStartup'
 )
 (ActionButtonSpec
 label: 'Create'
 name: 'Button1'
-layout: (LayoutFrame 216 0 6 0 341 0 28 0)
+layout: (LayoutFrame -100 1 6 0 1 1 28 0)
 translateLabel: true
 model: createNewStartupClass
 )
 )
 (ActionButtonSpec
 label: 'Browse Selected StartupClass'
 name: 'Button3'
 translateLabel: true
 model: doBrowseStartupClass
+enableChannel: hasStartupClassSelectedHolder
 extent: (Point 180 22)
 )
 )
 )
 collection: (
 (ActionButtonSpec
 label: 'Browse Project Definition'
 name: 'Button3'
 translateLabel: true
-model: doBrowseProject
+model: doBrowseProjectDefinitionClass
 extent: (Point 180 22)
 )
 (ActionButtonSpec
 label: 'Update Contents (Scan)'
 name: 'Button4'
 newAppName isEmptyOrNil ifTrue:[
 Dialog warn:'Please enter the name of the Application-Class first.'.
 ^ self
 ].
-Class packageQuerySignal answer:(selectedProjectDefinition package)
+self withWaitCursorDo:[
-do:[
+Class packageQuerySignal answer:(selectedProjectDefinition package)
-newAppClass := ApplicationModel
+do:[
-subclass:newAppName asSymbol
+newAppClass := ApplicationModel
-instanceVariableNames:''
+subclass:newAppName asSymbol
-classVariableNames:''
+instanceVariableNames:''
-poolDictionaries:''
+classVariableNames:''
-category:'Applications'.
+poolDictionaries:''
-CodeGeneratorTool createApplicationCodeFor:newAppClass.
+category:'Applications'.
-].
+CodeGeneratorTool createApplicationCodeFor:newAppClass.
-self updateListOfApplicationsInProject
+].
+self updateListOfApplicationsInProject
+].
 !
 createNewProject
 <resource: #uiCallback>
 newProjectID := self newProjectsName value.
 newProjectID isEmptyOrNil ifTrue:[
 Dialog warn:'Please enter a packageID first.'.
 ^ self
 ].
+newProjectID asPackageId isModuleId ifTrue:[
-projectDefinitionType := ProjectDefinition perform:(self projectType value).
+Dialog warn:'Please enter a corrent packageID (module:directory).'.
+^ self
+].
+projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value).
 projectDefinitionClass := ProjectDefinition
 definitionClassForPackage:newProjectID
 projectType: projectDefinitionType
 self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass).
 projectClasses := projectDefinitionClass allClassNames
 collect:[:nm |Smalltalk classNamed:nm].
-projectDefinitionClass isGUIApplication ifTrue:[
+"/    projectDefinitionClass isGUIApplication ifTrue:[
-"/ see if it has an AppModel class
+"/        "/ see if it has an AppModel class
-(projectClasses contains:[:cls | cls isVisualStartable]) ifFalse:[
+"/        (projectClasses contains:[:cls | cls isVisualStartable]) ifFalse:[
-(Dialog confirm:'Create an Application Class ?') ifTrue:[
+"/            (Dialog confirm:'Create an Application Class ?') ifTrue:[
-self halt.
+"/                self halt.
-].
+"/            ].
-].
+"/        ].
-].
+"/    ].
 "/    projectDefinitionClass isLibrary ifFalse:[
 "/        "/ see if it has a Startup class
 "/        (projectClasses contains:[:cls | cls isStartable]) ifFalse:[
 "/        ].
 "/    ].
 !
+createNewStartupClass
+<resource: #uiCallback>
+|newClassName newStartupClass|
+newClassName := self newStartupClassName value.
+newClassName isEmptyOrNil ifTrue:[
+Dialog warn:'Please enter the name of the Startup-Class first.'.
+^ self
+].
+self withWaitCursorDo:[
+Class packageQuerySignal answer:(selectedProjectDefinition package)
+do:[
+newStartupClass := StandaloneStartup
+subclass:newClassName asSymbol
+instanceVariableNames:''
+classVariableNames:''
+poolDictionaries:''
+category:'Applications'.
+CodeGeneratorTool createStartupCodeFor:newStartupClass forStartOf:selectedApplication.
+].
+self updateListOfStartupClassesInProject
+].
+!
 doAddClassToProject
 <resource: #uiCallback>
 Transcript showCR:self class name, ': action for doAddClassToProject ...'.
 self halt.
 doBrowseApplication
 <resource: #uiCallback>
 |appClass|
-appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
+self hasApplicationSelected ifTrue:[
-UserPreferences systemBrowserClass openInClass:appClass.
+appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
+UserPreferences systemBrowserClass
+openInClass:appClass.
+].
 !
 doBrowseProject
 <resource: #uiCallback>
 UserPreferences systemBrowserClass openOnPackage:selectedProjectDefinition package.
 !
+doBrowseProjectDefinitionClass
+<resource: #uiCallback>
+|defClass|
+self hasProjectSelected ifTrue:[
+defClass := self selectedProjectDefinition.
+UserPreferences systemBrowserClass
+openInClass:defClass class selector:#classNamesAndAttributes.
+].
+!
+doBrowseStartupClass
+<resource: #uiCallback>
+|startupClass|
+self hasStartupClassSelected ifTrue:[
+startupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value).
+UserPreferences systemBrowserClass
+openInClass:startupClass.
+].
+!
 doGenerateProjectContentsDefinition
 self generatePackageContentsMethods
+!
+doLaunchApplication
+<resource: #uiCallback>
+|appClass|
+self hasApplicationSelected ifTrue:[
+appClass := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
+appClass open.
+].
 !
 doOpenExplorer
 OperatingSystem
 openApplicationForDocument:(projectBuilder packageBuildDirectory) operation:#explore.
 p terminate.
 p waitUntilTerminated.
 makeOutputWindow endEntry.
 makeOutputWindow cr.
-makeOutputWindow nextPutLine:('Make Cancelled' emphasizeAllWith:{#backgroundColor->Color red. #color->Color white.}).
+makeOutputWindow nextPutLine:('Make Cancelled' colorizeAllWith:Color white on:Color red).
 makeOutputWindow endEntry.
 ].
-!
-generatePackageContentsMethods
-<resource: #uiCallback>
-Class packageQuerySignal answer:(selectedProjectDefinition package)
-do:[
-selectedProjectDefinition
-forEachContentsMethodsCodeToCompileDo:[:code :category |
-CodeGeneratorTool
-compile:code
-forClass:selectedProjectDefinition theMetaclass
-inCategory:category.
-]
-ignoreOldDefinition:true
-].
-self updateListOfClassesInProject
 !
 projectTypeChanged
 <resource: #uiCallback>
 ActivityNotification handle:[:ex |
 ex messageText notNil ifTrue:[
 makeOutputWindow endEntry.
 makeOutputWindow cr.
-makeOutputWindow nextPutLine:(ex messageText emphasizeAllWith:{#backgroundColor->Color blue. #color->Color white.}).
+makeOutputWindow nextPutLine:(ex messageText colorizeAllWith:Color white on:Color blue).
 makeOutputWindow endEntry.
 ].
 ex proceed.
 ] do:[
 projectBuilder := ProjectBuilder new.
 self selectedApplicationIndexHolder value isNil ifTrue:[
 selectedApplication := nil.
 ] ifFalse:[
 selectedApplication := self listOfApplicationsInProject value at:(self selectedApplicationIndexHolder value).
 ].
+self hasApplicationSelectedHolder value:(selectedApplication notNil).
 "/    selectedApplication notNil ifTrue:[
 "/        "/ generate startupClass code
 "/        CodeGeneratorTool
 "/            compile:(selectedProjectDefinition startupClassName_codeFor:(selectedApplication name))
 "/            forClass:selectedProjectDefinition theMetaclass
 self selectedProjectIndexHolder value isNil ifTrue:[
 selectedProjectDefinition := nil.
 ] ifFalse:[
 selectedProjectDefinition := self listOfMatchingProjects value at:(self selectedProjectIndexHolder value).
 ].
+self hasProjectSelectedHolder value:(selectedProjectDefinition notNil).
 self updateComment.
 self updateListOfApplicationsInProject.
 self updateButtonEnableState.
 !
 self selectedStartupClassIndexHolder value isNil ifTrue:[
 selectedStartupClass := nil.
 ] ifFalse:[
 selectedStartupClass := self listOfStartupClassesInProject value at:(self selectedStartupClassIndexHolder value).
 ].
+self hasStartupClassSelectedHolder value:(selectedStartupClass notNil).
 selectedStartupClass notNil ifTrue:[
 "/ generate startupClass code
 CodeGeneratorTool
 compile:(selectedProjectDefinition startupClassName_codeFor:(selectedStartupClass name))
 forClass:selectedProjectDefinition theMetaclass
 browser onDirectory:targetDirectory.
 browser filter:'*setup*'.
 ^ browser.
 !
-hasBuildDirectorySpecified
+hasApplicationSelectedHolder
-^ self buildDirectoryHolder value notEmptyOrNil
+<resource: #uiAspect>
-!
+hasApplicationSelectedHolder isNil ifTrue:[
-hasProjectBuilder
+hasApplicationSelectedHolder := nil asValue.
-^ projectBuilder notNil
+].
-!
+^ hasApplicationSelectedHolder.
+!
-hasProjectSelected
-^ self selectedProjectIndexHolder value notNil
+hasProjectSelectedHolder
+<resource: #uiAspect>
+hasProjectSelectedHolder isNil ifTrue:[
+hasProjectSelectedHolder := nil asValue.
+].
+^ hasProjectSelectedHolder.
+!
+hasStartupClassSelectedHolder
+<resource: #uiAspect>
+hasStartupClassSelectedHolder isNil ifTrue:[
+hasStartupClassSelectedHolder := nil asValue.
+].
+^ hasStartupClassSelectedHolder.
 !
 hideSTXProjects
 <resource: #uiAspect>
 newProjectsName := nil asValue.
 ].
 ^ newProjectsName.
 !
+newStartupClassName
+<resource: #uiAspect>
+newStartupClassName isNil ifTrue:[
+newStartupClassName := ValueHolder new.
+].
+^ newStartupClassName.
+!
 projectType
-<resource: #uiAspect>
+self projectTypeHolder value == #libraryType ifTrue:[
+^ ProjectDefinition libraryType
-projectType isNil ifTrue:[
+].
-projectType := RadioButtonGroup new.
+self projectTypeHolder value == #guiApplicationType ifTrue:[
-projectType value:#guiApplicationType.
+^ ProjectDefinition guiApplicationType
 ].
-^ projectType.
+self projectTypeHolder value == #nonGuiApplicationType ifTrue:[
+^ ProjectDefinition nonGuiApplicationType
+].
+self error.
+!
+projectType:aProjectTypeSymbol
+|pType|
+self assert:(ProjectDefinition projectTypes includes:aProjectTypeSymbol).
+aProjectTypeSymbol == ProjectDefinition libraryType ifTrue:[
+pType := #libraryType
+] ifFalse:[
+aProjectTypeSymbol == ProjectDefinition guiApplicationType ifTrue:[
+pType := #guiApplicationType
+] ifFalse:[
+aProjectTypeSymbol == ProjectDefinition nonGuiApplicationType ifTrue:[
+pType := #nonGuiApplicationType
+] ifFalse:[
+self error.
+].
+]
+].
+self projectTypeHolder value:aProjectTypeSymbol
+!
+projectTypeHolder
+<resource: #uiAspect>
+projectTypeHolder isNil ifTrue:[
+projectTypeHolder := RadioButtonGroup new.
+projectTypeHolder value:#guiApplicationType.
+].
+^ projectTypeHolder.
 !
 projectTypeIsNotLibrary
-^ self projectType value ~~ #libraryType
+^ self projectTypeHolder value ~~ #libraryType
 !
 selectedApplicationIndexHolder
 <resource: #uiAspect>
 !
 release
 Smalltalk removeDependent:self.
 super release
+! !
+!ProjectBuilderAssistantApplication methodsFor:'menu actions'!
+openDocumentation
+self openHTMLDocument:'tools/misc/TOP.html#PACKAGER'.
 ! !
 !ProjectBuilderAssistantApplication methodsFor:'private'!
 commentFromClass:aClass
 comment := comment collect:[:line | line copyFrom:minIndent].
 ].
 comment := comment asString.
 ].
 ^ comment
+!
+generatePackageContentsMethods
+<resource: #uiCallback>
+Class packageQuerySignal answer:(selectedProjectDefinition package)
+do:[
+selectedProjectDefinition
+forEachContentsMethodsCodeToCompileDo:[:code :category |
+CodeGeneratorTool
+compile:code
+forClass:selectedProjectDefinition theMetaclass
+inCategory:category.
+]
+ignoreOldDefinition:true
+].
+self updateListOfClassesInProject
+!
+hasApplicationSelected
+^ self selectedApplicationIndexHolder value notNil
+!
+hasBuildDirectorySpecified
+^ self buildDirectoryHolder value notEmptyOrNil
+!
+hasProjectBuilder
+^ projectBuilder notNil
+!
+hasProjectSelected
+^ self selectedProjectIndexHolder value notNil
+!
+hasStartupClassSelected
+^ self selectedStartupClassIndexHolder value notNil
 ! !
 !ProjectBuilderAssistantApplication methodsFor:'queries'!
 canEnterApplicationSelection
 canEnterBuild
 ^ self hasBuildDirectorySpecified
 !
+canEnterContentsSelection
+^ self hasProjectSelected
+and:[ self hasApplicationSelected
+and:[ self hasStartupClassSelected ]]
+!
 canEnterDeploy
 ^ self hasProjectBuilder
 !
 canEnterStartupClassSelection
-^ self hasProjectSelected
+^ self hasProjectSelected and:[ self hasApplicationSelected ]
 ! !
 !ProjectBuilderAssistantApplication methodsFor:'specs'!
 assistantSpec
 ^ #(Array
 ( AssistantPageSpec
 pageTitle: 'Project Type Selection'
 windowSpecSelector: page1_projectTypeSelectionSpec
 enterCallbackSelector: updateListOfMatchingProjects
+infoText: 'Choose the type of project you are about to build.'
 )
 (AssistantPageSpec
 pageTitle: 'Project Selection'
 windowSpecSelector: page2_projectSelectionSpec
 enterCallbackSelector: updateListOfMatchingProjects
+infoText: 'Choose an existing project or create a new one.
+These are subclasses of <I>ProjectDefinition</I> and define the
+type and contents of a project.'
 )
 (AssistantPageSpec
 pageTitle: 'Application Selection'
 windowSpecSelector: page3_applicationSelectionSpec
 isEnabledQuerySelector: #projectTypeIsNotLibrary
 canEnterQuerySelector: #canEnterApplicationSelection
 enterCallbackSelector: updateListOfApplicationsInProject
+infoText: 'Choose an existing application or create a new one.
+These are subclasses of <I>ApplicationModel</I> and define
+the GUI and control flow inside the application.'
 )
 (AssistantPageSpec
 pageTitle: 'Startup Class Selection'
 windowSpecSelector: page4_startupClassSelectionSpec
 isEnabledQuerySelector: #projectTypeIsNotLibrary
 canEnterQuerySelector: #canEnterStartupClassSelection
 enterCallbackSelector: updateListOfStartupClassesInProject
+infoText: 'Choose an existing startup-class or create a new one.
+These are subclasses of <I>StandaloneStartup</I> and
+start the application. Command line arguments can be
+interpreted there.'
 )
 (AssistantPageSpec
 pageTitle: 'Specify Contents'
 windowSpecSelector: page5_specifyIncludedClasses
 enterCallbackSelector: updateListOfClassesInProject
+canEnterQuerySelector: #canEnterContentsSelection
+infoText: 'Define which (other) classes are to be included.
+Press "<I>Scan</I>" to include all classes of the package;
+browse to edit the contents manually.'
 )
 (AssistantPageSpec
 pageTitle: 'Specify Build Directory'
 windowSpecSelector: page6_specifyBuildDirectorySpec
+infoText: 'Define where the build-process is to be performed.
+All generated files are created below that directory.
+After deployment, the build directory is no longer needed
+(but you can keep it for a faster compile the next time).'
 )
 (AssistantPageSpec
 pageTitle: 'Build'
 windowSpecSelector: page7_buildSpec
 canEnterQuerySelector: #canEnterBuild
 enterCallbackSelector: #restoreMakeOutputsContents
 leaveCallbackSelector: #rememberMakeOutputsContents
+infoText: 'Start the build-process. This will run make/bcc to compile
+all required classes and nsis to generate a self-installable
+executable. You must have the borland-cc and NullSoft NSIS
+packages installed for this to work.'
 )
 (AssistantPageSpec
 pageTitle: 'Deploy'
 windowSpecSelector: page8_deploySpec
 canEnterQuerySelector: #canEnterDeploy
+infoText: 'Find the installer to be deployed (or test-run the binary).
+You can open a WindowsExplorer there to copy the files for
+deployment. After that, the build directory is no longer needed
+(but you can keep it for a faster compile the next time).'
 )
 ) decodeAsLiteralArray.
 ! !
 !ProjectBuilderAssistantApplication methodsFor:'update'!
 and:[ cls isSubclassOf:ApplicationModel ])
 ].
 applicationClasses := applicationClasses asOrderedCollection.
 applicationClasses sort:[:a :b | a name < b name].
-startUpClassName := selectedProjectDefinition startupClassName.
+startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ].
 startUpClassName notNil ifTrue:[
 startUpClass := Smalltalk classNamed:startUpClassName.
 startUpClass notNil ifTrue:[
 appClassIndex := applicationClasses indexOf:startUpClass.
 appClassIndex == 0 ifTrue:[ appClassIndex := nil ].
 !
 updateListOfMatchingProjects
 |matching projectType idx|
-projectType := self projectType value.
+projectType := self projectType.
 matching := ProjectDefinition allSubclasses
 select:[:defClass |
 |match|
 match := false.
 defClass isAbstract ifFalse:[
 (self hideSTXProjects value not
 or:[ defClass package asPackageId module ~= 'stx' ])
 ifTrue:[
-projectType == #libraryType ifTrue:[
+projectType == ProjectDefinition libraryType ifTrue:[
 match := defClass isLibraryDefinition
 ] ifFalse:[
-projectType == #guiApplicationType ifTrue:[
+projectType == ProjectDefinition guiApplicationType ifTrue:[
 match := defClass isGUIApplication
 ] ifFalse:[
-projectType == #nonGuiApplicationType ifTrue:[
+projectType == ProjectDefinition nonGuiApplicationType ifTrue:[
 match := defClass isConsoleApplication
 ] ifFalse:[
 self error.
 ].
 ].
 idx == 0 ifTrue:[
 self selectedProjectIndexHolder value:nil.
 ] ifFalse:[
 self selectedProjectIndexHolder value:idx.
 ].
+!
+updateListOfStartupClassesInProject
+|startupClasses package startUpClassName startUpClass startupClassIndex|
+startupClassIndex := nil.
+self selectedStartupClassIndexHolder value:nil.
+selectedProjectDefinition isNil ifTrue:[
+startupClasses := #()
+] ifFalse:[
+package := selectedProjectDefinition package.
+startupClasses := Smalltalk allClasses
+select:[:cls |
+(cls package = package
+and:[ cls isSubclassOf:StandaloneStartup ])
+].
+startupClasses := startupClasses asOrderedCollection.
+startupClasses sort:[:a :b | a name < b name].
+startUpClassName := [ selectedProjectDefinition startupClassName ] ifError:[ nil ].
+startUpClassName notNil ifTrue:[
+startUpClass := Smalltalk classNamed:startUpClassName.
+startUpClass notNil ifTrue:[
+startupClassIndex := startupClasses indexOf:startUpClass.
+startupClassIndex == 0 ifTrue:[ startupClassIndex := nil ].
+].
+].
+].
+self listOfStartupClassesInProject value:startupClasses.
+self selectedStartupClassIndexHolder value:startupClassIndex.
 ! !
 !ProjectBuilderAssistantApplication class methodsFor:'documentation'!
 version_CVS

changeset 2659	bec4c94bc628
parent 2656	491471c26771
child 2668	a762eafe51eb