## 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 Glib.GlistTo API docTo specTo body;

35.     pragma Elaborate_All (Glib.GlistTo API docTo specTo body);

37.     with System;

38.     with Unchecked_Conversion;

40.     package Gdk.VisualTo API docTo specTo body is

42.        subtype Gdk_Visual is Gdk.Gdk_VisualTo API docTo spec;

43.        Null_Visual : constant Gdk_VisualTo API docTo spec;

44.        --  This type is not private because we need the full declaration

45.        --  to instanciate Glib.Glist.Generic_List with it.

47.        type Gdk_Visual_Type is

48.          (Visual_Static_Gray,

49.           Visual_Grayscale,

50.           Visual_Static_Color,

51.           Visual_Pseudo_Color,

52.           Visual_True_Color,

53.           Visual_Direct_Color);

54.        pragma Convention (C, Gdk_Visual_TypeTo API docTo spec);

56.        type Gdk_Visual_Type_Array is array (Natural range <>) of Gdk_Visual_TypeTo API docTo spec;

58.        function Get_TypeTo API docTo body return Glib.GTypeTo API docTo spec;

59.        --  Return the internal value associated with Gdk_Visual.

61.        function Get_Best_DepthTo API docTo body return GintTo API docTo spec;

63.        function Get_Best_TypeTo API docTo body return Gdk_Visual_TypeTo API docTo spec;

65.        function Get_SystemTo API docTo body return Gdk_VisualTo API docTo spec;

67.        function Get_BestTo API docTo body return Gdk_VisualTo API docTo spec;

69.        procedure Get_BestTo API docTo body (Visual : out Gdk_VisualTo API docTo spec);

71.        function Get_BestTo API docTo body (Depth  : GintTo API docTo spec) return Gdk_VisualTo API docTo spec;

73.        function Get_BestTo API docTo body (Visual_TypeTo API docTo body : Gdk_Visual_TypeTo API docTo spec) return Gdk_VisualTo API docTo spec;

75.        function Get_BestTo API docTo body

76.          (Depth       : GintTo API docTo spec;

77.           Visual_TypeTo API docTo body : Gdk_Visual_TypeTo API docTo spec) return Gdk_VisualTo API docTo spec;

79.        function Query_DepthsTo API docTo body return Gint_ArrayTo API docTo spec;

81.        function Query_Visual_TypesTo API docTo body return Gdk_Visual_Type_ArrayTo API docTo spec;

83.        function Convert is new Unchecked_Conversion (Gdk_VisualTo API docTo spec, System.Address);

84.        function Convert is new Unchecked_Conversion (System.Address, Gdk_VisualTo API docTo spec);

86.        package Gdk_Visual_List is new Glib.Glist.Generic_ListTo API docTo specTo body (Gdk_VisualTo API docTo spec);

88.        function List_VisualsTo API docTo body return Gdk_Visual_List.GlistTo API docTo specTo body;

90.     private

91.        Null_VisualTo API docTo spec : constant Gdk_VisualTo API docTo spec := null;

92.        pragma Import (C, Get_TypeTo API docTo spec, "gdk_visual_get_type");

93.        pragma Import (C, Get_Best_DepthTo API docTo spec, "gdk_visual_get_best_depth");

94.        pragma Import (C, Get_Best_TypeTo API docTo spec, "gdk_visual_get_best_type");

95.        pragma Import (C, Get_SystemTo API docTo spec, "gdk_visual_get_system");

97.     end Gdk.VisualTo API docTo specTo body;