generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Forall_User_Data is
type Gtk_Callback is access procedure (Widget : not null access Gtk.Widget.Gtk_Widget_Record'Class; Data : User_Data_Type);
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Forall
( | Container | : not null access Gtk.Container.Gtk_Container_Record'Class; |
Callback | : Gtk_Callback; | |
Callback_Data | : User_Data_Type); |