Paste: Popup dialog

Author: dRbiG
Mode: factor
Date: Sat, 13 Apr 2013 22:14:15
Plain Text | 
! 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 ;

New Annotation

Summary:
Author:
Mode:
Body: