Add initial prototype.

This commit is contained in:
Rod Kay
2022-07-31 17:34:54 +10:00
commit 54a53b2ac0
1421 changed files with 358874 additions and 0 deletions

View File

@@ -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;