From: Graham Percival <graham@percival-music.ca>
Date: Wed, 16 Apr 2008 00:39:00 +0000 (-0700)
Subject: add \balloonLength{On,Off} similar to \textLengthOff
X-Git-Tag: release/2.11.45-1~69
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=dfeef1a243874225a346375b488b5e9f4253fd8c;p=lilypond.git

add \balloonLength{On,Off} similar to \textLengthOff
---

diff --git a/ly/property-init.ly b/ly/property-init.ly
index 8bbf124826..575d5945d7 100644
--- a/ly/property-init.ly
+++ b/ly/property-init.ly
@@ -183,6 +183,17 @@ textLengthOff = {
   \override TextScript  #'infinite-spacing-height = ##f
 }
 
+balloonLengthOn = {
+  \override BalloonTextItem #'extra-spacing-width = #'(0 . 0)
+  \override BalloonTextItem #'infinite-spacing-height = ##t
+}
+
+balloonLengthOff = {
+  \override BalloonTextItem #'extra-spacing-width = #'(+inf.0 . -inf.0)
+  \override BalloonTextItem #'infinite-spacing-height = ##f
+}
+
+
 showStaffSwitch = \set followVoice = ##t
 hideStaffSwitch = \set followVoice = ##f