source file of the GNU LilyPond music typesetter
- (c) 1997--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 1997--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
Axis a = (Axis) gh_scm2int (axis);
assert (a == X_AXIS);
- Grob *par = me->parent_l (a);
+ Grob *par = me->get_parent (a);
if (par && !to_boolean (par->get_grob_property ("break-alignment-done")))\
{
par->set_grob_property ("break-alignment-done", SCM_BOOL_T);
Link_array<Grob> elems;
Link_array<Grob> all_elems
- = Pointer_group_interface__extract_elements (me, (Grob*)0,
+ = Pointer_group_interface__extract_grobs (me, (Grob*)0,
"elements");
for (int i=0; i < all_elems.size (); i++)
}
SCM symbol = ly_car (extra_space);
- Real spc = gh_scm2double (gh_cadr (extra_space));
+ Real spc = gh_scm2double (ly_cadr (extra_space));
dists.push (spc);
symbol_list = gh_cons (symbol, symbol_list);
symbol_list = ly_cdr (scm_reverse (symbol_list));
for (int i=0; i <elems.size ()-1; i++)
{
- elems[i]->set_grob_property (ly_car (symbol_list),
- scm_cons (gh_double2scm (0),
+ elems[i]->internal_set_grob_property (ly_car (symbol_list),
+ scm_cons (gh_double2scm (0),
gh_double2scm (dists[i+1])));
symbol_list = ly_cdr (symbol_list);