source file of the GNU LilyPond music typesetter
- (c) 1997--1999 Han-Wen Nienhuys <hanwen@cs.uu.nl>,
+ (c) 1997--2000 Han-Wen Nienhuys <hanwen@cs.uu.nl>,
Mats Bengtsson <matsb@s3.kth.se>
*/
void create_clef();
bool set_type (String);
protected:
- virtual void do_process_requests();
+ virtual void do_process_music();
virtual void do_pre_move_processing();
virtual void do_creation_processing();
virtual void do_post_move_processing();
else
octave_dir_ = CENTER;
- SCM c = get_property ("supportedClefTypes",0);
- SCM p = get_property ("clefPitches", 0);
+ SCM c = get_property ("supportedClefTypes");
+ SCM p = get_property ("clefPitches");
if (gh_list_p (c))
{
}
else if (Key_item *k = dynamic_cast<Key_item*>(it_l))
{
- k-> set_c_position (c0_position_i_);
+ k->set_elt_property ("c0-position", gh_int2scm (c0_position_i_));
}
}
}
void
Clef_engraver::do_creation_processing()
{
- SCM def = get_property ("defaultClef", 0);
+ SCM def = get_property ("defaultClef");
if (gh_string_p (def))
{
set_type (ly_scm2string (def));
void
-Clef_engraver::do_process_requests()
+Clef_engraver::do_process_music()
{
if (clef_req_l_)
{
{
if(to_boolean (clef_p_->remove_elt_property("non-default")))
clef_p_->set_elt_property("visibility-lambda",
- ly_eval_str ("all-visibility"));
+ scm_eval (ly_symbol2scm ("all-visible")));
typeset_element (clef_p_);
clef_p_ =0;