Add initial prototype.
This commit is contained in:
@@ -0,0 +1,26 @@
|
||||
package glx.PbufferClobberEvent
|
||||
is
|
||||
type Item is
|
||||
record
|
||||
Event_Type : aliased C.int;
|
||||
Draw_Type : aliased C.int;
|
||||
Serial : aliased C.unsigned_long;
|
||||
Send_Event : aliased glx.Bool;
|
||||
Display : System.Address;
|
||||
Drawable : aliased glx.Drawable;
|
||||
Buffer_Mask : aliased C.unsigned;
|
||||
aux_Buffer : aliased C.unsigned;
|
||||
X : aliased C.int;
|
||||
Y : aliased C.int;
|
||||
Width : aliased C.int;
|
||||
Height : aliased C.int;
|
||||
Count : aliased C.int;
|
||||
end record;
|
||||
|
||||
type Pointer is access all Item;
|
||||
type Pointer_Pointer is access all Pointer;
|
||||
|
||||
type Items is array (C.size_t range <>) of aliased Item;
|
||||
type Pointers is array (C.size_t range <>) of aliased Pointer;
|
||||
|
||||
end glx.PbufferClobberEvent;
|
||||
Reference in New Issue
Block a user