Fix canvas gadget

db4
U-SLAVA-DFB8FF805\Slava 2008-09-02 21:21:37 -05:00
parent 5a2c47bb44
commit e5dbb99f6e
2 changed files with 6 additions and 2 deletions

View File

@ -0,0 +1,4 @@
IN: ui.gadgets.canvas.tests
USING: ui.gadgets.canvas tools.test kernel ;
{ 1 0 } [ [ drop ] draw-canvas ] must-infer-as

4
basis/ui/gadgets/canvas/canvas.factor Normal file → Executable file
View File

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