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-----------------------------------------------------------------------
29
30--  <c_version>1.3.6</c_version>
31--  <group>Gdk, the low-level API</group>
32
33with Glib; use Glib;
34
35with Gdk.Types;
36with Gdk.Window;
37
38package Gdk.Property is
39
40   type Gdk_Prop_Mode is
41     (Prop_Mode_Replace, Prop_Mode_Prepend, Prop_Mode_Append);
42   pragma Convention (C, Gdk_Prop_Mode);
43
44   function Atom_Intern
45     (Atom_Name      : String;
46      Only_If_Exists : Boolean := True) return Gdk.Types.Gdk_Atom;
47   --  Convert from a string to an atom
48
49   function Atom_Name (Atom : Gdk.Types.Gdk_Atom) return String;
50   --  Convert from an atom to a string
51
52   procedure Get
53     (Window               : Gdk.Window.Gdk_Window;
54      Property             : Gdk.Types.Gdk_Atom;
55      The_Type             : Gdk.Types.Gdk_Atom;
56      Offset               : Gulong;
57      Length               : Gulong;
58      Pdelete              : Boolean;
59      Actual_Property_Type : out Gdk.Types.Gdk_Atom;
60      Actual_Format        : out Gint;
61      Data                 : out Guchar_Array_Access;
62      Success              : out Boolean);
63
64   procedure Change
65     (Window    : Gdk.Window.Gdk_Window;
66      Property  : Gdk.Types.Gdk_Atom;
67      The_Type  : Gdk.Types.Gdk_Atom;
68      Format    : Gint;
69      Mode      : Gdk_Prop_Mode;
70      Data      : Guchar_Array);
71
72   procedure Delete
73     (Window   : Gdk.Window.Gdk_Window;
74      Property : Gdk.Types.Gdk_Atom);
75
76private
77   pragma Import (C, Delete, "gdk_property_delete");
78end Gdk.Property;
79
80--  missing:
81--  gdk_text_property_to_text_list
82--  gdk_text_property_to_utf8_list
83--  gdk_utf8_to_string_target
84--  gdk_utf8_to_compound_text
85--  gdk_free_text_list
86--  gdk_string_to_compound_text
87--  gdk_free_compound_text
88