From 039f44baa3a2a5aaebd7d9e9899b00f81a2c90b8 Mon Sep 17 00:00:00 2001 From: Slava Pestov Date: Wed, 4 Mar 2009 21:15:16 -0600 Subject: [PATCH] Clean up --- basis/pango/layouts/layouts.factor | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/basis/pango/layouts/layouts.factor b/basis/pango/layouts/layouts.factor index 1e82602673..defcdec6f8 100644 --- a/basis/pango/layouts/layouts.factor +++ b/basis/pango/layouts/layouts.factor @@ -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 ; + : ( 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 ;