Issue 4418/5 whiteout -> whiteout-box in scm/

diff --git a/scm/bar-line.scm b/scm/bar-line.scm
index 02c80f64e535810ede4a6a7d7cc5df8f01ea1154..296d86787a828f57b248cd374303e6d8158cd5f9 100644 (file)
--- a/scm/bar-line.scm
+++ b/scm/bar-line.scm
@@ -467,11 +467,11 @@ draws the span bar variant, i.e. without the segno sign."
 (define (make-kievan-bar-line grob extent)
   "Draw a kievan bar line."
   (let* ((font (ly:grob-default-font grob))
-         (stencil (stencil-whiteout
+         (stencil (stencil-whiteout-box
                    (ly:font-get-glyph font "scripts.barline.kievan"))))
 
     ;; the kievan bar line has no staff lines underneath,
-    ;; so we whiteout them and move the grob to a higher layer
+    ;; so we whiteout-box them and move the grob to a higher layer
     (ly:grob-set-property! grob 'layer 1)
     stencil))
 

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index cdae45dd17bb976d8263bd3ca1b404af4dd4282f..f91ad54025caf8089c3040cb66ab716a89c5e874 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -2361,7 +2361,7 @@
         (parenthesis-friends . (dot))
         (stem-attachment . (0.0 . 1.35))
         (stencil . ,tab-note-head::print)
-        (whiteout . #t)
+        (whiteout-box . #t)
         (X-offset . ,ly:self-alignment-interface::x-aligned-on-self)
         (Y-offset . ,staff-symbol-referencer::callback)
         (Y-extent . ,grob::always-Y-extent-from-stencil)

diff --git a/scm/output-lib.scm b/scm/output-lib.scm
index 33ad81ae50405053fe015197c7a85fa40d32697b..8a5cae2b23f0fbcc79ab61c6334dd0222b115380 100644 (file)
--- a/scm/output-lib.scm
+++ b/scm/output-lib.scm
@@ -902,8 +902,8 @@ and duration-log @var{log}."
     (set! rp (ly:make-stencil (ly:stencil-expr rp)
                               rp-x-extent
                               (ly:stencil-extent rp Y)))
-    (list (stencil-whiteout lp)
-          (stencil-whiteout rp))))
+    (list (stencil-whiteout-box lp)
+          (stencil-whiteout-box rp))))
 
 (define-public (parentheses-item::y-extent grob) (ly:grob::stencil-height grob))
 

diff --git a/scm/stencil.scm b/scm/stencil.scm
index 75efde39d9886e9e4718cffe07a3b9f22f3eff5a..e64cc2b91c8662fad2736fd71d5fc56bb5a0ca48 100644 (file)
--- a/scm/stencil.scm
+++ b/scm/stencil.scm
@@ -836,10 +836,10 @@ with optional arrows of @code{max-size} on start and end controlled by
                           (make-simple-markup (simple-format #f "~a: NaN/inf" name))))
         (let ((text-stencil (interpret-markup
                              layout text-props
-                             (markup #:whiteout #:simple name)))
+                             (markup #:whiteout-box #:simple name)))
               (dim-stencil (interpret-markup
                             layout text-props
-                            (markup #:whiteout
+                            (markup #:whiteout-box
                                     #:simple (cond
                                               ((interval-empty? extent)
                                                "empty")

diff --git a/scm/tablature.scm b/scm/tablature.scm
index 2864c5d4b0b4c07969c8ff18479374a5a207ed88..87e5b300af90c129b3a6f50d4ef45b77db1a47fc 100644 (file)
--- a/scm/tablature.scm
+++ b/scm/tablature.scm
@@ -33,7 +33,7 @@
   (let ((style (ly:grob-property grob 'style)))
 
     (case style
-      ((cross slash) (stencil-whiteout (ly:note-head::print grob)))
+      ((cross slash) (stencil-whiteout-box (ly:note-head::print grob)))
       (else (tab-note-head::print grob)))))
 
 ;; definitions for the "moderntab" clef: