generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Set_Select_Function_User_Data is
type Gtk_Tree_Selection_Func is access function (Selection : not null access Gtk.Tree_Selection.Gtk_Tree_Selection_Record'Class; Model : Gtk.Tree_Model.Gtk_Tree_Model; Path : Gtk.Tree_Model.Gtk_Tree_Path; Path_Currently_Selected : Boolean; Data : User_Data_Type) return Boolean;
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Set_Select_Function
( | Selection | : not null access Gtk.Tree_Selection.Gtk_Tree_Selection_Record'Class; |
Func | : Gtk_Tree_Selection_Func; | |
Data | : User_Data_Type); |