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

gel.applet: Make evolving the physics world optional in 'freshen'.

Browse Source
This commit is contained in:
Rod Kay
2023-04-28 21:58:49 +10:00
parent 1a381eb2ec
commit 2209ac7ca8
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
4-high/gel/source/applet/gel-applet.adb
View File

@@ -420,7 +420,7 @@ is
procedure freshen (Self : in out Item) procedure freshen (Self : in out Item; evolve_World : in Boolean := True)
is is
use type gel.Dolly.view; use type gel.Dolly.view;
@@ -455,8 +455,11 @@ is
the_world_Info : world_Info renames Element (world_Cursor).all; the_world_Info : world_Info renames Element (world_Cursor).all;
camera_Cursor : camera_Vectors.Cursor := the_world_Info.Cameras.First; camera_Cursor : camera_Vectors.Cursor := the_world_Info.Cameras.First;
begin begin
-- the_world_Info.World.wait_on_evolve; if evolve_World
the_world_Info.World.evolve; then
-- the_world_Info.World.wait_on_evolve;
the_world_Info.World.evolve;
end if;
if Window_is_active if Window_is_active
then then

2
4-high/gel/source/applet/gel-applet.ads
View File

@@ -117,7 +117,7 @@ is
procedure enable_Mouse (Self : access Item; detect_Motion : in Boolean); procedure enable_Mouse (Self : access Item; detect_Motion : in Boolean);
procedure prepare (Self : access Item) is null; procedure prepare (Self : access Item) is null;
procedure freshen (Self : in out Item); procedure freshen (Self : in out Item; evolve_World : in Boolean := True);
-- --
-- processes window events and then redraws the window. -- processes window events and then redraws the window.