generic type User_Data_Type (<>) is private; with procedure Destroy (Data : in out User_Data_Type) is null; package Key_Snooper_Install_User_Data is
type Gtk_Key_Snoop_Func is access function (Grab_Widget : not null access Gtk.Widget.Gtk_Widget_Record'Class; Event : Gdk.Event.Gdk_Event_Key; Func_Data : User_Data_Type) return Gint;
procedure Destroy
( | Data | : in out User_Data_Type) is null; |
function Key_Snooper_Install
( | Snooper | : Gtk_Key_Snoop_Func; |
Func_Data | : User_Data_Type) return Guint; |