-Stream_event::Stream_event (Context *c, SCM class_name)
-{
- init ();
- set_property ("context", scm_int2num (c->get_unique()));
- set_property ("class", class_name);
- origin_ = &dummy_input_global;
-}
-
-Stream_event::Stream_event (Stream_event *ev)