gel: Cosmetics.

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

@@ -235,6 +235,7 @@ is
 
 
 
+
    procedure add_new_World (Self : in out Item;   Name       : in String;
                                                   space_Kind : in physics.space_Kind)
    is
@@ -266,6 +267,7 @@ is
 
 
 
+
    function is_Open (Self : in Item) return Boolean
    is
    begin
@@ -389,6 +391,9 @@ is
    end last_Keypress;
 
 
+
+
+
    --------------
    --- Operations
    --
@@ -413,6 +418,8 @@ is
 
 
 
+
+
    procedure freshen (Self : in out Item)
    is
       use type gel.Dolly.view;

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

@@ -9,7 +9,7 @@ with
      gel.Window,
 
      openGL.Renderer.lean,
-     opengl.Font,
+     openGL.Font,
 
      lace.Event,
      lace.Response,
@@ -19,6 +19,7 @@ with
 
      ada.Containers.Vectors;
 
+
 package gel.Applet
 --
 --  Provides an application model, configured with a single window.