diff --git a/extra/ui/gadgets/canvas/canvas.factor b/extra/ui/gadgets/canvas/canvas.factor index 5a013113b8..a1fb95cdbf 100644 --- a/extra/ui/gadgets/canvas/canvas.factor +++ b/extra/ui/gadgets/canvas/canvas.factor @@ -1,7 +1,8 @@ ! Copyright (C) 2007 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. -USING: ui.backend ui.gadgets ui.gadgets.theme ui.gadgets.worlds -ui.render opengl opengl.gl kernel namespaces tuples colors ; +USING: ui.backend ui.gadgets ui.gadgets.theme ui.gadgets.lib +ui.gadgets.worlds ui.render opengl opengl.gl kernel namespaces +tuples colors ; IN: ui.gadgets.canvas TUPLE: canvas dlist ; @@ -10,9 +11,6 @@ TUPLE: canvas dlist ; canvas construct-gadget dup black solid-interior ; -: find-gl-context ( gadget -- ) - find-world world-handle select-gl-context ; - : delete-canvas-dlist ( canvas -- ) dup find-gl-context dup canvas-dlist [ delete-dlist ] when*