From 2209ac7ca8a13e6cdf2cd26dbc4633247be7bdec Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Fri, 28 Apr 2023 21:58:49 +1000 Subject: [PATCH] gel.applet: Make evolving the physics world optional in 'freshen'. --- 4-high/gel/source/applet/gel-applet.adb | 9 ++++++--- 4-high/gel/source/applet/gel-applet.ads | 2 +- 2 files changed, 7 insertions(+), 4 deletions(-) diff --git a/4-high/gel/source/applet/gel-applet.adb b/4-high/gel/source/applet/gel-applet.adb index 2899ce3..a8589d3 100644 --- a/4-high/gel/source/applet/gel-applet.adb +++ b/4-high/gel/source/applet/gel-applet.adb @@ -420,7 +420,7 @@ is - procedure freshen (Self : in out Item) + procedure freshen (Self : in out Item; evolve_World : in Boolean := True) is use type gel.Dolly.view; @@ -455,8 +455,11 @@ is the_world_Info : world_Info renames Element (world_Cursor).all; camera_Cursor : camera_Vectors.Cursor := the_world_Info.Cameras.First; begin - -- the_world_Info.World.wait_on_evolve; - the_world_Info.World.evolve; + if evolve_World + then + -- the_world_Info.World.wait_on_evolve; + the_world_Info.World.evolve; + end if; if Window_is_active then diff --git a/4-high/gel/source/applet/gel-applet.ads b/4-high/gel/source/applet/gel-applet.ads index d11610b..b4fc362 100644 --- a/4-high/gel/source/applet/gel-applet.ads +++ b/4-high/gel/source/applet/gel-applet.ads @@ -117,7 +117,7 @@ is procedure enable_Mouse (Self : access Item; detect_Motion : in Boolean); 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.