From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Mon, 1 Apr 2002 22:53:26 +0000 (+0000)
Subject: ''
X-Git-Tag: release/1.5.50~1
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=e09a6fe201d9ee9ce00b496737dfbce7570c19cf;p=lilypond.git

''
---

diff --git a/lily/text-spanner.cc b/lily/text-spanner.cc
index 634c517769..5187a0658e 100644
--- a/lily/text-spanner.cc
+++ b/lily/text-spanner.cc
@@ -205,6 +205,9 @@ Text_spanner::setup_pedal_bracket(Spanner *me)
   Drul_array<bool> w, broken;
   Drul_array<Real> height, width, shorten, r;
 
+  /*
+    FIXME: too many new property names.
+   */
   SCM pa = me->get_grob_property ("if-text-padding");
   SCM ew = me->get_grob_property ("edge-width");
   SCM eh = me->get_grob_property ("edge-height");
@@ -302,5 +305,5 @@ ADD_INTERFACE (Pianopedal,"piano-pedal-interface",
 
 ADD_INTERFACE (Text_spanner,"text-spanner-interface",
   "generic text spanner",
-  "dash-period dash-length edge-height edge-width edge-text shorten-pair type");
+  "dash-period if-text-padding dash-length edge-height edge-width edge-text shorten-pair type");
 
diff --git a/scm/grob-property-description.scm b/scm/grob-property-description.scm
index 7e6fca5c61..81e149a7fe 100644
--- a/scm/grob-property-description.scm
+++ b/scm/grob-property-description.scm
@@ -257,7 +257,6 @@ FIXME: also pair? (cons LEFT RIGHT)
 (grob-property-description 'non-default boolean? "not set because of existence of a bar?.")
 (grob-property-description 'note-width number? "unit for horizontal translation, measured in staff-space.")
 (grob-property-description 'note-heads list? "List of note head grobs")
-(grob-property-description 'number-gap number? "size of the gap for tohe number in a tuplet.")
 (grob-property-description 'number-threshold number? "only put numbers bigger than this threshold over multi measuer rest.")
 (grob-property-description 'old-accidentals list? "list of (pitch, accidental) pairs.")
 (grob-property-description 'padding number? "add this much extra space between objects that are next to each other.")
@@ -447,3 +446,5 @@ columns.
  "ideal beam slope, without damping.")
 (grob-property-description 'stem-info pair? "caching of stem parameters")
 (grob-property-description 'note-columns pair? "list of NoteColumn grobs.")
+
+(grob-property-description 'if-text-padding number? "padding in case texts are there.")