summaryrefslogtreecommitdiff
path: root/lily/slur-engraver.cc
diff options
context:
space:
mode:
Diffstat (limited to 'lily/slur-engraver.cc')
-rw-r--r--lily/slur-engraver.cc31
1 files changed, 25 insertions, 6 deletions
diff --git a/lily/slur-engraver.cc b/lily/slur-engraver.cc
index 359ab78ef9..88495f4de2 100644
--- a/lily/slur-engraver.cc
+++ b/lily/slur-engraver.cc
@@ -24,24 +24,43 @@
class Slur_engraver : public Slur_proto_engraver
{
+ virtual SCM event_symbol () const;
+ virtual bool double_property () const;
+ virtual SCM grob_symbol () const;
+ virtual const char * object_name () const;
virtual void set_melisma (bool);
public:
- SCM event_symbol ();
TRANSLATOR_DECLARATIONS (Slur_engraver);
TRANSLATOR_INHERIT (Slur_proto_engraver);
};
-Slur_engraver::Slur_engraver () :
- Slur_proto_engraver ("doubleSlurs", "Slur", "slur", "slur-event")
+SCM
+Slur_engraver::event_symbol () const
+{
+ return ly_symbol2scm ("slur-event");
+}
+
+bool
+Slur_engraver::double_property () const
{
+ return to_boolean (get_property ("doubleSlurs"));
}
SCM
-Slur_engraver::event_symbol ()
+Slur_engraver::grob_symbol () const
+{
+ return ly_symbol2scm ("Slur");
+}
+
+const char *
+Slur_engraver::object_name () const
+{
+ return "slur";
+}
+
+Slur_engraver::Slur_engraver ()
{
- // Need a string constant for memoization
- return ly_symbol2scm ("slur-event");
}
void