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 procedure (Widget : access Widget_Type'Class; Param : access Base_Type'Class);
function To_Marshaller
( | Cb | : Handler) return Marshaller; |
procedure Emit_By_Name
( | Object | : access Widget_Type'Class; |
Name | : Glib.Signal_Name; | |
Param | : access Base_Type'Class); |