added key-cancellation-interface to KeyCancellation

diff --git a/lily/key-signature-interface.cc b/lily/key-signature-interface.cc
index 37f985697ea85844ec17ed41ea3ad01cb919f9f7..d54caed82c5c602a986c60753a45cb83d9ad8b6d 100644 (file)
--- a/lily/key-signature-interface.cc
+++ b/lily/key-signature-interface.cc
@@ -110,7 +110,8 @@ Key_signature_interface::print (SCM smob)
     c0p = scm_to_int (c0s);
 
   /* Is this the correct way to determine this? -rz */
-  bool is_cancellation = me->name()=="KeyCancellation";
+  bool is_cancellation = me->internal_has_interface
+    (ly_symbol2scm ("key-cancellation-interface"));
 
   /*
     SCM lists are stacks, so we work from right to left, ending with

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index f6f778b150bd72552670df6265f4cc2551e5b7da..cf615aae7cffca06e444d374a3361937e4d94dee 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -792,7 +792,8 @@
        (break-visibility . ,begin-of-line-invisible)
        (non-musical . #t)
        (meta . ((class . Item)
-                (interfaces . (key-signature-interface
+                (interfaces . (key-cancellation-interface
+                               key-signature-interface
                                font-interface
                                break-aligned-interface))))))
     (KeySignature