}
}
-/*
- TODO:
-
- Support texts on the brackets?
-*/
MAKE_SCHEME_CALLBACK (Horizontal_bracket, print, 1);
SCM
Horizontal_bracket::print (SCM smob)
{
- Spanner *me = Spanner::unsmob (smob);
+ Spanner *me = unsmob<Spanner> (smob);
extract_grob_set (me, "columns", gs);
vector<Grob *> enclosed = gs;
/* properties */
"bracket-flare "
+ "bracket-text "
"columns "
"edge-height "
"shorten-pair "