equal
deleted
inserted
replaced
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| |
5745 |packagesToLoad| |
5746 |
5746 |
5747 packagesToLoad := aListOfPackages |
|
5748 reject:[:packageID | |
|
5749 |cls| |
|
5750 |
|
5751 cls := ProjectDefinition definitionClassForPackage:packageID. |
|
5752 cls notNil and:[cls projectIsLoaded] |
|
5753 ]. |
|
5754 packagesToLoad isEmpty ifTrue:[^ self]. |
|
5755 |
|
5756 PackagesBeingLoaded isNil ifTrue:[ |
5747 PackagesBeingLoaded isNil ifTrue:[ |
5757 PackagesBeingLoaded := Set new |
5748 PackagesBeingLoaded := Set new |
5758 ]. |
5749 ]. |
5759 Class withoutUpdatingChangesDo:[ |
5750 Class withoutUpdatingChangesDo:[ |
5760 packagesToLoad do:[:eachPackageID | |
5751 packagesToLoad do:[:eachPackageID | |
6744 ! ! |
6735 ! ! |
6745 |
6736 |
6746 !ProjectDefinition class methodsFor:'documentation'! |
6737 !ProjectDefinition class methodsFor:'documentation'! |
6747 |
6738 |
6748 version |
6739 version |
6749 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.411 2013-02-08 19:01:15 stefan Exp $' |
6740 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.412 2013-02-20 16:02:39 cg Exp $' |
6750 ! |
6741 ! |
6751 |
6742 |
6752 version_CVS |
6743 version_CVS |
6753 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.411 2013-02-08 19:01:15 stefan Exp $' |
6744 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.412 2013-02-20 16:02:39 cg Exp $' |
6754 ! |
6745 ! |
6755 |
6746 |
6756 version_SVN |
6747 version_SVN |
6757 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6748 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6758 ! ! |
6749 ! ! |