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

2023-04-28 21:58:49 +10:00
parent 1a381eb2ec
commit 2209ac7ca8
2 changed files with 7 additions and 4 deletions
--- 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.