X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;ds=sidebyside;f=lily%2Fchord-name.cc;h=e929046db489337a6db51e3b1a3862dc781f3548;hb=5164ade24d92374331fe3af82730dd89c30aa66d;hp=b5cb1e98dc73fdd5522f702d67ceaaee2c32a464;hpb=e24df7c27635dc996c466295eacf2981bddccaf7;p=lilypond.git diff --git a/lily/chord-name.cc b/lily/chord-name.cc index b5cb1e98dc..e929046db4 100644 --- a/lily/chord-name.cc +++ b/lily/chord-name.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 1999--2005 Jan Nieuwenhuizen + (c) 1999--2006 Jan Nieuwenhuizen */ #include "chord-name.hh" @@ -13,25 +13,27 @@ #include "paper-column.hh" #include "system.hh" #include "staff-symbol-referencer.hh" -#include "text-item.hh" +#include "text-interface.hh" MAKE_SCHEME_CALLBACK (Chord_name, after_line_breaking, 1); SCM Chord_name::after_line_breaking (SCM smob) { - Item* me = unsmob_item (smob); + Item *me = unsmob_item (smob); assert (me); - + SCM s = me->get_property ("begin-of-line-visible"); if (to_boolean (s)) { - if (Paper_column::get_rank (me->get_column ()) - - me->get_system ()->spanned_rank_iv ()[LEFT] > 1) + if (me->get_column ()->get_rank () + - me->get_system ()->spanned_rank_iv ()[LEFT] > 1) me->suicide (); } return SCM_UNSPECIFIED; } ADD_INTERFACE (Chord_name, "chord-name-interface", - "A chord name.", - "begin-of-line-visible"); + "A chord name.", + + + "begin-of-line-visible");