steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add a larger text section example to "cairo.pango.gadgets" run

db4
Matthew Willis 2008-05-25 13:24:56 -07:00
parent 383784d09e
commit 03ceb01125
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/cairo/pango/gadgets/gadgets.factor
View File

@ -10,7 +10,7 @@ IN: cairo.pango.gadgets
[ cr layout pango_cairo_show_layout ] (pango-gadget) ; [ cr layout pango_cairo_show_layout ] (pango-gadget) ;
USING: prettyprint sequences ui.gadgets.panes USING: prettyprint sequences ui.gadgets.panes
threads ; threads io.backend io.encodings.utf8 io.files ;
: hello-pango ( -- ) : hello-pango ( -- )
50 [ 6 + ] map [ 50 [ 6 + ] map [
"Sans " swap unparse append "Sans " swap unparse append
@ -19,6 +19,10 @@ threads ;
layout-font "今日は、 Pango!" layout-text layout-font "今日は、 Pango!" layout-text
] curry ] curry
<pango-gadget> gadget. yield <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 MAIN: hello-pango