/usr/share/doc/libgtkada-doc/examples/composite_widget/my_dialog.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 26 27 28 29 30 31 | with Gtk.Separator;
with Gtk.Enums;
package body My_Dialog is
procedure Gtk_New (Dialog : out My_Dialog) is
begin
Dialog := new My_Dialog_Record;
Initialize (Dialog);
end Gtk_New;
procedure Initialize (Dialog : access My_Dialog_Record'Class) is
Sep : Gtk.Separator.Gtk_Separator;
begin
Gtk.Window.Initialize (Dialog, Gtk.Enums.Window_Toplevel);
Gtk.Box.Gtk_New_Vbox (Dialog.Vbox, False, 0);
Add (Dialog, Dialog.Vbox);
Gtk.Box.Show (Dialog.Vbox);
Gtk.Box.Gtk_New_Hbox (Dialog.Action_Area, True, 5);
Gtk.Box.Set_Border_Width (Dialog.Action_Area, 10);
Gtk.Box.Pack_End (Dialog.Vbox, Dialog.Action_Area, False, True, 0);
Gtk.Box.Show (Dialog.Action_Area);
Gtk.Separator.Gtk_New_Hseparator (Sep);
Gtk.Box.Pack_End (Dialog.Vbox, Sep, False, True, 0);
Gtk.Separator.Show (Sep);
end Initialize;
end My_Dialog;
|