The Trunk: Tools-nice.1038.mcz

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

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

Name: Tools-nice.1038
Author: nice
Time: 13 April 2021, 6:00:43.25042 pm
UUID: 72d3e1ab-053b-5543-9dea-b96259cb2911
Ancestors: Tools-nice.1037

Simplify Symbol lookup

=============== Diff against Tools-nice.1037 ===============

Item was changed:
  ----- Method: SelectorBrowser>>selectedMessageName (in category 'accessing') -----
  selectedMessageName
+ "Answer the name of the currently selected message or nil if not a known Symbol."
- "Answer the name of the currently selected message."
 
  | example tokens |
  selectorIndex = 0 ifTrue: [^nil].
  example := selectorList at: selectorIndex.
  tokens := Scanner new scanTokens: example.
  tokens size = 1 ifTrue: [^ tokens first].
  tokens first == #'^' ifTrue: [^ nil].
  (tokens second includes: $:) ifTrue: [^ example findSelector].
+ ^Symbol lookup: tokens second!
- Symbol hasInterned: tokens second ifTrue: [:aSymbol | ^ aSymbol].
- ^ nil!