Implement rounded-box whiteout style

[lilypond.git] / lily / slur-engraver.cc

diff --git a/lily/slur-engraver.cc b/lily/slur-engraver.cc
index 0e2260395f8f523ac2b76ee892a0df48750900de..581136791d932daff6148c2ad80d2b82366c095b 100644 (file)
--- a/lily/slur-engraver.cc
+++ b/lily/slur-engraver.cc
@@ -37,8 +37,10 @@ class Slur_engraver : public Slur_proto_engraver
 
 protected:
   DECLARE_TRANSLATOR_LISTENER (slur);
+  DECLARE_TRANSLATOR_LISTENER (note);
 
 public:
+  SCM event_symbol ();
   TRANSLATOR_DECLARATIONS (Slur_engraver);
 };
 
@@ -47,6 +49,13 @@ Slur_engraver::Slur_engraver () :
 {
 }
 
+SCM
+Slur_engraver::event_symbol ()
+{
+  // Need a string constant for memoization
+  return ly_symbol2scm ("slur-event");
+}
+
 IMPLEMENT_TRANSLATOR_LISTENER (Slur_engraver, slur);
 void
 Slur_engraver::listen_slur (Stream_event *ev)
@@ -54,6 +63,13 @@ Slur_engraver::listen_slur (Stream_event *ev)
   Slur_proto_engraver::listen_slur (ev);
 }
 
+IMPLEMENT_TRANSLATOR_LISTENER (Slur_engraver, note);
+void
+Slur_engraver::listen_note (Stream_event *ev)
+{
+  Slur_proto_engraver::listen_note (ev);
+}
+
 void
 Slur_engraver::set_melisma (bool m)
 {