|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 123904 (0x1e400)
Types: Ada Source
Notes: 03_class, FILE, Long Ada Source, R1k_Segment, e3_tag, package Xlbt_Reply3, seg_004fe9
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Unchecked_Deallocation;
with Xlbt_Arithmetic;
use Xlbt_Arithmetic;
with Xlbt_Basic3;
use Xlbt_Basic3;
with Xlbt_Color;
use Xlbt_Color;
with Xlbt_Error3;
use Xlbt_Error3;
with Xlbt_Event3;
use Xlbt_Event3;
with Xlbt_Font3;
use Xlbt_Font3;
with Xlbt_Grab;
use Xlbt_Grab;
with Xlbt_Host;
use Xlbt_Host;
with Xlbt_Input_Focus;
use Xlbt_Input_Focus;
with Xlbt_Key3;
use Xlbt_Key3;
with Xlbt_Keyboard3;
use Xlbt_Keyboard3;
with Xlbt_Misc;
use Xlbt_Misc;
with Xlbt_Request3;
use Xlbt_Request3;
with Xlbt_Screen_Saver;
use Xlbt_Screen_Saver;
with Xlbt_Window4;
use Xlbt_Window4;
with Xlbit_Unused;
use Xlbit_Unused;
--/ if Record_Rep_Clauses then
--// with Xlbmt_Parameters;
--// use Xlbmt_Parameters;
--/ end if;
with Xlbmt_Network_Types;
use Xlbmt_Network_Types;
package Xlbt_Reply3 is
------------------------------------------------------------------------------
-- X Library Protocol Reply Packets - Full Interface
--
-- Xlbt_Reply3 - Record definitions of the protocol reply packets
------------------------------------------------------------------------------
-- Copyright 1989 - 1991 by Rational, Santa Clara, California.
-- Copyright 1985 - 1989 by the Massachusetts Institute of Technology
--
-- All Rights Reserved.
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright notice(s) appear in all copies and that
-- both that copyright notice(s) and this permission notice appear in
-- supporting documentation, and that the names of MIT or Rational not be
-- used in advertising or publicity pertaining to distribution of the software
-- without specific, written prior permission.
--
-- MIT and Rational disclaim all warranties with regard to this software,
-- including all implied warranties of merchantability and fitness, in no
-- event shall MIT or Rational be liable for any special, indirect or
-- consequential damages or any damages whatsoever resulting from loss of use,
-- data or profits, whether in an action of contract, negligence or other
-- tortious action, arising out of or in connection with the use or performance
-- of this software.
------------------------------------------------------------------------------
--\x0c
------------------------------------------------------------------------------
-- X_Alloc_Color_Reply
------------------------------------------------------------------------------
type X_Alloc_Color_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Red : U_Short;
Green : U_Short;
Blue : U_Short;
Pad2 : U_Short;
Pixel : X_Pixel;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Alloc_Color_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Alloc_Color_Cells_Reply
------------------------------------------------------------------------------
type X_Alloc_Color_Cells_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
N_Pixels : U_Short;
N_Masks : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Alloc_Color_Cells_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Alloc_Color_Planes_Reply
------------------------------------------------------------------------------
type X_Alloc_Color_Planes_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
N_Pixels : U_Short;
Pad2 : U_Short;
Red_Mask : X_Red_Color_Mask;
Green_Mask : X_Green_Color_Mask;
Blue_Mask : X_Blue_Color_Mask;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Alloc_Color_Planes_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Alloc_Named_Color_Reply
------------------------------------------------------------------------------
type X_Alloc_Named_Color_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Pixel : X_Pixel;
Exact_Red : U_Short;
Exact_Green : U_Short;
Exact_Blue : U_Short;
Screen_Red : U_Short;
Screen_Green : U_Short;
Screen_Blue : U_Short;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Alloc_Named_Color_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Atom_Name_Reply
------------------------------------------------------------------------------
type X_Get_Atom_Name_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- of additional bytes
Name_Length : U_Short; -- # of characters in name
Pad2 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Atom_Name_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Font_Path_Reply
------------------------------------------------------------------------------
type X_Get_Font_Path_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
N_Paths : U_Short;
Pad2 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Font_Path_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Geometry_Reply
------------------------------------------------------------------------------
type X_Get_Geometry_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Depth : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Root : X_Window;
X : S_Short;
Y : S_Short;
Width : U_Short;
Height : U_Short;
Border_Width : U_Short;
Pad1 : U_Short;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Geometry_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Image_Reply
------------------------------------------------------------------------------
type X_Get_Image_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Depth : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
Visual : X_Visual_Id;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Image_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Input_Focus_Reply
------------------------------------------------------------------------------
type X_Get_Input_Focus_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Revert_To : X_Revert_Focus_Mode;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Focus : X_Window;
Pad1 : X_Unused_4;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Input_Focus_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Keyboard_Control_Reply
------------------------------------------------------------------------------
type X_Get_Keyboard_Control_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Global_Auto_Repeat : X_Boolean_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 5
Led_Mask : X_Led_Bits;
Key_Click_Percent : S_Char; -- -100..100
Bell_Percent : S_Char; -- -100..100
Bell_Pitch : U_Short;
Bell_Duration : U_Short;
Pad : U_Short;
Map : X_Keyboard_As_Bits; -- bit masks start here
end record;
--/ if not R1000_Size_Bug and then Length_Clauses then
--// for X_Get_Keyboard_Control_Reply'Size use 8 * 52;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Keyboard_Mapping_Reply
------------------------------------------------------------------------------
type X_Get_Keyboard_Mapping_Reply is
record
Kind : X_Event_Code_8;
Key_Syms_Per_Key_Code : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Keyboard_Mapping_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Modifier_Mapping_Reply
------------------------------------------------------------------------------
type X_Get_Modifier_Mapping_Reply is
record
Kind : X_Event_Code_8;
Num_Key_Per_Modifier : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
Pad1 : X_Unused_4;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Modifier_Mapping_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Motion_Events_Reply
------------------------------------------------------------------------------
type X_Get_Motion_Events_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
N_Events : S_Long;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Motion_Events_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Pointer_Control_Reply
------------------------------------------------------------------------------
type X_Get_Pointer_Control_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Accel_Numerator : U_Short;
Accel_Denominator : U_Short;
Threshold : U_Short;
Pad2 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Pointer_Control_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Pointer_Mapping_Reply
------------------------------------------------------------------------------
type X_Get_Pointer_Mapping_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
N_Elts : U_Char; -- how many elements
-- does the map have
Sequence_Number : U_Short;
Length : S_Long;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Pointer_Mapping_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Property_Reply
------------------------------------------------------------------------------
type X_Get_Property_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Format : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- of additional bytes
Property_Type : X_Atom;
Bytes_After : S_Long;
N_Items : S_Long; -- # of 8/16/32-bit items in reply
Pad1 : X_Unused_4;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Property_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Screen_Saver_Reply
------------------------------------------------------------------------------
type X_Get_Screen_Saver_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Timeout : U_Short;
Interval : U_Short;
Prefer_Blanking : X_Screen_Saver_Blanking;
Allow_Exposures : X_Screen_Saver_Exposures;
Pad2 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Screen_Saver_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Selection_Owner_Reply
------------------------------------------------------------------------------
type X_Get_Selection_Owner_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Owner : X_Window;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Get_Selection_Owner_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Get_Window_Attributes_Reply
------------------------------------------------------------------------------
type X_Get_Window_Attributes_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Backing_Store : X_Backing_Store_Hint;
Sequence_Number : U_Short;
Length : S_Long; -- NOT 0; this is an
-- extra-large reply
Visual_Id : X_Visual_Id;
Class : X_Window_Class;
Bit_Gravity : X_Bit_Gravity;
Win_Gravity : X_Window_Gravity;
Backing_Bit_Planes : X_Plane_Mask;
Backing_Pixel : X_Pixel;
Save_Under : X_Boolean_Char;
Map_Installed : X_Boolean_Char;
Map_State : X_Map_State;
Override : X_Boolean_Char;
Colormap : X_Colormap;
All_Event_Masks : X_Event_Mask;
Your_Event_Mask : X_Event_Mask;
Do_Not_Propagate_Mask : X_Event_Mask_Short;
Pad : U_Short;
end record;
--/ if not R1000_Size_Bug and then Length_Clauses then
--// for X_Get_Window_Attributes_Reply'Size use 8 * 44;
--/ end if;
------------------------------------------------------------------------------
-- X_Grab_Keyboard_Reply
------------------------------------------------------------------------------
type X_Grab_Keyboard_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Success : X_Grab_Status;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Pad1 : X_Unused_4;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Grab_Keyboard_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Grab_Pointer_Reply
------------------------------------------------------------------------------
type X_Grab_Pointer_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Success : X_Grab_Status;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Pad1 : X_Unused_4;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Grab_Pointer_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Intern_Atom_Reply
------------------------------------------------------------------------------
type X_Intern_Atom_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Atom : X_Atom;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Intern_Atom_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_List_Extensions_Reply
------------------------------------------------------------------------------
type X_List_Extensions_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
N_Extensions : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_List_Extensions_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_List_Fonts_Reply
------------------------------------------------------------------------------
type X_List_Fonts_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
N_Fonts : U_Short;
Pad2 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_List_Fonts_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_List_Fonts_With_Info_Reply
------------------------------------------------------------------------------
type X_List_Fonts_With_Info_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Name_Length : U_Char; -- 0 indicates end-of-reply-
-- sequence
Sequence_Number : U_Short;
Length : S_Long; -- definitely > 0, even if
-- "Name_Length" is 0
Min_Bounds : X_Char_Struct;
Walign1 : S_Long; -- Just alignment, no data
Max_Bounds : X_Char_Struct;
Walign2 : S_Long; -- Just alignment, no data
Min_Char_Or_Byte2 : U_Short;
Max_Char_Or_Byte2 : U_Short;
Default_Char : U_Short; -- Note: *not* X_Character16!
N_Font_Props : U_Short; -- followed by this many
-- X_Font_Prop structures
Draw_Direction : X_Font_Direction;
Min_Byte1 : U_Char;
Max_Byte1 : U_Char;
All_Chars_Exist : X_Boolean_Char;
Font_Ascent : S_Short;
Font_Descent : S_Short;
N_Replies : S_Long; -- hint as to how many more
-- replies might be coming
end record;
--/ if Length_Clauses then
for X_List_Fonts_With_Info_Reply'Size use 8 * 60;
--/ end if;
------------------------------------------------------------------------------
-- X_List_Hosts_Reply
------------------------------------------------------------------------------
type X_List_Hosts_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Enabled : X_Boolean_Char;
Sequence_Number : U_Short;
Length : S_Long;
N_Hosts : U_Short;
Pad1 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_List_Hosts_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Wire_Host_Format
------------------------------------------------------------------------------
type X_Wire_Host_Reply is
record
Family : X_Host_Protocol_Family;
Pad : U_Char;
Name_Length : U_Short;
end record;
--/ if Length_Clauses then
for X_Wire_Host_Reply'Size use 8 * 4 * 1;
--/ end if;
------------------------------------------------------------------------------
-- X_List_Installed_Colormaps_Reply
------------------------------------------------------------------------------
type X_List_Installed_Colormaps_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
N_Colormaps : U_Short;
Pad2 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_List_Installed_Colormaps_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_List_Properties_Reply
------------------------------------------------------------------------------
type X_List_Properties_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
N_Properties : U_Short;
Pad2 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_List_Properties_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Lookup_Color_Reply
------------------------------------------------------------------------------
type X_Lookup_Color_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Exact_Red : U_Short;
Exact_Green : U_Short;
Exact_Blue : U_Short;
Screen_Red : U_Short;
Screen_Green : U_Short;
Screen_Blue : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Lookup_Color_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Query_Best_Size_Reply
------------------------------------------------------------------------------
type X_Query_Best_Size_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Width : U_Short;
Height : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Query_Best_Size_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Query_Colors_Reply
------------------------------------------------------------------------------
type X_Query_Colors_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
N_Colors : U_Short;
Pad2 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Query_Colors_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Rgb - Part of an X_Query_Colors_Reply
------------------------------------------------------------------------------
type X_Rgb is
record
Red : U_Short;
Green : U_Short;
Blue : U_Short;
Pad : U_Short;
end record;
--/ if Length_Clauses then
for X_Rgb'Size use 16 * 4;
--/ end if;
type X_Rgb_Array is array (S_Natural range <>) of X_Rgb;
type X_Rgb_List is access X_Rgb_Array;
--/ if Pack and not TeleGen2_Pack_Bug then
--// pragma Pack (X_Rgb_Array);
--/ end if;
--/ if Enable_Deallocation then
pragma Enable_Deallocation (X_Rgb_List);
--/ end if;
procedure Free_X_Rgb_List is
new Unchecked_Deallocation (X_Rgb_Array,
X_Rgb_List);
------------------------------------------------------------------------------
-- X_Query_Extension_Reply
------------------------------------------------------------------------------
type X_Query_Extension_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Present : X_Boolean_Char;
Major_Opcode : X_Request_Code;
First_Event : X_Event_Code_8;
First_Error : X_Error_Code;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Query_Extension_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Query_Font_Reply
------------------------------------------------------------------------------
type X_Query_Font_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- definitely > 0, even if
-- "N_Char_Infos" is 0
Min_Bounds : X_Char_Struct;
Walign1 : S_Long; -- Just alignment, no data.
Max_Bounds : X_Char_Struct;
Walign2 : S_Long; -- Just alignment, no data.
Min_Char_Or_Byte2 : U_Short;
Max_Char_Or_Byte2 : U_Short;
Default_Char : U_Short; -- Note: *not* X_Character16!
N_Font_Props : U_Short; -- followed by this many
-- x_Font_Prop structures
Draw_Direction : X_Font_Direction;
Min_Byte1 : U_Char;
Max_Byte1 : U_Char;
All_Chars_Exist : X_Boolean_Char;
Font_Ascent : S_Short;
Font_Descent : S_Short;
N_Char_Infos : S_Long; -- followed by this many
-- X_Char_Info structures
end record;
--/ if Length_Clauses then
for X_Query_Font_Reply'Size use 8 * 60;
--/ end if;
------------------------------------------------------------------------------
-- X_Query_Keymap_Reply
------------------------------------------------------------------------------
type X_Query_Keymap_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 2, NOT 0; this is an
-- extra-large reply
Map : X_Keyboard_As_Bits;
end record;
--/ if not R1000_Size_Bug and then Length_Clauses then
--// for X_Query_Keymap_Reply'Size use 8 * 32 + 8 * 4 * 2;
--/ end if;
------------------------------------------------------------------------------
-- X_Query_Pointer_Reply
------------------------------------------------------------------------------
type X_Query_Pointer_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Same_Screen : X_Boolean_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Root : X_Window;
Child : X_Window;
Root_X : U_Short;
Root_Y : U_Short;
Win_X : S_Short;
Win_Y : S_Short;
Mask : X_Key_Button_Mask;
Pad1 : U_Short;
Pad : X_Unused_4;
end record;
--/ if not R1000_Size_Bug and then Length_Clauses then
--// for X_Query_Pointer_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Query_Text_Extents_Reply
------------------------------------------------------------------------------
type X_Query_Text_Extents_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Draw_Direction : X_Font_Direction;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Font_Ascent : S_Short;
Font_Descent : S_Short;
Overall_Ascent : S_Short;
Overall_Descent : S_Short;
Overall_Width : S_Long;
Overall_Left : S_Long;
Overall_Right : S_Long;
Pad : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Query_Text_Extents_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Query_Tree_Reply
------------------------------------------------------------------------------
type X_Query_Tree_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Pad1 : U_Char;
Sequence_Number : U_Short;
Length : S_Long;
Root : X_Window;
Parent : X_Window;
N_Children : U_Short;
Pad2 : U_Short;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Query_Tree_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Set_Modifier_Mapping_Reply
------------------------------------------------------------------------------
type X_Set_Modifier_Mapping_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Success : X_Mapping_Status;
Sequence_Number : U_Short;
Length : S_Long;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Set_Modifier_Mapping_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Set_Pointer_Mapping_Reply
------------------------------------------------------------------------------
type X_Set_Pointer_Mapping_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Success : X_Mapping_Status;
Sequence_Number : U_Short;
Length : S_Long;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
Pad6 : X_Unused_4;
Pad7 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Set_Pointer_Mapping_Reply'Size use 8 * 32;
--/ end if;
------------------------------------------------------------------------------
-- X_Translate_Coords_Reply
------------------------------------------------------------------------------
type X_Translate_Coords_Reply is
record
Kind : X_Event_Code_8; -- X_Reply
Same_Screen : X_Boolean_Char;
Sequence_Number : U_Short;
Length : S_Long; -- 0
Child : X_Window;
Dst_X : S_Short;
Dst_Y : S_Short;
Pad2 : X_Unused_4;
Pad3 : X_Unused_4;
Pad4 : X_Unused_4;
Pad5 : X_Unused_4;
end record;
--/ if Length_Clauses then
for X_Translate_Coords_Reply'Size use 8 * 32;
--/ end if;
--\x0c
------------------------------------------------------------------------------
-- X_Reply - All reply headers are 32 bytes in length. They may have extra
-- data following the initial 32 bytes.
------------------------------------------------------------------------------
type X_Reply_Contents (Kind : X_Request_Code := Invalid_Request) is
record
Send_Event : Boolean := False; -- True if sent by Client not Server
case Kind is
when Alloc_Color =>
Alloc_Color : X_Alloc_Color_Reply;
when Alloc_Color_Cells =>
Alloc_Color_Cells : X_Alloc_Color_Cells_Reply;
when Alloc_Color_Planes =>
Alloc_Color_Planes : X_Alloc_Color_Planes_Reply;
when Alloc_Named_Color =>
Alloc_Named_Color : X_Alloc_Named_Color_Reply;
when Get_Atom_Name =>
Get_Atom_Name : X_Get_Atom_Name_Reply;
when Get_Font_Path =>
Get_Font_Path : X_Get_Font_Path_Reply;
when Get_Geometry =>
Get_Geometry : X_Get_Geometry_Reply;
when Get_Image =>
Get_Image : X_Get_Image_Reply;
when Get_Input_Focus =>
Get_Input_Focus : X_Get_Input_Focus_Reply;
when Get_Keyboard_Control =>
Get_Keyboard_Control : X_Get_Keyboard_Control_Reply;
when Get_Keyboard_Mapping =>
Get_Keyboard_Mapping : X_Get_Keyboard_Mapping_Reply;
when Get_Modifier_Mapping =>
Get_Modifier_Mapping : X_Get_Modifier_Mapping_Reply;
when Get_Motion_Events =>
Get_Motion_Events : X_Get_Motion_Events_Reply;
when Get_Pointer_Control =>
Get_Pointer_Control : X_Get_Pointer_Control_Reply;
when Get_Pointer_Mapping =>
Get_Pointer_Mapping : X_Get_Pointer_Mapping_Reply;
when Get_Property =>
Get_Property : X_Get_Property_Reply;
when Get_Screen_Saver =>
Get_Screen_Saver : X_Get_Screen_Saver_Reply;
when Get_Selection_Owner =>
Get_Selection_Owner : X_Get_Selection_Owner_Reply;
when Get_Window_Attributes =>
Get_Window_Attributes : X_Get_Window_Attributes_Reply;
when Grab_Keyboard =>
Grab_Keyboard : X_Grab_Keyboard_Reply;
when Grab_Pointer =>
Grab_Pointer : X_Grab_Pointer_Reply;
when Intern_Atom =>
Intern_Atom : X_Intern_Atom_Reply;
when List_Extensions =>
List_Extensions : X_List_Extensions_Reply;
when List_Fonts =>
List_Fonts : X_List_Fonts_Reply;
when List_Fonts_With_Info =>
List_Fonts_With_Info : X_List_Fonts_With_Info_Reply;
when List_Hosts =>
List_Hosts : X_List_Hosts_Reply;
when List_Installed_Colormaps =>
List_Installed_Colormaps : X_List_Installed_Colormaps_Reply;
when List_Properties =>
List_Properties : X_List_Properties_Reply;
when Lookup_Color =>
Lookup_Color : X_Lookup_Color_Reply;
when Query_Best_Size =>
Query_Best_Size : X_Query_Best_Size_Reply;
when Query_Colors =>
Query_Colors : X_Query_Colors_Reply;
when Query_Extension =>
Query_Extension : X_Query_Extension_Reply;
when Query_Font =>
Query_Font : X_Query_Font_Reply;
when Query_Keymap =>
Query_Keymap : X_Query_Keymap_Reply;
when Query_Pointer =>
Query_Pointer : X_Query_Pointer_Reply;
when Query_Text_Extents =>
Query_Text_Extents : X_Query_Text_Extents_Reply;
when Query_Tree =>
Query_Tree : X_Query_Tree_Reply;
when Set_Modifier_Mapping =>
Set_Modifier_Mapping : X_Set_Modifier_Mapping_Reply;
when Set_Pointer_Mapping =>
Set_Pointer_Mapping : X_Set_Pointer_Mapping_Reply;
when Translate_Coords =>
Translate_Coords : X_Translate_Coords_Reply;
when others =>
null;
end case;
end record;
--\x0c
--/ if Record_Rep_Clauses then
--//
--// for X_Alloc_Color_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Red at 2 * X_Word range X_Half0a .. X_Half0b;
--// Green at 2 * X_Word range X_Half1a .. X_Half1b;
--// Blue at 3 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 3 * X_Word range X_Half1a .. X_Half1b;
--// Pixel at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Alloc_Color_Cells_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// N_Pixels at 2 * X_Word range X_Half0a .. X_Half0b;
--// N_Masks at 2 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Alloc_Color_Planes_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// N_Pixels at 2 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 2 * X_Word range X_Half1a .. X_Half1b;
--// Red_Mask at 3 * X_Word range X_Word0a .. X_Word0b;
--// Green_Mask at 4 * X_Word range X_Word0a .. X_Word0b;
--// Blue_Mask at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Alloc_Named_Color_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Pixel at 2 * X_Word range X_Word0a .. X_Word0b;
--// Exact_Red at 3 * X_Word range X_Half0a .. X_Half0b;
--// Exact_Green at 3 * X_Word range X_Half1a .. X_Half1b;
--// Exact_Blue at 4 * X_Word range X_Half0a .. X_Half0b;
--// Screen_Red at 4 * X_Word range X_Half1a .. X_Half1b;
--// Screen_Green at 5 * X_Word range X_Half0a .. X_Half0b;
--// Screen_Blue at 5 * X_Word range X_Half1a .. X_Half1b;
--// Pad2 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Atom_Name_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Name_Length at 2 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 2 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Font_Path_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// N_Paths at 2 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 2 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Geometry_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Depth at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Root at 2 * X_Word range X_Word0a .. X_Word0b;
--// X at 3 * X_Word range X_Half0a .. X_Half0b;
--// Y at 3 * X_Word range X_Half1a .. X_Half1b;
--// Width at 4 * X_Word range X_Half0a .. X_Half0b;
--// Height at 4 * X_Word range X_Half1a .. X_Half1b;
--// Border_Width at 5 * X_Word range X_Half0a .. X_Half0b;
--// Pad1 at 5 * X_Word range X_Half1a .. X_Half1b;
--// Pad2 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Image_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Depth at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Visual at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Input_Focus_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Revert_To at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Focus at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad1 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Keyboard_Control_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Global_Auto_Repeat at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Led_Mask at 2 * X_Word range X_Word0a .. X_Word0b;
--// Key_Click_Percent at 3 * X_Word range X_Byte0a .. X_Byte0b;
--// Bell_Percent at 3 * X_Word range X_Byte1a .. X_Byte1b;
--// Bell_Pitch at 3 * X_Word range X_Half1a .. X_Half1b;
--// Bell_Duration at 4 * X_Word range X_Half0a .. X_Half0b;
--// Pad at 4 * X_Word range X_Half1a .. X_Half1b;
--// Map at 5 * X_Word range 0 .. 8 * 32 - 1;
--// end record;
--//
--// for X_Get_Keyboard_Mapping_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Key_Syms_Per_Key_Code at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Modifier_Mapping_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Num_Key_Per_Modifier at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Pad1 at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Motion_Events_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// N_Events at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Pointer_Control_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Accel_Numerator at 2 * X_Word range X_Half0a .. X_Half0b;
--// Accel_Denominator at 2 * X_Word range X_Half1a .. X_Half1b;
--// Threshold at 3 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 3 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Pointer_Mapping_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// N_Elts at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Property_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Format at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Property_Type at 2 * X_Word range X_Word0a .. X_Word0b;
--// Bytes_After at 3 * X_Word range X_Word0a .. X_Word0b;
--// N_Items at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad1 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Screen_Saver_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Timeout at 2 * X_Word range X_Half0a .. X_Half0b;
--// Interval at 2 * X_Word range X_Half1a .. X_Half1b;
--// Prefer_Blanking at 3 * X_Word range X_Byte0a .. X_Byte0b;
--// Allow_Exposures at 3 * X_Word range X_Byte1a .. X_Byte1b;
--// Pad2 at 3 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;-//
--// for X_Get_Selection_Owner_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Owner at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Get_Window_Attributes_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Backing_Store at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Visual_Id at 2 * X_Word range X_Word0a .. X_Word0b;
--// Class at 3 * X_Word range X_Half0a .. X_Half0b;
--// Bit_Gravity at 3 * X_Word range X_Byte2a .. X_Byte2b;
--// Win_Gravity at 3 * X_Word range X_Byte3a .. X_Byte3b;
--// Backing_Bit_Planes at 4 * X_Word range X_Word0a .. X_Word0b;
--// Backing_Pixel at 5 * X_Word range X_Word0a .. X_Word0b;
--// Save_Under at 6 * X_Word range X_Byte0a .. X_Byte0b;
--// Map_Installed at 6 * X_Word range X_Byte1a .. X_Byte1b;
--// Map_State at 6 * X_Word range X_Byte2a .. X_Byte2b;
--// Override at 6 * X_Word range X_Byte3a .. X_Byte3b;
--// Colormap at 7 * X_Word range X_Word0a .. X_Word0b;
--// All_Event_Masks at 8 * X_Word range X_Word0a .. X_Word0b;
--// Your_Event_Mask at 9 * X_Word range X_Word0a .. X_Word0b;
--// Do_Not_Propagate_Mask at 10 * X_Word range X_Half0a .. X_Half0b;
--// Pad at 10 * X_Word range X_Half1a .. X_Half1b;
--// end record;
--//
--// for X_Grab_Keyboard_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Success at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Pad1 at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Grab_Pointer_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Success at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Pad1 at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Intern_Atom_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Atom at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_List_Extensions_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// N_Extensions at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_List_Fonts_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// N_Fonts at 2 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 2 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_List_Fonts_With_Info_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Name_Length at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Min_Bounds at 2 * X_Word range 0 .. 3 * 32 - 1;
--// Walign1 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Max_Bounds at 6 * X_Word range 0 .. 3 * 32 - 1;
--// Walign2 at 9 * X_Word range X_Word0a .. X_Word0b;
--// Min_Char_Or_Byte2 at 10 * X_Word range X_Half0a .. X_Half0b;
--// Max_Char_Or_Byte2 at 10 * X_Word range X_Half1a .. X_Half1b;
--// Default_Char at 11 * X_Word range X_Half0a .. X_Half0b;
--// N_Font_Props at 11 * X_Word range X_Half1a .. X_Half1b;
--// Draw_Direction at 12 * X_Word range X_Byte0a .. X_Byte0b;
--// Min_Byte1 at 12 * X_Word range X_Byte1a .. X_Byte1b;
--// Max_Byte1 at 12 * X_Word range X_Byte2a .. X_Byte2b;
--// All_Chars_Exist at 12 * X_Word range X_Byte3a .. X_Byte3b;
--// Font_Ascent at 13 * X_Word range X_Half0a .. X_Half0b;
--// Font_Descent at 13 * X_Word range X_Half1a .. X_Half1b;
--// N_Replies at 14 * X_Word range X_Word0a .. X_Word0b;
--//
--// end record;
--//
--// for X_List_Hosts_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Enabled at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// N_Hosts at 2 * X_Word range X_Half0a .. X_Half0b;
--// Pad1 at 2 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Wire_Host_Reply use
--// record
--// Family at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Name_Length at 0 * X_Word range X_Half1a .. X_Half1b;
--// end record;
--//
--// for X_List_Installed_Colormaps_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// N_Colormaps at 2 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 2 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_List_Properties_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// N_Properties at 2 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 2 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Lookup_Color_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Exact_Red at 2 * X_Word range X_Half0a .. X_Half0b;
--// Exact_Green at 2 * X_Word range X_Half1a .. X_Half1b;
--// Exact_Blue at 3 * X_Word range X_Half0a .. X_Half0b;
--// Screen_Red at 3 * X_Word range X_Half1a .. X_Half1b;
--// Screen_Green at 4 * X_Word range X_Half0a .. X_Half0b;
--// Screen_Blue at 4 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Query_Best_Size_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Width at 2 * X_Word range X_Half0a .. X_Half0b;
--// Height at 2 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Query_Colors_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// N_Colors at 2 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 2 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Rgb use
--// record
--// Red at 0 * X_Word range X_Half0a .. X_Half0b;
--// Green at 0 * X_Word range X_Half1a .. X_Half1b;
--// Blue at 1 * X_Word range X_Half0a .. X_Half0b;
--// Pad at 1 * X_Word range X_Half1a .. X_Half1b;
--// end record;
--//
--// for X_Query_Extension_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Present at 2 * X_Word range X_Byte0a .. X_Byte0b;
--// Major_Opcode at 2 * X_Word range X_Byte1a .. X_Byte1b;
--// First_Event at 2 * X_Word range X_Byte2a .. X_Byte2b;
--// First_Error at 2 * X_Word range X_Byte3a .. X_Byte3b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Query_Font_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Min_Bounds at 2 * X_Word range 0 .. 3 * 32 - 1;
--// Walign1 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Max_Bounds at 6 * X_Word range 0 .. 3 * 32 - 1;
--// Walign2 at 9 * X_Word range X_Word0a .. X_Word0b;
--// Min_Char_Or_Byte2 at 10 * X_Word range X_Half0a .. X_Half0b;
--// Max_Char_Or_Byte2 at 10 * X_Word range X_Half1a .. X_Half1b;
--// Default_Char at 11 * X_Word range X_Half0a .. X_Half0b;
--// N_Font_Props at 11 * X_Word range X_Half1a .. X_Half1b;
--// Draw_Direction at 12 * X_Word range X_Byte0a .. X_Byte0b;
--// Min_Byte1 at 12 * X_Word range X_Byte1a .. X_Byte1b;
--// Max_Byte1 at 12 * X_Word range X_Byte2a .. X_Byte2b;
--// All_Chars_Exist at 12 * X_Word range X_Byte3a .. X_Byte3b;
--// Font_Ascent at 13 * X_Word range X_Half0a .. X_Half0b;
--// Font_Descent at 13 * X_Word range X_Half1a .. X_Half1b;
--// N_Char_Infos at 14 * X_Word range X_Word0a .. X_Word0b;
--//
--// end record;
--//
--// for X_Query_Keymap_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Map at 2 * X_Word range 0 .. 8 * 32 - 1;
--// end record;
--//
--// for X_Query_Pointer_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Same_Screen at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Root at 2 * X_Word range X_Word0a .. X_Word0b;
--// Child at 3 * X_Word range X_Word0a .. X_Word0b;
--// Root_X at 4 * X_Word range X_Half0a .. X_Half0b;
--// Root_Y at 4 * X_Word range X_Half1a .. X_Half1b;
--// Win_X at 5 * X_Word range X_Half0a .. X_Half0b;
--// Win_Y at 5 * X_Word range X_Half1a .. X_Half1b;
--// Mask at 6 * X_Word range X_Half0a .. X_Half0b;
--// Pad1 at 6 * X_Word range X_Half1a .. X_Half1b;
--// Pad at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Query_Text_Extents_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Draw_Direction at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Font_Ascent at 2 * X_Word range X_Half0a .. X_Half0b;
--// Font_Descent at 2 * X_Word range X_Half1a .. X_Half1b;
--// Overall_Ascent at 3 * X_Word range X_Half0a .. X_Half0b;
--// Overall_Descent at 3 * X_Word range X_Half1a .. X_Half1b;
--// Overall_Width at 4 * X_Word range X_Word0a .. X_Word0b;
--// Overall_Left at 5 * X_Word range X_Word0a .. X_Word0b;
--// Overall_Right at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Query_Tree_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Pad1 at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Root at 2 * X_Word range X_Word0a .. X_Word0b;
--// Parent at 3 * X_Word range X_Word0a .. X_Word0b;
--// N_Children at 4 * X_Word range X_Half0a .. X_Half0b;
--// Pad2 at 4 * X_Word range X_Half1a .. X_Half1b;
--// Pad3 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Set_Modifier_Mapping_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Success at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Set_Pointer_Mapping_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Success at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Pad2 at 2 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 3 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad6 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad7 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--// for X_Translate_Coords_Reply use
--// record
--// Kind at 0 * X_Word range X_Byte0a .. X_Byte0b;
--// Same_Screen at 0 * X_Word range X_Byte1a .. X_Byte1b;
--// Sequence_Number at 0 * X_Word range X_Half1a .. X_Half1b;
--// Length at 1 * X_Word range X_Word0a .. X_Word0b;
--// Child at 2 * X_Word range X_Word0a .. X_Word0b;
--// Dst_X at 3 * X_Word range X_Half0a .. X_Half0b;
--// Dst_Y at 3 * X_Word range X_Half1a .. X_Half1b;
--// Pad2 at 4 * X_Word range X_Word0a .. X_Word0b;
--// Pad3 at 5 * X_Word range X_Word0a .. X_Word0b;
--// Pad4 at 6 * X_Word range X_Word0a .. X_Word0b;
--// Pad5 at 7 * X_Word range X_Word0a .. X_Word0b;
--// end record;
--//
--/ end if;
--\x0c
end Xlbt_Reply3;
nblk1=78
nid=78
hdr6=ee
[0x00] rec0=2e rec1=00 rec2=01 rec3=096
[0x01] rec0=13 rec1=00 rec2=02 rec3=03a
[0x02] rec0=15 rec1=00 rec2=03 rec3=010
[0x03] rec0=01 rec1=00 rec2=77 rec3=050
[0x04] rec0=1b rec1=00 rec2=04 rec3=008
[0x05] rec0=04 rec1=00 rec2=76 rec3=060
[0x06] rec0=1b rec1=00 rec2=05 rec3=00e
[0x07] rec0=01 rec1=00 rec2=75 rec3=082
[0x08] rec0=1b rec1=00 rec2=06 rec3=032
[0x09] rec0=03 rec1=00 rec2=74 rec3=008
[0x0a] rec0=18 rec1=00 rec2=07 rec3=03a
[0x0b] rec0=03 rec1=00 rec2=73 rec3=050
[0x0c] rec0=1a rec1=00 rec2=08 rec3=04c
[0x0d] rec0=04 rec1=00 rec2=72 rec3=054
[0x0e] rec0=1d rec1=00 rec2=09 rec3=088
[0x0f] rec0=02 rec1=00 rec2=71 rec3=068
[0x10] rec0=1a rec1=00 rec2=0a rec3=04a
[0x11] rec0=02 rec1=00 rec2=70 rec3=028
[0x12] rec0=16 rec1=00 rec2=0b rec3=04c
[0x13] rec0=03 rec1=00 rec2=6f rec3=00c
[0x14] rec0=18 rec1=00 rec2=0c rec3=02c
[0x15] rec0=06 rec1=00 rec2=6e rec3=034
[0x16] rec0=1b rec1=00 rec2=0d rec3=01c
[0x17] rec0=01 rec1=00 rec2=6d rec3=094
[0x18] rec0=1a rec1=00 rec2=0e rec3=036
[0x19] rec0=03 rec1=00 rec2=6b rec3=028
[0x1a] rec0=18 rec1=00 rec2=6c rec3=042
[0x1b] rec0=02 rec1=00 rec2=0f rec3=042
[0x1c] rec0=19 rec1=00 rec2=10 rec3=01e
[0x1d] rec0=02 rec1=00 rec2=6a rec3=01c
[0x1e] rec0=19 rec1=00 rec2=11 rec3=034
[0x1f] rec0=05 rec1=00 rec2=69 rec3=016
[0x20] rec0=14 rec1=00 rec2=12 rec3=03a
[0x21] rec0=03 rec1=00 rec2=68 rec3=052
[0x22] rec0=18 rec1=00 rec2=13 rec3=022
[0x23] rec0=03 rec1=00 rec2=67 rec3=006
[0x24] rec0=1c rec1=00 rec2=14 rec3=044
[0x25] rec0=02 rec1=00 rec2=66 rec3=02c
[0x26] rec0=1a rec1=00 rec2=15 rec3=050
[0x27] rec0=02 rec1=00 rec2=65 rec3=050
[0x28] rec0=1b rec1=00 rec2=16 rec3=00c
[0x29] rec0=04 rec1=00 rec2=64 rec3=004
[0x2a] rec0=15 rec1=00 rec2=17 rec3=07c
[0x2b] rec0=02 rec1=00 rec2=63 rec3=02e
[0x2c] rec0=16 rec1=00 rec2=18 rec3=00e
[0x2d] rec0=02 rec1=00 rec2=62 rec3=020
[0x2e] rec0=1b rec1=00 rec2=19 rec3=000
[0x2f] rec0=05 rec1=00 rec2=61 rec3=026
[0x30] rec0=19 rec1=00 rec2=1a rec3=018
[0x31] rec0=02 rec1=00 rec2=60 rec3=03a
[0x32] rec0=1a rec1=00 rec2=1b rec3=04a
[0x33] rec0=03 rec1=00 rec2=5f rec3=028
[0x34] rec0=1a rec1=00 rec2=1c rec3=012
[0x35] rec0=03 rec1=00 rec2=5e rec3=00c
[0x36] rec0=1a rec1=00 rec2=1d rec3=008
[0x37] rec0=06 rec1=00 rec2=5d rec3=02c
[0x38] rec0=1f rec1=00 rec2=1e rec3=028
[0x39] rec0=00 rec1=00 rec2=5c rec3=00c
[0x3a] rec0=1a rec1=00 rec2=1f rec3=004
[0x3b] rec0=02 rec1=00 rec2=5b rec3=02e
[0x3c] rec0=12 rec1=00 rec2=20 rec3=00c
[0x3d] rec0=02 rec1=00 rec2=5a rec3=048
[0x3e] rec0=18 rec1=00 rec2=21 rec3=068
[0x3f] rec0=01 rec1=00 rec2=59 rec3=07c
[0x40] rec0=19 rec1=00 rec2=22 rec3=054
[0x41] rec0=04 rec1=00 rec2=58 rec3=00e
[0x42] rec0=19 rec1=00 rec2=23 rec3=05a
[0x43] rec0=02 rec1=00 rec2=57 rec3=012
[0x44] rec0=1a rec1=00 rec2=24 rec3=01e
[0x45] rec0=03 rec1=00 rec2=56 rec3=00c
[0x46] rec0=19 rec1=00 rec2=25 rec3=01e
[0x47] rec0=05 rec1=00 rec2=55 rec3=018
[0x48] rec0=1c rec1=00 rec2=26 rec3=00a
[0x49] rec0=01 rec1=00 rec2=54 rec3=024
[0x4a] rec0=13 rec1=00 rec2=27 rec3=032
[0x4b] rec0=12 rec1=00 rec2=28 rec3=00e
[0x4c] rec0=12 rec1=00 rec2=29 rec3=032
[0x4d] rec0=12 rec1=00 rec2=2a rec3=062
[0x4e] rec0=19 rec1=00 rec2=2b rec3=022
[0x4f] rec0=10 rec1=00 rec2=2c rec3=012
[0x50] rec0=10 rec1=00 rec2=2d rec3=06e
[0x51] rec0=10 rec1=00 rec2=2e rec3=05e
[0x52] rec0=10 rec1=00 rec2=2f rec3=056
[0x53] rec0=10 rec1=00 rec2=30 rec3=04e
[0x54] rec0=10 rec1=00 rec2=31 rec3=048
[0x55] rec0=10 rec1=00 rec2=32 rec3=048
[0x56] rec0=10 rec1=00 rec2=33 rec3=03c
[0x57] rec0=10 rec1=00 rec2=34 rec3=008
[0x58] rec0=0f rec1=00 rec2=35 rec3=036
[0x59] rec0=0f rec1=00 rec2=36 rec3=042
[0x5a] rec0=10 rec1=00 rec2=37 rec3=00a
[0x5b] rec0=0f rec1=00 rec2=38 rec3=06c
[0x5c] rec0=10 rec1=00 rec2=39 rec3=04c
[0x5d] rec0=13 rec1=00 rec2=3a rec3=018
[0x5e] rec0=0e rec1=00 rec2=3b rec3=002
[0x5f] rec0=11 rec1=00 rec2=3c rec3=086
[0x60] rec0=0c rec1=00 rec2=3d rec3=098
[0x61] rec0=10 rec1=00 rec2=3e rec3=02e
[0x62] rec0=10 rec1=00 rec2=3f rec3=028
[0x63] rec0=10 rec1=00 rec2=40 rec3=024
tail 0x217007786819784e3977d 0x42a00088462063203
Free Block Chain:
0x78: 0000 00 00 09 00 20 82 21 00 04 20 f4 1a 00 86 18 04 ┆ ! ┆