- bar_p_ = new Staff_bar;
- bar_p_->set_elt_property ("break-priority", gh_int2scm (0));
-
- // 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 (gh_boolean_p (prop) && gh_scm2bool (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);