--- a/Tools__ClassChecker.st Sun Jul 16 13:38:25 2017 +0200
+++ b/Tools__ClassChecker.st Sun Jul 16 14:04:55 2017 +0200
@@ -148,9 +148,15 @@
!ClassChecker methodsFor:'checks-individual'!
checkProtocols
+ |allOK|
+
+ allOK := true.
checkedClass instAndClassSelectorsAndMethodsDo:[:mSelector :method |
- self checkProtocolOf:method
- ]
+ allOK := allOK & (self checkProtocolOf:method)
+ ].
+ ^ allOK
+
+ "Modified: / 16-07-2017 / 13:57:39 / cg"
!
checkVariableNameConventions
@@ -649,9 +655,11 @@
key:#checkProtocols
info:('#' , mSelector allBold , ' is classified under "' , protocol allBold , '" in '
, mClass name , ' and under "' , superProtocol allBold , '" in ' , implClass name
- , ' (#checkProtocols)')
+ , ' (#checkProtocols)').
- "Modified: / 18.8.2000 / 23:13:53 / cg"
+ ^ false
+
+ "Modified: / 16-07-2017 / 13:55:55 / cg"
!
checkUnusedVariables:aMethod rememberReadInstVarsIn:readInstVars writtenInstVarsIn:writtenInstVars readClassVarsIn:readClassVars writtenClassVarsIn:writtenClassVars