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