From 4f080dc3bc16eceb855f1875ed32eeb7ce57bdcd Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Mon, 7 Oct 2024 16:21:07 +1100
Subject: [PATCH] gel.world: Add debug info.

---
 4-high/gel/source/world/gel-world-client.adb | 5 ++---
 4-high/gel/source/world/gel-world.adb        | 2 +-
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/4-high/gel/source/world/gel-world-client.adb b/4-high/gel/source/world/gel-world-client.adb
index aa28f71..9b9d794 100644
--- a/4-high/gel/source/world/gel-world-client.adb
+++ b/4-high/gel/source/world/gel-world-client.adb
@@ -557,7 +557,7 @@ is
             end loop;
          end;
 
-         --  Fetch sprites from the server.
+         --  Create our local sprites.
          --
          declare
             the_Sprite         :          gel.Sprite.view;
@@ -591,13 +591,12 @@ is
       added_Event : gel.remote.World.sprite_added_Event;
 
    begin
+      log ("gel.world.client.add (sprite and children)" & the_Sprite.Name & the_Sprite.Id'Image);
       gel.World.item (Self.all).add (the_Sprite);     -- Do base class.
       Self.all_Sprites.Map.add (the_Sprite);
 
       added_Event.Sprite := the_Sprite.Id;
       Self.emit (added_Event);
-
-
    end add;
 
 
diff --git a/4-high/gel/source/world/gel-world.adb b/4-high/gel/source/world/gel-world.adb
index 20ebce5..03243ac 100644
--- a/4-high/gel/source/world/gel-world.adb
+++ b/4-high/gel/source/world/gel-world.adb
@@ -802,7 +802,7 @@ is
          --  Emit a new model event.
          --
 
-         --  log ("gel.World.add ~ emit new graphics model event");
+         log ("gel.World.add ~ emit new graphics model event");
 
          declare
             the_Event : remote.World.new_graphics_model_Event;