Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2132.mcz
==================== Summary ====================
Name: Morphic-mt.2132 Author: mt Time: 27 September 2023, 3:12:01.629684 pm UUID: bc398f97-66d1-2348-bf3a-f6595dafc0a2 Ancestors: Morphic-mt.2131
Fixes TableLayoutTests and thus #shrinkWrap configuration for ScrollPane, which got broken in Morphic-mt.2129. Sigh.
=============== Diff against Morphic-mt.2131 ===============
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!
packages@lists.squeakfoundation.org