- SCM empty = get_property ("textNonEmpty");
- if (to_boolean (empty))
- {
- text->set_elt_property ("no-spacing-rods" , SCM_BOOL_F);
- text->set_extent_callback (0, X_AXIS);
- }
- announce_element (Score_element_info (text, r));
+ text->set_grob_property ("script-priority", gh_int2scm (priority));
+
+ Direction dir = to_dir (r->get_mus_property ("direction"));
+ if (dir)
+ Side_position_interface::set_direction (text, dir);
+
+
+ SCM mark = r->get_mus_property ("text");
+
+ if (new_markup_p (mark))
+ text->set_grob_property ("molecule-callback", new_markup_brewer());
+
+ text->set_grob_property ("text", mark);
+ announce_grob (text, r->self_scm ());