--- a/ProjectChecker.st Wed Feb 15 22:11:26 2017 +0100
+++ b/ProjectChecker.st Tue Feb 21 16:18:44 2017 +0100
@@ -231,12 +231,15 @@
].
(eachClass superclass notNil "/Care about classes with nil superclass - Object & Autoload
- and:[eachClass superclass package == eachClass package]) ifTrue:[
+ and:[eachClass superclass package == eachClass package]
+ ) ifTrue:[
(classesInDescriptionChecked includes: eachClass superclass) ifFalse:[
- self addProblem:
- (ProjectProblem newClassListedBeforeItsSuperclass
- className: eachClass name;
- superClassName: eachClass superclass name)
+ ((currentPackageDef autoloaded_classNames) includes:eachClass name) ifFalse:[
+ self addProblem:
+ (ProjectProblem newClassListedBeforeItsSuperclass
+ className: eachClass name;
+ superClassName: eachClass superclass name)
+ ].
].
].
eachClass sharedPools do:[:eachPool|
@@ -269,6 +272,7 @@
"Created: / 11-01-2012 / 17:14:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 22-02-2014 / 21:46:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 21-02-2017 / 16:17:46 / cg"
!
checkClassesAutoloadedSuperclasse: aCollection"of Class"