| b w |
		w := NewWorldWindow new openInWorld.
		w removeAllMorphs.
		300 timesRepeat: [
			b := Morph new openInWorld.
			b color: Color random.
			b extent: ( 300 atRandom @ 300 atRandom ).
			w addMorphNotOverlapping: b.
			World doOneCycle.
			( Delay forSeconds: 1 ) wait ]