Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1970.mcz

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

Name: Morphic-mt.1970
Author: mt
Time: 25 April 2022, 11:19:24.059234 am
UUID: e5dd0f85-4aac-af44-a042-214fc331babf
Ancestors: Morphic-mt.1969

Fixes (older) regression where line breaks did not count as a boundary character, which made word-by-word jumping feel wrong.

=============== Diff against Morphic-mt.1969 ===============

Item was changed:
  ----- Method: SmalltalkEditor>>nextWord: (in category 'private') -----
  nextWord: position 
  	| string index boundaryCharacters |
  	string := self string.
  	index := position - 1.
  	[ (index
  		between: 1
  		and: string size) and: [ (string at: index) isSeparator ] ] whileTrue: [ index := index + 1 ].
+ 	boundaryCharacters := ')]}''"|^. 	
+ '.
- 	boundaryCharacters := ')]}''"|^. 	'.
  	((index
  		between: 1
  		and: string size) and: [ boundaryCharacters includes: (string at: index) ])
  		ifTrue:
  			[  index := index + 1  ]
  		ifFalse:
  			[ [ (index
  				between: 1
  				and: string size) and: [ (boundaryCharacters includes: (string at: index)) not ] ] whileTrue: [ index := index + 1 ] ].
  	^ index!

Item was changed:
  ----- Method: SmalltalkEditor>>previousWord: (in category 'private') -----
  previousWord: position 
  	| string index boundaryCharacters |
  	string := self string.
  	index := position.
  	"First, get out of whitespace."
  	[ (index
  		between: 2
  		and: string size) and: [ (string at: index) isSeparator ] ] whileTrue: [ index := index - 1 ].
+ 	boundaryCharacters := '([{''"|^. 	
+ '.
- 	boundaryCharacters := '([{''"|^. 	'.
  	"Are we at a boundary character?"
  	((index
  		between: 2
  		and: string size) and: [ boundaryCharacters includes: (string at: index) ])
  		ifTrue:
  			[ "yes, select it and any following whitespace of this line."
  			index := index - 1 ]
  		ifFalse:
  			[ "no, select to the next boundary character"
  			[ (index
  				between: 1
  				and: string size) and: [ (boundaryCharacters includes: (string at: index)) not ] ] whileTrue: [ index := index - 1 ] ].
  	^ index + 1!