Christoph Thiede uploaded a new version of Morphic to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.2060.mcz

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

Name: Morphic-ct.2060
Author: ct
Time: 10 January 2023, 7:54:33.802506 pm
UUID: d1d3453c-34cf-444e-b978-93b4e70fcd56
Ancestors: Morphic-ct.2059

Preserves selection in TextMorph when changing the text style.

=============== Diff against Morphic-ct.2059 ===============

Item was changed:
  ----- Method: TextMorph>>textStyle: (in category 'accessing') -----
  textStyle: aTextStyle
  	"Change the receiver's set of fonts to aTextStyle. You can access those fonts via the TextFontChange text attribute. If you want to enfore a specific font face or point size, use #font: instead. NOTE THAT you must provide either a freshly created instance of TextStyle or a copy of an existing one. NEVER use, for example, TextStyle class >> #default directly. Also see senders and implementors of #asNewTextStyle."
  
+ 	| previousSelection |
  	textStyle := aTextStyle.
+ 	previousSelection := self selectionInterval.
+ 	self releaseParagraph; changed.
+ 	previousSelection ifNotNil: [self selectionInterval: previousSelection].!
- 	self releaseParagraph; changed.!