+SCM
+Balloon_interface::internal_balloon_print (Grob *me, Grob *p, Offset off)
+{
+ Box b (robust_relative_extent (p, p, X_AXIS),
+ robust_relative_extent (p, p, Y_AXIS));
+ Real padding = robust_scm2double (me->get_property ("padding"), .1);
+ b.widen (padding, padding);
+
+ // FIXME
+ Stencil fr;
+ if (to_boolean (me->get_property ("annotation-balloon")))
+ fr = Lookup::frame (b, 0.1, 0.05);
+
+ SCM bt = me->get_property ("text");
+ SCM chain = Font_interface::text_font_alist_chain (me);
+ SCM stencil = Text_interface::interpret_markup (me->layout ()->self_scm (),
+ chain, bt);
+ Stencil *text_stil = unsmob<Stencil> (stencil);