equal
deleted
inserted
replaced
146 ! ! |
146 ! ! |
147 |
147 |
148 !ClassChecker methodsFor:'checks-individual'! |
148 !ClassChecker methodsFor:'checks-individual'! |
149 |
149 |
150 checkProtocols |
150 checkProtocols |
|
151 |allOK| |
|
152 |
|
153 allOK := true. |
151 checkedClass instAndClassSelectorsAndMethodsDo:[:mSelector :method | |
154 checkedClass instAndClassSelectorsAndMethodsDo:[:mSelector :method | |
152 self checkProtocolOf:method |
155 allOK := allOK & (self checkProtocolOf:method) |
153 ] |
156 ]. |
|
157 ^ allOK |
|
158 |
|
159 "Modified: / 16-07-2017 / 13:57:39 / cg" |
154 ! |
160 ! |
155 |
161 |
156 checkVariableNameConventions |
162 checkVariableNameConventions |
157 |badInstVars badClassVars| |
163 |badInstVars badClassVars| |
158 |
164 |
647 self |
653 self |
648 rememberBadMethod:aMethod |
654 rememberBadMethod:aMethod |
649 key:#checkProtocols |
655 key:#checkProtocols |
650 info:('#' , mSelector allBold , ' is classified under "' , protocol allBold , '" in ' |
656 info:('#' , mSelector allBold , ' is classified under "' , protocol allBold , '" in ' |
651 , mClass name , ' and under "' , superProtocol allBold , '" in ' , implClass name |
657 , mClass name , ' and under "' , superProtocol allBold , '" in ' , implClass name |
652 , ' (#checkProtocols)') |
658 , ' (#checkProtocols)'). |
653 |
659 |
654 "Modified: / 18.8.2000 / 23:13:53 / cg" |
660 ^ false |
|
661 |
|
662 "Modified: / 16-07-2017 / 13:55:55 / cg" |
655 ! |
663 ! |
656 |
664 |
657 checkUnusedVariables:aMethod rememberReadInstVarsIn:readInstVars writtenInstVarsIn:writtenInstVars readClassVarsIn:readClassVars writtenClassVarsIn:writtenClassVars |
665 checkUnusedVariables:aMethod rememberReadInstVarsIn:readInstVars writtenInstVarsIn:writtenInstVars readClassVarsIn:readClassVars writtenClassVarsIn:writtenClassVars |
658 |p mClass sourceString| |
666 |p mClass sourceString| |
659 |
667 |