patch::: 1.3.108.jcn3

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

diff --git a/lily/note-column.cc b/lily/note-column.cc
index 473c0146636dbcff21dd5d5e5c27df7ffa40b342..10956eefbbab528d5dbd1ec39c2fe95faf050aa9 100644 (file)
--- a/lily/note-column.cc
+++ b/lily/note-column.cc
@@ -86,7 +86,7 @@ Note_column::dir (Score_element*  me)
 void
 Note_column::set_stem (Score_element*me,Score_element * stem_l)
 {
-  me->set_elt_property ("stem", stem_l->self_scm_);
+  me->set_elt_property ("stem", stem_l->self_scm ());
   me->add_dependency (stem_l);
   Axis_group_interface::add_element (me, stem_l);
 }
@@ -96,12 +96,11 @@ Note_column::add_head (Score_element*me,Score_element *h)
 {
   if (Rest::has_interface (h))
     {
-      me->set_elt_property ("rest", h->self_scm_);
+      me->set_elt_property ("rest", h->self_scm ());
     }
   else if (Note_head::has_interface (h))
     {
-      Pointer_group_interface gi (me, "note-heads");
-      gi.add_element (h);
+      Pointer_group_interface::add_element (me, "note-heads",h);
     }
   Axis_group_interface::add_element (me, h);
 }
@@ -128,12 +127,6 @@ Note_column::set_dotcol (Score_element*me,Score_element *d)
 
 
 
-Interval
-Note_column::rest_dim (Score_element*me) 
-{
-  Score_element * r = unsmob_element (me->get_elt_property ("rest"));
-  return r->extent (Y_AXIS);
-}
 
 Score_element*
 Note_column::first_head (Score_element*me)