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;