gel: Cosmetics.

2024-03-10 14:22:09 +11:00
parent 618a3d9517
commit 96a0b9ad56
2 changed files with 2 additions and 15 deletions
--- a/4-high/gel/source/remote/gel-remote-world.ads
+++ b/4-high/gel/source/remote/gel-remote-world.ads
@@ -20,13 +20,13 @@ package gel.remote.World
 --
 is
   pragma remote_Types;
-   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+   pragma suppress (Container_Checks);     -- Suppress expensive tamper checks.

   type Item is  limited interface
             and lace.Subject .item
             and lace.Observer.item;

-   type View is access all Item'Class with asynchronous;
+   type View is access all Item'Class with Asynchronous;