generic type Widget_Type is new Glib.Object.GObject_Record with private; type Return_Type is (<>); package Return_Callback is
package Marshallers is new Gtk.Marshallers.Return_Marshallers (Widget_Type, Return_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);
type Widget_Type is new Glib.Object.GObject_Record with private;
type Handler is access function (Widget : access Widget_Type'Class; Params : Glib.Values.GValues) return Return_Type;
type Simple_Handler is access function (Widget : access Widget_Type'Class) return Return_Type;
procedure Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Marsh | : Marshallers.Marshaller; | |
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; | |
After | : Boolean := False); |
procedure Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Cb | : Simple_Handler; | |
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; | |
After | : Boolean := False); |
procedure Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Cb | : Handler; | |
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; | |
After | : Boolean := False); |
function Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Marsh | : Marshallers.Marshaller; | |
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; | |
After | : Boolean := False) return Handler_Id; |
function Connect
( | Widget | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Cb | : Handler; | |
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; | |
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 Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : Gint) return Return_Type renames Gint_Marshaller.Emit_By_Name; |
function Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : Guint) return Return_Type renames Guint_Marshaller.Emit_By_Name; |
function Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : Gdk.Event.Gdk_Event) return Return_Type; |
function Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : access Gtk.Widget.Gtk_Widget_Record'Class) return Return_Type renames Widget_Marshaller.Emit_By_Name; |
function Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name) return Return_Type renames Marshallers.Void_Marshaller.Emit_By_Name; |
function Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : Gtk.Notebook.Gtk_Notebook_Page) return Return_Type renames Notebook_Page_Marshaller.Emit_By_Name; |