rebol [
  title: "context menu example"
  author: "vpavlu"
  date: 20-dec-2002/12:29
  home: http://plain.at/vpavlu
]

colors: ["white" "silver" "khaki" "papaya" "crimson" "brick" "orange" "pewter" "aqua" "water" "sky" "navy"]

wnd: layout [
  bx: box 640x480 white feel [
    engage: func [ f a event ][
      if a = 'alt-down [
        choose/window/offset colors func [face button][
          bx/color: get to-word face/text
          show bx
        ] wnd event/offset
      ]
    ]
  ]
]

view wnd