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


Reply via email to