X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fgrob.cc;h=cc39c979f0e9cf146b40975b01f82ed9441d08bc;hb=34a302a3f5717a4238ef294e67448b05088fba88;hp=6c2eba1710fb15a283f5ecd50249f3ee7f11320f;hpb=08560a1b8076630c4fc6cb9b902614d8b74fd6fc;p=lilypond.git diff --git a/lily/grob.cc b/lily/grob.cc index 6c2eba1710..cc39c979f0 100644 --- a/lily/grob.cc +++ b/lily/grob.cc @@ -170,6 +170,17 @@ Grob::get_print_stencil () const = *unsmob_stencil (scm_call_1 (ly_lily_module_constant ("stencil-whiteout"), retval.smobbed_copy ())); } + + SCM id = get_property ("id"); + if (scm_is_string (id)) + { + SCM expr = scm_list_3 (ly_symbol2scm ("id"), + id, + retval.expr ()); + + retval = Stencil (retval.extent_box (), expr); + } + } return retval; @@ -784,9 +795,11 @@ ADD_INTERFACE (Grob, "cause " "color " "cross-staff " + "id " "extra-X-extent " "extra-Y-extent " "extra-offset " + "footnote-music " "forced-spacing " "interfaces " "layer "