- Grob *me= unsmob_grob (smob);
-
- SCM cb = me->get_property ("balloon-original-callback");
- SCM scm_mol = SCM_EOL;
-
- if (gh_procedure_p (cb))
- {
- scm_mol = scm_call_1 (cb, smob);
- }
-
- if (!unsmob_stencil (scm_mol))
- return scm_mol;
-
- SCM scm_off = me->get_property ("balloon-text-offset");
-
- if (!is_number_pair (scm_off))
- return scm_mol;
-
- Offset off = ly_scm2offset (scm_off);
- Stencil * m = unsmob_stencil (scm_mol);
- Box orig_extent = m->extent_box ();
- Box box_extent = orig_extent;