ask-user ( string -- model' )

Vocabulary

ui.gadgets.alerts

Inputs

string

an object

Outputs

model'

an object

Definition

USING: accessors fonts kernel models.combinators monads ui
ui.gadgets.controls ui.gadgets.labels ui.gadgets.layout ;

IN: ui.gadgets.alerts

:: ask-user ( string -- model' )
    [
        string <label> sans-serif-font 14 >>size >>font dup ,
        :> lbl <model-field*>
        [ 1 <layout> , ] [ output-model ] bi
        :> fldm "okay" <model-border-btn> :> btn btn ->
        [ fldm swap updates ] [ [ drop lbl close-window ] $> , ]
        bi
    ] <vbox> { 161 86 } >>pref-dim "" open-window ;