- staffline_p_->set_extent_callback (&Score_element::preset_extent, Y_AXIS);
- staffline_p_->set_elt_property ("extent-Y", dims);
- }
-
- dims = get_property ((type + "MinimumVerticalExtent").ch_C());
- if (gh_pair_p (dims) && gh_number_p (gh_car (dims))
- && gh_number_p (gh_cdr (dims)))
- staffline_p_->set_elt_property ("minimum-extent-Y", dims);
-
- dims = get_property ((type + "ExtraVerticalExtent").ch_C());
- if (gh_pair_p (dims) && gh_number_p (gh_car (dims))
- && gh_number_p (gh_cdr (dims)))
- staffline_p_->set_elt_property ("extra-extent-Y", dims);
-
-Score_element * it = unsmob_element (get_property ("currentCommandColumn"));
+ Grob *it = unsmob_grob (get_property ("currentCommandColumn"));
+ staffline_->set_bound (RIGHT, it);