------------------------------------------------------- These handlers should return a value They require a User_Data See also the package User_Callback_With_Setup -------------------------------------------------------
function Connect
(Widget : access Widget_Type'Class;
Name : Glib.Signal_Name;
Cb : Handler;
User_Data : User_Type;
After : Boolean := False) return Handler_Id
function Connect
(Widget : access Widget_Type'Class;
Name : Glib.Signal_Name;
Marsh : Marshallers.Marshaller;
User_Data : User_Type;
After : Boolean := False) return Handler_Id
procedure Connect
(Widget : access Widget_Type'Class;
Name : Glib.Signal_Name;
Cb : Handler;
User_Data : User_Type;
After : Boolean := False)
procedure Connect
(Widget : access Widget_Type'Class;
Name : Glib.Signal_Name;
Marsh : Marshallers.Marshaller;
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)
function Emit_By_Name
(Object : access Widget_Type'Class;
Name : Glib.Signal_Name)
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
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 : Gint)
return Return_Type
function Emit_By_Name
(Object : access Widget_Type'Class;
Name : Glib.Signal_Name;
Param : Guint)
return Return_Type
package Event_Marshaller is new Marshallers.Generic_Marshaller
(Gdk.Event.Gdk_Event, Gdk.Event.Get_Event);
procedure First_Marshaller
(Closure : GClosure;
Return_Value : Glib.Values.GValue;
N_Params : Guint;
Params : Glib.Values.C_GValues;
Invocation_Hint : System.Address;
User_Data : System.Address)
First level marshaller. This is the function that is actually called by gtk+. It then calls the Ada functions as required. </doc_ignore>
procedure Free_Data (Data : Data_Type_Access)
Free the memory associated with the callback's data
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);
type Handler is access function
(Widget : access Widget_Type'Class;
Params : Glib.Values.GValues;
User_Data : User_Type) return Return_Type;
package Marshallers is new Gtk.Marshallers.User_Return_Marshallers
(Widget_Type, Return_Type, User_Type);
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 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
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 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 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)
type Return_Type is (<>);
type Simple_Handler is access function
(Widget : access Widget_Type'Class;
User_Data : User_Type) return Return_Type;
function To_Marshaller
(Cb : Event_Marshaller.Handler)
return Marshallers.Marshaller
function To_Marshaller
(Cb : Gint_Marshaller.Handler)
return Marshallers.Marshaller
function To_Marshaller
(Cb : Guint_Marshaller.Handler)
return Marshallers.Marshaller
function To_Marshaller
(Cb : Marshallers.Void_Marshaller.Handler)
return Marshallers.Marshaller
function To_Marshaller
(Cb : Widget_Marshaller.Handler)
return Marshallers.Marshaller
type User_Type (<>) is private;
package Widget_Marshaller is new Marshallers.Generic_Widget_Marshaller
(Gtk.Widget.Gtk_Widget_Record, Gtk.Widget.Gtk_Widget);
type Widget_Type is new Glib.Object.GObject_Record with private;