unmaintained/pango/cairo/samples/samples.factor

   1 ! Copyright (C) 2008 Matthew Willis.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: prettyprint sequences ui.gadgets.panes
   4 pango.cairo.gadgets math kernel cairo cairo.ffi
   5 pango.cairo pango.gadgets tools.time namespaces assocs
   6 threads io.backend io.encodings.utf8 io.files ;
   7
   8 IN: pango.cairo.samples
   9
  10 : hello-pango ( -- )
  11     "monospace 10" "resource:extra/pango/cairo/gadgets/gadgets.factor"
  12     normalize-path utf8 file-contents
  13     <pango> gadget. ;
  14
  15 : time-pango ( -- )
  16     [ hello-pango ] time ;
  17
  18 MAIN: time-pango