ProjectChecker.st
changeset 3589 ec7033799261
parent 3570 52c403d0b881
child 3607 c7bfc08cd1f3
--- 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 $'
 ! !