equal
deleted
inserted
replaced
4067 collect: |
4067 collect: |
4068 [:eachName| |
4068 [:eachName| |
4069 |cls| |
4069 |cls| |
4070 |
4070 |
4071 cls := (Smalltalk at:eachName asSymbol). |
4071 cls := (Smalltalk at:eachName asSymbol). |
4072 cls isNil ifTrue:[ |
4072 (cls isNil or:[cls isBehavior not]) ifTrue:[ |
4073 Transcript showCR:('ProjectDefinition: missing class: ', eachName). |
4073 Transcript showCR:('ProjectDefinition: missing/invalid class: ', eachName). |
|
4074 cls := nil. |
4074 ]. |
4075 ]. |
4075 cls. |
4076 cls. |
4076 ] |
4077 ] |
4077 thenSelect:[:cls | cls notNil] |
4078 thenSelect:[:cls | cls notNil] |
4078 |
4079 |
4108 compiled_classNames_common |
4109 compiled_classNames_common |
4109 collect:[:eachName | |
4110 collect:[:eachName | |
4110 |cls| |
4111 |cls| |
4111 |
4112 |
4112 cls := (Smalltalk at:eachName asSymbol). |
4113 cls := (Smalltalk at:eachName asSymbol). |
4113 cls isNil ifTrue:[ |
4114 cls isBehavior ifFalse:[ |
4114 self warn:'Missing class: ',eachName. |
4115 self warn:'Missing/invalid class: ',eachName. |
|
4116 cls := nil. |
4115 ]. |
4117 ]. |
4116 cls |
4118 cls |
4117 ] |
4119 ] |
4118 thenSelect:[:cls| cls notNil "isBehavior"] |
4120 thenSelect:[:cls| cls notNil "isBehavior"] |
4119 |
4121 |
5289 ! ! |
5291 ! ! |
5290 |
5292 |
5291 !ProjectDefinition class methodsFor:'documentation'! |
5293 !ProjectDefinition class methodsFor:'documentation'! |
5292 |
5294 |
5293 version |
5295 version |
5294 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.295 2009-12-17 19:50:36 cg Exp $' |
5296 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.296 2009-12-21 22:46:09 cg Exp $' |
5295 ! |
5297 ! |
5296 |
5298 |
5297 version_CVS |
5299 version_CVS |
5298 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.295 2009-12-17 19:50:36 cg Exp $' |
5300 ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.296 2009-12-21 22:46:09 cg Exp $' |
5299 ! ! |
5301 ! ! |
5300 |
5302 |
5301 ProjectDefinition initialize! |
5303 ProjectDefinition initialize! |