! this doesn't work

: popup ( -- int )
    <pile> "content" <label> add-gadget
    <shelf>
    { "Keep" "Close" "Again" } { 0 1 2 } [
        '[ close-window _ ] <border-button> add-gadget
    ] 2each add-gadget
    "popup" open-window ;