From 86221d57f362b344bf4dcab9c69e7e4ae28d1873 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Mon, 17 Mar 2008 09:03:24 -0500
Subject: [PATCH] fix cairo-demo my commit did more than fix a using..oops

---
 extra/cairo-demo/cairo-demo.factor | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/extra/cairo-demo/cairo-demo.factor b/extra/cairo-demo/cairo-demo.factor
index ab8858efb3..29fb99a301 100644
--- 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 ;