source file of the GNU LilyPond music typesetter
- (c) 1997--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
*/
#include "rhythmic-head.hh"
Item *
Rhythmic_head::get_dots (Grob *me)
{
- SCM s = me->get_property ("dot");
+ SCM s = me->get_object ("dot");
return unsmob_item (s);
}
Item *
Rhythmic_head::get_stem (Grob *me)
{
- SCM s = me->get_property ("stem");
+ SCM s = me->get_object ("stem");
return unsmob_item (s);
}
void
Rhythmic_head::set_dots (Grob *me, Item *dot)
{
- me->set_property ("dot", dot->self_scm ());
+ me->set_object ("dot", dot->self_scm ());
}
int