+ staffs_ = SCM_EOL;
+}
+
+
+
+void
+Mark_engraver::acknowledge_element (Score_element_info inf)
+{
+ Score_element * s = inf.elem_l_;
+ if (Staff_symbol::has_interface (s))
+ {
+ staffs_ = gh_cons (inf.elem_l_->self_scm_, staffs_);
+ }
+ else if (text_p_ && Bar::has_interface (s))
+ {
+ /*
+ Ugh. Figure out how to do this right at beginning of line, (without
+ creating class Bar_script : public Item).
+ */
+ text_p_->set_parent (s, X_AXIS);
+ }
+}
+
+void
+Mark_engraver::do_pre_move_processing ()
+{
+ if (text_p_)
+ {
+ text_p_->set_elt_property("side-support-elements" , staffs_);
+ typeset_element (text_p_);
+ text_p_ =0;
+ }
+}
+
+
+void
+Mark_engraver::create_items (Request *rq)
+{
+ if (text_p_)
+ return;
+
+ SCM s = get_property ("basicMarkProperties");
+ text_p_ = new Item (s);
+
+
+ Side_position::set_axis (text_p_, Y_AXIS);
+
+ /*
+ -> Generic props.
+ */
+ SCM prop = get_property ("markDirection");
+ if (!isdir_b (prop))
+ {
+ prop = gh_int2scm (UP);
+ }
+ text_p_->set_elt_property ("direction", prop);
+
+ SCM padding = get_property ("markScriptPadding");
+ if (gh_number_p(padding))
+ {
+ text_p_->set_elt_property ("padding", padding);
+ }
+ else
+ {
+ text_p_
+ ->set_elt_property ("padding",
+ gh_double2scm(paper_l ()->get_var ("interline")));
+ }
+
+
+ announce_element (text_p_, rq);