- // set_interface () ?
- SCM sa1= gh_int2scm (a1);
- SCM sa2 = gh_int2scm (a2);
-
- SCM axes = me->get_grob_property ("axes");
-
- if (!gh_pair_p (axes)
- || scm_memq (sa1, axes) == SCM_BOOL_F
- || scm_memq (sa2, axes) == SCM_BOOL_F)
- {
- SCM ax = gh_cons (sa1, SCM_EOL);
- if (a1 != a2)
- ax= gh_cons (sa2, ax);
- me->set_grob_property ("axes", ax);
- }
-
- if (a1 != X_AXIS && a2 != X_AXIS)
- me->set_extent_callback (SCM_EOL, X_AXIS);
- if (a1 != Y_AXIS && a2 != Y_AXIS)
- me->set_extent_callback (SCM_EOL, Y_AXIS);
-
- /*
- why so convoluted ? (fixme/documentme?)
- */
- if (me->has_extent_callback_b (Grob::molecule_extent_proc, a1))
- me->set_extent_callback (Axis_group_interface::group_extent_callback_proc,a1);
- if (me->has_extent_callback_b (Grob::molecule_extent_proc, a2))
- me->set_extent_callback (Axis_group_interface::group_extent_callback_proc,a2);
-}
-
-Link_array<Grob>
-Axis_group_interface::get_children (Grob*me)
-{
- Link_array<Grob> childs;
- childs.push (me) ;