Feb. 8, 2018
3:24 p.m.
Thanks to all answers! It finally works. :-) I am not sure where I did a mistake before. Juraj
On Feb 8, 2018, at 05:33, Stephan Eggermont <stephan@stack.nl> wrote:
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