*/
#include "self-alignment-interface.hh"
+
#include "warn.hh"
/* Position centered on parent. */
Grob *him = me->get_parent (a);
Interval he = him->extent (him, a);
- SCM sym= (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X")
+ SCM sym = (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X")
: ly_symbol2scm ("self-alignment-Y");
SCM align_prop (me->internal_get_property (sym));
- if (!ly_c_number_p (align_prop))
+ if (!scm_is_number (align_prop))
return scm_int2num (0);
Real x = 0.0;
Grob *me = unsmob_grob (element_smob);
Axis a = (Axis) scm_to_int (axis);
- SCM sym= (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X")
+ SCM sym = (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X")
: ly_symbol2scm ("self-alignment-Y");
SCM align (me->internal_get_property (sym));
- if (ly_c_number_p (align))
+ if (scm_is_number (align))
{
Interval ext (me->extent (me, a));
if (ext.is_empty ())