delete-canvas-dlist ( canvas -- )

Vocabulary

ui.gadgets.canvas

Inputs

canvas

an object

Outputs

None

Definition

USING: accessors kernel opengl ui.gadgets.worlds ;

IN: ui.gadgets.canvas

: delete-canvas-dlist ( canvas -- )
    [ find-gl-context ]
    [ [ [ delete-dlist ] when* f ] change-dlist drop ] bi ;