equal
deleted
inserted
replaced
5729 PackagesBeingLoaded isNil ifTrue:[ |
5729 PackagesBeingLoaded isNil ifTrue:[ |
5730 PackagesBeingLoaded := Set new |
5730 PackagesBeingLoaded := Set new |
5731 ]. |
5731 ]. |
5732 [ |
5732 [ |
5733 Class withoutUpdatingChangesDo:[ |
5733 Class withoutUpdatingChangesDo:[ |
5734 packagesToLoad do:[:aPackage | |
5734 packagesToLoad do:[:eachPackageID | |
5735 (PackagesBeingLoaded includes:aPackage) ifFalse:[ |
5735 |cls| |
5736 PackagesBeingLoaded add:aPackage. |
5736 |
5737 Smalltalk loadPackage:aPackage asAutoloaded:asAutoloaded. |
5737 cls := ProjectDefinition definitionClassForPackage:eachPackageID. |
|
5738 (cls isNil or:[cls projectIsLoaded not]) ifTrue:[ |
|
5739 (PackagesBeingLoaded includes:eachPackageID) ifFalse:[ |
|
5740 PackagesBeingLoaded add:eachPackageID. |
|
5741 Smalltalk loadPackage:eachPackageID asAutoloaded:asAutoloaded. |
|
5742 ] |
5738 ] |
5743 ] |
5739 ]. |
5744 ]. |
5740 ]. |
5745 ]. |
5741 ] ensure:[ |
5746 ] ensure:[ |
5742 PackagesBeingLoaded := packagesBefore. |
5747 PackagesBeingLoaded := packagesBefore. |
6712 ! ! |
6717 ! ! |
6713 |
6718 |
6714 !ProjectDefinition class methodsFor:'documentation'! |
6719 !ProjectDefinition class methodsFor:'documentation'! |
6715 |
6720 |
6716 version |
6721 version |
6717 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.396 2012-11-07 16:47:54 cg Exp $' |
6722 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.397 2012-11-21 16:57:05 cg Exp $' |
6718 ! |
6723 ! |
6719 |
6724 |
6720 version_CVS |
6725 version_CVS |
6721 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.396 2012-11-07 16:47:54 cg Exp $' |
6726 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.397 2012-11-21 16:57:05 cg Exp $' |
6722 ! |
6727 ! |
6723 |
6728 |
6724 version_SVN |
6729 version_SVN |
6725 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6730 ^ '§ Id: ProjectDefinition.st 10645 2011-06-09 15:28:45Z vranyj1 §' |
6726 ! ! |
6731 ! ! |