release: 1.3.40

[lilypond.git] / lily / paper-column.cc

diff --git a/lily/paper-column.cc b/lily/paper-column.cc
index 7b3309513ba3e246dbebc93386da662397fa8f4d..2f225d0718d55fb6eba1b11183ec34a274666702 100644 (file)
--- a/lily/paper-column.cc
+++ b/lily/paper-column.cc
@@ -9,6 +9,7 @@
 #include "paper-column.hh"
 #include "paper-score.hh"
 #include "debug.hh"
+#include "axis-group-interface.hh"
 
 void
 Paper_column::add_rod (Paper_column * p, Real d)
@@ -108,22 +109,20 @@ Paper_column::line_l() const
   return line_l_;
 }
 
-
-
-
 Paper_column*
 Paper_column::column_l () const
 {
   return (Paper_column*)(this);
 }
 
-
-
-
 Paper_column::Paper_column (Moment w)
 {
-  set_elt_property ("when", (new Moment (w))->smobify_self ());
-  set_axes (X_AXIS, X_AXIS);
+  SCM when = (new Moment (w))->smobify_self ();
+  scm_unprotect_object (when);
+  set_elt_property ("when", when);
+
+  Axis_group_interface (this).set_interface ();
+  Axis_group_interface (this).set_axes (X_AXIS, X_AXIS);
 
   line_l_=0;
   rank_i_ = -1;
@@ -152,3 +151,4 @@ Paper_column::musical_b () const
     }
   return s != Moment(0);
 }
+