generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Set_Sort_Func_User_Data is
type Gtk_Tree_Iter_Compare_Func is access function (Model : Gtk.Tree_Model.Gtk_Tree_Model; A : Gtk.Tree_Model.Gtk_Tree_Iter; B : Gtk.Tree_Model.Gtk_Tree_Iter; User_Data : User_Data_Type) return Gint;
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Set_Sort_Func
( | Sortable | : not null access Gtk.Tree_Model_Sort.Gtk_Tree_Model_Sort_Record'Class; |
Sort_Column_Id | : Gint; | |
Sort_Func | : Gtk_Tree_Iter_Compare_Func; | |
User_Data | : User_Data_Type); |