fix cairo-demo

my commit did more than fix a using..oops

diff --git a/extra/cairo-demo/cairo-demo.factor b/extra/cairo-demo/cairo-demo.factor
index ab8858efb3d8c234be78619ec3193b22fd7c07eb..29fb99a3016b7b1241e2941405f7dcfe6588ce0b 100644 (file)
--- a/extra/cairo-demo/cairo-demo.factor
+++ b/extra/cairo-demo/cairo-demo.factor
@@ -22,11 +22,11 @@ IN: cairo-demo
 
 TUPLE: cairo-gadget image-array cairo-t ;
 
-! M: cairo-gadget draw-gadget* ( gadget -- )
-!    0 0 glRasterPos2i
-!    1.0 -1.0 glPixelZoom
-!    >r 384 256 GL_RGBA GL_UNSIGNED_BYTE r>
-!    cairo-gadget-image-array glDrawPixels ;
+M: cairo-gadget draw-gadget* ( gadget -- )
+    0 0 glRasterPos2i
+    1.0 -1.0 glPixelZoom
+    >r 384 256 GL_RGBA GL_UNSIGNED_BYTE r>
+    cairo-gadget-image-array glDrawPixels ;
 
 : create-surface ( gadget -- cairo_surface_t )
     make-image-array
@@ -60,8 +60,8 @@ M: cairo-gadget pref-dim* drop { 384 256 0 } ;
 M: cairo-gadget graft* ( gadget -- )
   dup dup init-cairo swap set-cairo-gadget-cairo-t draw-hello-world ;
 
-! M: cairo-gadget ungraft* ( gadget -- )
-!    cairo-gadget-cairo-t cairo_destroy ;
+M: cairo-gadget ungraft* ( gadget -- )
+   cairo-gadget-cairo-t cairo_destroy ;
 
 : <cairo-gadget> ( -- gadget )
   cairo-gadget construct-gadget ;