added key-cancellation-interface to KeyCancellation

diff --git a/lily/key-signature-interface.cc b/lily/key-signature-interface.cc
index 4c8d28f510c695cab07a640b50b273f90ad5ad0d..84b6e055456e6891c8713f4178ff9d77c21ff2c6 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 6542524e3248f54647b440ed8d08a1e1f82fabbf..51900ac8ce3b5ac37c1d8aebfcb60551e2af29af 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -787,7 +787,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