/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2004--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 2004--2015 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
SCM
Self_alignment_interface::aligned_on_self (Grob *me, Axis a, bool pure, int start, int end)
{
- SCM sym = (a == X_AXIS) ? ly_symbol2scm ("self-alignment-X")
- : ly_symbol2scm ("self-alignment-Y");
-
- SCM align (me->internal_get_property (sym));
+ SCM align = (a == X_AXIS)
+ ? me->get_property ("self-alignment-X")
+ : me->get_property ("self-alignment-Y");
if (scm_is_number (align))
{
Interval ext (me->maybe_pure_extent (me, a, pure, start, end));
}
SCM self_align = (a == X_AXIS)
- ? me->internal_get_property (ly_symbol2scm ("self-alignment-X"))
- : me->internal_get_property (ly_symbol2scm ("self-alignment-Y"));
+ ? me->get_property ("self-alignment-X")
+ : me->get_property ("self-alignment-Y");
SCM par_align = (a == X_AXIS)
- ? me->internal_get_property (ly_symbol2scm ("parent-alignment-X"))
- : me->internal_get_property (ly_symbol2scm ("parent-alignment-Y"));
+ ? me->get_property ("parent-alignment-X")
+ : me->get_property ("parent-alignment-Y");
if (par_align == SCM_EOL)
par_align = self_align;