gel.world: Fix sprite naming.

2024-01-03 12:17:59 +11:00
parent ae520b226b
commit a3cf450826
8 changed files with 92 additions and 11 deletions
--- a/4-high/gel/source/remote/gel-remote-world.ads
+++ b/4-high/gel/source/remote/gel-remote-world.ads
@@ -5,6 +5,7 @@ with
     lace.Observer,
     lace.Subject,
     lace.Event,
+     lace.Text,

     ada.unchecked_Conversion,
     ada.Containers.indefinite_hashed_Maps,
@@ -114,6 +115,7 @@ is
   type sprite_model_Pair is
      record
         sprite_Id         : gel   .sprite_Id;
+         sprite_Name       : lace.Text.item_64;
         graphics_model_Id : openGL .model_Id;
         physics_model_Id  : physics.model_Id;

@@ -177,6 +179,14 @@ is



+
+   type sprite_added_Event is new lace.Event.item with
+      record
+         Sprite : gel.sprite_Id;
+      end record;
+
+
+
   --------------
   --  Test/Debug
   --