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;