generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Handler_Set_User_Data is
type Gdk_Event_Func is access procedure (Event : Gdk.Event.Gdk_Event; Data : User_Data_Type);
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
procedure Handler_Set
( | Func | : Gdk_Event_Func; |
Data | : User_Data_Type; | |
Notify | : Glib.G_Destroy_Notify_Address); |