Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.1636.mcz

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

Name: Morphic-nice.1636
Author: nice
Time: 7 March 2020, 1:00:59.396856 am
UUID: 605fc13a-057a-4927-bde8-21cfdd770f3e
Ancestors: Morphic-nice.1635, Morphic-ct.1619

Merge Morphic-ct.1619 and fix undo bug when cmd+d immediately follow a backspace

We must first close the TypeIn (closeTypeIn) before changing the selection (even invisibly), otherwise a wrong selection is memorized in the undo history.

Note that the merge does remove the mysterious oldEditor/selectionInterval dance from PluggableTextMorph>>#printIt (self flag: #fixIntervalCache).
I do not understand the problem it tries to fix (unless the purpose was to workaround such undo bug, which it did not).

Morphic-ct.1619:
	Proposal: Unify all doIt related operations in PluggableTextMorph by delegating them to the editor.

This also fixes the fact that certain hooks such as #printIt:result:, #inspectIt:result:, or #exploreIt:result: were ignored when triggering the operation via the textmorph menu instead of shortcut. This is not an expected behavior, is it?

=============== Diff against Morphic-nice.1635 ===============

Item was changed:
  ----- Method: PluggableTextMorph>>doIt (in category 'menu commands') -----
  doIt
+ 	^ self handleEdit: [textMorph editor doIt]!
- 	^self handleEdit: [textMorph editor evaluateSelection]!

Item was changed:
  ----- Method: PluggableTextMorph>>exploreIt (in category 'menu commands') -----
  exploreIt
+ 	^ self handleEdit: [textMorph editor exploreIt]!
- 
- 	
- 	self handleEdit:
- 		[textMorph editor evaluateSelectionAndDo: [:result | result explore]].!

Item was changed:
  ----- Method: PluggableTextMorph>>inspectIt (in category 'menu commands') -----
  inspectIt
+ 	^ self handleEdit: [textMorph editor inspectIt]!
- 	
- 	self handleEdit:
- 		[textMorph editor evaluateSelectionAndDo: [:result | result inspect]]!

Item was changed:
  ----- Method: PluggableTextMorph>>printIt (in category 'menu commands') -----
  printIt
+ 	^ self handleEdit: [textMorph editor printIt]!
- 	| oldEditor |
- 	textMorph editor selectFrom: selectionInterval first to: selectionInterval last;
- 						model: model.  "For, eg, evaluateSelection"
- 	textMorph handleEdit: [(oldEditor := textMorph editor) evaluateSelectionAndDo:
- 		[:result |
- 		self flag: #fixIntervalCache. "mt: We should find a better design for discarding unused text editors in text morphs and restoring them on demand."
- 		selectionInterval := oldEditor markIndex to: oldEditor pointIndex -1.
- 		textMorph installEditorToReplace: oldEditor.
- 		textMorph handleEdit: [oldEditor afterSelectionInsertAndSelect: result printString].
- 		selectionInterval := oldEditor markIndex to: oldEditor pointIndex -1.
- 	
- 		textMorph editor selectFrom: selectionInterval first to: selectionInterval last.
- 		self scrollSelectionIntoView]]!

Item was changed:
  ----- Method: TextEditor>>selectFrom:to: (in category 'new selection') -----
  selectFrom: start to: stop
+ 	self closeTypeIn.
  	"Select the specified characters inclusive."
  	self selectInvisiblyFrom: start to: stop.
- 	self closeTypeIn.
  	self storeSelectionInParagraph.
  	"Preserve current emphasis if selection is empty"
  	stop > start ifTrue: [
  		self setEmphasisHere ]!