From dfeef1a243874225a346375b488b5e9f4253fd8c Mon Sep 17 00:00:00 2001
From: Graham Percival <graham@percival-music.ca>
Date: Tue, 15 Apr 2008 17:39:00 -0700
Subject: [PATCH] add \balloonLength{On,Off} similar to \textLengthOff

---
 ly/property-init.ly | 11 +++++++++++
 1 file changed, 11 insertions(+)

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
 
-- 
2.39.5