The Trunk: Morphic-mt.1559.mcz

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

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

Name: Morphic-mt.1559
Author: mt
Time: 7 October 2019, 11:28:06.698231 am
UUID: ddb534f9-38f8-2e4e-b66b-cd254d717b4f
Ancestors: Morphic-mt.1558

Adds get-list items to the list morph's debugging menu.

=============== Diff against Morphic-mt.1558 ===============

Item was added:
+ ----- Method: PluggableListMorph>>browseImplementationOfGetListSelector (in category 'debug and other') -----
+ browseImplementationOfGetListSelector
+
+ | method |
+ method := model class lookupSelector: getListSelector.
+ ToolSet browse: method methodClass selector: method selector.!

Item was added:
+ ----- Method: PluggableListMorph>>buildDebugMenu: (in category 'debug and other') -----
+ buildDebugMenu: aHandMorph
+
+ | aMenu |
+ aMenu := super buildDebugMenu: aHandMorph.
+ aMenu addLine.
+ aMenu add: 'browse get-list code' translated target: self action: #browseImplementationOfGetListSelector.
+ aMenu add: 'debug get-list invocation' translated target: self action: #debugGetList.
+ ^ aMenu!

Item was added:
+ ----- Method: PluggableListMorph>>debugGetList (in category 'debug and other') -----
+ debugGetList
+
+ (Process
+ forBlock: [model perform: getListSelector]
+ runUntil: [:context | context selector = getListSelector])
+ debugWithTitle: ('Debug get-list invocation in model "{1}"' format: {model printString}).!