/usr/share/ada/adainclude/gtkada/gtk-arguments.ads is in libgtkada2.24.1-dev 2.24.1-14.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 | -----------------------------------------------------------------------
-- GtkAda - Ada95 binding for Gtk+/Gnome --
-- --
-- Copyright (C) 1998-2004 E. Briot, J. Brobecker and A. Charlet --
-- Copyright (C) 2000-2006 AdaCore --
-- --
-- This library is free software; you can redistribute it and/or --
-- modify it under the terms of the GNU General Public --
-- License as published by the Free Software Foundation; either --
-- version 2 of the License, or (at your option) any later version. --
-- --
-- This library is distributed in the hope that it will be useful, --
-- but WITHOUT ANY WARRANTY; without even the implied warranty of --
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU --
-- General Public License for more details. --
-- --
-- You should have received a copy of the GNU General Public --
-- License along with this library; if not, write to the --
-- Free Software Foundation, Inc., 59 Temple Place - Suite 330, --
-- Boston, MA 02111-1307, USA. --
-- --
-----------------------------------------------------------------------
-- <description>
-- This package is obsolete and replaced by Glib.Values.
-- Future versions of GtkAda will no longer provide this package.
--
-- This package provides a convenient interface to C, providing easy
-- conversion from a C's (void*) pointer to any Ada type used in
-- GtkAda. Although this package has been designed to be easily
-- reusable by being as general as possible, these functions are mainly
-- used when writing callbacks and/or marshallers (see Gtk.Marshallers
-- and Gtk.Handlers).
--
-- Therefore, the main type in this package is Gtk_Args, which is the
-- equivalent of the C's (GtkArg*) array, i.e an array of unions. This
-- package provides functions to extract the values from this type.
-- </description>
-- <c_version>2.8.17</c_version>
-- <group>Signal handling</group>
with Glib.Values;
with Gdk.Event;
with Gtk.Object;
with Gtk.Widget;
package Gtk.Arguments is
-- <doc_ignore>Do not create automatic documentation for this package
subtype Gtk_Args is Glib.Values.GValues;
-- This type represents a table of arguments. Each argument of the
-- table can be of any type. You can access them through one of the
-- To_* functions found below. The index of the first element is
-- always 1.
function Make_Args (Nb : Guint; Args : System.Address) return Gtk_Args
renames Glib.Values.Make_Values;
-- Build a Gtk_Args structure from the given C array. Nb should be the
-- number of elements in the Args array.
---------------------------------------------------
-- Conversion functions, interfacing to Gtk_Args --
---------------------------------------------------
function To_Gint (Args : Gtk_Args; Num : Positive) return Gint;
function To_Guint (Args : Gtk_Args; Num : Positive) return Guint;
function To_Boolean (Args : Gtk_Args; Num : Positive) return Boolean;
function To_Event (Args : Gtk_Args; Num : Positive)
return Gdk.Event.Gdk_Event;
function To_String (Args : Gtk_Args; Num : Positive) return UTF8_String;
function To_Notebook_Page
(Args : Gtk_Args; Num : Positive) return Gtk_Notebook_Page;
function To_Address (Args : Gtk_Args; Num : Positive) return System.Address;
function To_C_Proxy (Args : Gtk_Args; Num : Positive) return Gdk.C_Proxy;
function To_Object
(Args : Gtk_Args; Num : Positive) return Gtk.Object.Gtk_Object;
-- This function can return null, if the C object was not created.
function To_Requisition (Args : Gtk_Args; Num : Positive)
return Gtk.Widget.Gtk_Requisition_Access;
function To_Allocation
(Args : Gtk_Args; Num : Positive) return Gtk.Widget.Gtk_Allocation_Access;
private
pragma Inline (To_Gint);
pragma Inline (To_Guint);
pragma Inline (To_Boolean);
pragma Inline (To_Object);
pragma Inline (To_Event);
pragma Inline (To_String);
-- </doc_ignore>
end Gtk.Arguments;
|