equal
deleted
inserted
replaced
2201 self classNamesAndAttributesDo:[:eachClassname :eachAttributes | |eachClassnameSym isAutoload cls| |
2201 self classNamesAndAttributesDo:[:eachClassname :eachAttributes | |eachClassnameSym isAutoload cls| |
2202 eachClassnameSym := eachClassname asSymbol. |
2202 eachClassnameSym := eachClassname asSymbol. |
2203 isAutoload := eachAttributes includes:#autoload. |
2203 isAutoload := eachAttributes includes:#autoload. |
2204 |
2204 |
2205 "no need to (re-)load an existing class, but install if should be loaded" |
2205 "no need to (re-)load an existing class, but install if should be loaded" |
2206 ((cls := Smalltalk loadedClassNamed:eachClassnameSym) isNil |
2206 cls := Smalltalk loadedClassNamed:eachClassnameSym. |
2207 or:[cls isLoaded not and:[isAutoload not]] |
2207 (cls isNil or:[cls isLoaded not and:[isAutoload not]]) ifTrue:[ |
2208 ) ifTrue:[ |
|
2209 (eachAttributes isEmpty |
2208 (eachAttributes isEmpty |
2210 or:[(eachAttributes size == 1 and:[isAutoload]) |
2209 or:[(eachAttributes size == 1 and:[isAutoload]) |
2211 or:[eachAttributes includes:platformName]]) ifTrue:[ |
2210 or:[eachAttributes includes:platformName]]) ifTrue:[ |
2212 hasClassesToLoad := true. |
2211 hasClassesToLoad := true. |
2213 isAutoload ifTrue:[ |
2212 isAutoload ifTrue:[ |
3611 ! ! |
3610 ! ! |
3612 |
3611 |
3613 !ProjectDefinition class methodsFor:'documentation'! |
3612 !ProjectDefinition class methodsFor:'documentation'! |
3614 |
3613 |
3615 version |
3614 version |
3616 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.120 2006-11-21 17:09:45 cg Exp $' |
3615 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.121 2006-11-27 16:19:56 stefan Exp $' |
3617 ! ! |
3616 ! ! |
3618 |
3617 |
3619 ProjectDefinition initialize! |
3618 ProjectDefinition initialize! |