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!
packages@lists.squeakfoundation.org