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