Feb. 8, 2018
8:33 a.m.
And your original question morph := 'Hello' asMorph. colorBlock := [ :colorName | morph color: (Color perform: colorName)]. morph on: #mouseUp send: value to: [ |menu| menu := MenuMorph new. menu add: 'orange' target: colorBlock selector: #value: argument: #orange. menu add: 'blue' target: colorBlock selector: #value: argument: #blue. menu popUpInWorld]. morph openInWindow