- ProjectChecker jv
authorJan Vrany <jan.vrany@fit.cvut.cz>
Tue, 18 Sep 2012 01:10:00 +0100
branchjv
changeset 3085 01e9d0823966
parent 3084 0288b25613a9
child 3086 3f49d76fe87b
- ProjectChecker comment/format in: #checkMethodSourceCode: changed: #version_SVN
ProjectChecker.st
--- a/ProjectChecker.st	Fri Sep 14 13:40:31 2012 +0100
+++ b/ProjectChecker.st	Tue Sep 18 01:10:00 2012 +0100
@@ -93,12 +93,6 @@
     "Created: / 11-01-2012 / 16:46:38 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!ProjectChecker class methodsFor:'others'!
-
-version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.7 2012/09/13 17:19:19 vrany Exp $'
-! !
-
 !ProjectChecker methodsFor:'accessing'!
 
 classes: aCollection
@@ -432,7 +426,7 @@
 checkMethodSourceCode: method
     "Checks, whether method's source code is both
      available and parseable. Return true if the code
-     is syntactically corret, false otherwise"
+     is syntactically correct, false otherwise"
 
     | source |
 
@@ -443,6 +437,8 @@
             (ProjectProblem newMethodSourceNotAvailable method: method).
         ^false
     ].
+    method programmingLanguage isSmalltalk ifFalse:[ ^ false ].
+
     [
         (Parser parseMethod: method source) == #Error ifTrue:[
             self addProblem:
@@ -561,9 +557,13 @@
 !ProjectChecker class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.7 2012/09/13 17:19:19 vrany Exp $'
+    ^ '$Id: ProjectChecker.st 1967 2012-09-18 00:10:00Z vranyj1 $'
+!
+
+version_CVS
+    ^ '§Header: /cvs/stx/stx/libbasic3/ProjectChecker.st,v 1.8 2012-09-18 01:10:30 +0100 vrany Exp §'
 !
 
 version_SVN
-    ^ '§Id: ProjectChecker.st 1960 2012-09-07 10:45:07Z vranyj1 §'
+    ^ '$Id:: ProjectChecker.st 1967 2012-09-18 00:10:00Z vranyj1                                                                    $'
 ! !