generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Foreach_Alloc_User_Data is
type Gtk_Cell_Alloc_Callback is access function (Renderer : not null access Gtk.Cell_Renderer.Gtk_Cell_Renderer_Record'Class; Cell_Area : Gdk.Rectangle.Gdk_Rectangle; Cell_Background : Gdk.Rectangle.Gdk_Rectangle; Data : User_Data_Type) return Boolean;
procedure Destroy
| ( | Data | : in out User_Data_Type) is null; |
procedure Foreach_Alloc
| ( | Self | : not null access Gtk.Cell_Area.Gtk_Cell_Area_Record'Class; |
| Context | : not null access Gtk.Cell_Area_Context.Gtk_Cell_Area_Context_Record'Class; | |
| Widget | : not null access Gtk.Widget.Gtk_Widget_Record'Class; | |
| Cell_Area | : Gdk.Rectangle.Gdk_Rectangle; | |
| Background_Area | : Gdk.Rectangle.Gdk_Rectangle; | |
| Callback | : Gtk_Cell_Alloc_Callback; | |
| Callback_Data | : User_Data_Type); |