sig
  type t = [ `ENTER_NOTIFY | `LEAVE_NOTIFY ] Gdk.event
  val cast : GdkEvent.any -> GdkEvent.Crossing.t
  external subwindow : GdkEvent.Crossing.t -> Gdk.window
    = "ml_GdkEventCrossing_subwindow"
  val time : [< GdkEvent.timed ] Gdk.event -> int32
  external x : GdkEvent.Crossing.t -> float = "ml_GdkEventCrossing_x"
  external y : GdkEvent.Crossing.t -> float = "ml_GdkEventCrossing_y"
  external x_root : GdkEvent.Crossing.t -> float
    = "ml_GdkEventCrossing_x_root"
  external y_root : GdkEvent.Crossing.t -> float
    = "ml_GdkEventCrossing_y_root"
  external mode : GdkEvent.Crossing.t -> Gdk.Tags.crossing_mode
    = "ml_GdkEventCrossing_mode"
  external detail : GdkEvent.Crossing.t -> Gdk.Tags.notify_type
    = "ml_GdkEventCrossing_detail"
  external focus : GdkEvent.Crossing.t -> bool = "ml_GdkEventCrossing_focus"
  external state : GdkEvent.Crossing.t -> int = "ml_GdkEventCrossing_state"
end