- valign_p_ =new Spanner (SCM_EOL); // todo -> basic props
- Align_interface::set_interface (valign_p_);
- Align_interface::set_axis (valign_p_,Y_AXIS);
- valign_p_->set_elt_property ("stacking-dir",
- gh_int2scm (DOWN));
-
- valign_p_->set_bound(LEFT,unsmob_element (get_property ("currentCommandColumn")));
- announce_element (Score_element_info (valign_p_ , 0));
+ if (!valign_)
+ {
+ valign_ = make_spanner ("VerticalAlignment", SCM_EOL);
+ valign_->set_bound (LEFT,unsmob_grob (get_property ("currentCommandColumn")));
+ }