- // guh.
- text_p_->set_elt_property ("text",
- ly_str02scm (to_str (gh_scm2int (bn)).ch_C()));
+ if (scm_is_string (wb))
+ {
+ Moment mp (robust_scm2moment (get_property ("measurePosition"), Moment (0)));
+ if (mp.main_part_ == Rational (0))
+ {
+ SCM bn = get_property ("currentBarNumber");
+ SCM proc = get_property ("barNumberVisibility");
+ if (scm_is_number (bn) && ly_is_procedure (proc)
+ && to_boolean (scm_call_1 (proc, bn)))
+ {
+ create_items ();
+ // guh.
+ text_->set_property
+ ("text", scm_number_to_string (bn, scm_from_int (10)));
+ }
+ }