The Trunk: Morphic-mt.1442.mcz

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

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

Name: Morphic-mt.1442
Author: mt
Time: 24 May 2018, 5:31:38.262534 pm
UUID: 76c0504e-df49-4fcb-b231-ecd8b81b11a5
Ancestors: Morphic-mt.1441

Fixes the flickering of the text cursor over clickable text actions (such as TextURL).

=============== Diff against Morphic-mt.1441 ===============

Item was changed:
  ----- Method: TextMorph>>enterClickableRegion: (in category 'editing') -----
  enterClickableRegion: evt
  | index isLink |
+ evt hand hasSubmorphs ifTrue:[^false].
- evt hand hasSubmorphs ifTrue:[^self].
  paragraph ifNotNil:[
  index := (paragraph characterBlockAtPoint: evt position) stringIndex.
  isLink := (paragraph text attributesAt: index forStyle: paragraph textStyle)
  anySatisfy:[:attr| attr mayActOnClick].
+ isLink ifTrue: [
+ evt hand showTemporaryCursor: Cursor webLink.
+ ^ true]].
+ ^ false
- isLink ifTrue:[evt hand showTemporaryCursor: Cursor webLink].
- ].
  !

Item was changed:
  ----- Method: TextMorph>>mouseMove: (in category 'event handling') -----
  mouseMove: evt
 
  evt redButtonPressed ifFalse: [
+ (self enterClickableRegion: evt)
+ ifFalse: [self editor updateCursorForEvent: evt].
- self editor updateCursorForEvent: evt.
- self enterClickableRegion: evt.
  ^ self].
 
  self
  handleInteraction: [self editor mouseMove: evt]
  fromEvent: evt.!