Marcel Taeumel uploaded a new version of Morphic to project Squeak 6.0: http://source.squeak.org/squeak60/Morphic-mt.2031.mcz
==================== Summary ====================
Name: Morphic-mt.2031 Author: mt Time: 27 September 2023, 3:15:03.200726 pm UUID: db5985ca-f59e-7545-9711-16235a5fcb93 Ancestors: Morphic-mt.2030
Fixes another visual regression from Morphic-mt.2028 concerning #shrinkWrap in ScrollPane.
(If this gets worse, I will revert to mt.2027. This is a really bad example of how and when to backport fixes. Sigh.)
=============== Diff against Morphic-mt.2030 ===============
Item was changed: ----- Method: ScrollPane>>submorphBoundsForShrinkWrap (in category 'layout') ----- submorphBoundsForShrinkWrap + "Like #newScrollerBounds but uses the current scroller bounds, which were already shrink-wrapped at this point. See #hResizing: and #vResizing:." + + | inner bottomOffset leftOffset rightOffset | + (retractableScrollBar or: [self vIsScrollbarShowing not]) + ifTrue: [leftOffset := rightOffset := 0] + ifFalse: [ + scrollBarOnLeft + ifTrue: [ + leftOffset := self scrollBarThickness - self borderWidth. + rightOffset := 0.] + ifFalse: [ + leftOffset := 0. + rightOffset := self scrollBarThickness - self borderWidth]]. + + (retractableScrollBar or: [self hIsScrollbarShowing not]) + ifTrue: [bottomOffset := 0] + ifFalse: [bottomOffset := self scrollBarThickness - self borderWidth]. - "No need to consider scrollbars because those are placed outside the #innerBounds like a border. See #resizeScroller." + inner := scroller bounds. + ^ (inner left - leftOffset) @ (inner top "+ topOffset") + corner: (inner right + rightOffset) @ (inner bottom + bottomOffset)! - ^ scroller bounds!