'From Squeak3.5 of ''11 April 2003'' [latest update: #5180] on 5 May 2003 at 9:20:01 am'! "Change Set: KCP-0060-fixAllSelectorsWith Date: 5 May 2003 Author: stephane ducasse fix allselectorWithAny... that was using self systemNavigation but should not!!"! !SystemNavigation methodsFor: 'query' stamp: 'sd 5/5/2003 09:18'! allSelectorsWithAnyImplementorsIn: selectorList "Answer the subset of the given list which represent method selectors which have at least one implementor in the system." | good | good _ OrderedCollection new. self allBehaviorsDo: [:class | selectorList do: [:aSelector | (class includesSelector: aSelector) ifTrue: [good add: aSelector]]]. ^ good asSet asSortedArray" SystemNavigation new selectorsWithAnyImplementorsIn: #( contents contents: nuts) "! !