generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Foreach_User_Data is
type Gtk_Text_Tag_Table_Foreach is access procedure (Tag : not null access Gtk.Text_Tag.Gtk_Text_Tag_Record'Class; Data : User_Data_Type);
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Foreach
( | Table | : not null access Gtk.Text_Tag_Table.Gtk_Text_Tag_Table_Record'Class; |
Func | : Gtk_Text_Tag_Table_Foreach; | |
Data | : User_Data_Type); |