generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Set_Detail_Func_User_Data is
type Gtk_Calendar_Detail_Func is access function (Calendar : not null access Gtk.Calendar.Gtk_Calendar_Record'Class; Year : Guint; Month : Guint; Day : Guint; User_Data : User_Data_Type) return UTF8_String;
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Set_Detail_Func
( | Calendar | : not null access Gtk.Calendar.Gtk_Calendar_Record'Class; |
Func | : Gtk_Calendar_Detail_Func; | |
Data | : User_Data_Type); |