hello ( -- )

Vocabulary

hello-ui

Inputs

None

Outputs

None

Definition

USING: accessors kernel ui ui.gadgets.labels ui.gadgets.worlds ;

IN: hello-ui

: hello ( -- )
    [
        f
        T{ world-attributes { title "Hi" } }
        clone
        "Hello, world!"
        <label>
        >>gadgets
        open-window
    ] with-ui ;