generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Set_Column_Drag_Function_User_Data is
type Gtk_Tree_View_Column_Drop_Func is access function (Tree_View : not null access Gtk.Tree_View.Gtk_Tree_View_Record'Class; Column : not null access Gtk.Tree_View_Column.Gtk_Tree_View_Column_Record'Class; Prev_Column : not null access Gtk.Tree_View_Column.Gtk_Tree_View_Column_Record'Class; Next_Column : not null access Gtk.Tree_View_Column.Gtk_Tree_View_Column_Record'Class; Data : User_Data_Type) return Boolean;
procedure Destroy
| ( | Data | : in out User_Data_Type) is null; |
procedure Set_Column_Drag_Function
| ( | Tree_View | : not null access Gtk.Tree_View.Gtk_Tree_View_Record'Class; |
| Func | : Gtk_Tree_View_Column_Drop_Func; | |
| User_Data | : User_Data_Type); |