File: my_dialog.ads

package info (click to toggle)
libgtkada 2.24.4dfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 12,208 kB
  • ctags: 1,676
  • sloc: ada: 119,686; ansic: 4,719; sh: 3,003; makefile: 690; xml: 338; perl: 70
file content (19 lines) | stat: -rw-r--r-- 533 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
with Gtk.Window;
with Gtk.Box;

package My_Dialog is

   --  This is intended to reprogram the Gtk_Dialog fully in Ada
   --  A dialog is simply a window with two areas

   type My_Dialog_Record is new Gtk.Window.Gtk_Window_Record with
      record
         Vbox        : Gtk.Box.Gtk_Box;
         Action_Area : Gtk.Box.Gtk_Box;
      end record;
   type My_Dialog is access all My_Dialog_Record'Class;

   procedure Gtk_New (Dialog : out My_Dialog);
   procedure Initialize (Dialog : access My_Dialog_Record'Class);

end My_Dialog;