package Gdk.Rectangle is

subtype GRectangle_Coord is Gint;

subtype GRectangle_Length is Gint;

type Gdk_Rectangle is record
      X      : GRectangle_Coord;
      Y      : GRectangle_Coord;
      Width  : GRectangle_Length;
      Height : GRectangle_Length;
   end record;

type Gdk_Rectangle_Access is access all Gdk_Rectangle;

type Gdk_Rectangle_Array is array (Natural range <>) of Gdk_Rectangle;

Full_Area : constant Gdk_Rectangle;

procedure Intersect 
(
Src1
: Gdk_Rectangle;
Src2
: Gdk_Rectangle;
Dest
: out Gdk_Rectangle;
Intersect
: out Boolean);

procedure Union 
(
Src1
: Gdk_Rectangle;
Src2
: Gdk_Rectangle;
Dest
: out Gdk_Rectangle);