generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Foreach_User_Data is
type Pango_Fontset_Foreach_Func is access function (Fontset : not null access Pango.Fontset.Pango_Fontset_Record'Class; Font : not null access Pango.Font.Pango_Font_Record'Class; User_Data : User_Data_Type) return Boolean;
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Foreach
( | Self | : not null access Pango.Fontset.Pango_Fontset_Record'Class; |
Func | : Pango_Fontset_Foreach_Func; | |
Data | : User_Data_Type); |