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

diff --git a/input/regression/balloon.ly b/input/regression/balloon.ly
index 47ea9fca954e41283281d0059fb0a998f3a94d01..65264d48332cf1f00dc85fa391886f7b83552065 100644 (file)
--- 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 6f169978a4b4025e69afbba0a23ea4655b6ec48c..a810dcf1c68b41c7360fd7bc2ce54bff46d97449 100644 (file)
--- 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