let client : ([>`widget], GdkEvent.Client.t -> bool) t =
        { name = "client_event"; classe = `widget;
          marshaller = marshal }