board-gadget

Vocabulary

gamelib.ui

Definition

USING: ui.gadgets ;

IN: gamelib.ui

TUPLE: board-gadget < gadget
    dimension bg-color draw-quotes board gests textures ;

Methods

USING: combinators gamelib.ui ui.render ;

M: board-gadget draw-gadget*
    { [ draw-background-color ] [ draw-all ] } cleave ;


USING: accessors assocs combinators gamelib.ui kernel
ui.gestures ;

M: board-gadget handle-gesture
    swap over gests>> ?at
    [ 2dup ( gadget -- ) call-effect ] when 2drop f ;


USING: accessors gamelib.ui ui.gadgets ;

M: board-gadget pref-dim* dimension>> ;


USING: accessors assocs destructors gamelib.loop gamelib.ui
generic kernel ui.gadgets ui.gadgets.worlds ;

M: board-gadget ungraft*
    [
        dup find-gl-context
        [ values dispose-each H{ } clone ] change-textures drop
        stop-game
    ] [ M\ board-gadget ungraft* (call-next-method) ] bi ;