test

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

diff --git a/lily/melisma-engraver.cc b/lily/melisma-engraver.cc
index 83f07738761d7c1ffabb8f372a1a85894f712947..fd35082cdf98cc73a2331af4ad035b6b463c0080 100644 (file)
--- a/lily/melisma-engraver.cc
+++ b/lily/melisma-engraver.cc
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 1999--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 1999--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 
@@ -18,11 +18,11 @@
 class Melisma_engraver:public Engraver
 {
 public:
-  VIRTUAL_COPY_CONS (Translator);
+  TRANSLATOR_DECLARATIONS(Melisma_engraver);
   bool try_music (Music *);
 };
 
-ADD_THIS_TRANSLATOR (Melisma_engraver);
+
 
 bool
 Melisma_engraver::try_music (Music *m) 
@@ -39,10 +39,19 @@ Melisma_engraver::try_music (Music *m)
          || (to_boolean (tie))
          || (to_boolean (beam))) {
 
-       daddy_trans_l_->set_property ("melismaEngraverBusy",SCM_BOOL_T);
+       daddy_trans_->set_property ("melismaEngraverBusy",SCM_BOOL_T);
        return true;
       }
     }
-  daddy_trans_l_->set_property ("melismaEngraverBusy",SCM_BOOL_F);
+  daddy_trans_->set_property ("melismaEngraverBusy",SCM_BOOL_F);
   return false;
 }
+Melisma_engraver::Melisma_engraver()
+{
+}
+ENTER_DESCRIPTION(Melisma_engraver,
+/* descr */       "",
+/* creats*/       "",
+/* acks  */       "",
+/* reads */       "melismaBusy slurMelismaBusy tieMelismaBusy beamMelismaBusy",
+/* write */       "");