sig type t = [ `EXPOSE ] Gdk.event val cast : any -> t external area : GdkEvent.Expose.t -> Gdk.Rectangle.t = "ml_GdkEventExpose_area" external count : GdkEvent.Expose.t -> int = "ml_GdkEventExpose_count" end