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_Print_Settings_Func is access procedure (Key : UTF8_String; Value : UTF8_String; User_Data : User_Data_Type);
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Foreach
( | Self | : not null access Gtk.Print_Settings.Gtk_Print_Settings_Record'Class; |
Func | : Gtk_Print_Settings_Func; | |
User_Data | : User_Data_Type); |