- spanbar_p_ = get_span_bar_p();
- spanbar_p_->set_parent (bar_l_arr_[0], Y_AXIS);
- spanbar_p_->set_parent (bar_l_arr_[0], X_AXIS);
-
- SCM v = bar_l_arr_[0]->get_elt_property ("visibility-lambda");
- if (gh_procedure_p (v))
- spanbar_p_->set_elt_property ("visibility-lambda",v);
-
- spanbar_p_->set_parent (bar_l_arr_[0], X_AXIS);
- announce_element (Score_element_info (spanbar_p_,0));
- if (!gh_string_p (spanbar_p_->get_elt_property ("glyph")))
- spanbar_p_-> set_elt_property ("glyph",
- bar_l_arr_[0]->get_elt_property ("glyph"));
+ spanbar_ = make_item ("SpanBar", SCM_EOL);
+
+ spanbar_->set_parent (bars_[0], X_AXIS);