← Back to branch summary

~ubuntu-branches/ubuntu/intrepid/libgtkada2/intrepid

« back to all changes in this revision

Viewing changes to src/gdk-drawable.adb

  • Committer: Bazaar Package Importer
  • Author(s): Luca Falavigna
  • Date: 2008-08-11 09:46:51 UTC
  • mfrom: (6.1.1 squeeze)
  • Revision ID: james.westby@ubuntu.com-20080811094651-9mjd6acwa98ffw5c
Tags: 2.12.0-2ubuntu1
Add lpia to supported architectures.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/gdk-drawable.adb
2
2
--               GtkAda - Ada95 binding for Gtk+/Gnome               --
3
3
--                                                                   --
4
4
--   Copyright (C) 1998-2000 E. Briot, J. Brobecker and A. Charlet   --
 
5
--                Copyright (C) 2000-2008, AdaCore                   --
5
6
--                                                                   --
6
7
-- This library is free software; you can redistribute it and/or     --
7
8
-- modify it under the terms of the GNU General Public               --
35
35
 
36
36
   procedure Draw_Arc
37
37
     (Drawable : Gdk_Drawable;
38
 
      Gc       : Gdk.Gdk_GC;
 
38
      GC       : Gdk.Gdk_GC;
39
39
      Filled   : Boolean := False;
40
40
      X        : Gint;
41
41
      Y        : Gint;
46
46
   is
47
47
      procedure Internal
48
48
        (Drawable : Gdk_Drawable;
49
 
         Gc       : Gdk.Gdk_GC;
 
49
         GC       : Gdk.Gdk_GC;
50
50
         Filled   : Gboolean;
51
51
         X, Y     : Gint;
52
52
         Width    : Gint;
56
56
      pragma Import (C, Internal, "gdk_draw_arc");
57
57
 
58
58
   begin
59
 
      Internal (Drawable, Gc, Boolean'Pos (Filled),
 
59
      Internal (Drawable, GC, Boolean'Pos (Filled),
60
60
                X, Y, Width, Height, Angle1, Angle2);
61
61
   end Draw_Arc;
62
62
 
66
66
 
67
67
   procedure Draw_Lines
68
68
     (Drawable : Gdk_Drawable;
69
 
      Gc       : Gdk.Gdk_GC;
 
69
      GC       : Gdk.Gdk_GC;
70
70
      Points   : Gdk.Types.Gdk_Points_Array)
71
71
   is
72
72
      procedure Internal
73
73
        (Drawable : Gdk_Drawable;
74
 
         Gc       : Gdk.Gdk_GC;
 
74
         GC       : Gdk.Gdk_GC;
75
75
         Points   : Gdk.Types.Gdk_Points_Array;
76
76
         Npoints  : Gint);
77
77
      pragma Import (C, Internal, "gdk_draw_lines");
78
78
 
79
79
   begin
80
 
      Internal (Drawable, Gc, Points, Points'Length);
 
80
      Internal (Drawable, GC, Points, Points'Length);
81
81
   end Draw_Lines;
82
82
 
83
83
   -----------------
86
86
 
87
87
   procedure Draw_Points
88
88
     (Drawable : Gdk_Drawable;
89
 
      Gc       : Gdk.Gdk_GC;
 
89
      GC       : Gdk.Gdk_GC;
90
90
      Points   : Gdk.Types.Gdk_Points_Array)
91
91
   is
92
92
      procedure Internal
93
93
        (Drawable : Gdk_Drawable;
94
 
         Gc       : Gdk.Gdk_GC;
 
94
         GC       : Gdk.Gdk_GC;
95
95
         Points   : Gdk.Types.Gdk_Points_Array;
96
96
         Npoints  : Gint);
97
97
      pragma Import (C, Internal, "gdk_draw_points");
98
98
 
99
99
   begin
100
 
      Internal (Drawable, Gc, Points, Points'Length);
 
100
      Internal (Drawable, GC, Points, Points'Length);
101
101
   end Draw_Points;
102
102
 
103
103
   ------------------
106
106
 
107
107
   procedure Draw_Polygon
108
108
     (Drawable : Gdk_Drawable;
109
 
      Gc       : Gdk.Gdk_GC;
 
109
      GC       : Gdk.Gdk_GC;
110
110
      Filled   : Boolean;
111
111
      Points   : Gdk.Types.Gdk_Points_Array)
112
112
   is
113
113
      procedure Internal
114
114
        (Drawable : Gdk_Drawable;
115
 
         Gc       : Gdk.Gdk_GC;
 
115
         GC       : Gdk.Gdk_GC;
116
116
         Filled   : Gboolean;
117
117
         Points   : Gdk.Types.Gdk_Points_Array;
118
118
         Npoints  : Gint);
119
119
      pragma Import (C, Internal, "gdk_draw_polygon");
120
120
 
121
121
   begin
122
 
      Internal (Drawable, Gc, Boolean'Pos (Filled), Points, Points'Length);
 
122
      Internal (Drawable, GC, Boolean'Pos (Filled), Points, Points'Length);
123
123
   end Draw_Polygon;
124
124
 
125
125
   --------------------
128
128
 
129
129
   procedure Draw_Rectangle
130
130
     (Drawable : Gdk_Drawable;
131
 
      Gc       : Gdk.Gdk_GC;
 
131
      GC       : Gdk.Gdk_GC;
132
132
      Filled   : Boolean := False;
133
133
      X, Y     : Gint;
134
134
      Width    : Gint;
136
136
   is
137
137
      procedure Internal
138
138
        (Drawable : Gdk_Drawable;
139
 
         Gc       : Gdk.Gdk_GC;
 
139
         GC       : Gdk.Gdk_GC;
140
140
         Filled   : Gboolean;
141
141
         X, Y     : Gint;
142
142
         Width    : Gint;
144
144
      pragma Import (C, Internal, "gdk_draw_rectangle");
145
145
 
146
146
   begin
147
 
      Internal (Drawable, Gc, Boolean'Pos (Filled), X, Y, Width, Height);
 
147
      Internal (Drawable, GC, Boolean'Pos (Filled), X, Y, Width, Height);
148
148
   end Draw_Rectangle;
149
149
 
150
150
   -------------------
153
153
 
154
154
   procedure Draw_Segments
155
155
     (Drawable : Gdk.Drawable.Gdk_Drawable;
156
 
      Gc       : Gdk.Gdk_GC;
 
156
      GC       : Gdk.Gdk_GC;
157
157
      Segs     : Gdk.Types.Gdk_Segments_Array)
158
158
   is
159
159
      procedure Internal
160
160
        (Drawable : Gdk.Drawable.Gdk_Drawable;
161
 
         Gc       : Gdk.Gdk_GC;
 
161
         GC       : Gdk.Gdk_GC;
162
162
         Segs     : Gdk.Types.Gdk_Segments_Array;
163
163
         Nsegs    : Gint);
164
164
      pragma Import (C, Internal, "gdk_draw_segments");
165
165
 
166
166
   begin
167
 
      Internal (Drawable, Gc, Segs, Segs'Length);
 
167
      Internal (Drawable, GC, Segs, Segs'Length);
168
168
   end Draw_Segments;
169
169
 
170
170
   ---------------
174
174
   procedure Draw_Text
175
175
     (Drawable : Gdk_Drawable;
176
176
      Font     : Gdk.Gdk_Font;
177
 
      Gc       : Gdk.Gdk_GC;
 
177
      GC       : Gdk.Gdk_GC;
178
178
      X        : Gint;
179
179
      Y        : Gint;
180
180
      Text     : UTF8_String)
182
182
      procedure Internal
183
183
        (Drawable    : Gdk_Drawable;
184
184
         Font        : Gdk.Gdk_Font;
185
 
         Gc          : Gdk.Gdk_GC;
 
185
         GC          : Gdk.Gdk_GC;
186
186
         X           : Gint;
187
187
         Y           : Gint;
188
188
         Text        : UTF8_String;
190
190
      pragma Import (C, Internal, "gdk_draw_text");
191
191
 
192
192
   begin
193
 
      Internal (Drawable, Font, Gc, X, Y, Text, Text'Length);
 
193
      Internal (Drawable, Font, GC, X, Y, Text, Text'Length);
194
194
   end Draw_Text;
195
195
 
196
196
   procedure Draw_Text
197
197
     (Drawable  : Gdk_Drawable;
198
198
      Font      : Gdk.Gdk_Font;
199
 
      Gc        : Gdk.Gdk_GC;
 
199
      GC        : Gdk.Gdk_GC;
200
200
      X         : Gint;
201
201
      Y         : Gint;
202
202
      Wide_Text : Gdk.Types.Gdk_WString)
204
204
      procedure Internal
205
205
        (Drawable    : Gdk_Drawable;
206
206
         Font        : Gdk.Gdk_Font;
207
 
         Gc          : Gdk.Gdk_GC;
 
207
         GC          : Gdk.Gdk_GC;
208
208
         X           : Gint;
209
209
         Y           : Gint;
210
210
         Text        : C.wchar_array;
213
213
 
214
214
   begin
215
215
      Internal
216
 
        (Drawable, Font, Gc, X, Y,
 
216
        (Drawable, Font, GC, X, Y,
217
217
         C.To_C (Item => Wide_Text, Append_Nul => False),
218
218
         Wide_Text'Length);
219
219
   end Draw_Text;