The Trunk: Tools-eem.1017.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Tools-eem.1017.mcz

commits-2
Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.1017.mcz

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

Name: Tools-eem.1017
Author: eem
Time: 2 December 2020, 9:56:20.281149 pm
UUID: 03df7799-92b9-4912-bed6-c446397b0cf8
Ancestors: Tools-eem.1016

In the browsers use Compiledmethod>>anyAndAllMessages instead of CompiledMethod>>messages.  false positives are more tolerable tnan omitted selectors sent via perform: et al.

e.g. HaloMorph>>#addRotateHandle: really does send
#startRot:with: and #doRot:with:, albeit indirectly via perform:.

=============== Diff against Tools-eem.1016 ===============

Item was changed:
  ----- Method: StringHolder>>withSelectorAndMessagesIn:evaluate: (in category '*Tools') -----
  withSelectorAndMessagesIn: aCompiledMethod evaluate: aBlock
  "Allow the user to choose one selector, chosen from the currently selected message's selector, as well as those of all messages sent by it, and evaluate aBlock on behalf of chosen selector.  If there is only one possible choice, simply make it; if there are multiple choices, put up a menu, and evaluate aBlock on behalf of the the chosen selector, doing nothing if the user declines to choose any"
 
  | selectorOrNil messages |
  selectorOrNil := aCompiledMethod selector.
+ messages := aCompiledMethod anyAndAllMessages.
- messages := aCompiledMethod messages.
  messages remove: selectorOrNil ifAbsent: ["do nothing"].
  messages ifEmpty: "If only one item, there is no choice"
  [^selectorOrNil ifNotNil: [aBlock value: selectorOrNil]].
  self systemNavigation
  showMenuOf: messages
  withFirstItem: selectorOrNil
  ifChosenDo: aBlock!