- SCM cb = me->get_property ("balloon-original-callback");
- SCM stil = SCM_EOL;
-
- if (ly_c_procedure_p (cb))
- stil = scm_call_1 (cb, smob);
-
- if (!unsmob_stencil (stil))
- return stil;
-
- SCM scm_off = me->get_property ("balloon-text-offset");
-
- if (!is_number_pair (scm_off))
- return stil;
+ Grob *p = me->get_parent (X_AXIS);
+
+ Offset off (me->relative_coordinate (p, X_AXIS),
+ me->relative_coordinate (p, Y_AXIS));