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

gel.world: Work on dsa.

Browse Source
This commit is contained in:
Rod Kay
2023-11-17 15:09:14 +11:00
parent fa02760f9c
commit c921b638a1
8 changed files with 207 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -164,7 +164,7 @@ is
procedure Write (Stream : not null access ada.Streams.Root_Stream_type'Class;
the_Event : in new_model_Event)
the_Event : in new_graphics_model_Event)
is
begin
openGL.remote_Model.item'Class'Output (Stream,
@@ -174,7 +174,7 @@ is
procedure Read (Stream : not null access ada.Streams.Root_Stream_type'Class;
the_Event : out new_model_Event)
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));