33 lines
906 B
Ada
33 lines
906 B
Ada
package glx.BufferSwapComplete
|
|
is
|
|
type Item is
|
|
record
|
|
the_Type : aliased C.int;
|
|
Serial : aliased C.unsigned_long;
|
|
send_Event : aliased Bool;
|
|
Display : System.Address;
|
|
Drawable : aliased glx.Drawable;
|
|
Event_type : aliased C.int;
|
|
UST : aliased Integer_64;
|
|
MSC : aliased Integer_64;
|
|
SBC : aliased Integer_64;
|
|
end record;
|
|
|
|
type Items is array (C.size_t range <>) of aliased BufferSwapComplete.item;
|
|
|
|
|
|
type Pointer is access all BufferSwapComplete.item;
|
|
type Pointers is array (C.size_t range <>) of aliased BufferSwapComplete.Pointer;
|
|
|
|
type Pointer_Pointer is access all BufferSwapComplete.Pointer;
|
|
|
|
function Construct return BufferSwapComplete.item;
|
|
|
|
|
|
|
|
private
|
|
|
|
pragma Import (C, Construct, "Ada_new_GLXBufferSwapComplete");
|
|
|
|
end glx.BufferSwapComplete;
|