generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Selected_Foreach_User_Data is
type Gtk_Icon_View_Foreach_Func is access procedure (Icon_View : not null access Gtk.Icon_View.Gtk_Icon_View_Record'Class; Path : Gtk.Tree_Model.Gtk_Tree_Path; Data : User_Data_Type);
procedure Destroy
| ( | Data | : in out User_Data_Type) is null; |
procedure Selected_Foreach
| ( | Icon_View | : not null access Gtk.Icon_View.Gtk_Icon_View_Record'Class; |
| Func | : Gtk_Icon_View_Foreach_Func; | |
| Data | : User_Data_Type); |