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

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

4
basis/ui/gadgets/canvas/canvas-tests.factor Executable file
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 ; [ f >>dlist drop ] tri ;
: make-canvas-dlist ( canvas quot -- dlist ) : make-canvas-dlist ( canvas quot -- dlist )
[ GL_COMPILE ] dip make-dlist [ drop ] [ GL_COMPILE swap make-dlist ] 2bi
[ >>dlist drop ] keep ; [ >>dlist drop ] keep ; inline
: cache-canvas-dlist ( canvas quot -- dlist ) : cache-canvas-dlist ( canvas quot -- dlist )
over dlist>> dup over dlist>> dup