db4
Slava Pestov 2009-03-04 21:15:16 -06:00
parent d577a846d5
commit 039f44baa3
1 changed files with 4 additions and 1 deletions

View File

@ -74,9 +74,12 @@ SYMBOL: dpi
#! strings
swap -1 pango_layout_set_text ;
: set-layout-resolution ( layout -- )
pango_layout_get_context dpi get pango_cairo_context_set_resolution ;
: <PangoLayout> ( text font -- layout )
dummy-cairo pango_cairo_create_layout |g_object_unref
[ pango_layout_get_context dpi get pango_cairo_context_set_resolution ] keep
[ set-layout-resolution ] keep
[ set-layout-font ] keep
[ set-layout-text ] keep ;