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