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); |