From bad7296346f2a62380e6f3df48637e161521c1a1 Mon Sep 17 00:00:00 2001 From: Keith OHara Date: Fri, 17 May 2013 18:34:24 -0700 Subject: [PATCH] define-grobs.scm: correct oversight on BalloonText; issue 3360 --- input/regression/balloon.ly | 6 ++++++ scm/define-grobs.scm | 2 ++ 2 files changed, 8 insertions(+) diff --git a/input/regression/balloon.ly b/input/regression/balloon.ly index 47ea9fca95..65264d4833 100644 --- a/input/regression/balloon.ly +++ b/input/regression/balloon.ly @@ -15,6 +15,12 @@ with lines and explanatory text added." \relative c' { \balloonGrobText #'Stem #'(3 . 4) \markup { "I'm a Stem" } 8 + \balloonLengthOn + \balloonGrobText #'Rest #'(-1 . -2) \markup{ "Rest" } + r + \balloonLengthOff + \balloonGrobText #'Script #'(-1 . -1) \markup{ "Accent" } + c4-> } } diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm index 6f169978a4..a810dcf1c6 100644 --- a/scm/define-grobs.scm +++ b/scm/define-grobs.scm @@ -188,10 +188,12 @@ . ( (annotation-balloon . #t) (annotation-line . #t) + (extra-spacing-width . (+inf.0 . -inf.0)) (stencil . ,ly:balloon-interface::print) (text . ,(grob::calc-property-by-copy 'text)) (X-offset . ,(grob::calc-property-by-copy 'X-offset)) (Y-offset . ,(grob::calc-property-by-copy 'Y-offset)) + (Y-extent . ,grob::always-Y-extent-from-stencil) (meta . ((class . Item) (interfaces . (balloon-interface font-interface -- 2.39.5