/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2013--2014 by Heikki Tauriainen <g034737@welho.com>.
+ Copyright (C) 2013--2015 by Heikki Tauriainen <g034737@welho.com>.
Adapted from performer implementations
- Copyright (C) 1996--2014 Jan Nieuwenhuizen <janneke@gnu.org>,
+ Copyright (C) 1996--2015 Jan Nieuwenhuizen <janneke@gnu.org>,
Han-Wen Nienhyus <hanwen@xs4all.nl> and others.
LilyPond is free software: you can redistribute it and/or modify
{
public:
TRANSLATOR_DECLARATIONS (Midi_control_function_performer);
- DECLARE_LISTENER (announce_function_value_change);
+ void announce_function_value_change (SCM);
~Midi_control_function_performer ();
void connect_to_context (Context *c);
Midi_control_function_performer::connect_to_context (Context *c)
{
c->events_below ()->
- add_listener (GET_LISTENER (announce_function_value_change),
+ add_listener (GET_LISTENER (Midi_control_function_performer, announce_function_value_change),
ly_symbol2scm ("SetProperty"));
}
Midi_control_function_performer::disconnect_from_context (Context *c)
{
c->events_below ()->
- remove_listener (GET_LISTENER (announce_function_value_change),
+ remove_listener (GET_LISTENER (Midi_control_function_performer, announce_function_value_change),
ly_symbol2scm ("SetProperty"));
}
-IMPLEMENT_LISTENER (Midi_control_function_performer,
- announce_function_value_change)
void
Midi_control_function_performer::announce_function_value_change (SCM sev)
{
- Stream_event *ev = Stream_event::unsmob (sev);
+ Stream_event *ev = unsmob<Stream_event> (sev);
SCM sym = ev->get_property ("symbol");
if (!scm_is_symbol (sym))
return;
}
}
+void
+Midi_control_function_performer::boot ()
+{
+
+}
+
ADD_TRANSLATOR (Midi_control_function_performer,
/* doc */
"",