--- a/Tools__ProjectBuilderAssistantApplication.st Tue Nov 03 13:46:50 2009 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st Tue Nov 03 20:20:06 2009 +0100
@@ -1165,21 +1165,22 @@
^ self
].
- projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value).
+ self withWaitCursorDo:[
+ projectDefinitionType := ProjectDefinition perform:(self projectTypeHolder value).
- projectDefinitionClass := ProjectDefinition
- definitionClassForPackage:newProjectID
- projectType: projectDefinitionType
- createIfAbsent:true.
+ projectDefinitionClass := ProjectDefinition
+ definitionClassForPackage:newProjectID
+ projectType: projectDefinitionType
+ createIfAbsent:true.
- projectDefinitionClass compileDescriptionMethods.
- self updateListOfMatchingProjects.
- self updateListOfNewProjectsName.
+ projectDefinitionClass compileDescriptionMethods.
+ self updateListOfMatchingProjects.
+ self updateListOfNewProjectsName.
- self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass).
+ self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass).
- projectClasses := projectDefinitionClass allClassNames
- collect:[:nm |Smalltalk classNamed:nm].
+ projectClasses := projectDefinitionClass allClassNames
+ collect:[:nm |Smalltalk classNamed:nm].
"/ projectDefinitionClass isGUIApplication ifTrue:[
"/ "/ see if it has an AppModel class
@@ -1195,6 +1196,8 @@
"/ (projectClasses contains:[:cls | cls isStartable]) ifFalse:[
"/ ].
"/ ].
+
+ ].
!
createNewStartupClass