- SCM eprop = get_music ()->get_mus_property ("grob-property");
- SCM val = get_music ()->get_mus_property ("grob-value");
-
- if (to_boolean (get_music ()->get_mus_property ("pop-first"))
- && !to_boolean (get_music ()->get_mus_property ("once"))
- )
- Translator_def::apply_pushpop_property (report_to (),
- sym, eprop, SCM_UNDEFINED);
-
- Translator_def::apply_pushpop_property (report_to (), sym, eprop, val);
+ SCM grob_property_path = get_property_path (get_music ());
+ SCM val = get_music ()->get_property ("grob-value");
+ SCM once = get_music ()->get_property ("once");
+
+ if (to_boolean (get_music ()->get_property ("pop-first"))
+ && !to_boolean (once))
+ send_stream_event (get_outlet (), "Revert", get_music ()->origin (),
+ ly_symbol2scm ("symbol"), sym,
+ ly_symbol2scm ("property-path"), grob_property_path);
+
+ send_stream_event (get_outlet (), "Override", get_music ()->origin (),
+ ly_symbol2scm ("symbol"), sym,
+ ly_symbol2scm ("property-path"), grob_property_path,
+ ly_symbol2scm ("once"), once,
+ ly_symbol2scm ("value"), val);