- SCM axisprop = get_property ("scriptHorizontal",0);
- if (to_boolean (axisprop))
- {
- stafy.set_axis (X_AXIS);
- // text->set_parent (ss, Y_AXIS);
- }
- else
- stafy.set_axis (Y_AXIS);
-
- text->set_elt_property ("script-priority",
- gh_int2scm (200));
-
- if (r->get_direction ())
- stafy.set_direction (r->get_direction ());
-
- text->set_elt_property ("text",
- ly_str02scm ( r->text_str_.ch_C ()));
-
- if (r->style_str_.length_i ())
- text->set_elt_property ("style", ly_str02scm (r->style_str_.ch_C()));
-
- SCM empty = get_property ("textEmptyDimension", 0);
- if (to_boolean (empty))
- {
- text->set_empty (X_AXIS);
- }