Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
care for missing classes
authorClaus Gittinger <cg@exept.de>
Mon, 16 Feb 2009 14:29:11 +0100
changeset 11562 3098b35d1b53
parent 11561 8d74372ce585
child 11563 a91c8d348760
care for missing classes
ProjectDefinition.st file | annotate | diff | comparison | revisions 
--- a/ProjectDefinition.st	Mon Feb 16 14:28:41 2009 +0100
+++ b/ProjectDefinition.st	Mon Feb 16 14:29:11 2009 +0100
@@ -3303,8 +3303,16 @@
 compiled_classes_common
     ^ self 
         compiled_classNames_common 
-            collect:[:eachName| (Smalltalk at:eachName asSymbol)]
-"/            thenSelect:[:cls| cls isBehavior]
+            collect:[:eachName | 
+                |cls|
+
+                cls := (Smalltalk at:eachName asSymbol).
+                cls isNil ifTrue:[
+                    self warn:'Missing class: ',eachName.
+                ].
+                cls
+            ]
+            thenSelect:[:cls| cls notNil "isBehavior"]
 
     "Created: / 09-08-2006 / 16:28:15 / fm"
     "Modified: / 09-08-2006 / 18:02:28 / fm"
@@ -4127,7 +4135,7 @@
 !ProjectDefinition class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.211 2009-02-13 11:16:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ProjectDefinition.st,v 1.212 2009-02-16 13:29:11 cg Exp $'
 ! !
 
 ProjectDefinition initialize!
hg/stx-libbasic