From: Keith OHara <k-ohara5a5a@oco.net>
Date: Sat, 18 May 2013 01:34:24 +0000 (-0700)
Subject: define-grobs.scm: correct oversight on BalloonText; issue 3360
X-Git-Tag: release/2.17.19-1~4
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=bad7296346f2a62380e6f3df48637e161521c1a1;p=lilypond.git

define-grobs.scm: correct oversight on BalloonText; issue 3360
---

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" }
       <c-\balloonText #'(-2 . -2) \markup { \simple #"hoi" }  >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