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

db4
Matthew Willis 2008-05-25 12:03:26 -07:00
parent e1669916f6
commit 383784d09e
1 changed files with 7 additions and 3 deletions

View File

@ -9,12 +9,16 @@ IN: cairo.pango.gadgets
: <pango-gadget> ( quot -- gadget ) : <pango-gadget> ( quot -- gadget )
[ 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 ;
: hello-pango ( -- ) : hello-pango ( -- )
50 [ 6 + ] map [ 50 [ 6 + ] map [
"Sans " swap unparse append "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 ; ] each ;
MAIN: hello-pango MAIN: hello-pango