Axis_group_engraver::initialize ()
{
staffline_p_ = get_spanner_p ();
- Axis_group_interface::set_interface (staffline_p_);
- Axis_group_interface::set_axes (staffline_p_, Y_AXIS, Y_AXIS);
Grob * it = unsmob_grob (get_property ("currentCommandColumn"));
Axis_group_engraver::finalize ()
{
String type = daddy_grav_l ()->type_str_ ;
- SCM dims = get_property ("VerticalExtent");
+ SCM dims = get_property ("verticalExtent");
if (gh_pair_p (dims) && gh_number_p (ly_car (dims))
&& gh_number_p (ly_cdr (dims)))
{
- staffline_p_->set_extent_callback (Grob::preset_extent_proc, Y_AXIS);
+ staffline_p_->set_extent (Grob::preset_extent_proc, Y_AXIS);
staffline_p_->set_grob_property ("extent-Y", dims);
}
- dims = get_property ("MinimumVerticalExtent");
+ dims = get_property ("minimumVerticalExtent");
if (gh_pair_p (dims) && gh_number_p (ly_car (dims))
&& gh_number_p (ly_cdr (dims)))
staffline_p_->set_grob_property ("minimum-extent-Y", dims);
- dims = get_property ("ExtraVerticalExtent");
+ dims = get_property ("extraVerticalExtent");
if (gh_pair_p (dims) && gh_number_p (ly_car (dims))
&& gh_number_p (ly_cdr (dims)))
staffline_p_->set_grob_property ("extra-extent-Y", dims);
Hara_kiri_engraver::get_spanner_p () const
{
Spanner * sp = new Spanner (get_property ("HaraKiriVerticalGroup"));
- Hara_kiri_group_spanner::set_interface (sp);
+
return sp;
}
{
Axis_group_engraver::acknowledge_grob (i);
if (Rhythmic_head::has_interface (i.grob_l_)
- || i.grob_l_->has_interface (ly_symbol2scm ("lyric-syllable-interface")))
+ || i.grob_l_->internal_has_interface (ly_symbol2scm ("lyric-syllable-interface")))
{
Hara_kiri_group_spanner::add_interesting_item (staffline_p_, i.grob_l_);
}
/* descr */ "Group all objects created in this context in a VerticalAxisGroup spanner.",
/* creats*/ "VerticalAxisGroup",
/* acks */ "grob-interface",
-/* reads */ "VerticalExtent MinimumVerticalExtent ExtraVerticalExtent",
+/* reads */ "verticalExtent minimumVerticalExtent extraVerticalExtent",
/* write */ "");