<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
Hmm... it's also not good that markBlock and pointBlock get reset in any case. Especially since there is this "+1" offset thingy compared to selectionInterval ... <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 10.11.2019 16:02:03 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">A new version of Morphic was added to project The Inbox:<br>http://source.squeak.org/inbox/Morphic-ct.1585.mcz<br><br>==================== Summary ====================<br><br>Name: Morphic-ct.1585<br>Author: ct<br>Time: 10 November 2019, 4:01:42.092559 pm<br>UUID: 9564d2b2-4af1-044b-96fd-532e60252fd7<br>Ancestors: Morphic-mt.1584<br><br>TextEditor: Don't change the cursor position after a text action has been performed. This keeps a possible selection stable after you, for example, followed a link.<br><br>=============== Diff against Morphic-mt.1584 ===============<br><br>Item was changed:<br> ----- Method: TextEditor>>mouseDown: (in category 'events') -----<br> mouseDown: evt <br> "Either 1) handle text actions in the paragraph, 2) begin a text drag operation, or 3) modify the caret/selection."<br> <br> | clickPoint b |<br> <br> oldInterval := self selectionInterval.<br> clickPoint := evt cursorPoint.<br> b := paragraph characterBlockAtPoint: clickPoint.<br> <br> (paragraph clickAt: clickPoint for: model controller: self) ifTrue: [<br>- markBlock := b.<br>- pointBlock := b.<br> evt hand releaseKeyboardFocus: morph.<br> evt hand releaseMouseFocus: morph.<br> ^ self ].<br> <br> (morph dragEnabled and: [self isEventInSelection: evt]) ifTrue: [<br> evt hand<br> waitForClicksOrDrag: morph<br> event: evt<br> selectors: {#click:. nil. nil. #startDrag:}<br> threshold: HandMorph dragThreshold.<br> morph setProperty: #waitingForTextDrag toValue: true.<br> ^ self].<br> <br> evt shiftPressed<br> ifFalse: [<br> self closeTypeIn.<br> markBlock := b.<br> pointBlock := b ]<br> ifTrue: [<br> self closeTypeIn.<br> self mouseMove: evt ].<br> self storeSelectionInParagraph!<br><br><br></div></blockquote>
</div></body>