Run `make grand-replace'.

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

diff --git a/lily/tweak-engraver.cc b/lily/tweak-engraver.cc
index 9843dce725513eb5ada5b86085cbd941f73a0250..dfdf5d6d3bd828502e33a13bbf46e5147fa96f24 100644 (file)
--- a/lily/tweak-engraver.cc
+++ b/lily/tweak-engraver.cc
@@ -3,14 +3,14 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2005--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 */
 
 #include "engraver.hh"
 
-#include "music.hh"
 #include "grob.hh"
+#include "stream-event.hh"
 #include "translator.icc"
 
 class Tweak_engraver : public Engraver
@@ -21,28 +21,35 @@ protected:
   DECLARE_ACKNOWLEDGER (grob);
 };
 
-Tweak_engraver::Tweak_engraver()
+Tweak_engraver::Tweak_engraver ()
 {
 }
 
 void
 Tweak_engraver::acknowledge_grob (Grob_info info)
 {
-  if (Music *music = info.music_cause ())
+  if (Stream_event *ev = info.event_cause ())
     {
-      for (SCM s = music->get_property ("tweaks");
+      for (SCM s = ev->get_property ("tweaks");
           scm_is_pair (s); s = scm_cdr (s))
        {
-         info.grob ()->internal_set_property (scm_caar (s), scm_cdar (s));
+         info.grob ()->set_property (scm_caar (s), scm_cdar (s));
        }
     }
 }
 
 ADD_ACKNOWLEDGER (Tweak_engraver, grob);
 ADD_TRANSLATOR (Tweak_engraver,
-               /* doc */ "Read the @code{tweaks} property from the originating Music event, and set properties." ,
+               /* doc */
+               "Read the @code{tweaks} property from the originating event,"
+               " and set properties.",
                
-               /* create */ "",
-               /* accept */ "",
-               /* read */ "",
-               /* write */ "");
+               /* create */
+               "",
+
+               /* read */
+               "",
+
+               /* write */
+               ""
+               );