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}).!