source file of the GNU LilyPond music typesetter
- (c) 1997 Jan Nieuwenhuizen <jan@digicash.com>
+ (c) 1997--1998 Jan Nieuwenhuizen <janneke@gnu.org>
*/
#include "key-performer.hh"
IMPLEMENT_IS_TYPE_B1(Key_performer,Performer);
-ADD_THIS_PERFORMER(Key_performer);
+ADD_THIS_TRANSLATOR(Key_performer);
Key_performer::Key_performer()
{
}
void
-Key_performer::process_requests()
+Key_performer::do_process_requests()
{
if (key_req_l_)
play (new Audio_key (key_req_l_));
if (key_req_l_)
return false;
- if (req_l->command())
- key_req_l_ = req_l->command()->keychange ();
-
- if (key_req_l_)
- return true;
+ if (dynamic_cast <Key_change_req *> (req_l))
+ {
+ key_req_l_ = dynamic_cast <Key_change_req*> (req_l);
+ return true;
+ }
return false;
}