slate

Vocabulary

ui.gadgets.slate

Definition

USING: ui.gadgets ;

IN: ui.gadgets.slate

TUPLE: slate < gadget action pdim graft ungraft ;

Methods

USING: combinators kernel opengl.gl ui.gadgets.slate
ui.gadgets.worlds ui.render ;

M: slate draw-gadget*
    GL_PROJECTION glMatrixMode
    glPushMatrix glLoadIdentity establish-coordinate-system
    GL_MODELVIEW glMatrixMode
    glPushMatrix glLoadIdentity setup-viewport draw-slate
    GL_PROJECTION glMatrixMode
    glPopMatrix glLoadIdentity GL_MODELVIEW glMatrixMode
    glPopMatrix glLoadIdentity dup find-world dup
    { [ drop 0 ] [ width ] [ height ] [ drop 0 ] } cleave
    -1 1 glOrtho setup-viewport drop drop ;


USING: accessors combinators kernel ui.gadgets.slate ;

M: slate draw-slate
    dup action>> ( slate -- slate ) call-effect ;


USING: ui.gadgets.slate ;

M: slate establish-coordinate-system default-coordinate-system ;


USING: accessors combinators ui.gadgets ui.gadgets.slate ;

M: slate graft* graft>> ( -- ) call-effect ;


USING: accessors ui.gadgets ui.gadgets.slate ;

M: slate pref-dim* pdim>> ;


USING: accessors combinators ui.gadgets ui.gadgets.slate ;

M: slate ungraft* ungraft>> ( -- ) call-effect ;