Christoph Thiede uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ct.1978.mcz

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

Name: Morphic-ct.1978
Author: ct
Time: 30 April 2022, 4:19:14.956924 pm
UUID: cc487d75-d97c-8440-a198-83b5e57123ed
Ancestors: Morphic-mt.1977

Adds optional model hook #debugExpression:requestor: to TextEditor, allowing models to pass the original requestor to the compiler. Complements Morphic-ct.1893 (#evaluateExpression:requestor:).

=============== Diff against Morphic-mt.1977 ===============

Item was changed:
  ----- Method: TextEditor>>debugIt (in category 'do-its') -----
  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].
+ 	
- 
  	receiver := (model respondsTo: #doItReceiver) 
  		ifTrue: [model doItReceiver]
  		ifFalse: [nil].
  		
  	context := (model respondsTo: #doItContext) 
  		ifTrue: [model doItContext]
  		ifFalse: [nil].
  
  	(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].!
- 		helperProcess debugWithTitle: 'Debug it'].!