package Void_Marshaller is
type Handler is access procedure (Widget : access Widget_Type'Class; User_Data : User_Type);
function To_Marshaller
procedure Emit_By_Name