+ init ();
+ property_alist_ = property_alist;
+ origin_ = &dummy_input_global;
+}
+
+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;