package Object_List is new Glib.GSlist.Generic_SList (GObject);
package Object_Simple_List is new Glib.Glist.Generic_List (GObject);
type GObject is access all GObject_Record'Class;
type Weak_Notify is access procedure (Data : System.Address; Where_The_Object_Was : System.Address);
type Signal_Id_Array is array (Guint range <>) of Glib.Signal_Id;
type Interface_Vtable is private;
type GObject_Class is new GType_Class;
type Ada_GObject_Class is record The_Type : GType := 0; end record;
type Signal_Parameter_Types is array (Natural range <>, Natural range <>) of GType;
type GInterfaceInitFunc is access procedure (Iface : System.Address; Data : System.Address);
type GInterfaceFinalizeFunc is access procedure (Iface : System.Address; Data : System.Address);
type GInterface_Info is record Interface_Init : GInterfaceInitFunc := null; Interface_Finalize : GInterfaceFinalizeFunc := null; Interface_Data : System.Address := System.Null_Address; end record;
Null_GObject_Class : constant GObject_Class;
Uninitialized_Class : constant Ada_GObject_Class;
No_Signals : constant Gtkada.Types.Chars_Ptr_Array := (1 .. 0 => Gtkada.Types.Null_Ptr);
Null_Parameter_Types : constant Signal_Parameter_Types (1 .. 0, 1 .. 0) := (others => (others => GType_None));
function Is_Created
( | Object | : GObject_Record'Class) return Boolean; |
function Get_Type
( | Object | : access GObject_Record) return GType; |
procedure Initialize
( | Object | : access GObject_Record'Class); |
procedure Ref
( | Object | : access GObject_Record); |
procedure Unref
( | Object | : access GObject_Record); |
procedure Weak_Ref
( | Object | : access GObject_Record'Class; |
Notify | : Weak_Notify; | |
Data | : System.Address := System.Null_Address); |
procedure Weak_Unref
( | Object | : access GObject_Record'Class; |
Notify | : Weak_Notify; | |
Data | : System.Address := System.Null_Address); |
procedure Deallocate
( | Object | : access GObject_Record); |
procedure Ref_Sink
( | Object | : access GObject_Record); |
function Get_Object
( | Object | : access GObject_Record'Class) return System.Address; |
function Get_Object_Or_Null
( | Object | : GObject) return System.Address; |
procedure Set_Object
( | Object | : access GObject_Record'Class; |
Value | : System.Address); |
function Get_User_Data
( | Obj | : System.Address; |
Stub | : GObject_Record'Class) return GObject; |
function Get_User_Data_Fast
( | Obj | : System.Address; |
Stub | : GObject_Record'Class) return GObject; |
function Unchecked_Cast
( | Obj | : access GObject_Record'Class; |
Stub | : GObject_Record'Class) return GObject; |
function Lookup
( | Object | : Glib.GType; |
Signal | : String) return Glib.Signal_Id; |
function List_Ids
( | Typ | : Glib.GType) return Signal_Id_Array; |
procedure Query
( | Id | : Glib.Signal_Id; |
Result | : out Signal_Query); |
function Id
( | Q | : Signal_Query) return Glib.Signal_Id; |
function Signal_Name
( | Q | : Signal_Query) return Glib.Signal_Name; |
function Return_Type
( | Q | : Signal_Query) return Glib.GType; |
function Params
( | Q | : Signal_Query) return GType_Array; |
procedure Initialize_Class_Record
( | Ancestor | : GType; |
Class_Record | : in out Ada_GObject_Class; | |
Type_Name | : String; | |
Signals | : Gtkada.Types.Chars_Ptr_Array := No_Signals; | |
Parameters | : Signal_Parameter_Types := Null_Parameter_Types); |
function Initialize_Class_Record
( | Ancestor | : GType; |
Class_Record | : not null access Ada_GObject_Class; | |
Type_Name | : String; | |
Signals | : Gtkada.Types.Chars_Ptr_Array := No_Signals; | |
Parameters | : Signal_Parameter_Types := Null_Parameter_Types) return Boolean; |
function Type_From_Class
( | Class_Record | : GObject_Class) return GType; |
procedure G_New
( | Object | : not null access GObject_Record'Class; |
Typ | : GType); |
procedure G_New
( | Object | : not null access GObject_Record'Class; |
Typ | : Ada_GObject_Class); |
procedure Add_Interface
( | Klass | : Ada_GObject_Class; |
Iface | : GType; | |
Info | : not null access GInterface_Info); |
function Interface_List_Properties
( | Vtable | : Interface_Vtable) return Glib.Param_Spec_Array; |
function Class_List_Properties
( | Class | : GObject_Class) return Glib.Param_Spec_Array; |
procedure Notify
( | Object | : access GObject_Record; |
Property_Name | : String); |
function Convert
( | W | : GObject) return System.Address; |
function Convert
( | W | : System.Address) return GObject; |
This package provides a minimal binding to the GObject type in Glib.
See Glib.Properties for information on how to manipulate properties