Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1923.mcz
==================== Summary ====================
Name: Morphic-mt.1923 Author: mt Time: 4 March 2022, 10:49:45.853012 am UUID: e57a0c3f-e53c-8b45-8dc2-41e01e0412d2 Ancestors: Morphic-mt.1922
Fixes regression regarding text-cursor visibility.
=============== Diff against Morphic-mt.1922 ===============
Item was changed: ----- Method: NewParagraph>>displaySelectionInLine:on: (in category 'display') ----- displaySelectionInLine: line on: aCanvas | leftX rightX | selectionStart ifNil: [^self]. "No selection" aCanvas isShadowDrawing ifTrue: [ ^self ]. "don't draw selection with shadow" selectionStart = selectionStop ifTrue: ["Only show caret on line where clicked"
selectionStart textLine ~= line ifTrue: [^self]] ifFalse: ["Test entire selection before or after here"
(selectionStop stringIndex < line first or: [selectionStart stringIndex > (line last + 1)]) ifTrue: [^self]. "No selection on this line" (selectionStop stringIndex = line first and: [selectionStop textLine ~= line]) ifTrue: [^self]. "Selection ends on line above" (selectionStart stringIndex = (line last + 1) and: [selectionStop textLine ~= line]) ifTrue: [^self]]. "Selection begins on line below" leftX := (selectionStart stringIndex <= line first ifTrue: [line ] ifFalse: [selectionStart ])left. rightX := (selectionStop stringIndex > (line last + 1) or: [selectionStop stringIndex = (line last + 1) and: [selectionStop textLine ~= line]]) ifTrue: [line right] ifFalse: [selectionStop left]. selectionStart = selectionStop ifTrue: [ | w pos | w := caretRect ifNotNil: [caretRect width] ifNil: [self caretWidth]. pos := leftX - (w // 2). caretRect := pos @ line top corner: (pos + w) @ line bottom. + (self showCaret and: [self focused]) ifFalse: [^ self]. - self showCaret ifFalse: [^ self "e.g., not #focused"]. Editor dumbbellCursor ifTrue: [self displayDumbbellCursorOn: aCanvas at: pos in: line] ifFalse: [self displaySimpleCursorOn: aCanvas at: pos in: line]] ifFalse: [ caretRect := nil. aCanvas fillRectangle: (leftX @ line top corner: rightX @ line bottom) color: (self focused ifTrue: [self selectionColor] ifFalse: [self unfocusedSelectionColor])]!
squeak-dev@lists.squeakfoundation.org