BlCardLayout>>layout: aMorph in: newBounds |offset maxHeight| offset := 0@0. maxHeight := 0. aMorph layoutComponentsDo: [ :component | offset x + component width > newBounds width ifTrue: [ "start a new line" offset := 0@ (offset y + maxHeight). maxHeight := 0]. component position: offset. maxHeight := maxHeight max: component height. offset := (offset x + component width) @ offset y]. maxHeight + offset y > aMorph height ifTrue: [ aMorph innerExtent: aMorph innerExtent x @ (maxHeight+ offset y)]
cool, can you commit your BlCardLayout into the bloc repo?
For the card wall I'll need to add margin and inset.
A BlSolidRectangleBorder can have an inset and an outset (as a margin I guess). Cheers Alain
Stephan