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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
with Glib;
with Gdk.Window;
with Gdk.Drawable;
with Gdk.GC;
with Gdk.Font;
with Gtk.Drawing_Area;
procedure Draw (Drawing : in out Gtk.Drawing_Area.Gtk_Drawing_Area) is
Gdkw : Gdk.Window.Gdk_Window;
GC : Gdk.GC.Gdk_GC;
Font : Gdk.Font.Gdk_Font;
use type Glib.Gint;
begin
-- Get the Gdk window
Gdkw := Gtk.Drawing_Area.Get_Window (Drawing);
-- Clear the window
Gdk.Window.Clear (Gdkw);
-- Create a graphic context associated with this window
Gdk.GC.Gdk_New (GC, Gdkw);
-- Draw a line in this window
Gdk.Drawable.Draw_Line
(Drawable => Gdkw,
GC => GC,
X1 => 0, Y1 => 0,
X2 => 100, Y2 => 100);
-- Draw an arc
Gdk.Drawable.Draw_Arc
(Drawable => Gdkw,
Gc => GC,
Filled => True,
X => 100,
Y => 100,
Width => 200,
Height => 100,
Angle1 => 0 * 64,
Angle2 => 270 * 64);
-- Ask for a given font
Gdk.Font.Load (Font,
"-adobe-courier-medium-i-*-*-15-*-*-*-*-*-*-*");
Gdk.Drawable.Draw_Text
(Drawable => Gdkw,
Font => Font,
Gc => GC,
X => 50,
Y => 50,
Text => "Hello World");
Gdk.GC.Destroy (GC);
end Draw;
|
