lace.events: Optimise.

4-high/gel/source/applet/gel-applet.ads

@@ -137,6 +137,8 @@ is
 
 private
 
+   pragma Suppress (Container_Checks);     -- Suppress expensive tamper checks.
+
    use type Sprite.view;
    package sprite_Vectors is new ada.containers.Vectors (Positive, Sprite.view);