cairo-demo-gadget

Vocabulary

cairo-demo

Definition

USING: ui.gadgets ;

IN: cairo-demo

TUPLE: cairo-demo-gadget < gadget image-array cairo-t ;

Methods

USING: accessors cairo-demo kernel opengl.gl ui.render ;

M: cairo-demo-gadget draw-gadget*
    0 0 glRasterPos2i 1.0 -1.0 glPixelZoom
    [ 384 256 GL_RGBA GL_UNSIGNED_BYTE ] dip
    image-array>> glDrawPixels ;


USING: accessors cairo-demo cairo-demo.private kernel ui.gadgets
;

M: cairo-demo-gadget graft*
    dup dup init-cairo swap cairo-t<< draw-hello-world ;


USING: cairo-demo kernel ui.gadgets ;

M: cairo-demo-gadget pref-dim* drop { 384 256 } ;


USING: accessors cairo-demo cairo.ffi ui.gadgets ;

M: cairo-demo-gadget ungraft* cairo-t>> cairo_destroy ;