/usr/share/doc/libgtkada-doc/examples/tutorial/gtkdial/dial_handlers.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 22 23 24 25 | with Gtk.Main;
with Ada.Float_Text_IO;
package body Dial_Handlers is
use Gtk.Adjustment, Gtk.Label;
procedure Value_Changed
(Adjustment : access Gtk_Adjustment_Record'Class;
Label : Gtk_Label)
is
Buffer : String (1 .. 5) := (others => ' ');
begin
Ada.Float_Text_IO.Put
(Buffer, Float (Get_Value (Adjustment)), 2, 0);
Set_Text (Label, Buffer);
end Value_Changed;
procedure Destroy (Window : access Gtk.Window.Gtk_Window_Record'Class) is
pragma Unreferenced (Window);
begin
Gtk.Main.Gtk_Exit (0);
end Destroy;
end Dial_Handlers;
|