From 96a0b9ad5619b4eb7e0b5c3f38a78d0c5625adcf Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sun, 10 Mar 2024 14:22:09 +1100 Subject: [PATCH] gel: Cosmetics. --- 4-high/gel/source/gel-events.ads | 13 ------------- 4-high/gel/source/remote/gel-remote-world.ads | 4 ++-- 2 files changed, 2 insertions(+), 15 deletions(-) diff --git a/4-high/gel/source/gel-events.ads b/4-high/gel/source/gel-events.ads index c405507..5bc2630 100644 --- a/4-high/gel/source/gel-events.ads +++ b/4-high/gel/source/gel-events.ads @@ -48,19 +48,6 @@ is end record; - -- type new_sprite_Event is new lace.Event.item with - -- record - -- Pair : gel.remote.World.sprite_model_Pair; - -- end record; - - - -- type new_sprite_added_to_world_Event is new lace.Event.item with - -- record - -- Sprite_Id : gel.sprite_Id; - -- World_Id : gel. world_Id; - -- end record; - - type new_sprite_Event is new lace.Event.item with record Pair : gel.remote.World.sprite_model_Pair; diff --git a/4-high/gel/source/remote/gel-remote-world.ads b/4-high/gel/source/remote/gel-remote-world.ads index 4d50300..ffa6638 100644 --- a/4-high/gel/source/remote/gel-remote-world.ads +++ b/4-high/gel/source/remote/gel-remote-world.ads @@ -20,13 +20,13 @@ package gel.remote.World -- is pragma remote_Types; - pragma Suppress (Container_Checks); -- Suppress expensive tamper checks. + pragma suppress (Container_Checks); -- Suppress expensive tamper checks. type Item is limited interface and lace.Subject .item and lace.Observer.item; - type View is access all Item'Class with asynchronous; + type View is access all Item'Class with Asynchronous;