unmaintained/pango/gadgets/gadgets.factor

   1 ! Copyright (C) 2008 Matthew Willis.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: opengl.gadgets kernel
   4 arrays
   5 accessors ;
   6
   7 IN: pango.gadgets
   8
   9 TUPLE: pango-gadget < texture-gadget text font ;
  10
  11 M: pango-gadget cache-key* [ font>> ] [ text>> ] bi 2array ;
  12
  13 SYMBOL: pango-backend
  14 HOOK: construct-pango pango-backend ( -- gadget )
  15
  16 : <pango> ( font text -- gadget )
  17     construct-pango
  18         swap >>text
  19         swap >>font ;