type runner = Unixqueue.event_system -> (unit -> unit) -> unit
class gtk_event_system : ?run:runner -> unit -> Unixqueue.event_system