source file of the GNU LilyPond music typesetter
- (c) 2000--2001 Han-Wen Nienhuys <hanwen@cs.uu.nl>
+ (c) 2000--2002 Han-Wen Nienhuys <hanwen@cs.uu.nl>
*/
-
#include "system-start-delimiter.hh"
#include "engraver.hh"
#include "staff-symbol.hh"
don't add as Axis_group_interface::add_element (delim_,),
because that would set the parent as well */
- Pointer_group_interface::add_element (delim_, "elements", inf.grob_l_);
+ Pointer_group_interface::add_grob (delim_, ly_symbol2scm ("elements"), inf.grob_l_);
}
else if (System_start_delimiter::has_interface (inf.grob_l_))
{
/*
UGH UGH
*/
- if (gh_symbol_p (gl) && gl == ly_symbol2scm ("brace")
- && gh_symbol_p (my_gl) && my_gl == ly_symbol2scm ("bracket"))
+ if (gh_string_p (gl) && gh_equal_p (gl, ly_str02scm ("brace"))
+ && gh_string_p (my_gl) && gh_equal_p (my_gl, ly_str02scm ("bracket")))
inf.grob_l_->translate_axis (-0.8, X_AXIS); // ugh
- else if (gh_symbol_p (gl) && gl == ly_symbol2scm ("bracket")
- && gh_symbol_p (my_gl) && my_gl == ly_symbol2scm ("bracket"))
+ else if (gh_string_p (gl) && gh_equal_p (gl, ly_str02scm ("bracket"))
+ && gh_string_p (my_gl) && gh_equal_p (my_gl, ly_str02scm ("bracket")))
{
inf.grob_l_->translate_axis ( -0.8, X_AXIS); // ugh
inf.grob_l_->set_grob_property ("arch-height",
void
System_start_delimiter_engraver::initialize ()
{
- SCM delim_name =get_property ("SystemStartDelimiter");
+ SCM delim_name =get_property ("systemStartDelimiter");
delim_ = new Spanner (internal_get_property (delim_name));
delim_->set_bound (LEFT, unsmob_grob (get_property ("currentCommandColumn")));
-
-
- announce_grob (delim_,0);
+ announce_grob (delim_, SCM_EOL);
}
void
}
ENTER_DESCRIPTION(System_start_delimiter_engraver,
-/* descr */ "creates a system start delimiter (ie. SystemStart@{Bar,Brace,Bracket@} spanner",
+/* descr */ "Creates a system start delimiter (ie. SystemStart@{Bar,Brace,Bracket@} spanner",
/* creats*/ "SystemStartBar SystemStartBrace SystemStartBracket",
/* acks */ "system-start-delimiter-interface staff-symbol-interface",
-/* reads */ "",
+/* reads */ "systemStartDelimiter",
/* write */ "");