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()
{
- key_req_l_ = 0;
+ key_req_l_ = 0;
}
Key_performer::~Key_performer()
Key_performer::do_print() const
{
#ifndef NPRINT
- if ( key_req_l_ )
- key_req_l_->print();
+ if (key_req_l_)
+ key_req_l_->print();
#endif
}
void
-Key_performer::process_requests()
+Key_performer::do_process_requests()
{
- if ( key_req_l_ )
- play( new Audio_key( key_req_l_ ) );
- key_req_l_ = 0;
+ if (key_req_l_)
+ play (new Audio_key (key_req_l_));
+ key_req_l_ = 0;
}
bool
-Key_performer::do_try_request( Request* req_l )
+Key_performer::do_try_request (Request* req_l)
{
- if ( key_req_l_ )
+ if (key_req_l_)
return false;
- if ( req_l->command() )
- key_req_l_ = req_l->command()->keychange();
+ if (dynamic_cast <Key_change_req *> (req_l))
+ {
+ key_req_l_ = dynamic_cast <Key_change_req*> (req_l);
+ return true;
+ }
- if ( key_req_l_ )
- return true;
-
- return false;
+ return false;
}