patch::: 1.3.59.uu2.jcn1

[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 76c95fcb8b935857e853fcad97e9f27d953fc4ba..c01b068cba500797673005e8e059cb4c166f422f 100644 (file)
--- a/lily/hara-kiri-vertical-group-spanner.cc
+++ b/lily/hara-kiri-vertical-group-spanner.cc
@@ -13,7 +13,8 @@
 #include "debug.hh"
 #include "item.hh"
 
-Hara_kiri_group_spanner::Hara_kiri_group_spanner()
+Hara_kiri_group_spanner::Hara_kiri_group_spanner(SCM s)
+  : Spanner (s)
 {
   set_elt_pointer ("items-worth-living", SCM_EOL);
 }
@@ -39,10 +40,7 @@ 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_extent_callback (0, X_AXIS);
-      s->set_extent_callback (0, Y_AXIS);
-
+      s->suicide ();
     }
   set_extent_callback (0, X_AXIS);
   set_extent_callback (0, Y_AXIS);