assert (a == Y_AXIS);
consider_suicide (me);
- return Axis_group_interface::group_extent_callback (me->self_scm (), scm_axis);
+ return Axis_group_interface::group_extent_callback (me->self_scm (), scm_axis);
}
-
void
-Hara_kiri_group_spanner::consider_suicide (Grob*me)
+Hara_kiri_group_spanner::consider_suicide (Grob *me)
{
- Spanner*sp = dynamic_cast<Spanner*> (me);
+ Spanner *sp = dynamic_cast<Spanner *> (me);
SCM worth = me->get_property ("items-worth-living");
if (scm_is_pair (worth))
- return ;
+ return;
if (!to_boolean (me->get_property ("remove-first"))
&& broken_spanner_index (sp) == 0)
{
- return ;
+ return;
}
-
+
Link_array<Grob> childs = Axis_group_interface::get_children (me);
for (int i = 0; i < childs.size (); i++)
childs[i]->suicide ();
-
/*
very appropriate name here :-)
- */
+ */
me->suicide ();
}
-
-
/*
We can't rely on offsets and dimensions of elements in a hara-kiri
group. Use a callback to make sure that hara-kiri has been done
return scm_make_real (0.0);
}
-
MAKE_SCHEME_CALLBACK (Hara_kiri_group_spanner, force_hara_kiri_in_parent_callback, 2);
SCM
Hara_kiri_group_spanner::force_hara_kiri_in_parent_callback (SCM element_smob, SCM axis)
}
void
-Hara_kiri_group_spanner::add_element (Grob * me, Grob *e)
+Hara_kiri_group_spanner::add_element (Grob *me, Grob *e)
{
// e->add_offset_callback (force_hara_kiri_in_parent_callback, Y_AXIS);
Axis_group_interface::add_element (me, e);
}
-
-
-
-
-void
-Hara_kiri_group_spanner::add_interesting_item (Grob* me, Grob* n)
+void
+Hara_kiri_group_spanner::add_interesting_item (Grob *me, Grob *n)
{
me->add_dependency (n);
Pointer_group_interface::add_grob (me, ly_symbol2scm ("items-worth-living"), n);
}
-
ADD_INTERFACE (Hara_kiri_group_spanner, "hara-kiri-group-interface",
"A group spanner that keeps track of interesting items. If it "
"doesn't contain any after linebreaking, then it "
- "will remove itself and all its children."
- ,
+ "will remove itself and all its children.",
"items-worth-living remove-first");