<confirm-dialog> ( result -- gadget )

Vocabulary

ui-demo

Inputs

result

an object

Outputs

gadget

an object

Definition

USING: accessors models ui.gadgets ui.gadgets.borders
ui.gadgets.buttons ui.gadgets.glass ui.gadgets.packs
ui.pens.solid ui.theme ;

IN: ui-demo

:: <confirm-dialog> ( result -- gadget )
    <filled-pile> { 8 8 } >>gap
    "Are you sure?" <heading> add-gadget <shelf-of> "Cancel"
    [ "Cancelled" result set-model hide-glass ] <border-button>
    add-gadget "OK"
    [ "Confirmed" result set-model hide-glass ] <border-button>
    add-gadget add-gadget { 12 12 } <border>
    content-background <solid> >>interior
    field-border-color <solid> >>boundary ;