X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Fballoon.cc;h=5409bd52d556a1cf6ba6864c401293cbd94a9a80;hb=5c9c9c0ae6cd4bed8f7a2c62b2c014f3659a188a;hp=c450189fc011caf94b84d64e7fe95bf9025af1ee;hpb=a9c0c06eca7cf482bd550be17e4a4dbdfc7cc22a;p=lilypond.git diff --git a/lily/balloon.cc b/lily/balloon.cc index c450189fc0..5409bd52d5 100644 --- a/lily/balloon.cc +++ b/lily/balloon.cc @@ -3,7 +3,7 @@ source file of the GNU LilyPond music typesetter - (c) 2004--2006 Han-Wen Nienhuys + (c) 2004--2008 Han-Wen Nienhuys */ #include "text-interface.hh" @@ -19,7 +19,7 @@ class Balloon_interface { public: DECLARE_SCHEME_CALLBACK (print, (SCM)); - static bool has_interface (Grob *); + DECLARE_GROB_INTERFACE (); }; MAKE_SCHEME_CALLBACK (Balloon_interface, print, 1); @@ -30,8 +30,8 @@ Balloon_interface::print (SCM smob) Grob *p = me->get_parent (X_AXIS); - Offset off(me->relative_coordinate (p, X_AXIS), - me->relative_coordinate (p, Y_AXIS)); + Offset off (me->relative_coordinate (p, X_AXIS), + me->relative_coordinate (p, Y_AXIS)); Box b (p->extent (p, X_AXIS), p->extent (p, Y_AXIS)); @@ -46,7 +46,7 @@ Balloon_interface::print (SCM smob) SCM chain = Font_interface::text_font_alist_chain (me); SCM stencil = Text_interface::interpret_markup (me->layout ()->self_scm (), - chain, bt); + chain, bt); Stencil *text_stil = unsmob_stencil (stencil); @@ -69,8 +69,9 @@ Balloon_interface::print (SCM smob) return fr.smobbed_copy (); } -ADD_INTERFACE (Balloon_interface, "balloon-interface", - "A collection of routines to put text balloons around an object.", +ADD_INTERFACE (Balloon_interface, + "A collection of routines to put text balloons around an" + " object.", /* properties */ "padding "