Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ct.1514.mcz==================== Summary ====================
Name: Morphic-ct.1514
Author: ct
Time: 4 September 2019, 9:41:42.959698 pm
UUID: 275cb484-90ce-9549-8c1c-52ef3fe319b2
Ancestors: Morphic-mt.1513
Simplify DialogWindow>>#exploreInvocation
Thanks to Eliot for the hint!
=============== Diff against Morphic-mt.1513 ===============
Item was changed:
----- Method: DialogWindow>>exploreInvocation (in category 'running') -----
exploreInvocation
+ self exclusive: false.
+ (self findInvocationContext stack collect: #method)
+ explore!
- | result context |
- self exclusive: false. "We want to explore."
-
- result := OrderedCollection new.
- context := self findInvocationContext.
-
- [context sender] whileNotNil: [
- result add: context method.
- context := context sender].
- result add: context method.
-
- result explore.!