1------------------------------------------------------------------------------
2--                                                                          --
3--      Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet       --
4--                     Copyright (C) 2000-2015, AdaCore                     --
5--                                                                          --
6-- This library is free software;  you can redistribute it and/or modify it --
7-- under terms of the  GNU General Public License  as published by the Free --
8-- Software  Foundation;  either version 3,  or (at your  option) any later --
9-- version. This library is distributed in the hope that it will be useful, --
10-- but WITHOUT ANY WARRANTY;  without even the implied warranty of MERCHAN- --
11-- TABILITY or FITNESS FOR A PARTICULAR PURPOSE.                            --
12--                                                                          --
13-- As a special exception under Section 7 of GPL version 3, you are granted --
14-- additional permissions described in the GCC Runtime Library Exception,   --
15-- version 3.1, as published by the Free Software Foundation.               --
16--                                                                          --
17-- You should have received a copy of the GNU General Public License and    --
18-- a copy of the GCC Runtime Library Exception along with this program;     --
19-- see the files COPYING3 and COPYING.RUNTIME respectively.  If not, see    --
20-- <http://www.gnu.org/licenses/>.                                          --
21--                                                                          --
22------------------------------------------------------------------------------
23
24--  <description>
25--  A Gtk.Target_Entry.Gtk_Target_Entry represents a single type of data than
26--  can be supplied for by a widget for a selection or for supplied or received
27--  during drag-and-drop.
28--
29--  </description>
30pragma Ada_2005;
31
32pragma Warnings (Off, "*is already use-visible*");
33with Glib;                 use Glib;
34with Gtk.Enums;            use Gtk.Enums;
35with Interfaces.C.Strings; use Interfaces.C.Strings;
36
37package Gtk.Target_Entry is
38
39   type Gtk_Target_Entry is record
40      Target : Interfaces.C.Strings.chars_ptr;
41      Flags : Gtk.Enums.Gtk_Target_Flags;
42      Info : Guint;
43   end record;
44   pragma Convention (C, Gtk_Target_Entry);
45
46   function From_Object_Free (B : access Gtk_Target_Entry) return Gtk_Target_Entry;
47   pragma Inline (From_Object_Free);
48   --  A Gtk.Target_Entry.Gtk_Target_Entry represents a single type of data
49   --  than can be supplied for by a widget for a selection or for supplied or
50   --  received during drag-and-drop.
51
52   ------------------
53   -- Constructors --
54   ------------------
55
56   procedure Gtk_New
57      (Target_Entry : out Gtk_Target_Entry;
58       Target       : UTF8_String;
59       Flags        : Gtk.Enums.Gtk_Target_Flags;
60       Info         : Guint);
61   --  Makes a new Gtk.Target_Entry.Gtk_Target_Entry.
62   --  "target": String identifier for target
63   --  "flags": Set of flags, see Gtk.Enums.Gtk_Target_Flags
64   --  "info": an ID that will be passed back to the application
65
66   function Gtk_Target_Entry_New
67      (Target : UTF8_String;
68       Flags  : Gtk.Enums.Gtk_Target_Flags;
69       Info   : Guint) return Gtk_Target_Entry;
70   --  Makes a new Gtk.Target_Entry.Gtk_Target_Entry.
71   --  "target": String identifier for target
72   --  "flags": Set of flags, see Gtk.Enums.Gtk_Target_Flags
73   --  "info": an ID that will be passed back to the application
74
75   function Get_Type return Glib.GType;
76   pragma Import (C, Get_Type, "gtk_target_entry_get_type");
77
78   -------------
79   -- Methods --
80   -------------
81
82   procedure Free (Target_Entry : Gtk_Target_Entry);
83   pragma Import (C, Free, "gtk_target_entry_free");
84   --  Frees a Gtk.Target_Entry.Gtk_Target_Entry returned from
85   --  gtk_target_entry_new or gtk_target_entry_copy.
86
87end Gtk.Target_Entry;
88