equal
deleted
inserted
replaced
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 |