/usr/share/doc/libgtkada-doc/examples/tutorial/table/table.ads is in libgtkada-doc 2.24.1-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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;
|