--- a/ProjectChecker.st Thu Jul 26 13:58:48 2012 +0200
+++ b/ProjectChecker.st Thu Jul 26 13:59:15 2012 +0200
@@ -153,7 +153,7 @@
"Checks whether all classes listed in #classNamesAndAttributes are present
and if all present classes are listed"
- |classesInImage classesInDescription onlyInImage onlyInDescription|
+ |classesInImage classesInDescription onlyInDescription|
"WARNING: Copy/paste of ProjectDefinition>>validateDescription"
classesInImage := Smalltalk allClasses select:[:cls | (cls package = self package) and:[cls isPrivate not]].
@@ -200,11 +200,12 @@
].
classesInImage ~= classesInDescription ifTrue:[
- onlyInImage := (classesInImage reject:[:cls | classesInDescription includes:cls]).
- onlyInImage do:[:cls|
- self addProblem:
- (ProjectProblem newClassNotListed className: cls name).
- ].
+ "This is done later in checkClassesListedInProjectDefinition:"
+"/ onlyInImage := (classesInImage reject:[:cls | classesInDescription includes:cls]).
+"/ onlyInImage do:[:cls|
+"/ self addProblem:
+"/ (ProjectProblem newClassNotListed className: cls name).
+"/ ].
onlyInDescription := (classesInDescription reject:[:cls | classesInImage includes:cls]).
onlyInDescription do:[:cls|
self addProblem:
@@ -474,11 +475,11 @@
!ProjectChecker class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.5 2012-07-26 11:42:28 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.6 2012-07-26 11:59:15 vrany Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.5 2012-07-26 11:42:28 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.6 2012-07-26 11:59:15 vrany Exp $'
!
version_SVN