--- a/ProjectChecker.st Wed Jan 11 19:27:30 2012 +0100
+++ b/ProjectChecker.st Wed Jan 11 19:56:12 2012 +0100
@@ -89,8 +89,6 @@
"Checks whether all classes listed in #classNamesAndAttributes are present
and if all present classes are listed"
- <check: #package>
-
|classesInImage classesInDescription missingPools onlyInImage onlyInDescription|
"WARNING: Copy/paste of ProjectDefinition>>validateDescription"
@@ -182,26 +180,11 @@
severity: #error.
^self
].
+ self checkClassListConsistency.
+ "add more here..."
- self checksForScope: #package do:[:selector|
- self perform: selector withOptionalArgument: package.
- ]
"Created: / 11-01-2012 / 16:55:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-checksForScope: scope do: block
- "Iterates over all checks for given scope and evaluates block with
- check selector"
- self class selectorsAndMethodsDo:[:sel :mth|
- | annotation |
- annotation := mth annotationAt:#check:.
- (annotation notNil and:[(annotation argumentAt: 1) == scope]) ifTrue:[
- block value: sel
- ]
- ]
-
- "Created: / 11-01-2012 / 17:07:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!ProjectChecker methodsFor:'reporting'!
@@ -265,9 +248,9 @@
!ProjectChecker class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.1 2012-01-11 18:20:41 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.2 2012-01-11 18:56:12 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.1 2012-01-11 18:20:41 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.2 2012-01-11 18:56:12 vrany Exp $'
! !