## 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.     --  The Gdk_Image type represents an area for drawing graphics.

31.     --  It has now been superceded to a large extent by the much more flexible

32.     --  Gdk.RGB functions.

33.     --

34.     --  To create an empty Gdk_Image use Gdk_New. To create an image from part of

35.     --  a Gdk_Window, use Get.

36.     --

37.     --  To draw a Gdk_Image in a Gdk_Window or Gdk_Pixmap use

38.     --  Gdk.Drawable.Draw_Image.

40.     --  <c_version>1.3.6</c_version>

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

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

45.     package Gdk.ImageTo API docTo specTo body is

47.        subtype Gdk_Image is Gdk.Gdk_ImageTo API docTo spec;

48.        Null_Image : constant Gdk_ImageTo API docTo spec;

50.        type Gdk_Image_Type is (Image_Normal, Image_Shared, Image_Fastest);

51.        pragma Convention (C, Gdk_Image_TypeTo API docTo spec);

53.        procedure Gdk_NewTo API docTo body

54.          (Image      : out Gdk_ImageTo API docTo spec;

55.           Image_TypeTo API docTo body : Gdk_Image_TypeTo API docTo spec;

56.           Visual     : Gdk.Gdk_VisualTo API docTo spec;

57.           Width      : GintTo API docTo spec;

58.           Height     : GintTo API docTo spec);

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

61.        --  Return the internal value associated with a Gdk_Image.

63.        procedure GetTo API docTo body

64.          (Image    : out Gdk_ImageTo API docTo spec;

65.           Drawable : Gdk.Gdk_DrawableTo API docTo spec;

66.           X        : GintTo API docTo spec;

67.           Y        : GintTo API docTo spec;

68.           Width    : GintTo API docTo spec;

69.           Height   : GintTo API docTo spec);

71.        procedure RefTo API docTo body (Image : Gdk_ImageTo API docTo spec);

72.        --  Increment the reference counting for the image.

74.        procedure UnrefTo API docTo body (Image : Gdk_ImageTo API docTo spec);

75.        --  Decrement the reference counting for the image.

76.        --  When this reaches 0, the image is destroyed.

78.        procedure DestroyTo API docTo body (Image : Gdk_ImageTo API docTo spec);

79.        --  Deprecated. Use Unref instead.

81.        procedure Put_PixelTo API docTo body

82.          (Image : Gdk_ImageTo API docTo spec;

83.           X     : GintTo API docTo spec;

84.           Y     : GintTo API docTo spec;

85.           Pixel : Guint32To API docTo spec);

87.        function Get_PixelTo API docTo body (Image : Gdk_ImageTo API docTo spec; X : GintTo API docTo spec; Y : GintTo API docTo spec) return Guint32To API docTo spec;

89.     private

90.        Null_ImageTo API docTo spec : constant Gdk_ImageTo API docTo spec := null;

91.        pragma Import (C, Get_TypeTo API docTo spec, "gdk_image_get_type");

92.        pragma Import (C, DestroyTo API docTo spec, "gdk_image_unref");

93.        pragma Import (C, RefTo API docTo spec, "gdk_image_ref");

94.        pragma Import (C, UnrefTo API docTo spec, "gdk_image_unref");

95.        pragma Import (C, Get_PixelTo API docTo spec, "gdk_image_get_pixel");

96.        pragma Import (C, Put_PixelTo API docTo spec, "gdk_image_put_pixel");

97.     end Gdk.ImageTo API docTo specTo body;