`sig
type t = [ `SCROLL ] Gdk.event
val cast : any -> t
val time : [< GdkEvent.timed ] Gdk.event -> int32
external x : GdkEvent.Scroll.t -> float = "ml_GdkEventScroll_x"
external y : GdkEvent.Scroll.t -> float = "ml_GdkEventScroll_y"
external state : GdkEvent.Scroll.t -> int = "ml_GdkEventScroll_state"
external direction : GdkEvent.Scroll.t -> Gdk.Tags.scroll_direction
= "ml_GdkEventScroll_direction"
external device : GdkEvent.Scroll.t -> Gdk.device
= "ml_GdkEventScroll_device"
external x_root : GdkEvent.Scroll.t -> float = "ml_GdkEventScroll_x_root"
external y_root : GdkEvent.Scroll.t -> float = "ml_GdkEventScroll_y_root"
end`