From: Han-Wen Nienhuys <hanwen@xs4all.nl>
Date: Wed, 10 Jan 2007 02:25:00 +0000 (+0100)
Subject: oops. Re-add Tweak_engraver
X-Git-Tag: release/2.11.11-1~28
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=041be71ed9e7ab96fb168e03c70da73989a1b90b;p=lilypond.git

oops. Re-add Tweak_engraver
---

diff --git a/lily/tweak-engraver.cc b/lily/tweak-engraver.cc
new file mode 100644
index 0000000000..c87902f9ba
--- /dev/null
+++ b/lily/tweak-engraver.cc
@@ -0,0 +1,47 @@
+/*
+  tweak-engraver.cc -- implement Tweak_engraver
+
+  source file of the GNU LilyPond music typesetter
+
+  (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+*/
+
+#include "engraver.hh"
+
+#include "grob.hh"
+#include "stream-event.hh"
+#include "translator.icc"
+
+class Tweak_engraver : public Engraver
+{
+  TRANSLATOR_DECLARATIONS (Tweak_engraver);
+
+protected:
+  DECLARE_ACKNOWLEDGER (grob);
+};
+
+Tweak_engraver::Tweak_engraver()
+{
+}
+
+void
+Tweak_engraver::acknowledge_grob (Grob_info info)
+{
+  if (Stream_event *ev = info.event_cause ())
+    {
+      for (SCM s = ev->get_property ("tweaks");
+	   scm_is_pair (s); s = scm_cdr (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 event, and set properties." ,
+		
+		/* create */ "",
+		/* read */ "",
+		/* write */ "");
diff --git a/ly/engraver-init.ly b/ly/engraver-init.ly
index 047812c23a..0364ac96af 100644
--- a/ly/engraver-init.ly
+++ b/ly/engraver-init.ly
@@ -206,7 +206,8 @@ contained staves are not connected vertically."
   \consists "Note_heads_engraver"
   \consists "Dots_engraver"
   \consists "Rest_engraver"
-
+  \consists "Tweak_engraver"
+  
   %% switch on to make stem directions interpolate for the
   %% center line.
   %  \consists "Melody_engraver"