Christoph Thiede uploaded a new version of ST80Tools to project The Trunk: http://source.squeak.org/trunk/ST80Tools-ct.15.mcz
==================== Summary ====================
Name: ST80Tools-ct.15 Author: ct Time: 30 April 2022, 4:18:08.682924 pm UUID: 6031d20c-60bf-c341-aaf2-4109e66e0e73 Ancestors: ST80Tools-mt.14
Complements Morphic-ct.1978 (#debugExpression:requestor:). See also: ST80-ct.277.
=============== Diff against ST80Tools-mt.14 ===============
Item was changed: ----- Method: ParagraphEditor>>debugIt (in category '*ST80Tools') ----- debugIt
| receiver context helperProcess | self lineSelectAndEmptyCheck: [^self]. + + (model respondsTo: #debugExpression:requestor:) + ifTrue: [^ model perform: #debugExpression:requestor: with: self selection with: self]. + (model respondsTo: #debugExpression:) + ifTrue: [^ model perform: #debugExpression: with: self selection]. + - (model respondsTo: #doItReceiver) ifTrue: [receiver := model doItReceiver]. (model respondsTo: #doItContext) ifTrue: [context := model doItContext]. (self compileSelectionFor: receiver in: context) ifNotNil: [:doItMethod | helperProcess := context ifNil: [self assert: doItMethod selector = #DoIt. Process forMethod: doItMethod receiver: receiver] ifNotNil: [self assert: doItMethod selector = #DoItIn:. Process forMethod: doItMethod receiver: receiver arguments: {context}]. helperProcess debugWithTitle: 'Debug it' translated].!