--- 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