/*
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
}
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 ());