1 USING: cairo.pango cairo cairo.ffi cairo.gadgets
2 alien.c-types kernel math ;
3 IN: cairo.pango.gadgets
5 : (pango-gadget) ( setup show -- gadget )
7 [ compose [ with-pango ] curry <cached-cairo> ] 2bi ;
9 : <pango-gadget> ( quot -- gadget )
10 [ cr layout pango_cairo_show_layout ] (pango-gadget) ;
12 USING: prettyprint sequences ui.gadgets.panes ;
15 "Sans " swap unparse append
16 [ layout-font "今日は、 Pango!" layout-text ] curry
17 <pango-gadget> gadget.