-Axis_group_interface::set_axes (Grob*me,Axis a1, Axis a2)
-{
- SCM sa1= scm_int2num (a1);
- SCM sa2 = scm_int2num (a2);
-
- SCM axes = me->get_property ("axes");
-
- if (!scm_is_pair (axes)
- || scm_c_memq (sa1, axes) == SCM_BOOL_F
- || scm_c_memq (sa2, axes) == SCM_BOOL_F)
- {
- SCM ax = scm_cons (sa1, SCM_EOL);
- if (a1 != a2)
- ax= scm_cons (sa2, ax);
- me->set_property ("axes", ax);
- }
-
- if (a1 != X_AXIS && a2 != X_AXIS)
- me->set_extent (SCM_EOL, X_AXIS);
- if (a1 != Y_AXIS && a2 != Y_AXIS)
- me->set_extent (SCM_EOL, Y_AXIS);
-
- /*
- why so convoluted ? (fixme/documentme?)
- */
- if (me->has_extent_callback (Grob::stencil_extent_proc, a1))
- me->set_extent (Axis_group_interface::group_extent_callback_proc,a1);
- if (me->has_extent_callback (Grob::stencil_extent_proc, a2))
- me->set_extent (Axis_group_interface::group_extent_callback_proc,a2);
-}
-
-Link_array<Grob>
-Axis_group_interface::get_children (Grob*me)