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
29
30
31
32
33
34
35
36
37
38
|
with Gtk.Main;
with Ada.Text_IO;
use Ada.Text_IO;
package body Table is
procedure Callback
(Widget : access Gtk_Widget_Record'Class;
Data : String_Access)
is
pragma Unreferenced (Widget);
begin
Put_Line ("Hello again - " & Data.all & " was pressed");
end Callback;
function Delete_Event
(Widget : access Gtk_Widget_Record'Class;
Event : Gdk_Event) return Boolean
is
pragma Unreferenced (Widget);
pragma Unreferenced (Event);
begin
Gtk.Main.Main_Quit;
return False;
end Delete_Event;
procedure Quit
(Widget : access Gtk_Widget_Record'Class;
Data : String_Access)
is
pragma Unreferenced (Widget);
begin
Put_Line ("Quitting - " & Data.all);
Gtk.Main.Main_Quit;
end Quit;
end Table;
|
