From: Rune Zedeler <rune@lilypond.org>
Date: Fri, 22 Dec 2006 21:41:41 +0000 (+0100)
Subject: added key-cancellation-interface to KeyCancellation
X-Git-Tag: release/2.10.5-1~20
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=2f8242da1aee57c94824c177b8e22f7ad7affddd;p=lilypond.git

added key-cancellation-interface to KeyCancellation
---

diff --git a/lily/key-signature-interface.cc b/lily/key-signature-interface.cc
index 4c8d28f510..84b6e05545 100644
--- 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 6542524e32..51900ac8ce 100644
--- 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