+ Finger_tuple ft;
+
+ ft.script_ = make_item ("StringNumber", event->self_scm ());
+
+ Side_position_interface::add_support (ft.script_, head);
+
+ int d = scm_to_int (event->get_property ("string-number"));
+
+ SCM sstr = scm_number_to_string (scm_from_int (d), scm_from_int (10));
+ ft.script_->set_property ("text", sstr);
+
+ ft.finger_event_ = event;
+ ft.note_event_ = hevent;
+ ft.head_ = head;
+
+ string_numbers_.push (ft);
+}
+
+void
+New_fingering_engraver::position_scripts (SCM orientations,
+ Array<Finger_tuple> *scripts)
+{
+ for (int i = 0; i < scripts->size (); i++)
+ if (stem_ && to_boolean (scripts->elem (i).script_->get_property ("add-stem-support")))
+ Side_position_interface::add_support (scripts->elem (i).script_, stem_);