--- deliantra/Deliantra-Client/Client.xs	2006/04/17 09:33:11	1.45
+++ deliantra/Deliantra-Client/Client.xs	2006/04/17 19:20:59	1.46
@@ -49,7 +49,14 @@
    * reasonably well with bitstream vera
    */
   PangoFontDescription *font = pango_context_get_font_description (context);
-  pango_font_description_set_absolute_size (font, self->base_height * (PANGO_SCALE * 8 / 10));
+
+  int height = self->base_height * (PANGO_SCALE * 8 / 10);
+
+  if (pango_font_description_get_size (font) != height)
+    {
+      pango_font_description_set_absolute_size (font, height);
+      pango_layout_context_changed (self->pl);
+    }
 }
 
 static void
@@ -393,6 +400,14 @@
         pango_layout_set_markup (self->pl, text, textlen);
 }
 
+SV *
+get_text (CFClient::Layout self)
+	CODE:
+        RETVAL = newSVpv (pango_layout_get_text (self), 0);
+        SvUTF8_on (RETVAL);
+	OUTPUT:
+        RETVAL
+
 void
 set_height (CFClient::Layout self, int base_height)
 	CODE: