]> gitweb.factorcode.org Git - factor.git/blob - basis/ui/gadgets/canvas/canvas-tests.factor
Fix permission bits
[factor.git] / basis / ui / gadgets / canvas / canvas-tests.factor
1 IN: ui.gadgets.canvas.tests\r
2 USING: ui.gadgets.canvas tools.test kernel ;\r
3 \r
4 { 1 0 } [ [ drop ] draw-canvas ] must-infer-as\r