X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fengraver-group.cc;h=71533cd116cd8e353d853285578ed287fc3344c6;hb=9f3572d98bb948c9689cd1f75401a029451fa001;hp=6271d93979b729b97fea32db94b7e96df56d5ba9;hpb=04265f11d1f21416ccebd2dcaa1d903dc781b36e;p=lilypond.git diff --git a/lily/engraver-group.cc b/lily/engraver-group.cc index 6271d93979..71533cd116 100644 --- a/lily/engraver-group.cc +++ b/lily/engraver-group.cc @@ -6,54 +6,13 @@ (c) 1997--2006 Han-Wen Nienhuys */ -#include "context.hh" -#include "dispatcher.hh" #include "engraver-group.hh" -#include "grob.hh" + +#include "warn.hh" #include "paper-score.hh" -#include "stream-event.hh" +#include "grob.hh" +#include "context.hh" #include "translator-dispatch-list.hh" -#include "warn.hh" - -IMPLEMENT_LISTENER (Engraver_group, override); -void -Engraver_group::override (SCM sev) -{ - Stream_event *ev = unsmob_stream_event (sev); - - execute_general_pushpop_property (context (), - ev->get_property ("symbol"), - ev->get_property ("property-path"), - ev->get_property ("value")); -} - -IMPLEMENT_LISTENER (Engraver_group, revert); -void -Engraver_group::revert (SCM sev) -{ - Stream_event *ev = unsmob_stream_event (sev); - - execute_general_pushpop_property (context (), - ev->get_property ("symbol"), - ev->get_property ("property-path"), - SCM_UNDEFINED); -} - -void -Engraver_group::connect_to_context (Context *c) -{ - Translator_group::connect_to_context (c); - c->event_source ()->add_listener (GET_LISTENER (override), ly_symbol2scm ("Override")); - c->event_source ()->add_listener (GET_LISTENER (revert), ly_symbol2scm ("Revert")); -} - -void -Engraver_group::disconnect_from_context () -{ - context ()->event_source ()->remove_listener (GET_LISTENER (override), ly_symbol2scm ("Override")); - context ()->event_source ()->remove_listener (GET_LISTENER (revert), ly_symbol2scm ("Revert")); - Translator_group::disconnect_from_context (); -} void Engraver_group::announce_grob (Grob_info info)