GTSpotter>>spotterSelectorsFor: aStep
�� �� <spotterOrder: 0>
| processor |
processor := aStep listProcessor.
processor
title: 'Selectors';
filter: [ :originalQuery :stream |
|query selectors |
query := originalQuery trimBoth asLowercase.
query isEmpty ifFalse: [
selectors := Set new.
SystemNavigation default allBehaviorsDo: [:class |��
class selectorsDo:[ :selector |��
((selectors includes: selector) not and: [ selector beginsWith: query ]) ifTrue: [
selectors add: selector.
selectors size > 5 ifFalse: [��
stream addObject: selector inProcessor: processor ]]]].
selectors ] ];
actLogic: [ :each | self systemNavigation browseAllImplementorsOf: each ]