[squeak-dev] The Trunk: Tools-mt.1107.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jan 18 09:12:22 UTC 2022


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

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

Name: Tools-mt.1107
Author: mt
Time: 18 January 2022, 10:12:19.202567 am
UUID: 18cf8a73-55bd-1047-b724-55d2bf61daab
Ancestors: Tools-mt.1106

Fixes regressions in MessageTrace tool.

See http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-January/218335.html

=============== Diff against Tools-mt.1106 ===============

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)."
  	
+ 	((anObject = #modelMenu or: [selectorSymbol = self selectedMessageName])
+ 		and: [ Preferences traceMessages ] and: [ self hasUnacceptedEdits not ])
+ 			ifTrue: [ self addParentMethodsSending: selectorSymbol ]
+ 			ifFalse: [ super browseAllCallsOn: selectorSymbol requestor: anObject ].!
- 	(anObject = #modelMenu and: [ Preferences traceMessages ] and: [ self hasUnacceptedEdits not ])
- 		ifTrue: [ self addParentMethodsSending: selectorSymbol ]
- 		ifFalse: [ super browseAllCallsOn: selectorSymbol requestor: anObject ].!

Item was changed:
  ----- Method: MessageTrace>>browseAllImplementorsOf:requestor: (in category 'actions') -----
  browseAllImplementorsOf: selectorSymbol requestor: anObject
  	"Overwritten to modify the trace if the request origins from a model-menu command such as the message-list menu (shortcut)."
  
  	| selectorToBrowse |
  	selectorToBrowse := self selection 
  		ifNil: [ selectorSymbol ] 
  		ifNotNil: [ self getImplementorNamed: selectorSymbol asSymbol "since we can get passed literals"].
+ 	(Preferences traceMessages and: [ self hasUnacceptedEdits not ])
- 	(anObject = #modelMenu and: [ Preferences traceMessages ] and: [ self hasUnacceptedEdits not ])
  		ifTrue: [ self addChildMethodsNamed: selectorToBrowse ]
  		ifFalse: [ super browseAllImplementorsOf: selectorToBrowse requestor: anObject ].!



More information about the Squeak-dev mailing list