generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Set_Filter_Func_User_Data is
type Gtk_Font_Filter_Func is access function (Family : not null access Pango.Font_Family.Pango_Font_Family_Record'Class; Face : not null access Pango.Font_Face.Pango_Font_Face_Record'Class; Data : User_Data_Type) return Boolean;
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Set_Filter_Func
( | Self | : not null access Gtk.Font_Chooser_Widget.Gtk_Font_Chooser_Widget_Record'Class; |
Filter | : Gtk_Font_Filter_Func; | |
User_Data | : User_Data_Type); |