/*
This file is part of LilyPond, the GNU music typesetter.
- Copyright (C) 2000--2010 Jan Nieuwenhuizen <janneke@gnu.org>
+ Copyright (C) 2000--2014 Jan Nieuwenhuizen <janneke@gnu.org>
Han-Wen Nienhuys <hanwen@xs4all.nl>
void
Part_combine_engraver::create_item (Stream_event *ev)
{
- SCM what = ev->get_property ("class");
+ SCM what = scm_car (ev->get_property ("class"));
SCM text = SCM_EOL;
if (what == ly_symbol2scm ("solo-one-event"))
text = get_property ("soloText");
Grob *t = text_;
Side_position_interface::add_support (t, i.grob ());
if (Side_position_interface::get_axis (t) == X_AXIS
- && !t->get_parent (Y_AXIS))
- t->set_parent (i.grob (), Y_AXIS);
+ && !t->get_parent (Y_AXIS))
+ t->set_parent (i.grob (), Y_AXIS);
}
}
ADD_ACKNOWLEDGER (Part_combine_engraver, note_head);
ADD_ACKNOWLEDGER (Part_combine_engraver, stem);
ADD_TRANSLATOR (Part_combine_engraver,
- /* doc */
- "Part combine engraver for orchestral scores: Print markings"
- " @q{a2}, @q{Solo}, @q{Solo II}, and @q{unisono}.",
-
- /* create */
- "CombineTextScript ",
-
- /* read */
- "printPartCombineTexts "
- "partCombineTextsOnNote "
- "soloText "
- "soloIIText "
- "aDueText ",
-
- /* write */
- ""
- );
+ /* doc */
+ "Part combine engraver for orchestral scores: Print markings"
+ " @q{a2}, @q{Solo}, @q{Solo II}, and @q{unisono}.",
+
+ /* create */
+ "CombineTextScript ",
+
+ /* read */
+ "printPartCombineTexts "
+ "partCombineTextsOnNote "
+ "soloText "
+ "soloIIText "
+ "aDueText ",
+
+ /* write */
+ ""
+ );