From 383784d09ed2061e9f1e8267fabc7df877d1f9d5 Mon Sep 17 00:00:00 2001
From: Matthew Willis <matthew.willis@mac.com>
Date: Sun, 25 May 2008 12:03:26 -0700
Subject: [PATCH] incorporate color into "cairo.pango.gadgets" run for testing
 purposes.

---
 extra/cairo/pango/gadgets/gadgets.factor | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/extra/cairo/pango/gadgets/gadgets.factor b/extra/cairo/pango/gadgets/gadgets.factor
index 48e5e683a9..0ba901d453 100644
--- 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