/usr/share/doc/libgtkada-doc/examples/powergnu/power.adb 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 | with Gtk; use Gtk;
with Gtk.Main;
with Powergnu_Pkg; use Powergnu_Pkg;
with Powergnu_Pkg.Callbacks; use Powergnu_Pkg.Callbacks;
with Ada.Command_Line; use Ada.Command_Line;
procedure Power is
begin
Gtk.Main.Set_Locale;
Gtk.Main.Init;
Gtk_New (Powergnu);
Show_All (Powergnu);
-- Presentation file on the command line ? Load it
if Argument_Count = 1 then
Load_File (Powergnu, Argument (1));
end if;
Gtk.Main.Main;
end Power;
|