AlignmentMorph newColumn example with three submorphs
Last updated at 7:04 pm UTC on 12 September 2016
| container m1 m2 m3 |
container := AlignmentMorph newColumn.
container color: Color blue .
container hResizing: #shrinkWrap;
vResizing: #shrinkWrap.
m1 := StringMorph new
contents: 'A title (made with a StringMorph)';
color: Color white.
m1 hResizing: #spaceFill.
m2 := Morph new color: Color lightGray.
m2 extent: 320@180.
m3 := SimpleButtonMorph new
label: 'close';
target: container;
actionSelector: #delete.
container addMorph: m1.
container addMorphBack: m2.
container addMorphBack: m3.
container openInHand

This example works fine in Squeak 5.1 and Pharo 5.0.