File: my_widget.ads

package info (click to toggle)
libgtkada2 2.8.1-6lenny3
  • links: PTS, VCS
  • area: main
  • in suites: lenny
  • size: 13,496 kB
  • ctags: 3,886
  • sloc: ada: 103,189; ansic: 45,411; perl: 5,500; sh: 2,812; makefile: 1,169; xml: 19
file content (27 lines) | stat: -rw-r--r-- 720 bytes parent folder | download | duplicates (6)
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
with Glib; use Glib;
with Gdk.GC;
with Gtk.Drawing_Area;

package My_Widget is

   --  A simple widget, that appears as a round target, with two zones.
   --  If prints a different message depending on where you click

   type Target_Widget_Record is new Gtk.Drawing_Area.Gtk_Drawing_Area_Record
     with private;
   type Target_Widget is access all Target_Widget_Record'Class;


   procedure Gtk_New (Widget : out Target_Widget);
   procedure Initialize (Widget : access Target_Widget_Record'Class);

private
   type Target_Widget_Record is new
     Gtk.Drawing_Area.Gtk_Drawing_Area_Record with
   record
      Gc_In  : Gdk.GC.Gdk_GC;
      Gc_Out : Gdk.GC.Gdk_GC;
      Radius : Gint;
   end record;

end My_Widget;