IN: gadgets USING: generic kernel namespaces threads ; TUPLE: dialog continuation ; : dialog-action ( ok dialog -- ) dup unparent dialog-continuation call ; : dialog-ok ( dialog -- ) t swap dialog-action ; : dialog-cancel ( dialog -- ) f swap dialog-action ; : ( -- gadget ) "OK" f