release: 1.3.44

[lilypond.git] / lily / hara-kiri-vertical-group-spanner.cc

diff --git a/lily/hara-kiri-vertical-group-spanner.cc b/lily/hara-kiri-vertical-group-spanner.cc
index 3abb6296f2ab93d92c4a5831a7420d6f5169d60c..12d5093c079185a83059eb16c3d325b3d9824071 100644 (file)
--- a/lily/hara-kiri-vertical-group-spanner.cc
+++ b/lily/hara-kiri-vertical-group-spanner.cc
@@ -4,10 +4,11 @@
 
   source file of the GNU LilyPond music typesetter
 
-  (c)  1998,1999 Jan Nieuwenhuizen <janneke@gnu.org>
+  (c)  1998--2000 Jan Nieuwenhuizen <janneke@gnu.org>
   Han-Wen Nienhuys <hanwen@cs.uu.nl>
 */
 
+#include "axis-group-interface.hh"
 #include "hara-kiri-vertical-group-spanner.hh"
 #include "debug.hh"
 #include "item.hh"
@@ -15,7 +16,6 @@
 Hara_kiri_group_spanner::Hara_kiri_group_spanner()
 {
   set_elt_property ("items-worth-living", SCM_EOL);
-  set_axes(Y_AXIS,Y_AXIS);
 }
 
 void 
@@ -34,7 +34,7 @@ Hara_kiri_group_spanner::after_line_breaking ()
   if (gh_pair_p (worth))
     return;
 
-  Link_array<Score_element> childs = get_children ();
+  Link_array<Score_element> childs = Axis_group_interface (this).get_children ();
   for (int i = 0; i < childs.size (); i++)
     {
       Score_element* s = childs[i];
@@ -42,12 +42,12 @@ Hara_kiri_group_spanner::after_line_breaking ()
       if ( line_l () != s->line_l ())
        programming_error ("Killing other children too");
       s->set_elt_property ("transparent", SCM_BOOL_T);
-      s->set_empty (X_AXIS);
-      s->set_empty (Y_AXIS);
+      s->set_extent_callback (0, X_AXIS);
+      s->set_extent_callback (0, Y_AXIS);
 
     }
-  set_empty (X_AXIS);
-  set_empty (Y_AXIS);  
+  set_extent_callback (0, X_AXIS);
+  set_extent_callback (0, Y_AXIS);  
 }