generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Set_Cell_Data_Func_User_Data is
type Gtk_Cell_Layout_Data_Func is access procedure (Cell_Layout : Gtk.Cell_Layout.Gtk_Cell_Layout; Cell : not null access Gtk.Cell_Renderer.Gtk_Cell_Renderer_Record'Class; Tree_Model : Gtk.Tree_Model.Gtk_Tree_Model; Iter : Gtk.Tree_Model.Gtk_Tree_Iter; Data : User_Data_Type);
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Set_Cell_Data_Func
( | Cell_Layout | : not null access Gtk.Cell_View.Gtk_Cell_View_Record'Class; |
Cell | : not null access Gtk.Cell_Renderer.Gtk_Cell_Renderer_Record'Class; | |
Func | : Gtk_Cell_Layout_Data_Func; | |
Func_Data | : User_Data_Type); |