alert ( quot string -- )

Vocabulary

ui.gadgets.alerts

Inputs

quot	an object
string	an object

Outputs

None

Definition

USING: accessors fonts sequences ui ui.gadgets
ui.gadgets.buttons ui.gadgets.labels ui.gadgets.packs
wrap.strings ;

IN: ui.gadgets.alerts

:: alert ( quot string -- )
    <pile> { 10 10 } >>gap 1 >>align string 22 wrap-lines
    <label> sans-serif-font 18 >>size >>font
    { 200 100 } >>pref-dim add-gadget "okay"
    [ close-window ] quot append <border-button> add-gadget
    "" open-window ;