From 03ceb011259add3a688a9550a4165b72eb080acf Mon Sep 17 00:00:00 2001
From: Matthew Willis <matthew.willis@mac.com>
Date: Sun, 25 May 2008 13:24:56 -0700
Subject: [PATCH] Add a larger text section example to "cairo.pango.gadgets"
 run

---
 extra/cairo/pango/gadgets/gadgets.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/extra/cairo/pango/gadgets/gadgets.factor b/extra/cairo/pango/gadgets/gadgets.factor
index 0ba901d453..fa12f96622 100644
--- a/extra/cairo/pango/gadgets/gadgets.factor
+++ b/extra/cairo/pango/gadgets/gadgets.factor
@@ -10,7 +10,7 @@ IN: cairo.pango.gadgets
     [ cr layout pango_cairo_show_layout ] (pango-gadget) ;
 
 USING: prettyprint sequences ui.gadgets.panes
-threads ;
+threads io.backend io.encodings.utf8 io.files ;
 : hello-pango ( -- )
     50 [ 6 + ] map [
         "Sans " swap unparse append
@@ -19,6 +19,10 @@ threads ;
             layout-font "今日は、 Pango!" layout-text
         ] curry
         <pango-gadget> gadget. yield
-    ] each ;
+    ] each
+    [ 
+        "resource:extra/cairo/pango/gadgets/gadgets.factor"
+        normalize-path utf8 file-contents layout-text
+    ] <pango-gadget> gadget. ;
 
 MAIN: hello-pango
-- 
2.34.1