<deploy-gadget> ( vocab -- gadget )

Vocabulary

ui.tools.deploy

Inputs

vocab

an object

Outputs

gadget

an object

Definition

USING: accessors kernel ui.gadgets ui.gadgets.toolbar ;

IN: ui.tools.deploy

: <deploy-gadget> ( vocab -- gadget )
    deploy-gadget new over >>vocab vertical >>orientation
    swap <deploy-settings> >>settings dup settings>> add-gadget
    dup <toolbar> { 10 10 } >>gap add-gadget
    deploy-settings-theme dup com-revert ;