/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 1997--2014 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ Copyright (C) 1997--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
set_property ("X-extent", Grob::stencil_width_proc);
if (get_property_data ("Y-extent") == SCM_EOL)
set_property ("Y-extent",
- ly_make_unpure_pure_container (Grob::stencil_height_proc,
- Grob::pure_stencil_height_proc));
+ Unpure_pure_container::make_smob (Grob::stencil_height_proc,
+ Grob::pure_stencil_height_proc));
if (get_property_data ("vertical-skylines") == SCM_EOL)
set_property ("vertical-skylines",
- ly_make_unpure_pure_container (Grob::simple_vertical_skylines_from_extents_proc,
- Grob::pure_simple_vertical_skylines_from_extents_proc));
+ Unpure_pure_container::make_smob (Grob::simple_vertical_skylines_from_extents_proc,
+ Grob::pure_simple_vertical_skylines_from_extents_proc));
if (get_property_data ("horizontal-skylines") == SCM_EOL)
set_property ("horizontal-skylines",
- ly_make_unpure_pure_container (Grob::simple_horizontal_skylines_from_extents_proc,
- Grob::pure_simple_horizontal_skylines_from_extents_proc));
+ Unpure_pure_container::make_smob (Grob::simple_horizontal_skylines_from_extents_proc,
+ Grob::pure_simple_horizontal_skylines_from_extents_proc));
}
Grob::Grob (Grob const &s)
+ : Smob<Grob> ()
{
original_ = (Grob *) & s;
Grob::pure_stencil_height (SCM smob, SCM /* beg */, SCM /* end */)
{
Grob *me = Grob::unsmob (smob);
- if (Stencil::unsmob (me->get_property_data ("stencil")))
+ if (Stencil::is_smob (me->get_property_data ("stencil")))
return grob_stencil_extent (me, Y_AXIS);
return ly_interval2scm (Interval ());