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@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@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@1)! - ^ self rowAtLocation: self bottomLeft+(3@3 negated)!
Item was changed: ----- Method: PluggableListMorph>>topVisibleRowIndex (in category 'accessing - items') ----- topVisibleRowIndex + ^ self rowAtLocation: self scroller topLeft! - ^ self rowAtLocation: self topLeft+(3@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].!