A new version of Morphic was added to project The Inbox:
http://source.squeak.org/inbox/Morphic-ct.1743.mcz

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

Name: Morphic-ct.1743
Author: ct
Time: 20 March 2021, 12:33:20.571756 am
UUID: e9e2e46a-8dc3-4f42-aa90-ccab90c774c3
Ancestors: Morphic-mt.1741

Proposals: Make selection logic in Editor a little bit more convenient. When returning back to caret from a selection, don't move the caret beyond the prior selection interval on the first arrow key hit. This matches behavior in Chromium/Blink and Microsoft Windows.

=============== Diff against Morphic-mt.1741 ===============

Item was changed:
  ----- Method: Editor>>moveCursor:forward:event:specialBlock: (in category 'private') -----
  moveCursor: directionBlock forward: forward event: aKeyboardEvent specialBlock: specialBlock 
  	"Private - Move cursor.
  	directionBlock is a one argument Block that computes the new Position from a given one.
  	specialBlock is a one argumentBlock that computes the new position from a given one under the alternate semantics.
  	Note that directionBlock always is evaluated first."
  	| indices newPosition shouldSelect |
  	shouldSelect := aKeyboardEvent shiftPressed.
  	indices := self setIndices: shouldSelect forward: forward.
+ 	newPosition := indices at: #moving.
+ 	(shouldSelect not and: [self hasSelection]) ifFalse: [
+ 		newPosition := directionBlock value: newPosition.
+ 		(aKeyboardEvent commandKeyPressed or: [aKeyboardEvent controlKeyPressed])
+ 			ifTrue: [newPosition := specialBlock value: newPosition]].
- 	newPosition := directionBlock value: (indices at: #moving).
- 	(aKeyboardEvent commandKeyPressed or: [aKeyboardEvent controlKeyPressed])
- 		ifTrue: [newPosition := specialBlock value: newPosition].
  	shouldSelect
  		ifTrue: [self selectMark: (indices at: #fixed) point: newPosition - 1]
  		ifFalse: [self selectAt: newPosition]!