------------------------------------------------------- These handlers do not 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)
procedure Emit_By_Name
(Object : access Widget_Type'Class;
Name : Glib.Signal_Name)
procedure Emit_By_Name
(Object : access Widget_Type'Class;
Name : Glib.Signal_Name;
Param : access Gtk.Widget.Gtk_Widget_Record'Class)
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 : Gint)
procedure Emit_By_Name
(Object : access Widget_Type'Class;
Name : Glib.Signal_Name;
Param : Guint)
procedure Emit_By_Name is
new Tree_Iter_Tree_Path_Marshaller.Emit_By_Name_Generic
(Gtk.Tree_Model.To_Address,
To_Address);
procedure Emit_By_Name is
new Tree_Path_Marshaller.Emit_By_Name_Generic
(To_Address);
procedure Emit_By_Name is
new Tree_Path_Tree_Iter_Marshaller.Emit_By_Name_Generic
(To_Address,
Gtk.Tree_Model.To_Address);
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 procedure
(Widget : access Widget_Type'Class;
Params : Glib.Values.GValues;
User_Data : User_Type);
package Marshallers is new
Gtk.Marshallers.User_Void_Marshallers (Widget_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 Simple_Handler is access procedure
(Widget : access Widget_Type'Class;
User_Data : User_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 : Tree_Iter_Tree_Path_Marshaller.Handler)
return Marshallers.Marshaller
function To_Marshaller
(Cb : Tree_Path_Marshaller.Handler)
return Marshallers.Marshaller
function To_Marshaller
(Cb : Tree_Path_Tree_Column_Marshaller.Handler)
return Marshallers.Marshaller
function To_Marshaller
(Cb : Tree_Path_Tree_Iter_Marshaller.Handler)
return Marshallers.Marshaller
function To_Marshaller
(Cb : Widget_Marshaller.Handler)
return Marshallers.Marshaller
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_Marshaller is new Marshallers.Generic_Marshaller
(Gtk.Tree_Model.Gtk_Tree_Path, Gtk.Tree_Model.Get_Tree_Path);
package Tree_Path_Tree_Column_Marshaller is
new Marshallers.Generic_Marshaller_2
(Gtk.Tree_Model.Gtk_Tree_Path, Gtk.Tree_Model.Get_Tree_Path,
Gtk.Tree_View_Column.Gtk_Tree_View_Column, Get_Tree_View_Column);
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 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;