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 <step...@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 > >