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