--- a/Tools__ProjectBuilderAssistantApplication.st Fri Mar 25 19:36:53 2016 +0100
+++ b/Tools__ProjectBuilderAssistantApplication.st Fri Mar 25 22:51:02 2016 +0100
@@ -3504,11 +3504,12 @@
updateListOfNewProjectsName
|loadedProjectIDsWithoutProjectDefinition|
- loadedProjectIDsWithoutProjectDefinition := Smalltalk allLoadedProjectIDs
- select:[:eachProjectID |
- eachProjectID ~= PackageId noProjectID
- and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ].
- ].
+ loadedProjectIDsWithoutProjectDefinition :=
+ Smalltalk allLoadedPackageIDs
+ select:[:eachPackageID |
+ eachPackageID ~= PackageId noProjectID
+ and:[ (ProjectDefinition definitionClassForPackage: eachPackageID) isNil ].
+ ].
loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection.
loadedProjectIDsWithoutProjectDefinition
addFirst:(UserPreferences current usersModuleName "OperatingSystem getLoginName",':','demos','/','demo1').