sig
  type t = [ `SCROLL ] Gdk.event
  val cast : GdkEvent.any -> GdkEvent.Scroll.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