generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Find_User_Data is
type Gtk_Accel_Group_Find_Func is access function (Key : Gtk.Accel_Group.Gtk_Accel_Key; Closure : System.Address; Data : User_Data_Type) return Boolean;
procedure Destroy
| ( | Data | : in out User_Data_Type) is null; |
function Find
| ( | Accel_Group | : not null access Gtk.Accel_Group.Gtk_Accel_Group_Record'Class; |
| Find_Func | : Gtk_Accel_Group_Find_Func; | |
| Data | : User_Data_Type) return Gtk.Accel_Group.Gtk_Accel_Key; |