package Glib is
type Gboolean is new Gint;
type array_of_gsize is array (Natural range <>) of Gsize;
type Gunichar is new Guint32;
subtype UTF8_String is String;
type GTime_Val_Access is access all GTime_Val;
subtype Grange_Float is Gdouble;
subtype Gcolor_Int is Guint16;
subtype Allocation_Int is Gint;
type Gboolean_Array is array (Natural range <>) of Gboolean;
type Gshort_Array is array (Natural range <>) of Gshort;
type Glong_Array is array (Natural range <>) of Glong;
type Gint_Array is array (Natural range <>) of Gint;
type Guint_Array is array (Natural range <>) of Guint;
type Guint32_Array is array (Natural range <>) of Guint32;
type Gushort_Array is array (Natural range <>) of Gushort;
type Gulong_Array is array (Natural range <>) of Gulong;
type Gfloat_Array is array (Natural range <>) of Gfloat;
type Guchar_Array is array (Natural range <>) of Guchar;
type Gdouble_Array is array (Natural range <>) of Gdouble;
type Guchar_Array_Access is access Guchar_Array;
type C_Proxy is access all C_Dummy;
type GApp_Info is new C_Proxy;
type G_Destroy_Notify is access procedure (Data : Glib.C_Proxy);
type GQuark is new Guint32;
type Param_Spec is new Glib.C_Proxy;
type Param_Spec_Array is array (Natural range <>) of Param_Spec;
type GType is new Gsize;
type GType_Class is private;
type GType_Array is array (Guint range <>) of Glib.GType;
G_Connect_After : constant G_Connect_Flags := 2 ** 0;
G_Connect_Swapped : constant G_Connect_Flags := 2 ** 1;
Param_Readable : constant Param_Flags := 2 ** 0;
Param_Writable : constant Param_Flags := 2 ** 1;
Param_Construct : constant Param_Flags := 2 ** 2;
Param_Construct_Only : constant Param_Flags := 2 ** 3;
Param_Lax_Validation : constant Param_Flags := 2 ** 4;
Param_Private : constant Param_Flags := 2 ** 5;
GType_Invalid : constant GType := 0 * (2 ** GType_Fundamental_Shift);
GType_None : constant GType := 1 * (2 ** GType_Fundamental_Shift);
GType_Interface : constant GType := 2 * (2 ** GType_Fundamental_Shift);
GType_Char : constant GType := 3 * (2 ** GType_Fundamental_Shift);
GType_Uchar : constant GType := 4 * (2 ** GType_Fundamental_Shift);
GType_Boolean : constant GType := 5 * (2 ** GType_Fundamental_Shift);
GType_Int : constant GType := 6 * (2 ** GType_Fundamental_Shift);
GType_Uint : constant GType := 7 * (2 ** GType_Fundamental_Shift);
GType_Long : constant GType := 8 * (2 ** GType_Fundamental_Shift);
GType_Ulong : constant GType := 9 * (2 ** GType_Fundamental_Shift);
GType_Int64 : constant GType := 10 * (2 ** GType_Fundamental_Shift);
GType_UInt64 : constant GType := 11 * (2 ** GType_Fundamental_Shift);
GType_Enum : constant GType := 12 * (2 ** GType_Fundamental_Shift);
GType_Flags : constant GType := 13 * (2 ** GType_Fundamental_Shift);
GType_Float : constant GType := 14 * (2 ** GType_Fundamental_Shift);
GType_Double : constant GType := 15 * (2 ** GType_Fundamental_Shift);
GType_String : constant GType := 16 * (2 ** GType_Fundamental_Shift);
GType_Pointer : constant GType := 17 * (2 ** GType_Fundamental_Shift);
GType_Param : constant GType := 19 * (2 ** GType_Fundamental_Shift);
GType_Object : constant GType := 20 * (2 ** GType_Fundamental_Shift);
GType_Boxed : constant GType := 18 * (2 ** GType_Fundamental_Shift);
function To_Boolean_Array
( | A | : Gboolean_Array) return Boolean_Array; |
procedure Free is new Ada.Unchecked_Deallocation
( | Object => Guchar_Array, Name => Guchar_Array_Access); |
procedure Free is new Ada.Unchecked_Deallocation
( | Object => String, Name => String_Ptr); |
function To_Address is new Ada.Unchecked_Conversion
( | C_Proxy, System.Address); |
function Get_Object
( | Self | : C_Boxed'Class) return System.Address; |
procedure Set_Object
( | Self | : in out C_Boxed'Class; |
Ptr | : System.Address); |
function Is_Null
( | Self | : C_Boxed'Class) return Boolean; |
function Quark_From_String
( | Id | : String) return GQuark; |
function Quark_Try_String
( | Id | : String) return GQuark; |
function Build
( | Name | : String) return Property; |
function Property_Name
( | Prop | : Property) return String; |
function Type_Name
( | Type_Num | : GType) return String; |
function Type_From_Name
( | Name | : String) return GType; |
function Get_Qdata
( | Typ | : GType; |
Quark | : GQuark) return Glib.C_Proxy; |
procedure Set_Qdata
( | Typ | : GType; |
Quark | : GQuark; | |
Data | : Glib.C_Proxy); |
function Boxed_Type_Register_Static
( | Name | : String; |
Copy | : Boxed_Copy; | |
Free | : Boxed_Free) return GType; |