sig
  type t
  val create : x:int -> y:int -> width:int -> height:int -> Gdk.Rectangle.t
  val x : Gdk.Rectangle.t -> int
  val y : Gdk.Rectangle.t -> int
  val width : Gdk.Rectangle.t -> int
  val height : Gdk.Rectangle.t -> int
end