comment/format in:
#class:protocol:includesModsOfClassVariable:
#class:protocol:includesModsOfInstanceVariable:
#class:protocol:includesRefsToClassVariable:
#class:protocol:includesRefsToInstanceVariable:
changed: #class:protocol:includesRefsToVariable:askParserWith:
--- a/Tools_MethodCategoryList.st Wed Nov 11 17:54:02 2009 +0100
+++ b/Tools_MethodCategoryList.st Wed Nov 11 21:00:17 2009 +0100
@@ -14,31 +14,31 @@
"{ NameSpace: Tools }"
BrowserList subclass:#MethodCategoryList
- instanceVariableNames:'variableFilter filterClassVars lastSelectedProtocols classes
- leafClasses protocolList rawProtocolList selectedProtocolIndices
- lastGeneratedProtocols packageFilterOnInput
- methodVisibilityHolder noAllItem noPseudoItems
- showPseudoProtocols'
- classVariableNames:'AdditionalEmptyCategoriesPerClassName MethodInfoCache
- MethodInfoCacheAccessLock'
- poolDictionaries:''
- category:'Interface-Browsers-New'
+ instanceVariableNames:'variableFilter filterClassVars lastSelectedProtocols classes
+ leafClasses protocolList rawProtocolList selectedProtocolIndices
+ lastGeneratedProtocols packageFilterOnInput
+ methodVisibilityHolder noAllItem noPseudoItems
+ showPseudoProtocols'
+ classVariableNames:'AdditionalEmptyCategoriesPerClassName MethodInfoCache
+ MethodInfoCacheAccessLock'
+ poolDictionaries:''
+ category:'Interface-Browsers-New'
!
Object subclass:#CachedMethodInfo
- instanceVariableNames:'flags'
- classVariableNames:'FlagObsolete FlagSendsSuper FlagIsUncommented
- FlagIsDocumentationMethod FlagIsLongMethod FlagIsExtension
- FlagIsRedefine FlagIsOverride FlagIsSubclassResponsibility'
- poolDictionaries:''
- privateIn:MethodCategoryList
+ instanceVariableNames:'flags'
+ classVariableNames:'FlagObsolete FlagSendsSuper FlagIsUncommented
+ FlagIsDocumentationMethod FlagIsLongMethod FlagIsExtension
+ FlagIsRedefine FlagIsOverride FlagIsSubclassResponsibility'
+ poolDictionaries:''
+ privateIn:MethodCategoryList
!
Method variableSubclass:#MissingMethod
- instanceVariableNames:'selector'
- classVariableNames:''
- poolDictionaries:''
- privateIn:MethodCategoryList
+ instanceVariableNames:'selector'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:MethodCategoryList
!
!MethodCategoryList class methodsFor:'documentation'!
@@ -970,22 +970,32 @@
!
class:cls protocol:cat includesModsOfClassVariable:variablesToHighLight
+ "are there any methods in the protocol cat which modify any class variable in variablesToHighLight ?"
+
^ self class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:#modifiedClassVars
!
class:cls protocol:cat includesModsOfInstanceVariable:variablesToHighLight
+ "are there any methods in the protocol cat which modify any inst variable in variablesToHighLight ?"
+
^ self class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:#modifiedInstVars
!
class:cls protocol:cat includesRefsToClassVariable:variablesToHighLight
+ "are there any methods in the protocol cat which reference any class variable in variablesToHighLight ?"
+
^ self class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:#usedClassVars
!
class:cls protocol:cat includesRefsToInstanceVariable:variablesToHighLight
+ "are there any methods in the protocol cat which reference any inst variable in variablesToHighLight ?"
+
^ self class:cls protocol:cat includesRefsToVariable:variablesToHighLight askParserWith:#usedInstVars
!
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 ?"
+
|anyVarNameAccessable|
anyVarNameAccessable := cls allInstVarNames includesAny:variablesToHighLight.
@@ -1753,11 +1763,11 @@
!MethodCategoryList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.51 2009-10-29 17:56:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.52 2009-11-11 20:00:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.51 2009-10-29 17:56:10 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools_MethodCategoryList.st,v 1.52 2009-11-11 20:00:17 cg Exp $'
! !
MethodCategoryList initialize!