Remove code duplication

release
Slava Pestov 2007-11-04 21:24:22 -05:00
parent 943fe1b6cf
commit 4485bc0c01
1 changed files with 3 additions and 5 deletions

View File

@ -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*