- if (!is_number_pair (scm_off))
- return scm_mol;
-
- Offset off = ly_scm2offset (scm_off);
- Molecule * m = unsmob_molecule (scm_mol);
- Box orig_extent = m->extent_box ();
- Box box_extent = orig_extent;
-
- SCM widen = me->get_grob_property ("balloon-padding");
- Real w = .1;
- if (gh_number_p (widen))
- {
- w = gh_scm2double (widen);
- }
- box_extent.widen (w, w);
-