ProjectChecker.st
branchjv
changeset 3407 989191014bcd
parent 3405 cec1fd1367ce
child 3838 474d8ec95b33
--- a/ProjectChecker.st	Fri Sep 27 23:47:49 2013 +0100
+++ b/ProjectChecker.st	Sat Oct 05 12:51:21 2013 +0100
@@ -273,15 +273,23 @@
                     | superDef superNm |
 
                     superDef := ProjectDefinition definitionClassForPackage: cls superclass package.
-                    superNm := cls superclass name.
-                    superDef classNamesAndAttributesDo:[:clsnm2 :attributes2|
-                        clsnm2 == superNm ifTrue:[
-                            (attributes2 includes: #autoload) ifTrue:[
-                                problems add:
-                                    (ProjectProblem newClassIsCompiledButSuperclassIsAutoloaded
-                                        package: package;
-                                        className: clsnm;
-                                        yourself)
+                    superDef isNil ifTrue:[
+                        problems add:
+                            (ProjectProblem newClassIsCompiledButSuperclassProjectDefinitionIsMissing
+                                            package: package;
+                                            className: clsnm;
+                                            yourself)   
+                    ] ifFalse:[
+                        superNm := cls superclass name.
+                        superDef classNamesAndAttributesDo:[:clsnm2 :attributes2|
+                            clsnm2 == superNm ifTrue:[
+                                (attributes2 includes: #autoload) ifTrue:[
+                                    problems add:
+                                        (ProjectProblem newClassIsCompiledButSuperclassIsAutoloaded
+                                            package: package;
+                                            className: clsnm;
+                                            yourself)
+                                ].
                             ].
                         ].
                     ]
@@ -291,6 +299,7 @@
     ].
 
     "Created: / 20-09-2013 / 11:08:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 05-10-2013 / 12:45:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 checkClassesForMethodsInNoProject:classesToCheck