nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gel: Cosmetics.

Browse Source
This commit is contained in:
Rod Kay
2024-03-10 14:22:09 +11:00
parent 618a3d9517
commit 96a0b9ad56
2 changed files with 2 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
4-high/gel/source/gel-events.ads
View File

@@ -48,19 +48,6 @@ is
end record; 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 type new_sprite_Event is new lace.Event.item with
record record
Pair : gel.remote.World.sprite_model_Pair; Pair : gel.remote.World.sprite_model_Pair;

4
4-high/gel/source/remote/gel-remote-world.ads
View File

@@ -20,13 +20,13 @@ package gel.remote.World
-- --
is is
pragma remote_Types; pragma remote_Types;
pragma Suppress (Container_Checks); -- Suppress expensive tamper checks. pragma suppress (Container_Checks); -- Suppress expensive tamper checks.
type Item is limited interface type Item is limited interface
and lace.Subject .item and lace.Subject .item
and lace.Observer.item; and lace.Observer.item;
type View is access all Item'Class with asynchronous; type View is access all Item'Class with Asynchronous;