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

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

Browse Source
This commit is contained in:
Rod Kay
2024-08-20 11:07:04 +10:00
parent 2a82dc5fda
commit e63740494b
7 changed files with 28 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
4-high/gel/source/remote/gel-remote-world.adb
View File

@@ -163,22 +163,22 @@ is
procedure Write (Stream : not null access ada.Streams.Root_Stream_type'Class;
procedure write (Stream : not null access ada.Streams.Root_Stream_type'Class;
the_Event : in new_graphics_model_Event)
is
begin
openGL.remote_Model.item'Class'Output (Stream,
the_Event.Model.all);
end Write;
end write;
procedure Read (Stream : not null access ada.Streams.Root_Stream_type'Class;
the_Event : out new_graphics_model_Event)
procedure read (Stream : not null access ada.Streams.Root_Stream_type'Class;
the_Event : out new_graphics_model_Event)
is
begin
the_Event.Model := new openGL.remote_Model.item'Class' (openGL.remote_Model.item'Class'Input (Stream));
end Read;
end read;

7
4-high/gel/source/remote/gel-remote-world.ads
View File

@@ -39,7 +39,8 @@ is
procedure register (Self : access Item; the_Mirror : in World.view;
Mirror_as_observer : in lace.Observer.view) is abstract;
procedure deregister (Self : access Item; the_Mirror : in World.view) is abstract;
procedure deregister (Self : access Item; the_Mirror : in World.view;
Mirror_as_observer : in lace.Observer.view) is abstract;
@@ -71,8 +72,8 @@ is
end record;
procedure Write (Stream : not null access ada.Streams.Root_Stream_type'Class; the_Event : in new_graphics_model_Event);
procedure Read (Stream : not null access ada.Streams.Root_Stream_type'Class; the_Event : out new_graphics_model_Event);
procedure write (Stream : not null access ada.Streams.Root_Stream_type'Class; the_Event : in new_graphics_model_Event);
procedure read (Stream : not null access ada.Streams.Root_Stream_type'Class; the_Event : out new_graphics_model_Event);
for new_graphics_model_Event'write use write;
for new_graphics_model_Event'read use read;