ProjectDefinition.st
changeset 12570 6587a05b5cd4
parent 12558 1c30499cb772
child 12574 2247be7b9e54
--- 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!