lilypond-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Added property non-default to KeySignature (issue 300840043 by address@h


From: panteck
Subject: Added property non-default to KeySignature (issue 300840043 by address@hidden)
Date: Fri, 27 May 2016 17:16:50 -0700

Reviewers: ,

Message:
This patch adds the non-default property to the KeySignature grob.  It
works identically to the non-default property of the Clef grob.

Description:
Added property non-default to KeySignature
Added the property non-default to the KeySignature grob, and updated the
grob definition to indicate that it works for both Clefs and
KeySignatures now.

Please review this at https://codereview.appspot.com/300840043/

Affected files (+2, -1 lines):
  M lily/key-engraver.cc
  M scm/define-grob-properties.scm


Index: lily/key-engraver.cc
diff --git a/lily/key-engraver.cc b/lily/key-engraver.cc
index 971f55317295e8a56387a6f508dc8a41f20cd96a..b6b57f92ce5b66c2fcfc37e980c214bcc909d178 100644
--- a/lily/key-engraver.cc
+++ b/lily/key-engraver.cc
@@ -117,6 +117,7 @@ Key_engraver::create_key (bool is_default)
     {
       SCM visibility = get_property ("explicitKeySignatureVisibility");
       item_->set_property ("break-visibility", visibility);
+      item_->set_property ("non-default", SCM_BOOL_T);
     }
 }

Index: scm/define-grob-properties.scm
diff --git a/scm/define-grob-properties.scm b/scm/define-grob-properties.scm
index 60b9d5b000c2e6896237aac6c9404857610719ac..cb9103a6fcda899fe88d459af846f724e5e01e92 100644
--- a/scm/define-grob-properties.scm
+++ b/scm/define-grob-properties.scm
@@ -675,7 +675,7 @@ object.")
 get stems extending to the middle staff line.")
      (non-break-align-symbols ,list? "A list of symbols that determine
 which NON-break-aligned interfaces to align this to.")
-     (non-default ,boolean? "Set for manually specified clefs.")
+     (non-default ,boolean? "Set for manually specified clefs and keys.")
      (non-musical ,boolean? "True if the grob belongs to a
 @code{NonMusicalPaperColumn}.")
      (nonstaff-nonstaff-spacing ,list? "The spacing alist





reply via email to

[Prev in Thread] Current Thread [Next in Thread]