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