generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Filter_User_Data is
type Pango_Attr_Filter_Func is access function (Attribute : Pango.Attributes.Pango_Attribute; User_Data : User_Data_Type) return Boolean;
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
function Filter
( | Self | : Pango.Attributes.Pango_Attr_List; |
Func | : Pango_Attr_Filter_Func; | |
Data | : User_Data_Type) return Pango.Attributes.Pango_Attr_List; |