From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Sun, 5 Nov 2006 23:39:49 +0000 (+0100)
Subject: remove vestiges of old balloon code.
X-Git-Tag: release/2.10.0-2~32^2~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=81eddefbd9ab34a85ad738f9d4dffa551e6b34ae;p=lilypond.git

remove vestiges of old balloon code.
---

diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 029d73c58f..cedfe092df 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -48,16 +48,6 @@ where a horizontal beam fits that is larger than this number, make a kneed beam.
      (axes ,list? "list of axis numbers.
 In the case of alignment grobs, this should contain only one number.")
 
-     (balloon-text ,markup? "Text to add to help balloon")
-     (balloon-text-props ,list? "Font properties
-for balloon text.")
-     (balloon-text-offset ,number-pair?
-			  "Where to put text relative to balloon.")
-     (balloon-padding ,ly:dimension? "Text to add to help balloon")
-     (original-stencil ,ly:stencil? "The
-original stencil drawer to draw the balloon around.")
-
-
      (bar-size ,ly:dimension? "size of a bar line.")
      (barre-type ,symbol? "Type of barre indication used in a fret diagram.
 Choices include @code{curved} and @code{straight}.")
diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index 86d2f2e0dd..69dd59e68e 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -839,23 +839,6 @@ if appropriate.
   (music-map apply-duration lyric-music))
 
 
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;
-
-(define-public ((add-balloon-text object-name text off) grob orig-context cur-context)
-  "Usage: see input/regression/balloon.ly "
-  (let* ((meta (ly:grob-property grob 'meta))
-	 (cb (ly:grob-property-data grob 'stencil))
-	 (nm (if (pair? meta) (cdr (assoc 'name meta)) "nonexistant")))
-    (if (and (equal? nm object-name)
-	     (procedure? cb))
-	(begin
-	  (ly:grob-set-property! grob 'stencil  ly:balloon-interface::print)
-	  (set! (ly:grob-property grob 'original-stencil) cb)
-	  (set! (ly:grob-property grob 'balloon-text) text)
-	  (set! (ly:grob-property grob 'balloon-text-offset) off)
-	  (set! (ly:grob-property grob 'balloon-text-props) '((font-family . roman)))))))
-
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; accidentals