Tools__ProjectBuilderAssistantApplication.st
changeset 3232 f37d0ca8148d
parent 3156 3107c90eabf2
child 3255 aa71a6bedaee
equal deleted inserted replaced
3231:1ac976f4c08d 3232:f37d0ca8148d
       
     1 "{ Encoding: utf8 }"
       
     2 
     1 "
     3 "
     2  COPYRIGHT (c) 2009 by eXept Software AG
     4  COPYRIGHT (c) 2009 by eXept Software AG
     3               All Rights Reserved
     5               All Rights Reserved
     4 
     6 
     5  This software is furnished under a license and may be used
     7  This software is furnished under a license and may be used
  3528                                                             select:[:eachProjectID | 
  3530                                                             select:[:eachProjectID | 
  3529                                                                 eachProjectID ~= PackageId noProjectID 
  3531                                                                 eachProjectID ~= PackageId noProjectID 
  3530                                                                 and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ].
  3532                                                                 and:[ (ProjectDefinition definitionClassForPackage: eachProjectID) isNil ].
  3531                                                             ].
  3533                                                             ].
  3532     loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection.
  3534     loadedProjectIDsWithoutProjectDefinition := loadedProjectIDsWithoutProjectDefinition asOrderedCollection.
  3533     loadedProjectIDsWithoutProjectDefinition addFirst:(OperatingSystem getLoginName,':','demos','/','demo1').
  3535     loadedProjectIDsWithoutProjectDefinition 
       
  3536         addFirst:(UserPreferences current usersModuleName "OperatingSystem getLoginName",':','demos','/','demo1').
  3534     self listOfNewProjectsName value:loadedProjectIDsWithoutProjectDefinition.
  3537     self listOfNewProjectsName value:loadedProjectIDsWithoutProjectDefinition.
  3535 
  3538 
  3536     "Modified: / 20-08-2012 / 19:31:35 / cg"
  3539     "Modified: / 20-08-2012 / 19:31:35 / cg"
  3537 !
  3540 !
  3538 
  3541