Widget Marshaller
type Access_Type is access all Base_Type'Class;
type Base_Type is new Gtk.Widget.Gtk_Widget_Record with private;
procedure Call
(Widget : access Widget_Type'Class;
Params : Glib.Values.GValues;
Cb : General_Handler;
User_Data : User_Type)
procedure Emit_By_Name
(Object : access Widget_Type'Class;
Name : Glib.Signal_Name;
Param : access Base_Type'Class)
type Handler is access procedure
(Widget : access Widget_Type'Class;
Param : access Base_Type'Class;
User_Data : User_Type);
function To_Marshaller (Cb : Handler) return Marshaller