- bar_p_ = new Staff_bar;
- bar_p_->set_elt_property ("break-aligned", SCM_BOOL_T);
-
- // urg: "" != empty...
- SCM default_type = get_property ("defaultBarType", 0);
- if (gh_string_p (default_type))
- {
- bar_p_->type_str_ = ly_scm2string (default_type);
- }
-
- /*
- urg. Why did I implement this?
- */
- SCM prop = get_property ("barAtLineStart", 0);
- if (to_boolean (prop))
- {
- bar_p_->set_elt_property ("at-line-start", SCM_BOOL_T);
- }
- announce_element (Score_element_info (bar_p_, 0));
+ bar_ = make_item ("BarLine", SCM_EOL);
+ SCM gl = get_property ("whichBar");
+ if (scm_equal_p (gl, bar_->get_property ("glyph")) != SCM_BOOL_T)
+ bar_->set_property ("glyph", gl);