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

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

Name: Tools-eem.771
Author: eem
Time: 31 October 2017, 10:29:35.046372 am
UUID: 42f7dc0f-720f-4d34-8871-9dc9b59c4135
Ancestors: Tools-tpr.770

Beef up thorough selector discovery in methods with pragmas so that any arguments to the pragma are also considered.  e.g. when browsing implementors in something like 
	notifyInformeeOfChange
		"If there is a changeInformee, notify her that I have changed value"
	
		<hasLiteralTest: #isChangeSelector:>
		"To find this method as sender of all changeSelectors"

		changeInformee ifNotNil: [changeInformee perform: changeSelector]

we want #isChangeSelector: included, not just #hasLiteralTest:

=============== Diff against Tools-tpr.770 ===============

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 messages.
+ 	SystemNavigation thoroughSenders ifTrue:
+ 		[| litGetter |
+ 		litGetter := [:l|
+ 			(l isSymbol and: [l size > 0 and: [l first isLowercase]]) ifTrue:
+ 				[messages add: l].
+ 			l isArray ifTrue:
+ 				[l do: litGetter]].
+ 		aCompiledMethod allLiterals do: litGetter.
+ 		aCompiledMethod pragmas do:
+ 			[:pragma|
+ 			 litGetter
+ 				value: pragma keyword;
+ 				value: pragma arguments]].
+ 	messages remove: selectorOrNil ifAbsent: ["do nothing"].
+ 	messages ifEmpty: "If only one item, there is no choice"
+ 		[^selectorOrNil ifNotNil: [aBlock value: selectorOrNil]]. 
- 	messages := SystemNavigation thoroughSenders 
- 		ifTrue: [
- 			| litGetter |
- 			litGetter := [:set :l|
- 				(l isSymbol and: [l size > 0 and: [l first isLowercase]]) ifTrue:
- 					[set add: l].
- 				l isArray ifTrue:
- 					[l inject: set into: litGetter].
- 				set].
- 			aCompiledMethod allLiterals, 
- 				(aCompiledMethod pragmas collect: [:pragma| pragma keyword])
- 				inject: aCompiledMethod messages into: litGetter]
- 		ifFalse: [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!