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

gel.world: Add debug info.

Browse Source
This commit is contained in:
Rod Kay
2024-10-07 16:21:07 +11:00
parent 5360507248
commit 4f080dc3bc
2 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -557,7 +557,7 @@ is
end loop; end loop;
end; end;
-- Fetch sprites from the server. -- Create our local sprites.
-- --
declare declare
the_Sprite : gel.Sprite.view; the_Sprite : gel.Sprite.view;
@@ -591,13 +591,12 @@ is
added_Event : gel.remote.World.sprite_added_Event; added_Event : gel.remote.World.sprite_added_Event;
begin 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. gel.World.item (Self.all).add (the_Sprite); -- Do base class.
Self.all_Sprites.Map.add (the_Sprite); Self.all_Sprites.Map.add (the_Sprite);
added_Event.Sprite := the_Sprite.Id; added_Event.Sprite := the_Sprite.Id;
Self.emit (added_Event); Self.emit (added_Event);
end add; end add;

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

@@ -802,7 +802,7 @@ is
-- Emit a new model event. -- Emit a new model event.
-- --
-- log ("gel.World.add ~ emit new graphics model event"); log ("gel.World.add ~ emit new graphics model event");
declare declare
the_Event : remote.World.new_graphics_model_Event; the_Event : remote.World.new_graphics_model_Event;