generic type Widget_Type is new Glib.Object.GObject_Record with private; type User_Type (<>) is private; package User_Callback is
package Marshallers is new Gtk.Marshallers.User_Void_Marshallers (Widget_Type, User_Type);
package Gint_Marshaller is new Marshallers.Generic_Marshaller (Gint, Glib.Values.Get_Int);
package Guint_Marshaller is new Marshallers.Generic_Marshaller (Guint, Glib.Values.Get_Uint);
package Event_Marshaller is new Marshallers.Generic_Marshaller (Gdk.Event.Gdk_Event, Gdk.Event.Get_Event);
package Widget_Marshaller is new Marshallers.Generic_Widget_Marshaller (Gtk.Widget.Gtk_Widget_Record, Gtk.Widget.Gtk_Widget);
package Notebook_Page_Marshaller is new Marshallers.Generic_Marshaller (Gtk.Notebook.Gtk_Notebook_Page, Gtk.Notebook.Get_Notebook_Page);
package Tree_Path_Marshaller is new Marshallers.Generic_Marshaller (Gtk.Tree_Model.Gtk_Tree_Path, Gtk.Tree_Model.Get_Tree_Path);
package Tree_Iter_Tree_Path_Marshaller is new Marshallers.Generic_Marshaller_2 (Gtk.Tree_Model.Gtk_Tree_Iter, Gtk.Tree_Model.Get_Tree_Iter, Gtk.Tree_Model.Gtk_Tree_Path, Gtk.Tree_Model.Get_Tree_Path);
package Tree_Path_Tree_Iter_Marshaller is new Marshallers.Generic_Marshaller_2 (Gtk.Tree_Model.Gtk_Tree_Path, Gtk.Tree_Model.Get_Tree_Path, Gtk.Tree_Model.Gtk_Tree_Iter, Gtk.Tree_Model.Get_Tree_Iter);
type Widget_Type is new Glib.Object.GObject_Record with private;
type Handler is access procedure (Widget : access Widget_Type'Class; Params : Glib.Values.GValues; User_Data : User_Type);
type Simple_Handler is access procedure (Widget : access Widget_Type'Class; User_Data : User_Type);
procedure Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Marsh | : Marshallers.Marshaller; | |
User_Data | : User_Type; | |
After | : Boolean := False); |
procedure Object_Connect
( | Widget | : access Glib.Object.GObject_Record'Class; |
Name | : Glib.Signal_Name; | |
Marsh | : Marshallers.Marshaller; | |
Slot_Object | : access Widget_Type'Class; | |
User_Data | : User_Type; | |
After | : Boolean := False); |
procedure Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Cb | : Handler; | |
User_Data | : User_Type; | |
After | : Boolean := False); |
procedure Object_Connect
( | Widget | : access Glib.Object.GObject_Record'Class; |
Name | : Glib.Signal_Name; | |
Cb | : Handler; | |
Slot_Object | : access Widget_Type'Class; | |
User_Data | : User_Type; | |
After | : Boolean := False); |
procedure Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Cb | : Simple_Handler; | |
User_Data | : User_Type; | |
After | : Boolean := False); |
procedure Object_Connect
( | Widget | : access Glib.Object.GObject_Record'Class; |
Name | : Glib.Signal_Name; | |
Cb | : Simple_Handler; | |
Slot_Object | : access Widget_Type'Class; | |
User_Data | : User_Type; | |
After | : Boolean := False); |
function Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Marsh | : Marshallers.Marshaller; | |
User_Data | : User_Type; | |
After | : Boolean := False) return Handler_Id; |
function Object_Connect
( | Widget | : access Glib.Object.GObject_Record'Class; |
Name | : Glib.Signal_Name; | |
Marsh | : Marshallers.Marshaller; | |
Slot_Object | : access Widget_Type'Class; | |
User_Data | : User_Type; | |
After | : Boolean := False) return Handler_Id; |
function Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Cb | : Handler; | |
User_Data | : User_Type; | |
After | : Boolean := False) return Handler_Id; |
function Object_Connect
( | Widget | : access Glib.Object.GObject_Record'Class; |
Name | : Glib.Signal_Name; | |
Cb | : Handler; | |
Slot_Object | : access Widget_Type'Class; | |
User_Data | : User_Type; | |
After | : Boolean := False) return Handler_Id; |
function To_Marshaller
( | Cb | : Gint_Marshaller.Handler) return Marshallers.Marshaller renames Gint_Marshaller.To_Marshaller; |
function To_Marshaller
( | Cb | : Guint_Marshaller.Handler) return Marshallers.Marshaller renames Guint_Marshaller.To_Marshaller; |
function To_Marshaller
( | Cb | : Event_Marshaller.Handler) return Marshallers.Marshaller renames Event_Marshaller.To_Marshaller; |
function To_Marshaller
( | Cb | : Widget_Marshaller.Handler) return Marshallers.Marshaller renames Widget_Marshaller.To_Marshaller; |
function To_Marshaller
( | Cb | : Marshallers.Void_Marshaller.Handler) return Marshallers.Marshaller renames Marshallers.Void_Marshaller.To_Marshaller; |
function To_Marshaller
( | Cb | : Notebook_Page_Marshaller.Handler) return Marshallers.Marshaller renames Notebook_Page_Marshaller.To_Marshaller; |
function To_Marshaller
( | Cb | : Tree_Path_Marshaller.Handler) return Marshallers.Marshaller renames Tree_Path_Marshaller.To_Marshaller; |
function To_Marshaller
( | Cb | : Tree_Iter_Tree_Path_Marshaller.Handler) return Marshallers.Marshaller renames Tree_Iter_Tree_Path_Marshaller.To_Marshaller; |
function To_Marshaller
( | Cb | : Tree_Path_Tree_Iter_Marshaller.Handler) return Marshallers.Marshaller renames Tree_Path_Tree_Iter_Marshaller.To_Marshaller; |
procedure Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : Gint) renames Gint_Marshaller.Emit_By_Name; |
procedure Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : Guint) renames Guint_Marshaller.Emit_By_Name; |
procedure Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : Gdk.Event.Gdk_Event); |
procedure Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : access Gtk.Widget.Gtk_Widget_Record'Class) renames Widget_Marshaller.Emit_By_Name; |
procedure Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name) renames Marshallers.Void_Marshaller.Emit_By_Name; |
procedure Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : Gtk.Notebook.Gtk_Notebook_Page) renames Notebook_Page_Marshaller.Emit_By_Name; |
procedure Emit_By_Name is new Tree_Path_Marshaller.Emit_By_Name_Generic
( | Gtk.Tree_Model.To_Address); |
procedure Emit_By_Name is new Tree_Iter_Tree_Path_Marshaller.Emit_By_Name_Generic
( | Gtk.Tree_Model.To_Address, Gtk.Tree_Model.To_Address); |
procedure Emit_By_Name is new Tree_Path_Tree_Iter_Marshaller.Emit_By_Name_Generic
( | Gtk.Tree_Model.To_Address, Gtk.Tree_Model.To_Address); |