X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=lily%2Ftie-column.cc;h=6a79918f51120db5d1c41a8ff1f5d5f9110707dd;hb=419ab1be077ad383bc5a3eda3c3e982507ab3e17;hp=9eefbbf8ee10252c5b3360152280c9e759703392;hpb=e832bb9391d6053f7328250ff1035376cf4b9d4b;p=lilypond.git diff --git a/lily/tie-column.cc b/lily/tie-column.cc index 9eefbbf8ee..6a79918f51 100644 --- a/lily/tie-column.cc +++ b/lily/tie-column.cc @@ -69,7 +69,7 @@ Tie_column::before_line_breaking (SCM smob) return SCM_UNSPECIFIED; } -MAKE_SCHEME_CALLBACK(Tie_column, calc_positioning_done, 1) +MAKE_SCHEME_CALLBACK (Tie_column, calc_positioning_done, 1) SCM Tie_column::calc_positioning_done (SCM smob) { @@ -79,6 +79,9 @@ Tie_column::calc_positioning_done (SCM smob) if (!ties.size ()) return SCM_BOOL_T; + + me->set_property ("positioning-done", SCM_BOOL_T); + vector_sort (ties, Tie::less); Tie_formatting_problem problem; @@ -90,7 +93,7 @@ Tie_column::calc_positioning_done (SCM smob) Ties_configuration base = problem.generate_optimal_configuration (); - for (vsize i = 0; i < base.size(); i++) + for (vsize i = 0; i < base.size (); i++) { SCM cp = Tie::get_control_points (ties[i], problem.common_x_refpoint (), base[i], @@ -108,7 +111,7 @@ Tie_column::calc_positioning_done (SCM smob) ADD_INTERFACE (Tie_column, - "Object that sets directions of multiple ties in a tied chord", + "Object that sets directions of multiple ties in a tied chord.", /* properties */ "positioning-done "