ProjectDefinition.st
changeset 14790 28d875953487
parent 14789 68e2e75dc06c
child 14808 9b6499b3ca93
equal deleted inserted replaced
14789:68e2e75dc06c 14790:28d875953487
  5740 
  5740 
  5741 loadPackages:aListOfPackages asAutoloaded:asAutoloaded
  5741 loadPackages:aListOfPackages asAutoloaded:asAutoloaded
  5742     "load some packages (at least the projectDefinitions and their extensions).
  5742     "load some packages (at least the projectDefinitions and their extensions).
  5743      If asAutoloaded == true, classes will be only installed as autoloaded."
  5743      If asAutoloaded == true, classes will be only installed as autoloaded."
  5744 
  5744 
  5745     |packagesToLoad|
       
  5746 
       
  5747     PackagesBeingLoaded isNil ifTrue:[
  5745     PackagesBeingLoaded isNil ifTrue:[
  5748         PackagesBeingLoaded := Set new
  5746         PackagesBeingLoaded := Set new
  5749     ].
  5747     ].
  5750     Class withoutUpdatingChangesDo:[
  5748     Class withoutUpdatingChangesDo:[
  5751         packagesToLoad do:[:eachPackageID |
  5749         aListOfPackages do:[:eachPackageID |
  5752             |cls|
  5750             |cls|
  5753 
  5751 
  5754             cls := ProjectDefinition definitionClassForPackage:eachPackageID.
  5752             cls := ProjectDefinition definitionClassForPackage:eachPackageID.
  5755             (cls isNil or:[cls projectIsLoaded not]) ifTrue:[                        
  5753             (cls isNil or:[cls projectIsLoaded not]) ifTrue:[                        
  5756                 (PackagesBeingLoaded includes:eachPackageID) ifFalse:[
  5754                 (PackagesBeingLoaded includes:eachPackageID) ifFalse:[
  6735 ! !
  6733 ! !
  6736 
  6734 
  6737 !ProjectDefinition class methodsFor:'documentation'!
  6735 !ProjectDefinition class methodsFor:'documentation'!
  6738 
  6736 
  6739 version
  6737 version
  6740     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.412 2013-02-20 16:02:39 cg Exp $'
  6738     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.413 2013-02-20 16:41:32 cg Exp $'
  6741 !
  6739 !
  6742 
  6740 
  6743 version_CVS
  6741 version_CVS
  6744     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.412 2013-02-20 16:02:39 cg Exp $'
  6742     ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.413 2013-02-20 16:41:32 cg Exp $'
  6745 !
  6743 !
  6746 
  6744 
  6747 version_SVN
  6745 version_SVN
  6748     ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1  §'
  6746     ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1  §'
  6749 ! !
  6747 ! !