From: Jan Nieuwenhuizen <janneke@gnu.org>
Date: Thu, 25 Jul 2002 14:09:38 +0000 (+0000)
Subject: * scm/grob-property-description.scm (conditional-elements): Add
X-Git-Tag: release/1.5.70~16
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=35337fae20470616d5648c42a38ab75bf8efa7b9;p=lilypond.git

* 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 ae501af070..d9fa2f33b0 100644
--- 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 dea4418062..3a1855320e 100644
--- 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 9376fc0539..66af41fad1 100644
--- 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.