com-deploy ( gadget -- )

Vocabulary

ui.tools.deploy

Inputs

gadget

an object

Outputs

None

Definition

USING: kernel tools.deploy ui ui.tools.listener ;

IN: ui.tools.deploy

: com-deploy ( gadget -- )
    [ com-save ] [
        find-deploy-vocab [ deploy ] curry
        \ deploy call-listener
    ] [ close-window ] tri ;