Tools__ProjectBuilderAssistantApplication.st
changeset 3257 088a9b9b87e4
parent 3255 aa71a6bedaee
child 3295 cfc396fb8c98
equal deleted inserted replaced
3256:175d2d7e95c5 3257:088a9b9b87e4
  3502 !
  3502 !
  3503 
  3503 
  3504 updateListOfNewProjectsName
  3504 updateListOfNewProjectsName
  3505     |loadedProjectIDsWithoutProjectDefinition|
  3505     |loadedProjectIDsWithoutProjectDefinition|
  3506 
  3506 
  3507     loadedProjectIDsWithoutProjectDefinition := Smalltalk allLoadedProjectIDs 
  3507     loadedProjectIDsWithoutProjectDefinition := 
  3508                                                             select:[:eachProjectID | 
  3508         Smalltalk allLoadedPackageIDs 
  3509                                                                 eachProjectID ~= PackageId noProjectID 
  3509             select:[:eachPackageID | 
  3510                                                                 and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ].
  3510                 eachPackageID ~= PackageId noProjectID 
  3511                                                             ].
  3511                 and:[ (ProjectDefinition definitionClassForPackage: eachPackageID) isNil ].
       
  3512             ].
  3512     loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection.
  3513     loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection.
  3513     loadedProjectIDsWithoutProjectDefinition 
  3514     loadedProjectIDsWithoutProjectDefinition 
  3514         addFirst:(UserPreferences current usersModuleName "OperatingSystem getLoginName",':','demos','/','demo1').
  3515         addFirst:(UserPreferences current usersModuleName "OperatingSystem getLoginName",':','demos','/','demo1').
  3515     self listOfNewProjectsName value:loadedProjectIDsWithoutProjectDefinition.
  3516     self listOfNewProjectsName value:loadedProjectIDsWithoutProjectDefinition.
  3516 
  3517