- // urg: "" != empty...
- SCM default_type = get_property ("defaultBarType", 0);
- if (gh_string_p (default_type))
- {
- bar_p_->set_elt_property ("glyph", default_type); // gu.h
- }
-
-#if 0
- /*
- urg. Why did I implement this? And did I implement this so
- clumsily? */
- SCM prop = get_property ("barAtLineStart", 0);
- if (to_boolean (prop))
- {
- bar_p_->set_elt_property ("at-line-start", SCM_BOOL_T);
- }
-#endif
- announce_element (Score_element_info (bar_p_, 0));
+ SCM gl = get_property ("whichBar");
+ if (scm_equal_p (gl, bar_p_->get_grob_property ("glyph")) != SCM_BOOL_T)
+ bar_p_->set_grob_property ("glyph", gl);
+
+ announce_grob (bar_p_, 0);