nehe-window ( -- )

Vocabulary

nehe

Inputs

None

Outputs

None

Definition

USING: accessors kernel nehe.2 nehe.3 nehe.4 nehe.5 ui
ui.gadgets ui.gadgets.borders ui.gadgets.buttons
ui.gadgets.packs ui.gadgets.worlds ;

IN: nehe

: nehe-window ( -- )
    [
        f
        T{ world-attributes { title "Nehe Examples" } }
        clone
        <filled-pile>
        "Nehe 2"
        [ drop run2 ]
        <border-button>
        add-gadget
        "Nehe 3"
        [ drop run3 ]
        <border-button>
        add-gadget
        "Nehe 4"
        [ drop run4 ]
        <border-button>
        add-gadget
        "Nehe 5"
        [ drop run5 ]
        <border-button>
        add-gadget
        { 2 2 }
        <border>
        >>gadgets
        open-window
    ] with-ui ;