From 8353c89bfc70b93c003a280022ca46bd95f6b6bc Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 18 Apr 2013 17:43:36 +0200 Subject: [PATCH] Eliminate inherit-[xy]-parent-visibility --- scm/define-grobs.scm | 6 ++++-- scm/output-lib.scm | 7 ------- 2 files changed, 4 insertions(+), 9 deletions(-) diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm index 9ec6f122ba..00ee2cf8e4 100644 --- a/scm/define-grobs.scm +++ b/scm/define-grobs.scm @@ -953,7 +953,8 @@ (annotation-balloon . #f) (annotation-line . #t) (automatically-numbered . ,(grob::calc-property-by-copy 'automatically-numbered)) - (break-visibility . ,inherit-y-parent-visibility) + (break-visibility . ,(grob::inherit-parent-property + X 'break-visibility)) (footnote . #t) (footnote-text . ,(grob::calc-property-by-copy 'footnote-text)) (stencil . ,ly:balloon-interface::print) @@ -1619,7 +1620,8 @@ (OctavateEight . ( - (break-visibility . ,inherit-x-parent-visibility) + (break-visibility . ,(grob::inherit-parent-property + X 'break-visibility)) (font-shape . italic) (font-size . -4) (self-alignment-X . ,CENTER) diff --git a/scm/output-lib.scm b/scm/output-lib.scm index 7a20e32e90..0437d128a3 100644 --- a/scm/output-lib.scm +++ b/scm/output-lib.scm @@ -478,13 +478,6 @@ and duration-log @var{log}." (define-public center-visible #(#f #t #f)) (define-public end-of-line-visible #(#t #f #f)) (define-public all-invisible #(#f #f #f)) -(define-public (inherit-x-parent-visibility grob) - (let ((parent (ly:grob-parent grob X))) - (ly:grob-property parent 'break-visibility all-invisible))) -(define-public (inherit-y-parent-visibility grob) - (let ((parent (ly:grob-parent grob X))) - (ly:grob-property parent 'break-visibility))) - (define-public spanbar-begin-of-line-invisible #(#t #f #f)) -- 2.39.5