rod.add_to_cols ();
}
-MAKE_SCHEME_CALLBACK(Separating_group_spanner,set_spacing_rods);
+MAKE_SCHEME_CALLBACK(Separating_group_spanner,set_spacing_rods,1);
SCM
Separating_group_spanner::set_spacing_rods (SCM smob)
{
- Score_element*me = unsmob_element (smob);
+ Grob*me = unsmob_grob (smob);
- for (SCM s = me->get_elt_property ("elements"); gh_pair_p (s) && gh_pair_p (gh_cdr (s)); s = gh_cdr (s))
+ for (SCM s = me->get_grob_property ("elements"); gh_pair_p (s) && gh_pair_p (gh_cdr (s)); s = gh_cdr (s))
{
/*
Order of elements is reversed!
SCM elt = gh_cadr (s);
SCM next_elt = gh_car (s);
- Item *l = dynamic_cast<Item*> (unsmob_element (elt));
- Item *r = dynamic_cast<Item*> (unsmob_element ( next_elt));
+ Item *l = dynamic_cast<Item*> (unsmob_grob (elt));
+ Item *r = dynamic_cast<Item*> (unsmob_grob ( next_elt));
if (!r || !l)
continue;
/*
We've done our job, so we get lost.
*/
- for (SCM s = me->get_elt_property ("elements"); gh_pair_p (s); s = gh_cdr (s))
+ for (SCM s = me->get_grob_property ("elements"); gh_pair_p (s); s = gh_cdr (s))
{
- Item * it =dynamic_cast<Item*>(unsmob_element (gh_car (s)));
+ Item * it =dynamic_cast<Item*>(unsmob_grob (gh_car (s)));
if (it && it->broken_b ())
{
it->find_prebroken_piece (LEFT) ->suicide ();
it->suicide ();
}
me->suicide ();
- return SCM_UNDEFINED ;
+ return SCM_UNSPECIFIED ;
}
void
-Separating_group_spanner::add_spacing_unit (Score_element* me ,Item*i)
+Separating_group_spanner::add_spacing_unit (Grob* me ,Item*i)
{
- Pointer_group_interface (me, "elements").add_element (i);
+ Pointer_group_interface::add_element (me, "elements",i);
me->add_dependency (i);
}
void
-Separating_group_spanner::set_interface (Score_element*me)
+Separating_group_spanner::set_interface (Grob*)
{
- me->set_elt_property ("elements", SCM_EOL);
+
}