" leaves "
|r1 r2 s1 s2 s3 m1 m2 alm1 alm2 rbm1 rbm2 gm|
r1 := RectangleMorph new. r1 extent: 14@14.
r2 := RectangleMorph new. r2 extent: 14@14.
s1 := StringMorph contents: 'Vanilla'.
s2 := StringMorph contents: 'Chocolate'.
s3 := StringMorph contents: 'Favorite Ice Cream'.

" Alignments "
m1 := AlignmentMorph inARow: { s3}.

alm1 :=  AlignmentMorph  inARow: { r1}.
rbm1 := AlignmentMorph  inARow: {s2 . alm1}.
alm2 :=  AlignmentMorph  inARow:{ r2}.
rbm2 := AlignmentMorph  inARow:{s1 . alm2}.
m2 := AlignmentMorph  inAColumn: { rbm2 . rbm1}.

gm := UISimpleGroupBoxMorph new. gm  addComponent: rbm2.
gm  addComponent: rbm1.
gm label: 'Favorite Ice Cream'.

"gm  := AlignmentMorph  inAColumn:{m1 . m2}."

gm openInHand

" adjustLayoutBounds "
