- SCM dist (get_property ("maxVerticalAlign", 0));
- if (gh_number_p(dist))
- {
- valign_p_->threshold_interval_[BIGGER] = gh_scm2double (dist);
- }
-
- dist = get_property ("minVerticalAlign", 0);
- if (gh_number_p(dist))
- {
- valign_p_->threshold_interval_[SMALLER] = gh_scm2double (dist);
- }
-
- dist = get_property ("alignmentReference",0);
- if (isdir_b (dist))
- {
- valign_p_->align_dir_ = to_dir (dist);
- }
- valign_p_->set_bounds(RIGHT,get_staff_info().command_pcol_l ());
- typeset_element (valign_p_);
- valign_p_ =0;
+ valign_->set_bound (RIGHT,unsmob_grob (get_property ("currentCommandColumn")));
+ typeset_grob (valign_);
+ valign_ =0;