- spanbar_p_ = get_span_bar_p (get_property ("basicSpanBarProperties"));
- spanbar_p_->set_elt_property ("glyph", bar_l_arr_[0]->get_elt_property ("glyph"));
- spanbar_p_->set_elt_property ("visibility-lambda",
- bar_l_arr_[0]->get_elt_property ("visibility-lambda"));
-
- spanbar_p_->set_parent (bar_l_arr_[0], Y_AXIS);
- spanbar_p_->set_parent (bar_l_arr_[0], X_AXIS);
-
- announce_element (Score_element_info (spanbar_p_,0));
+ spanbar_ = make_item ("SpanBar");
+
+ spanbar_->set_parent (bars_[0], X_AXIS);
+ announce_grob (spanbar_, SCM_EOL);