20 lines
443 B
Factor
20 lines
443 B
Factor
! Copyright (C) 2008 Matthew Willis.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: opengl.gadgets kernel
|
|
arrays
|
|
accessors ;
|
|
|
|
IN: pango.gadgets
|
|
|
|
TUPLE: pango-gadget < texture-gadget text font ;
|
|
|
|
M: pango-gadget cache-key* [ font>> ] [ text>> ] bi 2array ;
|
|
|
|
SYMBOL: pango-backend
|
|
HOOK: construct-pango pango-backend ( -- gadget )
|
|
|
|
: <pango> ( font text -- gadget )
|
|
construct-pango
|
|
swap >>text
|
|
swap >>font ;
|