basis/pango/pango.factor

   1 ! Copyright (C) 2008 Matthew Willis.
   2 ! See http://factorcode.org/license.txt for BSD license
   3 USING: system alien.destructors alien.c-types alien.syntax alien
   4 combinators ;
   5 IN: pango
   6
   7 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   8 ! Helpful functions from other parts of pango
   9 ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
  10
  11 << "pango" {
  12     { [ os winnt? ] [ "libpango-1.0-0.dll" ] }
  13     { [ os macosx? ] [ "/opt/local/lib/libpango-1.0.0.dylib" ] }
  14     { [ os unix? ] [ "libpango-1.0.so" ] }
  15 } cond "cdecl" add-library >>
  16
  17 LIBRARY: pango
  18
  19 CONSTANT: PANGO_SCALE 1024
  20
  21 FUNCTION: PangoContext*
  22 pango_context_new ( ) ;
  23
  24 : dummy-pango-context ( -- context )
  25     \ dummy-pango-context [ pango_context_new ] initialize-alien ;