## Documentation

Table of Contents
Class Inheritance Tree
Widget Screenshots
Package groups

1.     -----------------------------------------------------------------------

2.     --               GtkAda - Ada95 binding for Gtk+/Gnome               --

3.     --                                                                   --

4.     --   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --

5.     --                Copyright (C) 2000-2002 ACT-Europe                 --

6.     --                                                                   --

7.     -- This library is free software; you can redistribute it and/or     --

8.     -- modify it under the terms of the GNU General Public               --

9.     -- License as published by the Free Software Foundation; either      --

10.     -- version 2 of the License, or (at your option) any later version.  --

11.     --                                                                   --

12.     -- This library is distributed in the hope that it will be useful,   --

13.     -- but WITHOUT ANY WARRANTY; without even the implied warranty of    --

14.     -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU --

15.     -- General Public License for more details.                          --

16.     --                                                                   --

17.     -- You should have received a copy of the GNU General Public         --

18.     -- License along with this library; if not, write to the             --

19.     -- Free Software Foundation, Inc., 59 Temple Place - Suite 330,      --

20.     -- Boston, MA 02111-1307, USA.                                       --

21.     --                                                                   --

22.     -- As a special exception, if other files instantiate generics from  --

23.     -- this unit, or you link this unit with other files to produce an   --

24.     -- executable, this  unit  does not  by itself cause  the resulting  --

25.     -- executable to be covered by the GNU General Public License. This  --

26.     -- exception does not however invalidate any other reasons why the   --

27.     -- executable file  might be covered by the  GNU Public License.     --

28.     -----------------------------------------------------------------------

30.     --  <c_version>1.3.6</c_version>

31.     --  <group>Gdk, the low-level API</group>

33.     with GlibTo API docTo specTo body; use GlibTo API docTo specTo body;

34.     with Gdk.RectangleTo API docTo specTo body;

35.     with Gdk.TypesTo API docTo spec;

37.     package Gdk.RegionTo API docTo specTo body is

39.        subtype Gdk_Region is Gdk.Gdk_RegionTo API docTo spec;

40.        Null_Region : constant Gdk_RegionTo API docTo spec;

42.        type Gdk_Fill_Rule is (Even_Odd_Rule, Winding_Rule);

43.        --  GC fill rule for polygons.

44.        pragma Convention (C, Gdk_Fill_RuleTo API docTo spec);

46.        type Gdk_Overlap_Type is

47.          (Overlap_Rectangle_In,

48.           --  Rectangle is in region.

50.           Overlap_Rectangle_Out,

51.           --  Rectangle is not in region.

53.           Overlap_Rectangle_Part

54.           --  Rectangle is partially in region.

55.          );

56.        --  Types of overlapping between a rectangle and a region.

57.        pragma Convention (C, Gdk_Overlap_TypeTo API docTo spec);

59.        procedure Gdk_NewTo API docTo body (Region : out Gdk_RegionTo API docTo spec);

60.        --  Create a new region.

62.        procedure PolygonTo API docTo body

63.          (Region    : out Gdk_RegionTo API docTo spec;

64.           Points    : Gdk.Types.Gdk_Points_ArrayTo API docTo spec;

65.           Fill_RuleTo API docTo body : Gdk_Fill_RuleTo API docTo spec);

67.        function CopyTo API docTo body (Region : Gdk_RegionTo API docTo spec) return Gdk_RegionTo API docTo spec;

69.        function RectangleTo API docTo body

70.          (Rectangle : Gdk.Rectangle.Gdk_RectangleTo API docTo spec) return Gdk_RegionTo API docTo spec;

72.        procedure DestroyTo API docTo body (Region : in out Gdk_RegionTo API docTo spec);

74.        procedure Get_ClipboxTo API docTo body

75.          (Region    : Gdk_RegionTo API docTo spec;

76.           Rectangle : out Gdk.Rectangle.Gdk_RectangleTo API docTo spec);

