Fix canvas gadget
parent
5a2c47bb44
commit
e5dbb99f6e
|
@ -0,0 +1,4 @@
|
|||
IN: ui.gadgets.canvas.tests
|
||||
USING: ui.gadgets.canvas tools.test kernel ;
|
||||
|
||||
{ 1 0 } [ [ drop ] draw-canvas ] must-infer-as
|
|
@ -16,8 +16,8 @@ TUPLE: canvas < gadget dlist ;
|
|||
[ f >>dlist drop ] tri ;
|
||||
|
||||
: make-canvas-dlist ( canvas quot -- dlist )
|
||||
[ GL_COMPILE ] dip make-dlist
|
||||
[ >>dlist drop ] keep ;
|
||||
[ drop ] [ GL_COMPILE swap make-dlist ] 2bi
|
||||
[ >>dlist drop ] keep ; inline
|
||||
|
||||
: cache-canvas-dlist ( canvas quot -- dlist )
|
||||
over dlist>> dup
|
||||
|
|
Loading…
Reference in New Issue