* 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
{
\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
{
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 ();
}