78.        procedure Get_RectanglesTo API docTo body

79.          (Region       : Gdk_RegionTo API docTo spec;

80.           Rectangle    : out Gdk.Rectangle.Gdk_Rectangle_ArrayTo API docTo spec;

81.           N_Rectangles : out Natural);

83.        function EmptyTo API docTo body (Region : Gdk_RegionTo API docTo spec) return Boolean;

85.        function "="To API docTo body (Left, Right : Gdk_RegionTo API docTo spec) return Boolean;

87.        function Point_InTo API docTo body (Region : Gdk_RegionTo API docTo spec; X, Y : Integer) return Boolean;

89.        function Rect_InTo API docTo body

90.          (Region : Gdk_RegionTo API docTo spec;

91.           Rect   : Gdk.Rectangle.Gdk_RectangleTo API docTo spec) return Gdk_Overlap_TypeTo API docTo spec;

93.        procedure OffsetTo API docTo body

94.          (Region : Gdk_RegionTo API docTo spec;

95.           Dx     : GintTo API docTo spec;

96.           Dy     : GintTo API docTo spec);

98.        procedure ShrinkTo API docTo body

99.          (Region : Gdk_RegionTo API docTo spec;

100.           Dx     : GintTo API docTo spec;

101.           Dy     : GintTo API docTo spec);

103.        procedure Union_With_RectTo API docTo body

104.          (Region : in out Gdk_RegionTo API docTo spec;

105.           RectTo API docTo body   : Gdk.Rectangle.Gdk_RectangleTo API docTo spec);

107.        procedure Union_With_RectTo API docTo body

108.          (Result : in out Gdk_RegionTo API docTo spec;

109.           Region : Gdk_RegionTo API docTo spec;

110.           RectTo API docTo body   : Gdk.Rectangle.Gdk_RectangleTo API docTo spec);

111.        --  Provided for backward compatibility.

112.        --  Region must be equal to Result.

114.        procedure IntersectTo API docTo body

115.          (Source1 : in out Gdk_RegionTo API docTo spec;

116.           Source2 : Gdk_RegionTo API docTo spec);

118.        procedure UnionTo API docTo body

119.          (Source1 : in out Gdk_RegionTo API docTo spec;

120.           Source2 : Gdk_RegionTo API docTo spec);

122.        procedure SubstractTo API docTo body

123.          (Source1 : in out Gdk_RegionTo API docTo spec;

124.           Source2 : Gdk_RegionTo API docTo spec);

126.        procedure Gdk_XorTo API docTo body

127.          (Source1 : in out Gdk_RegionTo API docTo spec;

128.           Source2 : Gdk_RegionTo API docTo spec);

130.     private

131.        Null_RegionTo API docTo spec : constant Gdk_RegionTo API docTo spec := null;

133.        pragma Import (C, CopyTo API docTo spec, "gdk_region_copy");

134.        pragma Import (C, RectangleTo API docTo spec, "gdk_region_rectangle");

135.        pragma Import (C, Get_ClipboxTo API docTo spec, "gdk_region_get_clipbox");

136.        pragma Import (C, Rect_InTo API docTo spec, "gdk_region_rect_in");

137.        pragma Import (C, OffsetTo API docTo spec, "gdk_region_offset");

138.        pragma Import (C, ShrinkTo API docTo spec, "gdk_region_shrink");

139.        pragma Import (C, IntersectTo API docTo spec, "gdk_region_intersect");

140.        pragma Import (C, UnionTo API docTo spec, "gdk_region_union");

141.        pragma Import (C, SubstractTo API docTo spec, "gdk_region_subtract");

142.        pragma Import (C, Gdk_XorTo API docTo spec, "gdk_region_xor");

143.     end Gdk.RegionTo API docTo specTo body;

145.     --  missing:

146.     --  gdk_region_spans_intersect_foreach