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

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

Name: Morphic-mt.1584
Author: mt
Time: 6 November 2019, 9:06:51.922374 am
UUID: 2e6402c5-7245-ae48-a58b-025014f95acb
Ancestors: Morphic-mt.1583

Fixes a regression in PluggableListMorph >> #getVisibleList. Also restore code formatting in that method.

Note that "3 at 3" referred to #hMargin in LazyListMorph, which is not required since the entire row is defined by its selection rectangle, not the beginning of the text. Still, "0 at 1" is required because #bottomLeft is (always) one pixel to far down.

=============== Diff against Morphic-mt.1583 ===============

Item was changed:
  ----- Method: PluggableListMorph>>bottomVisibleRowIndex (in category 'accessing - items') -----
  bottomVisibleRowIndex
+ 	^ self rowAtLocation: self scroller bottomLeft - (0 at 1)!
- 	^ self rowAtLocation: self bottomLeft+(3 at 3 negated)!

Item was changed:
  ----- Method: PluggableListMorph>>topVisibleRowIndex (in category 'accessing - items') -----
  topVisibleRowIndex
+ 	^ self rowAtLocation: self scroller topLeft!
- 	^ self rowAtLocation: self topLeft+(3 at 3)!

Item was changed:
  ----- Method: PluggableListMorph>>visibleList (in category 'accessing') -----
  visibleList
+ 	"For convenience. Avoid accessing #getList directly. Just use the same protocol that my #listMorph uses."
+ 	
+ 	^ self listSize = 0
+ 		ifTrue: [ Array empty ]
+ 		ifFalse:
+ 			[ (self topVisibleRowIndex to: self bottomVisibleRowIndex) collect:
+ 				[ :viewIndex |
+ 					self itemAt: viewIndex ] ].!
- 
- 	^ (self topVisibleRowIndex to: (self bottomVisibleRowIndex min: self listSize))
- 		collect: [:viewIndex | self itemAt: viewIndex].!