| paintBox | 
paintBox _ PaintBoxMorph new. 
#(red green blue cyan magenta yellow black white) 
	reverse do: [ :sel | paintBox recentColor: (Color perform: sel)]