[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
|