Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.93.mcz
==================== Summary ====================
Name: MorphicTests-mt.93 Author: mt Time: 27 September 2023, 2:35:14.135019 pm UUID: b14d13ff-88ec-ac42-86df-0867be7d6a91 Ancestors: MorphicTests-mt.92
Adds a failing test to document an existing layout bug.
=============== Diff against MorphicTests-mt.92 ===============
Item was added: + ----- Method: TableLayoutTest>>testHeightForWidthContents (in category 'tests - example layouts') ----- + testHeightForWidthContents + "Combine a height-for-width widget with a too small container. Two-pass layout should be enough." + + | vertical list spacer | + container := Morph new + color: Color blue; + changeTableLayout; + layoutInset: 5; + vResizing: #rigid; + hResizing: #rigid; + yourself. + vertical := Morph new + color: Color green; + changeTableLayout; + layoutInset: 5; + listDirection: #topToBottom; + vResizing: #spaceFill; + hResizing: #spaceFill; + yourself. + list := Morph new + color: Color red; + changeTableLayout; + listDirection: #leftToRight; + wrapDirection: #topToBottom; + layoutInset: 5; cellGap: 5; + hResizing: #spaceFill; + vResizing: #shrinkWrap; + addAllMorphs: (5 timesCollect: [Morph new extent: 20@20; color: Color yellow]); + yourself. + spacer := Morph new + color: Color white; + hResizing: #rigid; + vResizing: #spaceFill; + yourself. + + list width: 30. "1 column, 5 rows" + spacer width: 5. + + vertical extent: 999@999. + container extent: 100@100. "3 columns, 2 rows" + + vertical addMorphBack: list. + vertical addMorphBack: spacer. + container addMorph: vertical. + + self ensureLayout: container. + "container layoutChanged." "--- WORKAROUND" + self assert: 100@100 equals: container fullBounds extent.!