From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 3 Jan 2007 15:08:09 +0000 (+0100)
Subject: remove duplicate item-interface settings.
X-Git-Tag: release/2.11.8-1~8
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=004c1d3bd69487ef95ac2d819bb9799275ccb5e6;p=lilypond.git

remove duplicate item-interface settings.
---

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index adfde1ad59..d6265e851b 100644
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -124,7 +124,7 @@
 	(after-line-breaking . ,ly:accidental-interface::after-line-breaking)
 	(side-axis . ,X)
 	(meta . ((class . Item)
-		 (interfaces . (item-interface
+		 (interfaces . (
 				accidental-interface
 				break-aligned-interface
 				side-position-interface
@@ -490,7 +490,7 @@
 				rhythmic-grob-interface
 				text-interface
 				chord-name-interface
-				item-interface))))))
+				))))))
 
     (CombineTextScript
      . (
@@ -666,6 +666,12 @@
 	(self-alignment-Y . 0)
 	(script-priority . 100)
 
+	(after-line-breaking . ,(lambda (grob)
+				  (display (list
+					    (ly:grob-extent grob (ly:grob-parent grob X) X)
+					    " " 
+					    (ly:grob-relative-coordinate grob (ly:grob-parent grob X) X) "\n")))) 
+					    
 	(stencil . ,ly:text-interface::print)
 	(direction . ,ly:script-interface::calc-direction)
 	(text . ,fingering::calc-text) 
@@ -678,7 +684,7 @@
 				text-interface
 				side-position-interface
 				self-alignment-interface
-				item-interface))))))
+				))))))
     (FretBoard
      . ((stencil . ,fret-board::calc-stencil)
 	(finger-code . below-string)
@@ -1615,7 +1621,7 @@
 				text-interface
 				side-position-interface
 				self-alignment-interface
-				item-interface))))))
+				))))))
     
     (StrokeFinger
      . (
@@ -1636,7 +1642,7 @@
 				text-interface
 				side-position-interface
 				self-alignment-interface
-				item-interface))))))
+				))))))
     
 
     (SustainPedal
@@ -1887,8 +1893,7 @@
 	(stencil . ,ly:accidental-interface::print)
 	(glyph-name-alist . ,standard-alteration-glyph-name-alist)
 	(meta . ((class . Item)
-		 (interfaces . (item-interface
-				trill-pitch-accidental-interface
+		 (interfaces . (trill-pitch-accidental-interface
 				side-position-interface
 				font-interface))))))
 
@@ -1915,8 +1920,7 @@
 	(Y-offset . ,ly:staff-symbol-referencer::callback)
 	(font-size . -4)
 	(meta . ((class . Item)
-		 (interfaces . (item-interface
-				rhythmic-head-interface
+		 (interfaces . (rhythmic-head-interface
 				font-interface
 				pitched-trill-interface
 				ledgered-interface
@@ -2079,6 +2083,8 @@
 			       (cons 'spanner-interface ifaces-entry))))
      (else
       (ly:warning "Unknown class ~a" class)))
+
+    (set! ifaces-entry (uniq-list (sort ifaces-entry symbol<?)))
     (set! ifaces-entry (cons 'grob-interface ifaces-entry))
 
     (set! meta-entry (assoc-set! meta-entry 'name name-sym))
@@ -2134,10 +2140,11 @@
 
 (define pure-functions
   (list
+   ly:rest::height
    ly:staff-symbol-referencer::callback
    ly:staff-symbol::height))
 
-(define-public (pure-relevant grob)
+(define-public (pure-relevant? grob)
   (let ((extent-callback (ly:grob-property-data grob 'Y-extent)))
     (not (eq? #f
 	      (or
@@ -2149,7 +2156,9 @@
 		  (or
 		   (not (eq? extent-callback ly:grob::stencil-height))
 		   (memq (ly:grob-property-data grob 'stencil) pure-print-callbacks)
-		   (ly:stencil? (ly:grob-property-data grob 'stencil))))))))))
+		   (ly:stencil? (ly:grob-property-data grob 'stencil))
+
+		   ))))))))
 
 (define-public (call-pure-function unpure args start end)
   (if (ly:simple-closure? unpure)