also delete note stop events.

[lilypond.git] / lily / tuplet-number.cc

diff --git a/lily/tuplet-number.cc b/lily/tuplet-number.cc
index 97c49129b3109709be366a60f07f866b29bac58a..b29ab39aaa087bbc73b3044114b92abe3cfa6c85 100644 (file)
--- a/lily/tuplet-number.cc
+++ b/lily/tuplet-number.cc
@@ -3,7 +3,7 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c) 2005--2006 Han-Wen Nienhuys <hanwen@xs4all.nl>
+  (c) 2005--2007 Han-Wen Nienhuys <hanwen@xs4all.nl>
 
 */
 
@@ -17,7 +17,7 @@
 struct Tuplet_number
 {
   DECLARE_SCHEME_CALLBACK(print, (SCM));
-  static bool has_interface (Grob *);
+  DECLARE_GROB_INTERFACE();
 };
   
 
@@ -43,8 +43,9 @@ Tuplet_number::print (SCM smob)
       me->suicide ();
       return SCM_EOL;
     }
-  
-  Stencil *stc = unsmob_stencil (Text_interface::print (smob));
+
+  SCM stc_scm = Text_interface::print (smob);
+  Stencil *stc = unsmob_stencil (stc_scm);
 
   stc->align_to (X_AXIS, CENTER);
   stc->align_to (Y_AXIS, CENTER);
@@ -56,12 +57,11 @@ Tuplet_number::print (SCM smob)
 
   stc->translate ((points[RIGHT] + points[LEFT]) / 2);
   
-  return stc->smobbed_copy ();
+  return stc_scm;
 }
 
 
 ADD_INTERFACE (Tuplet_number,
-              "tuplet-number-interface",
               "The number for a bracket. "
               ,