steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/ui/gadgets/canvas/canvas.factor
View File

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