Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1389.mcz==================== Summary ====================
Name: Morphic-mt.1389
Author: mt
Time: 25 January 2018, 9:36:50.24119 am
UUID: e130a338-787f-d84a-8782-a6a9724ddddf
Ancestors: Morphic-mt.1388
Small fix for draggable text selections regarding the mouse cursor appearance.
=============== Diff against Morphic-mt.1388 ===============
Item was changed:
----- Method: TextEditor>>mouseUp: (in category 'events') -----
mouseUp: evt
"An attempt to break up the old processRedButton code into threee phases"
- self updateCursorForEvent: evt.
- morph removeProperty: #waitingForTextDrag.
-
oldInterval ifNil: [^ self]. "Patched during clickAt: repair"
(self hasCaret
and: [oldInterval = self selectionInterval])
ifTrue: [self selectWord].
self setEmphasisHere.
(self isDisjointFrom: oldInterval) ifTrue:
[otherInterval := oldInterval].
+ self storeSelectionInParagraph.
+
+ self updateCursorForEvent: evt.
+ morph removeProperty: #waitingForTextDrag.!
- self storeSelectionInParagraph!