From: Han-Wen Nienhuys Date: Sun, 3 Apr 2005 23:36:54 +0000 (+0000) Subject: *** empty log message *** X-Git-Tag: release/2.5.18~14 X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=605fd1116f8956a270dc1bdf9743f0fc5b10703e;p=lilypond.git *** empty log message *** --- diff --git a/ChangeLog b/ChangeLog index 9ea527f417..e3ed6c20d7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -8,7 +8,7 @@ * Documentation/user/point-and-click.itely: document ly:set-option. - * lily/grob.cc (get_uncached_stencil): only ste grob-cause if + * lily/grob.cc (get_uncached_stencil): only set grob-cause if point_and_click_global is set. * lily/scm-option.cc (LY_DEFINE): add point-and-click diff --git a/Documentation/user/introduction.itely b/Documentation/user/introduction.itely index fde3d73a66..cdd3292b74 100644 --- a/Documentation/user/introduction.itely +++ b/Documentation/user/introduction.itely @@ -113,11 +113,11 @@ spot which fragment is which? { \override Staff.NoteSpacing #'stem-spacing-correction = #0.6 c'4 e''4 e'4 b'4 | - \stemDown b'4 e''4 a'4 e''4 | \bar "||" + \stemDown b'8[ e'' a' e''] | \bar "||" \override Staff.NoteSpacing #'stem-spacing-correction = #0.0 \override Staff.StaffSpacing #'stem-spacing-correction = #0.0 \stemNeutral c'4 e''4 e'4 b'4 | - \stemDown b'4 e''4 a'4 e''4 | + \stemDown b'8[ e'' a' e''] | } @end lilypond diff --git a/lily/grob.cc b/lily/grob.cc index ed1c5dd752..6b17b356b7 100644 --- a/lily/grob.cc +++ b/lily/grob.cc @@ -238,10 +238,13 @@ Grob::get_uncached_stencil () const { if (to_boolean (get_property ("transparent"))) stil = Stencil (m->extent_box (), SCM_EOL).smobbed_copy (); - else if (point_and_click_global) + else { - SCM expr = scm_list_3 (ly_symbol2scm ("grob-cause"), self_scm (), - m->expr ()); + + SCM expr = m->expr (); + if (point_and_click_global) + expr = scm_list_3 (ly_symbol2scm ("grob-cause"), self_scm (), expr); + stil = Stencil (m->extent_box (), expr).smobbed_copy (); }