-void
-Side_position_interface::set_direction (Grob*me, Direction d)
-{
- me->set_grob_property ("direction", gh_int2scm (d));
-}
-
-void
-Side_position_interface::set_minimum_space (Grob*me, Real m)
-{
- me->set_grob_property ("minimum-space", gh_double2scm (m));
-}
-
-void
-Side_position_interface::set_padding (Grob*me, Real p)
-{
- me->set_grob_property ("padding", gh_double2scm (p));
-}
-
-
-bool
-Side_position_interface::supported_b (Grob*me)
-{
- SCM s = me->get_grob_property ("side-support-elements");
- return gh_pair_p (s);
-}
-
-
-
-
-ADD_INTERFACE (Side_position_interface,"side-position-interface",
- "Position a victim object (this one) next to other objects (the
-support). In this case, the direction signifies where to put the
-victim object relative to the support (left or right, up or down?)
-",
- "side-support-elements direction-source direction side-relative-direction minimum-space padding");
+ADD_INTERFACE (Side_position_interface, "side-position-interface",
+ "Position a victim object (this one) next to other objects (the "
+ "support). The property @code{direction} signifies where to put the "
+ "victim object relative to the support (left or right, up or down?)\n\n "
+ "The routine also takes the size the staff into account if "
+ "@code{staff-padding} is set. If undefined, the staff symbol is ignored.",
+
+ /* properties */
+ "direction "
+ "direction-source "
+ "minimum-space "
+ "padding "
+ "quantize-position "
+ "side-axis "
+ "side-relative-direction "
+ "side-support-elements "
+ "slur-padding "
+ "staff-padding "
+ );