''

[lilypond.git] / lily / axis-group-interface.cc

diff --git a/lily/axis-group-interface.cc b/lily/axis-group-interface.cc
index 02960f6aba86bc48e5214622d2e9c5e7356483a4..895b5597c9a4f19c33f1807b054898d833176b81 100644 (file)
--- a/lily/axis-group-interface.cc
+++ b/lily/axis-group-interface.cc
@@ -3,7 +3,7 @@
   
   source file of the GNU LilyPond music typesetter
   
-  (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+  (c) 2000--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
   
  */
 #include "hara-kiri-group-spanner.hh"
@@ -17,11 +17,11 @@ Axis_group_interface::add_element (Grob*me,Grob *e)
     {
       Axis a = (Axis) gh_scm2int (ly_car (ax));
       
-      if (!e->parent_l (a))
+      if (!e->get_parent (a))
        e->set_parent (me, a);
     }
 
-  Pointer_group_interface::add_element (me, "elements", e);
+  Pointer_group_interface::add_grob (me, ly_symbol2scm ("elements"), e);
   me->add_dependency (e);
 }
 
@@ -130,11 +130,7 @@ Axis_group_interface::has_interface (Grob*me)
   return me && me->has_interface (ly_symbol2scm ("axis-group-interface"));
 }
 
-void
-Axis_group_interface::set_interface (Grob*me)
-{
-  if (!has_interface (me))
-    {
-      me->set_interface (ly_symbol2scm ("axis-group-interface"));      
-    }
-}
+
+ADD_INTERFACE (Axis_group_interface, "axis-group-interface",
+  "a group of coupled grobs",
+  "axes");