Scheme function to draw lines based on grob layout

[lilypond.git] / scm / tablature.scm

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: