-static type_t newVariableType (const char *typename, e_entity_types kind, const char *color, type_t father)
+type_t newEventType (const char *typename, e_entity_types kind, const char *color, type_t father)
+{
+ type_t ret = newType (typename, kind, father);
+// INFO4("EventType %s(%s), child of %s(%s)", ret->name, ret->id, father->name, father->id);
+ if (color){
+ pajeDefineEventTypeWithColor (ret->id, ret->father->id, ret->name, color);
+ }else{
+ pajeDefineEventType(ret->id, ret->father->id, ret->name);
+ }
+ return ret;
+}
+
+type_t newVariableType (const char *typename, e_entity_types kind, const char *color, type_t father)