/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2005--2010 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2005--2011 Han-Wen Nienhuys <hanwen@xs4all.nl>
LilyPond is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
return ly_interval2scm (ext);
}
+LY_DEFINE (ly_axis_group_interface__add_element, "ly:axis-group-interface::add-element",
+ 2, 0, 0, (SCM grob, SCM grob_element),
+ "Set @var{grob} the parent of @var{grob-element} on all axes of"
+ " @var{grob}.")
+{
+ LY_ASSERT_SMOB (Grob, grob, 1);
+ LY_ASSERT_SMOB (Grob, grob_element, 2);
+ Axis_group_interface::add_element (unsmob_grob (grob), unsmob_grob (grob_element));
+ return SCM_UNSPECIFIED;
+}