incorporate color into "cairo.pango.gadgets" run for testing purposes.

diff --git a/extra/cairo/pango/gadgets/gadgets.factor b/extra/cairo/pango/gadgets/gadgets.factor
index 48e5e683a9648077391c752da9da342b30917976..0ba901d453f67e4f618bdef9849e7b94137d1771 100644 (file)
--- a/extra/cairo/pango/gadgets/gadgets.factor
+++ b/extra/cairo/pango/gadgets/gadgets.factor
@@ -9,12 +9,16 @@ IN: cairo.pango.gadgets
 : <pango-gadget> ( quot -- gadget )
     [ cr layout pango_cairo_show_layout ] (pango-gadget) ;
 
-USING: prettyprint sequences ui.gadgets.panes ;
+USING: prettyprint sequences ui.gadgets.panes
+threads ;
 : hello-pango ( -- )
     50 [ 6 + ] map [
         "Sans " swap unparse append
-        [ layout-font "今日は、 Pango!" layout-text ] curry
-        <pango-gadget> gadget.
+        [ 
+            cr 0 1 0.2 0.6 cairo_set_source_rgba
+            layout-font "今日は、 Pango!" layout-text
+        ] curry
+        <pango-gadget> gadget. yield
     ] each ;
 
 MAIN: hello-pango