generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Set_Translate_Func_User_Data is
type Gtk_Translate_Func is access function (Path : UTF8_String; Func_Data : User_Data_Type) return UTF8_String;
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Set_Translate_Func
( | Action_Group | : not null access Gtk.Action_Group.Gtk_Action_Group_Record'Class; |
Func | : Gtk_Translate_Func; | |
Data | : User_Data_Type; | |
Notify | : Glib.G_Destroy_Notify_Address); |