diff options
| author | David Kastrup <dak@gnu.org> | 2013-04-18 17:43:36 +0200 |
|---|---|---|
| committer | David Kastrup <dak@gnu.org> | 2013-04-23 08:21:47 +0200 |
| commit | 8353c89bfc70b93c003a280022ca46bd95f6b6bc (patch) | |
| tree | 2266e55957dbe1c3877e36150b6fa5d15d8dfdd3 /scm | |
| parent | 90db586bfaa463ce9faf7fb67a1875c552bb3a25 (diff) | |
Eliminate inherit-[xy]-parent-visibility
Diffstat (limited to 'scm')
| -rw-r--r-- | scm/define-grobs.scm | 6 | ||||
| -rw-r--r-- | 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)) |