The Trunk: Protocols-nice.81.mcz

Nicolas Cellier uploaded a new version of Protocols to project The Trunk:
http://source.squeak.org/trunk/Protocols-nice.81.mcz

==================== Summary ====================

Name: Protocols-nice.81
Author: nice
Time: 13 April 2021, 4:44:18.02742 pm
UUID: 1437ca2c-3deb-cc4d-ba31-982555254f5a
Ancestors: Protocols-mt.80

Simplify Symbol lookup.

=============== Diff against Protocols-mt.80 ===============

Item was changed:
  ----- Method: Lexicon>>setSendersSearch (in category 'senders') -----
  setSendersSearch
  "Put up a list of messages sent in the current message, find all methods
  of the browsee which send the one the user chooses, and show that list
  in the message-list pane, with the 'query results' item selected in the
  category-list pane"
  | selectorSet aSelector aString |
  self selectedMessageName
  ifNil: [aString := UIManager default request: 'Type selector to search for' initialAnswer: 'flag:'.
  aString isEmptyOrNil
  ifTrue: [^ self].
+ aSelector := Symbol lookup: aString]
- Symbol
- hasInterned: aString
- ifTrue: [:sel | aSelector := sel]]
  ifNotNil: [self
  selectMessageAndEvaluate: [:sel | aSelector := sel]].
  aSelector
  ifNil: [^ self].
  selectorSet := Set new.
  (self systemNavigation allCallsOn: aSelector)
  do: [:anItem | selectorSet add: anItem methodSymbol].
  selectorSet := selectorSet
  select: [:sel | currentVocabulary
  includesSelector: sel
  forInstance: self targetObject
  ofClass: targetClass
  limitClass: limitClass].
  selectorSet size > 0
  ifTrue: [currentQuery := #senders.
  currentQueryParameter := aSelector.
  self
  categoryListIndex: (categoryList indexOf: self class queryCategoryName).
  self messageListIndex: 0]!