cont _ Morph new.
 cont width: 200.
 cont height: 150.
 cont layoutPolicy: TableLayout new;
                    listDirection: #leftToRight;
                    wrapCentering: #topLeft;
                    wrapDirection: #topToBottom.

 20 timesRepeat: [ m_ Morph new.
                      m height: 50 atRandom + 1.
                      m color: Color random.
                      m width: m width + 50 atRandom - 10.
                      cont addMorph: m
                    ].
 cont openInWorld.
	100 timesRepeat: [ cont submorphsDo: [ :m | m color: Color random. "m 
 refreshWorld "].

		cont refreshWorld ]