-#include "accidental-placement.hh"
-#include "note-column.hh"
-#include "group-interface.hh"
-#include "note-collision.hh"
-#include "accidental-interface.hh"
-
-MAKE_SCHEME_CALLBACK(Accidental_placement,alignment_callback, 2);
-SCM
-Accidental_placement::alignment_callback(SCM s, SCM )
-{
- Grob * me =unsmob_grob (s);
-
- Grob * par = me->get_parent (X_AXIS);
- if (!to_boolean (par->get_grob_property ("alignment-done")))
- {
- par->set_grob_property ("alignment-done", SCM_BOOL_T);
- position_accidentals (par);
- }
-
- return scm_int2num (0);
-}
-