Side_position_interface::get_direction (Grob*me)
{
SCM d = me->get_grob_property ("direction");
- if (ly_dir_p (d) && to_dir (d))
+ if (is_direction (d) && to_dir (d))
return to_dir (d);
Direction relative_dir = Direction (1);
SCM reldir = me->get_grob_property ("side-relative-direction"); // should use a lambda.
- if (ly_dir_p (reldir))
+ if (is_direction (reldir))
{
relative_dir = to_dir (reldir);
}
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 "
+"support). In this case, the property @code{direction} signifies where to put the "
"victim object relative to the support (left or right, up or down?) "
,
"staff-padding side-support-elements direction-source direction side-relative-direction minimum-space padding");