Clean up
parent
6297c4d2e4
commit
b16b8dae32
|
@ -12,8 +12,7 @@ TUPLE: canvas < gadget dlist ;
|
||||||
|
|
||||||
: delete-canvas-dlist ( canvas -- )
|
: delete-canvas-dlist ( canvas -- )
|
||||||
[ find-gl-context ]
|
[ find-gl-context ]
|
||||||
[ dlist>> [ delete-dlist ] when* ]
|
[ [ [ delete-dlist ] when* f ] change-dlist drop ] bi ;
|
||||||
[ f >>dlist drop ] tri ;
|
|
||||||
|
|
||||||
: make-canvas-dlist ( canvas quot -- dlist )
|
: make-canvas-dlist ( canvas quot -- dlist )
|
||||||
[ drop ] [ GL_COMPILE swap make-dlist ] 2bi
|
[ drop ] [ GL_COMPILE swap make-dlist ] 2bi
|
||||||
|
|
Loading…
Reference in New Issue