* scm/grob-property-description.scm (conditional-elements): Add

extent-X.

* lily/grob.cc: Add extent-X and extent-Y to interface.

diff --git a/ChangeLog b/ChangeLog
index ae501af0701b5791bb2574436bc2e8c7c9e57b6a..d9fa2f33b0774de4d903a1863a037a03cfaa2113 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2002-07-25  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * scm/grob-property-description.scm (conditional-elements): Add
+       extent-X.
+
+       * lily/grob.cc: Add extent-X and extent-Y to interface.
+
        * lily/grob-scheme.cc (ly_get_parent): Don't dereference null
        parent. (Han-Wen)
 

diff --git a/lily/grob.cc b/lily/grob.cc
index dea44180625338c57e83df8e80aaac4820ddc6c7..3a1855320e6310cd4a993ccf762f022c0dd0f5e0 100644 (file)
--- a/lily/grob.cc
+++ b/lily/grob.cc
@@ -864,9 +864,10 @@ is also an abstract grob: it only moves around chords, but doesn't print
 anything.
 ",
   "X-offset-callbacks Y-offset-callbacks X-extent-callback molecule cause
-Y-extent-callback molecule-callback extra-offset
-spacing-procedure
-staff-symbol interfaces dependencies extra-extent-X causes meta
-layer before-line-breaking-callback after-line-breaking-callback extra-extent-Y minimum-extent-X minimum-extent-Y transparent");
+Y-extent-callback molecule-callback extra-offset spacing-procedure
+staff-symbol interfaces dependencies extent-X extent-Y extra-extent-X
+causes meta layer before-line-breaking-callback
+after-line-breaking-callback extra-extent-Y minimum-extent-X
+minimum-extent-Y transparent");
 
 

diff --git a/scm/grob-property-description.scm b/scm/grob-property-description.scm
index 9376fc0539b4c38062b2980cca1ecf43823e4bc9..66af41fad13831751cd324bbae022362b2a74423 100644 (file)
--- a/scm/grob-property-description.scm
+++ b/scm/grob-property-description.scm
@@ -176,6 +176,7 @@ mean centre distance weighted per note
 (grob-property-description 'extra-extent-X number-pair? "enlarge in X dimension by this much, measured in staff space.")
 (grob-property-description 'extra-extent-Y number-pair? "see @code{extra-extent-Y}.")
 (grob-property-description 'extent-X number-pair? "Store extent. internal use only. ")
+(grob-property-description 'extent-Y number-pair? "Store extent. internal use only. ")
 (grob-property-description 'extra-offset number-pair? "pair of reals
 (a cons) forcing an extra offset before outputting.
 @code{extra-offset} is added just before `printing' the grob, so the
@@ -502,8 +503,7 @@ no extent.
 (grob-property-description 'y-free number? "minimal vertical gap between slur and noteheads or stems.")
 (grob-property-description 'y-offset number? "extra vertical offset for ties away from the center line.")
 
-;;;;;;;;;;;;;;;;;;;;
-;;;;;;;;;;;;;;;; INTERNAL
+;;; INTERNAL
 
 (grob-property-description 'left-neighbors grob-list? " List of
 spacing-wish grobs that are close to the current column.