From e09a6fe201d9ee9ce00b496737dfbce7570c19cf Mon Sep 17 00:00:00 2001 From: Han-Wen Nienhuys Date: Mon, 1 Apr 2002 22:53:26 +0000 Subject: [PATCH] '' --- lily/text-spanner.cc | 5 ++++- scm/grob-property-description.scm | 3 ++- 2 files changed, 6 insertions(+), 2 deletions(-) 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 w, broken; Drul_array 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.") -- 2.39.5