diff -r dca62d5ae26a -r 1804ff3089d4 Tools__MethodCategoryList.st --- a/Tools__MethodCategoryList.st Wed Mar 09 18:15:54 2016 +0100 +++ b/Tools__MethodCategoryList.st Wed Mar 09 18:16:36 2016 +0100 @@ -1,3 +1,5 @@ +"{ Encoding: utf8 }" + " COPYRIGHT (c) 2000 by eXept Software AG All Rights Reserved @@ -1180,15 +1182,15 @@ ! class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:querySelector - "are there any methods in the protocol cat which reference/modify any inst/class variable in variablesToHighLight ?" + "Are there any methods in the protocol cat which reference/modify any inst/class variable in variablesToHighLight?" - |anyVarNameAccessable| + |anyVarNameAccessible| - anyVarNameAccessable := cls allInstVarNames includesAny:variablesToHighLight. - anyVarNameAccessable ifFalse:[ - anyVarNameAccessable := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight. + anyVarNameAccessible := cls allInstVarNames includesAny:variablesToHighLight. + anyVarNameAccessible ifFalse:[ + anyVarNameAccessible := cls theNonMetaclass allClassVarNames includesAny:variablesToHighLight. ]. - anyVarNameAccessable ifFalse:[ + anyVarNameAccessible ifFalse:[ "/ no need to parse ^ false ].