<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000;text-align: left" dir="ltr">
Robustness improved via Morphic-mt.1981<div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
<p style='color: #AAAAAA; margin-top: 10px;'>Am 27.04.2022 21:31:40 schrieb Tobias Pape <das.linux@gmx.de>:</p><div style='font-family:Arial,Helvetica,sans-serif'>Class variable anyone?<br>-t<br><br>> On 27. Apr 2022, at 21:22, Nicolas Cellier <nicolas.cellier.aka.nice@gmail.com> wrote:<br>> <br>> Ah, is it robust to future editions?<br>> Not that I would recommend it, but here is a very ugly trick that still works in trunk:<br>> 'abc' , #[13 10]<br>> More reasonably, I think that we can afford this small concatenation<br>> 'abc' , String crlf<br>> <br>> Le mer. 27 avr. 2022 à 16:57, <commits@source.squeak.org> a écrit :<br>> Marcel Taeumel uploaded a new version of Morphic to project The Trunk:<br>> http://source.squeak.org/trunk/Morphic-mt.1974.mcz<br>> <br>> ==================== Summary ====================<br>> <br>> Name: Morphic-mt.1974<br>> Author: mt<br>> Time: 27 April 2022, 4:57:27.371228 pm<br>> UUID: bbf92ccb-7fe1-7f4b-9ab6-955f0f2ba601<br>> Ancestors: Morphic-mt.1973<br>> <br>> For by-word jumping in text fields, adds LF to the literal array of boundary characters.<br>> <br>> Thanks to Nicolas (nice) for the hint!<br>> <br>> =============== Diff against Morphic-mt.1973 ===============<br>> <br>> Item was changed:<br>> ----- Method: SmalltalkEditor>>nextWord: (in category 'private') -----<br>> nextWord: position <br>> | string index boundaryCharacters |<br>> string := self string.<br>> index := position - 1.<br>> [ (index<br>> between: 1<br>> and: string size) and: [ (string at: index) isSeparator ] ] whileTrue: [ index := index + 1 ].<br>> boundaryCharacters := ')]}''"|^. <br>> '.<br>> + <br>> ((index<br>> between: 1<br>> and: string size) and: [ boundaryCharacters includes: (string at: index) ])<br>> ifTrue:<br>> [ index := index + 1 ]<br>> ifFalse:<br>> [ [ (index<br>> between: 1<br>> and: string size) and: [ (boundaryCharacters includes: (string at: index)) not ] ] whileTrue: [ index := index + 1 ] ].<br>> ^ index!<br>> <br>> Item was changed:<br>> ----- Method: SmalltalkEditor>>previousWord: (in category 'private') -----<br>> previousWord: position <br>> | string index boundaryCharacters |<br>> string := self string.<br>> index := position.<br>> "First, get out of whitespace."<br>> [ (index<br>> between: 2<br>> and: string size) and: [ (string at: index) isSeparator ] ] whileTrue: [ index := index - 1 ].<br>> boundaryCharacters := '([{''"|^. <br>> '.<br>> + <br>> "Are we at a boundary character?"<br>> ((index<br>> between: 2<br>> and: string size) and: [ boundaryCharacters includes: (string at: index) ])<br>> ifTrue:<br>> [ "yes, select it and any following whitespace of this line."<br>> index := index - 1 ]<br>> ifFalse:<br>> [ "no, select to the next boundary character"<br>> [ (index<br>> between: 1<br>> and: string size) and: [ (boundaryCharacters includes: (string at: index)) not ] ] whileTrue: [ index := index - 1 ] ].<br>> ^ index + 1!<br>> <br>> <br>> <br><br><br><br></commits@source.squeak.org></nicolas.cellier.aka.nice@gmail.com></div></blockquote>
</div></body>