extra/cairo/pango/gadgets/gadgets.factor

   1 USING: cairo.pango cairo cairo.ffi cairo.gadgets
   2 alien.c-types kernel math ;
   3 IN: cairo.pango.gadgets
   4
   5 : (pango-gadget) ( setup show -- gadget )
   6     [ drop layout-size ]
   7     [ compose [ with-pango ] curry <cached-cairo> ] 2bi ;
   8
   9 : <pango-gadget> ( quot -- gadget )
  10     [ cr layout pango_cairo_show_layout ] (pango-gadget) ;
  11
  12 USING: prettyprint sequences ui.gadgets.panes ;
  13 : hello-pango ( -- )
  14     50 [ 6 + ] map [
  15         "Sans " swap unparse append
  16         [ layout-font "今日は、 Pango!" layout-text ] curry
  17         <pango-gadget> gadget.
  18     ] each ;
  19
  20 MAIN: hello-pango