--- a/ProjectDefinition.st Mon Nov 30 17:57:29 2009 +0100
+++ b/ProjectDefinition.st Mon Nov 30 18:07:01 2009 +0100
@@ -4297,8 +4297,12 @@
|eachPoolClass|
eachPoolClass := Smalltalk classNamed:eachPoolName.
- eachPoolClass withAllSuperclassesDo:[:eachPoolSuperClass |
- addPackage value:(eachPoolSuperClass package)
+ eachPoolClass isNil ifTrue:[
+ Transcript showCR:('Warning: missing pool: %1 (required by %2)' bindWith:eachPoolName with:cls name)
+ ] ifFalse:[
+ eachPoolClass withAllSuperclassesDo:[:eachPoolSuperClass |
+ addPackage value:(eachPoolSuperClass package)
+ ]
]
].
].
@@ -5203,11 +5207,11 @@
!ProjectDefinition class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.290 2009-11-18 18:09:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.291 2009-11-30 17:07:01 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.290 2009-11-18 18:09:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.291 2009-11-30 17:07:01 cg Exp $'
! !
ProjectDefinition initialize!