# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1458942662 -3600
# Node ID 088a9b9b87e4c01ec94165c85befa233047759ca
# Parent  175d2d7e95c5c09bd6f2ccf638a6347bf1a78a24
#REFACTORING
class: Tools::ProjectBuilderAssistantApplication
changed: #updateListOfNewProjectsName

diff -r 175d2d7e95c5 -r 088a9b9b87e4 Tools__ProjectBuilderAssistantApplication.st
--- 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').