--- a/ProjectChecker.st Thu Jul 03 20:32:30 2014 +0200
+++ b/ProjectChecker.st Thu Jul 03 20:32:36 2014 +0200
@@ -577,8 +577,20 @@
classesToCheck := classes notNil ifTrue:[ classes ] ifFalse:[ Smalltalk allClasses ].
classesToCheck := classesToCheck select:[:each | each package = currentPackage ].
+
+ (currentPackageDef notNil and:[currentPackageDef isFolderForProjectsDefinition]) ifTrue:[
+ classesToCheck remove:currentPackageDef ifAbsent:[]
+ ].
+
self checkClasses: classesToCheck.
+ (currentPackageDef notNil and:[currentPackageDef isFolderForProjectsDefinition]) ifTrue:[
+ classesToCheck do:[:eachClass |
+ self addProblem:
+ (ProjectProblem newClassShouldNotBeInPackage className: eachClass name).
+ ].
+ ].
+
"Created: / 11-01-2012 / 16:55:48 / Jan Vrany <jan.vrany@fit.cvut.cz>"
"Modified: / 04-04-2014 / 13:00:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -651,6 +663,8 @@
!
checkPackage
+ (currentPackageDef notNil and:[currentPackageDef isFolderForProjectsDefinition]) ifTrue:[^ self].
+
(checkExtensionsOnly ? false) ifFalse:[
self checkClassListConsistency.
].
@@ -696,14 +710,14 @@
!ProjectChecker class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.23 2014-05-29 16:16:59 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.24 2014-07-03 18:32:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.23 2014-05-29 16:16:59 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.24 2014-07-03 18:32:36 cg Exp $'
!
version_SVN
- ^ '$Id: ProjectChecker.st,v 1.23 2014-05-29 16:16:59 vrany Exp $'
+ ^ '$Id: ProjectChecker.st,v 1.24 2014-07-03 18:32:36 cg Exp $'
! !