+Balloon_interface::print (SCM smob)
+{
+ Grob *me = unsmob<Grob> (smob);
+
+ if (Item *item = dynamic_cast<Item *> (me))
+ if (!Item::break_visible (item))
+ return SCM_EOL;
+
+ Grob *p = me->get_parent (X_AXIS);
+
+ Offset off (me->relative_coordinate (p, X_AXIS),
+ me->relative_coordinate (p, Y_AXIS));
+
+ return internal_balloon_print (me, p, off);
+}
+
+MAKE_SCHEME_CALLBACK (Balloon_interface, print_spanner, 1);
+SCM
+Balloon_interface::print_spanner (SCM smob)