--- a/Tools__ProjectBuilderAssistantApplication.st Wed Aug 03 10:59:52 2011 +0200
+++ b/Tools__ProjectBuilderAssistantApplication.st Sat Aug 06 15:48:10 2011 +0200
@@ -1429,8 +1429,7 @@
self selectedProjectIndexHolder value:( self listOfMatchingProjects value indexOf:projectDefinitionClass).
- projectClasses := projectDefinitionClass allClassNames
- collect:[:nm |Smalltalk classNamed:nm].
+ projectClasses := projectDefinitionClass allClasses.
"/ projectDefinitionClass isGUIApplication ifTrue:[
"/ "/ see if it has an AppModel class
@@ -1448,6 +1447,8 @@
"/ ].
].
+
+ "Modified: / 06-08-2011 / 15:48:01 / cg"
!
createNewStartupClass