Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.1109.mcz

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

Name: Tools-mt.1109
Author: mt
Time: 22 January 2022, 10:04:44.919341 am
UUID: 8d01d7f7-a363-1b4e-8fef-3faf05951a47
Ancestors: Tools-mt.1108

Next iteration on MessageTrace. Seems to be that we do not need "requestor:" after all but just a simple "selectorSymbol = self selectedMessageName" to control senders browsing ...

=============== Diff against Tools-mt.1108 ===============

Item was changed:
  ----- Method: MessageTrace>>browseAllCallsOn:requestor: (in category 'actions') -----
  browseAllCallsOn: selectorSymbol requestor: anObject
  	"Overwritten to modify the trace if the request origins from a model-menu command such as the message-list menu (shortcut)."
  	
+ 	(selectorSymbol = self selectedMessageName
- 	((anObject = #modelMenu or: [selectorSymbol = self selectedMessageName])
  		and: [ Preferences traceMessages ] and: [ self hasUnacceptedEdits not ])
  			ifTrue: [ self addParentMethodsSending: selectorSymbol ]
  			ifFalse: [ super browseAllCallsOn: selectorSymbol requestor: anObject ].!

Item was changed:
  ----- Method: StringHolder>>browseMessages (in category '*Tools') -----
  browseMessages
  	"Present a menu of all messages sent by the currently selected message. 
  	Open a message set browser of all implementors of the message chosen."
  
+ 	self getSelectorAndSendQuery: #browseAllImplementorsOf:requestor: to: self with: #(modelMenu).!
- 	self getSelectorAndSendQuery: #browseAllImplementorsOf: to: self systemNavigation!

Item was changed:
  ----- Method: StringHolder>>browseSendersOfMessages (in category '*Tools') -----
  browseSendersOfMessages
  	"Present a menu of the currently selected message, as well as all messages sent by it.  Open a message set browser of all senders of the selector chosen."
  
+ 	self getSelectorAndSendQuery: #browseAllCallsOn:requestor: to: self with: #(modelMenu).!
- 	self getSelectorAndSendQuery: #browseAllCallsOn: to: self systemNavigation!