generic
         type Base_Type is private;
         with function Conversion
           (Value : Glib.Values.GValue) return Base_Type;

      package Generic_Marshaller is

type Base_Type is private;

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

function Conversion 
(
Value
: Glib.Values.GValue) return Base_Type;

function To_Marshaller 
(
Cb
: Handler) return Marshaller;

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

generic with function Conversion 
(
Param
: Base_Type) return System.Address;
function Emit_By_Name_Generic (Object
: access Widget_Type'Class;
Name
: Glib.Signal_Name;
Param
: Base_Type) return Return_Type;