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