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

2024-08-20 11:07:04 +10:00
parent 2a82dc5fda
commit e63740494b
7 changed files with 28 additions and 19 deletions
--- a/4-high/gel/source/world/gel-world-client.adb
+++ b/4-high/gel/source/world/gel-world-client.adb
@@ -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.