|
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: 41984 (0xa400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Cvt_040, seg_00548d
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
with Test_Io;
with Cvt_Test_Utilities;
with Xlbt_Arithmetic;
with Xlbt_Basic;
with Xlbt_Event3;
with Xlbt_Key;
with Xlbt_Misc;
with Xlbt_Pointer;
with Xlbt_Window;
with Xlbmt_Network_Types;
with Xlbip_Event_Converters;
procedure Cvt_040 is
------------------------------------------------------------------------------
-- Tests for Xlbip_Event_Converters
------------------------------------------------------------------------------
-- 09/11/90 DRK | Created.
------------------------------------------------------------------------------
---------------------------------
-- Handy constants and renames --
---------------------------------
package Utils renames Cvt_Test_Utilities;
package Tests renames Utils.Raw_Data_Tests;
use Utils.Raw_Data_Constants;
----------------------------------------------------------------------
-------------------------
-- Major test sections --
-------------------------
procedure Test_X_Button_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Button_Event, "X_Button_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Button_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, Xlbt_Pointer.Any_Button,
0, 0, (Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0,
(others => False), Xlbt_Misc.False, 0),
(1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.8.9.10.11.12.1.-1",
(Xlbt_Event3.Reply_Event, Xlbt_Pointer.Button_2,
3, 4, (Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))),
(Drawable => (Id => (Number => 7))), 8, 9, 10, 11,
(Xlbt_Key.Mod_1_Mask | Xlbt_Key.Control_Mask => True,
others => False), Xlbt_Misc.True, 255),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_00_00_06 & Swab_00_00_00_07 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_00_0c & ((1, Raw_Ff)));
Test_Io.New_Line;
end Test_X_Button_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Circulate_Notify_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Circulate_Notify_Event,
"X_Circulate_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Circulate_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
Xlbt_Window.Place_On_Top, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))),
Xlbt_Window.Place_On_Bottom, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
Swab_00_00_00_05 & (1 => 1, 2 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Circulate_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Circulate_Request_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Circulate_Request_Event,
"X_Circulate_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Circulate_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), (others => 0),
Xlbt_Window.Place_On_Top, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.-1.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), (others => 255),
Xlbt_Window.Place_On_Bottom, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
(1 .. 4 => Raw_Ff) & (1 => 1, 2 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Circulate_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Client_Message_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Client_Message_Event,
"X_Client_Message_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Client_Message_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Number => 0), (others => 0)), (1 .. 32 => 0));
Test ("1.2.3.4.5.6-25",
(Xlbt_Event3.Reply_Event, 2, 3,
(Drawable => (Id => (Number => 4))), (Number => 5),
(6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 25)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
((6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
17, 18, 19, 20, 21, 22, 23, 24, 25)));
Test_Io.New_Line;
end Test_X_Client_Message_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Colormap_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Colormap_Notify_Event,
"X_Colormap_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Colormap_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Id => (Number => 0)), Xlbt_Misc.False,
Xlbt_Event3.Colormap_Uninstalled, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.0.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Id => (Number => 4)), Xlbt_Misc.False,
Xlbt_Event3.Colormap_Installed, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & ((0, 1)) & (1 .. 18 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Colormap_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Configure_Notify_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Configure_Notify_Event,
"X_Configure_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Configure_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0, 0,
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.9.10.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))), 6, 7, 8, 9, 10,
Xlbt_Misc.True, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
Swab_00_00_00_05 & Swab_00_06 & Swab_00_07 & Swab_00_08 &
Swab_00_09 & Swab_00_0a & (1 => 1, 2 .. 6 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Configure_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Configure_Request_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Configure_Request_Event,
"X_Configure_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Configure_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, Xlbt_Window.Above,
0, (Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0,
0, (others => False), (others => 0)), (1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.8.9.10.11.12.-1",
(Xlbt_Event3.Reply_Event, Xlbt_Window.Top_If,
3, (Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))), 7, 8, 9, 10, 11,
(Xlbt_Window.Cw_Height | Xlbt_Window.Cw_Width => True,
others => False), (others => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_00_00_06 & Swab_00_07 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_00_0c & (1 .. 4 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Configure_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Create_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Create_Notify_Event,
"X_Create_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Create_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0, 0,
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.9.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), 5, 6, 7, 8, 9,
Xlbt_Misc.True, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & Swab_00_05 & Swab_00_06 & Swab_00_07 &
Swab_00_08 & Swab_00_09 & (1 => 1, 2 .. 10 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Create_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Destroy_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Destroy_Notify_Event,
"X_Destroy_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Destroy_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Destroy_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Enter_Leave_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Enter_Leave_Event,
"X_Enter_Leave_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Enter_Leave_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event,
Xlbt_Event3.Enter_Leave_Notify_Ancestor, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0,
0, 0, (others => False),
Xlbt_Event3.Enter_Leave_Notify_Normal, (others => False)),
(1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.8.9.10.11.12.1.49",
(Xlbt_Event3.Reply_Event, Xlbt_Event3.Enter_Leave_Notify_Inferior,
3, 4, (Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))),
(Drawable => (Id => (Number => 7))), 8, 9, 10, 11,
(Xlbt_Key.Mod_1_Mask | Xlbt_Key.Control_Mask => True,
others => False),
Xlbt_Event3.Enter_Leave_Notify_Grab,
(Xlbt_Event3.Xelfi4 | Xlbt_Event3.Xelfi5 |
Xlbt_Event3.Enter_Leave_Focus => True,
others => False)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_00_00_06 & Swab_00_00_00_07 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_00_0c & ((1, 49)));
Test_Io.New_Line;
end Test_X_Enter_Leave_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Expose_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Expose_Event, "X_Expose_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Expose_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
0, 0, 0, 0, 0, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.-1", (Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
4, 5, 6, 7, 8, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_00_05 & Swab_00_06 &
Swab_00_07 & Swab_00_08 & (1 .. 14 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Expose_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Focus_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Focus_Event, "X_Focus_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Focus_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, Xlbt_Event3.Focus_Notify_Ancestor,
0, (Drawable => (Id => (Number => 0))),
Xlbt_Event3.Focus_Notify_Normal, (others => 0)),
(1 .. 32 => 0));
Test ("1.2.3.4.1.-1", (Xlbt_Event3.Reply_Event,
Xlbt_Event3.Focus_Notify_Inferior, 3,
(Drawable => (Id => (Number => 4))),
Xlbt_Event3.Focus_Notify_Grab, (1 .. 23 => 255)),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 &
(1 => 1, 2 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Focus_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Graphics_Expose_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Graphics_Expose_Event,
"X_Graphics_Expose_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Graphics_Expose_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, (Id => (Number => 0)), 0,
0, 0, 0, 0, 0, Xlbt_Event3.Error_Event, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.9.10.-1",
(Xlbt_Event3.Reply_Event, 255, 2, (Id => (Number => 3)), 4,
5, 6, 7, 8, 9, Xlbt_Event3.Focus_Out, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_00_05 & Swab_00_06 & Swab_00_07 &
Swab_00_08 & Swab_00_09 & (1 => 10, 2 .. 12 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Graphics_Expose_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Gravity_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Gravity_Notify_Event,
"X_Gravity_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Gravity_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), 5, 6, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
Swab_00_05 & Swab_00_06 & (1 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Gravity_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Keymap_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Keymap_Notify_Event,
"X_Keymap_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Keymap_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, (others => False)),
(1 .. 32 => 0));
Test ("1.2.-1.3", (Xlbt_Event3.Reply_Event,
(14 | 16 .. 247 | 254 | 255 => True,
others => False)),
(1 => 1, 2 => 2, 3 .. 31 => Raw_Ff, 32 => 3));
Test_Io.New_Line;
end Test_X_Keymap_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Key_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Key_Event, "X_Key_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Key_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0,
(others => False), Xlbt_Misc.False, 0), (1 .. 32 => 0));
Test ("1.2.3.4.5.6.7.8.9.10.11.12.1.-1",
(Xlbt_Event3.Reply_Event, 2, 3, 4,
(Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))),
(Drawable => (Id => (Number => 7))), 8, 9, 10, 11,
(Xlbt_Key.Mod_1_Mask | Xlbt_Key.Control_Mask => True,
others => False), Xlbt_Misc.True, 255),
((1, 2)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_00_00_06 & Swab_00_00_00_07 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_00_0c & ((1, Raw_Ff)));
Test_Io.New_Line;
end Test_X_Key_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Mapping_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Mapping_Notify_Event,
"X_Mapping_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Mapping_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
Xlbt_Event3.Mapping_Modifier, 0, 0, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.1.4.5.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
Xlbt_Event3.Mapping_Keyboard, 4, 5, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & ((1, 4, 5)) & (1 .. 25 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Mapping_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Map_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Map_Notify_Event,
"X_Map_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Map_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.1.-1", (Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
Xlbt_Misc.True, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & (1 => 1, 2 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Map_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Map_Request_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Map_Request_Event,
"X_Map_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Map_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Map_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Motion_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Motion_Notify_Event,
"X_Motion_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Motion_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, Xlbt_Event3.Motion_Notify_Normal,
0, 0, (Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0, 0, 0,
(others => False), Xlbt_Misc.False, 0), (1 .. 32 => 0));
Test ("0.1.3.4.5.6.7.8.9.10.11.12.1.-1",
(Xlbt_Event3.Error_Event, Xlbt_Event3.Motion_Notify_Hint,
3, 4, (Drawable => (Id => (Number => 5))),
(Drawable => (Id => (Number => 6))),
(Drawable => (Id => (Number => 7))), 8, 9, 10, 11,
(Xlbt_Key.Mod_1_Mask | Xlbt_Key.Control_Mask => True,
others => False), Xlbt_Misc.True, 255),
((0, 1)) & Swab_00_03 & Swab_00_00_00_04 & Swab_00_00_00_05 &
Swab_00_00_00_06 & Swab_00_00_00_07 & Swab_00_08 & Swab_00_09 &
Swab_00_0a & Swab_00_0b & Swab_00_0c & ((1, Raw_Ff)));
Test_Io.New_Line;
end Test_X_Motion_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_No_Expose_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_No_Expose_Event,
"X_No_Expose_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_No_Expose_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, (Id => (Number => 0)),
0, Xlbt_Event3.Error_Event, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.-1", (Xlbt_Event3.Reply_Event, 255,
2, (Id => (Number => 3)), 4,
Xlbt_Event3.Button_Release, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & (1 => 5, 2 .. 22 => Raw_Ff));
Test_Io.New_Line;
end Test_X_No_Expose_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Property_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Property_Notify_Event,
"X_Property_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Property_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))), (Number => 0), 0,
Xlbt_Window.Property_New_Value, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))), (Number => 4), 5,
Xlbt_Window.Property_Delete, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 & Swab_00_00_00_04 &
Swab_00_00_00_05 & (1 => 1, 2 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Property_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Reparent_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Reparent_Notify_Event,
"X_Reparent_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Reparent_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), 0, 0,
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.1.-1", (Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))), 6,
7, Xlbt_Misc.True, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & Swab_00_00_00_05 & Swab_00_06 &
Swab_00_07 & (1 => 1, 2 .. 12 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Reparent_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Resize_Request_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Resize_Request_Event,
"X_Resize_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Resize_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))), 0, 0, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))), 4, 5, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_04 & Swab_00_05 & (1 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Resize_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Selection_Clear_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Selection_Clear_Event,
"X_Selection_Clear_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Selection_Clear_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))),
(Number => 0), (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.5.-1", (Xlbt_Event3.Reply_Event, 255, 2, 3,
(Drawable => (Id => (Number => 4))),
(Number => 5), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & Swab_00_00_00_05 & (1 .. 16 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Selection_Clear_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Selection_Notify_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Selection_Notify_Event,
"X_Selection_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Selection_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))), (Number => 0),
(Number => 0), (Number => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.-1", (Xlbt_Event3.Reply_Event, 255, 2, 3,
(Drawable => (Id => (Number => 4))),
(Number => 5), (Number => 6),
(Number => 7), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & Swab_00_00_00_05 & Swab_00_00_00_06 &
Swab_00_00_00_07 & (1 .. 8 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Selection_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Selection_Request_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Selection_Request_Event,
"X_Selection_Request_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Selection_Request_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))), (Number => 0),
(Number => 0), (Number => 0), (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.4.5.6.7.8.-1",
(Xlbt_Event3.Reply_Event, 255, 2, 3,
(Drawable => (Id => (Number => 4))),
(Drawable => (Id => (Number => 5))), (Number => 6),
(Number => 7), (Number => 8), (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & Swab_00_00_00_05 & Swab_00_00_00_06 &
Swab_00_00_00_07 & Swab_00_00_00_08 & (1 .. 4 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Selection_Request_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Unmap_Notify_Event is
procedure Test is new Tests.Tester (Xlbt_Event3.X_Unmap_Notify_Event,
"X_Unmap_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Unmap_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
(Drawable => (Id => (Number => 0))),
Xlbt_Misc.False, (others => 0)), (1 .. 32 => 0));
Test ("1.-1.2.3.4.1.-1", (Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
(Drawable => (Id => (Number => 4))),
Xlbt_Misc.True, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
Swab_00_00_00_04 & (1 => 1, 2 .. 20 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Unmap_Notify_Event;
-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --
procedure Test_X_Visibility_Notify_Event is
procedure Test is new Tests.Tester
(Xlbt_Event3.X_Visibility_Notify_Event,
"X_Visibility_Notify_Event",
Xlbip_Event_Converters.To_Raw,
Xlbip_Event_Converters.From_Raw);
begin
Test_Io.Section ("X_Visibility_Notify_Event conversions");
Test ("0", (Xlbt_Event3.Error_Event, 0, 0,
(Drawable => (Id => (Number => 0))),
Xlbt_Event3.Visibility_Unobscured, (others => 0)),
(1 .. 32 => 0));
Test ("1.-1.2.3.1.-1",
(Xlbt_Event3.Reply_Event, 255, 2,
(Drawable => (Id => (Number => 3))),
Xlbt_Event3.Visibility_Partially_Obscured, (others => 255)),
((1, Raw_Ff)) & Swab_00_02 & Swab_00_00_00_03 &
(1 => 1, 2 .. 24 => Raw_Ff));
Test_Io.New_Line;
end Test_X_Visibility_Notify_Event;
begin
Test_X_Button_Event;
Test_X_Circulate_Notify_Event;
Test_X_Circulate_Request_Event;
Test_X_Client_Message_Event;
Test_X_Colormap_Notify_Event;
Test_X_Configure_Notify_Event;
Test_X_Configure_Request_Event;
Test_X_Create_Notify_Event;
Test_X_Destroy_Notify_Event;
Test_X_Enter_Leave_Event;
Test_X_Expose_Event;
Test_X_Focus_Event;
Test_X_Graphics_Expose_Event;
Test_X_Gravity_Notify_Event;
Test_X_Keymap_Notify_Event;
Test_X_Key_Event;
Test_X_Mapping_Notify_Event;
Test_X_Map_Notify_Event;
Test_X_Map_Request_Event;
Test_X_Motion_Notify_Event;
Test_X_No_Expose_Event;
Test_X_Property_Notify_Event;
Test_X_Reparent_Notify_Event;
Test_X_Resize_Request_Event;
Test_X_Selection_Clear_Event;
Test_X_Selection_Notify_Event;
Test_X_Selection_Request_Event;
Test_X_Unmap_Notify_Event;
Test_X_Visibility_Notify_Event;
end Cvt_040;
nblk1=28
nid=0
hdr6=50
[0x00] rec0=24 rec1=00 rec2=01 rec3=034
[0x01] rec0=13 rec1=00 rec2=02 rec3=042
[0x02] rec0=13 rec1=00 rec2=03 rec3=016
[0x03] rec0=13 rec1=00 rec2=04 rec3=006
[0x04] rec0=10 rec1=00 rec2=05 rec3=06e
[0x05] rec0=13 rec1=00 rec2=06 rec3=028
[0x06] rec0=12 rec1=00 rec2=07 rec3=070
[0x07] rec0=14 rec1=00 rec2=08 rec3=064
[0x08] rec0=11 rec1=00 rec2=09 rec3=044
[0x09] rec0=12 rec1=00 rec2=0a rec3=070
[0x0a] rec0=12 rec1=00 rec2=0b rec3=040
[0x0b] rec0=10 rec1=00 rec2=0c rec3=074
[0x0c] rec0=13 rec1=00 rec2=0d rec3=030
[0x0d] rec0=13 rec1=00 rec2=0e rec3=072
[0x0e] rec0=11 rec1=00 rec2=0f rec3=042
[0x0f] rec0=13 rec1=00 rec2=10 rec3=036
[0x10] rec0=13 rec1=00 rec2=11 rec3=006
[0x11] rec0=12 rec1=00 rec2=12 rec3=01c
[0x12] rec0=12 rec1=00 rec2=13 rec3=064
[0x13] rec0=11 rec1=00 rec2=14 rec3=02a
[0x14] rec0=14 rec1=00 rec2=15 rec3=046
[0x15] rec0=12 rec1=00 rec2=16 rec3=05a
[0x16] rec0=12 rec1=00 rec2=17 rec3=036
[0x17] rec0=13 rec1=00 rec2=18 rec3=05e
[0x18] rec0=12 rec1=00 rec2=19 rec3=04c
[0x19] rec0=14 rec1=00 rec2=1a rec3=05a
[0x1a] rec0=0f rec1=00 rec2=1b rec3=068
[0x1b] rec0=12 rec1=00 rec2=1c rec3=058
[0x1c] rec0=12 rec1=00 rec2=1d rec3=022
[0x1d] rec0=12 rec1=00 rec2=1e rec3=064
[0x1e] rec0=0f rec1=00 rec2=1f rec3=034
[0x1f] rec0=13 rec1=00 rec2=20 rec3=038
[0x20] rec0=12 rec1=00 rec2=21 rec3=06a
[0x21] rec0=13 rec1=00 rec2=22 rec3=01a
[0x22] rec0=12 rec1=00 rec2=23 rec3=03a
[0x23] rec0=11 rec1=00 rec2=24 rec3=024
[0x24] rec0=12 rec1=00 rec2=25 rec3=03a
[0x25] rec0=12 rec1=00 rec2=26 rec3=088
[0x26] rec0=18 rec1=00 rec2=27 rec3=03e
[0x27] rec0=15 rec1=00 rec2=28 rec3=001
tail 0x21500a13e81978a12c34a 0x42a00088462063203