Clean up
parent
d577a846d5
commit
039f44baa3
|
@ -74,9 +74,12 @@ SYMBOL: dpi
|
||||||
#! strings
|
#! strings
|
||||||
swap -1 pango_layout_set_text ;
|
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 )
|
: <PangoLayout> ( text font -- layout )
|
||||||
dummy-cairo pango_cairo_create_layout |g_object_unref
|
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-font ] keep
|
||||||
[ set-layout-text ] keep ;
|
[ set-layout-text ] keep ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue