release: 1.3.4

[lilypond.git] / lily / staff-bar.cc

diff --git a/lily/staff-bar.cc b/lily/staff-bar.cc
index 44be80a76af43afe400735dedfe84a2560fe320f..55167bbd3266f5edafe562d547ca8083f7818da7 100644 (file)
--- a/lily/staff-bar.cc
+++ b/lily/staff-bar.cc
@@ -12,5 +12,16 @@
 Real
 Staff_bar::get_bar_size () const
 {
-  return 4 * staff_line_leading_f ();
+  SCM size = get_elt_property ("bar-size");
+  if (gh_number_p (size))
+    return gh_scm2double (size);
+  else
+    return (lines_i () -1) * staff_line_leading_f ();
+}
+
+void
+Staff_bar::do_pre_processing ()
+{
+  Bar::do_pre_processing ();
+  Staff_symbol_referencer::do_pre_processing ();
 }