Eliot Miranda uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-eem.482.mcz
==================== Summary ====================
Name: System-eem.482 Author: eem Time: 8 April 2012, 2:10:18.095 pm UUID: 257a71d2-4234-44f4-9646-bbd06b7fb551 Ancestors: System-eem.481
allMethodsSelect:localTo: aClass
=============== Diff against System-eem.481 ===============
Item was added: + ----- Method: SystemNavigation>>allMethodsSelect:localTo: (in category 'query') ----- + allMethodsSelect: aBlock localTo: aClass + "Answer a SortedCollection of each methodr in, above, or below the given + class that, when used as the argument to aBlock, gives a true result." + + | aSet | + aSet := Set new. + Cursor wait showWhile: + [aClass theNonMetaClass withAllSuperAndSubclassesDoGently: + [:class | + class selectorsAndMethodsDo: + [:aSelector :aMethod| + (aBlock value: aMethod) ifTrue: + [aSet add: (MethodReference new setStandardClass: class methodSymbol: aSelector)]]]. + aClass theNonMetaClass class withAllSuperAndSubclassesDoGently: + [:class | + class selectorsAndMethodsDo: + [:aSelector :aMethod| + (aBlock value: aMethod) ifTrue: + [aSet add: (MethodReference new setStandardClass: class methodSymbol: aSelector)]]]]. + ^aSet!
Item was added: + ----- Method: SystemNavigation>>browseAllSelect:localTo: (in category 'browse') ----- + browseAllSelect: aBlock localTo: aClass + "Create and schedule a message browser on each method in or below the given class + that, when used as the block argument to aBlock gives a true result. For example, + SystemNavigation default browseAllSelect: [:m | m numLiterals > 10] localTo: Morph." + aClass ifNil: [^self inform: 'no class selected']. + ^self + browseMessageList: (self allMethodsSelect: aBlock localTo: aClass) asSortedCollection + name: 'selected messages local to ', aClass name!
squeak-dev@lists.squeakfoundation.org