ask-buttons ( buttons -- quot )

Vocabulary

ui.gadgets.alerts

Inputs

buttons

an object

Outputs

quot

an object

Definition

USING: accessors fonts kernel sequences
sequences.generalizations ui ui.gadgets.controls
ui.gadgets.labels ui.gadgets.layout wrap.strings ;

IN: ui.gadgets.alerts

MACRO: ask-buttons ( buttons -- quot )
    dup length [
        [
            swap [
                22 wrap-lines <label> sans-serif-font 18 >>size
                >>font , [
                    [ <model-border-btn> ~quotation~ >>hook -> ]
                    map
                ] <hbox> ,
            ] <vbox> "" open-window
        ] dip firstn
    ] 2curry ;