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

gel.world: Add 'Mirror_as_observer' parameter to 'deregister' procedure.

Browse Source
This commit is contained in:
Rod Kay
2024-08-20 11:07:04 +10:00
parent 2a82dc5fda
commit e63740494b
7 changed files with 28 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
4-high/gel/source/world/gel-world-client.adb
View File

@@ -419,8 +419,8 @@ is
--
the_new_graphics_model_Response.World := Self.all'Access;
Self.add (the_new_graphics_model_Response'Access,
to_Kind (remote.World.new_graphics_model_Event'Tag),
Self.add (the_Response => the_new_graphics_model_Response'Access,
to_Kind => to_Kind (remote.World.new_graphics_model_Event'Tag),
from_Subject => of_World.Name);
-- New physics model response.

17
4-high/gel/source/world/gel-world-server.adb
View File

@@ -282,20 +282,25 @@ is
begin
Self.Clients.append (the_Mirror);
Self.register (Mirror_as_observer, to_Kind (remote.World. new_graphics_model_Event'Tag));
Self.register (Mirror_as_observer, to_Kind (remote.World. new_physics_model_Event'Tag));
-- Self.register (Mirror_as_observer, to_Kind (gel.events. new_sprite_Event'Tag)); -- TODO: Rid.
Self.register (Mirror_as_observer, to_Kind (gel.events.new_sprite_Event'Tag));
Self.register (Mirror_as_observer, to_Kind (gel.events.rid_sprite_Event'Tag));
Self.register (Mirror_as_observer, to_Kind (remote.World.new_graphics_model_Event'Tag));
Self.register (Mirror_as_observer, to_Kind (remote.World. new_physics_model_Event'Tag));
Self.register (Mirror_as_observer, to_Kind (gel.events .new_sprite_Event 'Tag));
Self.register (Mirror_as_observer, to_Kind (gel.events .rid_sprite_Event 'Tag));
end register;
overriding
procedure deregister (Self : access Item; the_Mirror : in remote.World.view)
procedure deregister (Self : access Item; the_Mirror : in remote.World.view;
Mirror_as_observer : in lace.Observer.view)
is
begin
Self.Clients.delete (Self.Clients.find_Index (the_Mirror));
Self.deregister (Mirror_as_observer, to_Kind (remote.World.new_graphics_model_Event'Tag));
Self.deregister (Mirror_as_observer, to_Kind (remote.World. new_physics_model_Event'Tag));
Self.deregister (Mirror_as_observer, to_Kind (gel.events .new_sprite_Event 'Tag));
Self.deregister (Mirror_as_observer, to_Kind (gel.events .rid_sprite_Event 'Tag));
end deregister;

3
4-high/gel/source/world/gel-world-server.ads
View File

@@ -51,7 +51,8 @@ is
procedure register (Self : access Item; the_Mirror : in remote.World.view;
Mirror_as_observer : in lace.Observer.view);
overriding
procedure deregister (Self : access Item; the_Mirror : in remote.World.view);
procedure deregister (Self : access Item; the_Mirror : in remote.World.view;
Mirror_as_observer : in lace.Observer.view);
overriding
procedure evolve (Self : in out Item);

3
4-high/gel/source/world/gel-world.adb
View File

@@ -883,7 +883,8 @@ is
procedure register (Self : access Item; the_Mirror : in remote.World.view;
Mirror_as_observer : in lace.Observer.view) is null;
overriding
procedure deregister (Self : access Item; the_Mirror : in remote.World.view) is null;
procedure deregister (Self : access Item; the_Mirror : in remote.World.view;
Mirror_as_observer : in lace.Observer.view) is null;
overriding
procedure motion_Updates_are (Self : in Item; seq_Id : in remote.World.sequence_Id;

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

@@ -251,7 +251,8 @@ is
procedure register (Self : access Item; the_Mirror : in remote.World.view;
Mirror_as_observer : in lace.Observer.view);
overriding
procedure deregister (Self : access Item; the_Mirror : in remote.World.view);
procedure deregister (Self : access Item; the_Mirror : in remote.World.view;
Mirror_as_observer : in lace.Observer.view);
overriding
procedure motion_Updates_are (Self : in Item; seq_Id : in remote.World.sequence_Id;