2 event.cc -- implement Event
4 source file of the GNU LilyPond music typesetter
6 (c) 1996--2005 Han-Wen Nienhuys <hanwen@cs.uu.nl>
12 MAKE_SCHEME_CALLBACK(Event, length_callback, 1);
14 Event::length_callback (SCM m)
16 Music* me = unsmob_music (m);
17 Duration *d = unsmob_duration (me->get_property ("duration"));
22 mom = d->get_length ();
24 return mom.smobbed_copy();
30 if (!ly_c_procedure_p (length_callback_))
32 length_callback_ = length_callback_proc;