Chris Muller uploaded a new version of Morphic to project The Treated Inbox: http://source.squeak.org/treated/Morphic-cmm.1838.mcz
==================== Summary ====================
Name: Morphic-cmm.1838 Author: cmm Time: 9 January 2022, 6:40:28.562851 pm UUID: 44f58dc2-b94c-476a-aa46-17a4a564c65e Ancestors: Morphic-mt.1837
Revert Morphic-mt.1652 because it corrupts the representation of a valid execution flow in MessageTrace and prevents spawning of independent traces.
=============== Diff against Morphic-mt.1837 ===============
Item was changed: ----- Method: TextEditor>>browseIt (in category 'menu messages') ----- browseIt "Launch a browser for the current selection, if appropriate."
Preferences alternativeBrowseIt ifTrue: [^ self browseClassFromIt].
self lineSelectAndEmptyCheck: [^ morph flash].
"First, try to show all accesses to instance or class variables." self selectedInstanceVariable ifNotNil: [:nameToClass | self systemNavigation browseAllAccessesTo: nameToClass key from: nameToClass value]. self selectedClassVariable ifNotNil: + [:binding | self systemNavigation browseAllCallsOn: binding]. - [:binding | self model browseAllCallsOn: binding].
"Then, either browse the class (from a binding) or all implementors of a selector." self selectedBinding ifNotNil: [:binding | ^ self systemNavigation browseClass: binding]. self selectedSelector ifNotNil: + [:selector | ^ self systemNavigation browseAllImplementorsOf: selector]. - [:selector | ^ self model browseAllImplementorsOf: selector]. morph flash!
Item was changed: ----- Method: TextEditor>>sendersOfIt (in category 'menu messages') ----- sendersOfIt "Open a senders browser on the selected selector"
self lineSelectAndEmptyCheck: [^ self]. + self selectedSelector ifNotNil: + [:aSelector| ^self systemNavigation browseAllCallsOn: aSelector]. + self selectedLiteral ifNotNil: + [:aLiteral| ^self systemNavigation browseAllCallsOn: aLiteral]. + morph flash! - self selectedSelector ifNotNil: [:aSelector | - ^ self model browseAllCallsOn: aSelector]. - self selectedLiteral ifNotNil: [:aLiteral | - ^ self model browseAllCallsOn: aLiteral]. - morph flash.!
packages@lists.squeakfoundation.org