make-canvas-dlist ( canvas quot -- dlist )

Vocabulary

ui.gadgets.canvas

Inputs

canvas	an object
quot	an object

Outputs

dlist

an object

Definition

USING: accessors kernel opengl opengl.gl ;

IN: ui.gadgets.canvas

: make-canvas-dlist ( canvas quot -- dlist )
    [ drop ] [ GL_COMPILE swap make-dlist ] 2bi
    [ >>dlist drop ] keep ; inline