1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
with Gdk.Event; use Gdk.Event;
with Gtk.Widget, Gtk.Handlers; use Gtk.Widget, Gtk.Handlers;
package Table is
type String_Access is access all String;
package Handlers is new Gtk.Handlers.User_Callback
(Widget_Type => Gtk_Widget_Record,
User_Type => String_Access);
package Return_Handlers is new Gtk.Handlers.Return_Callback
(Widget_Type => Gtk_Widget_Record,
Return_Type => Boolean);
procedure Callback
(Widget : access Gtk_Widget_Record'Class;
Data : String_Access);
function Delete_Event
(Widget : access Gtk_Widget_Record'Class;
Event : Gdk_Event) return Boolean;
procedure Quit
(Widget : access Gtk_Widget_Record'Class;
Data : String_Access);
end Table;
|
