]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/balloon.cc
Run `make grand-replace'.
[lilypond.git] / lily / balloon.cc
index c450189fc011caf94b84d64e7fe95bf9025af1ee..5409bd52d556a1cf6ba6864c401293cbd94a9a80 100644 (file)
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2004--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2004--2008 Han-Wen Nienhuys <hanwen@xs4all.nl>
 */
 
 #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 "