generic
         type Base_Type is new Gtk.Widget.Gtk_Widget_Record with private;
         type Access_Type is access all Base_Type'Class;
      package Generic_Widget_Marshaller is

type Base_Type is new Gtk.Widget.Gtk_Widget_Record with private;

type Access_Type is access all Base_Type'Class;

type Handler is access function
           (Widget    : access Widget_Type'Class;
            Param     : access Base_Type'Class;
            User_Data : User_Type) return Return_Type;

function To_Marshaller 
(
Cb
: Handler) return Marshaller;

function Emit_By_Name 
(
Object
: access Widget_Type'Class;
Name
: Glib.Signal_Name;
Param
: access Base_Type'Class) return Return_Type;