4823 |
4823 |
4824 loadPackages:aListOfPackages asAutoloaded:asAutoloaded |
4824 loadPackages:aListOfPackages asAutoloaded:asAutoloaded |
4825 "load some packages (at least the projectDefinitions and their extensions). |
4825 "load some packages (at least the projectDefinitions and their extensions). |
4826 If asAutoloaded == true, classes will be only installed as autoloaded." |
4826 If asAutoloaded == true, classes will be only installed as autoloaded." |
4827 |
4827 |
4828 |packagesBefore| |
4828 |packagesToLoad packagesBefore| |
|
4829 |
|
4830 packagesToLoad := aListOfPackages |
|
4831 reject:[:packageID | |
|
4832 |cls| |
|
4833 |
|
4834 cls := ProjectDefinition definitionClassForPackage:packageID. |
|
4835 cls notNil and:[cls isFullyLoaded] |
|
4836 ]. |
|
4837 packagesToLoad isEmpty ifTrue:[^ self]. |
4829 |
4838 |
4830 packagesBefore := PackagesBeingLoaded copy. |
4839 packagesBefore := PackagesBeingLoaded copy. |
4831 PackagesBeingLoaded isNil ifTrue:[ |
4840 PackagesBeingLoaded isNil ifTrue:[ |
4832 PackagesBeingLoaded := Set new |
4841 PackagesBeingLoaded := Set new |
4833 ]. |
4842 ]. |
4834 [ |
4843 [ |
4835 Class withoutUpdatingChangesDo:[ |
4844 Class withoutUpdatingChangesDo:[ |
4836 aListOfPackages do:[:aPackage | |
4845 packagesToLoad do:[:aPackage | |
4837 |def| |
4846 |def| |
4838 |
4847 |
4839 (PackagesBeingLoaded includes:aPackage) ifFalse:[ |
4848 (PackagesBeingLoaded includes:aPackage) ifFalse:[ |
4840 PackagesBeingLoaded add:aPackage. |
4849 PackagesBeingLoaded add:aPackage. |
4841 |
4850 |
5432 ! ! |
5443 ! ! |
5433 |
5444 |
5434 !ProjectDefinition class methodsFor:'documentation'! |
5445 !ProjectDefinition class methodsFor:'documentation'! |
5435 |
5446 |
5436 version |
5447 version |
5437 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.324 2010-11-30 17:25:25 cg Exp $' |
5448 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.325 2010-12-09 11:32:13 cg Exp $' |
5438 ! |
5449 ! |
5439 |
5450 |
5440 version_CVS |
5451 version_CVS |
5441 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.324 2010-11-30 17:25:25 cg Exp $' |
5452 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.325 2010-12-09 11:32:13 cg Exp $' |
5442 ! ! |
5453 ! ! |
5443 |
5454 |
5444 ProjectDefinition initialize! |
5455 ProjectDefinition initialize! |