gel.applet: Code cosmetics.

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

@@ -31,6 +31,7 @@ is
    end my_context_Setter;
 
 
+
    procedure my_Swapper
    is
    begin
@@ -38,6 +39,7 @@ is
    end my_Swapper;
 
 
+
    overriding
    procedure respond (Self : in out add_new_Sprite;   to_Event : in lace.Event.item'Class)
    is
@@ -58,6 +60,7 @@ is
    end respond;
 
 
+
    overriding
    function Name (Self : in add_new_Sprite) return String
    is
@@ -116,6 +119,7 @@ is
    end define;
 
 
+
    overriding
    procedure destroy (Self : in out Item)
    is
@@ -181,6 +185,7 @@ is
    end free;
 
 
+
    ---------
    --- Forge
    --
@@ -213,6 +218,7 @@ is
    end Forge;
 
 
+
    --------------
    --- Attributes
    --
@@ -235,7 +241,6 @@ is
 
 
 
-
    procedure add_new_World (Self : in out Item;   Name       : in String;
                                                   space_Kind : in physics.space_Kind)
    is
@@ -267,7 +272,6 @@ is
 
 
 
-
    function is_Open (Self : in Item) return Boolean
    is
    begin
@@ -393,7 +397,6 @@ is
 
 
 
-
    --------------
    --- Operations
    --
@@ -418,8 +421,6 @@ is
 
 
 
-
-
    procedure freshen (Self : in out Item)
    is
       use type gel.Dolly.view;
@@ -625,6 +626,7 @@ is
    end respond;
 
 
+
    overriding
    procedure respond (Self : in out key_release_Response;   to_Event : in lace.Event.Item'Class)
    is
@@ -724,6 +726,7 @@ is
    end enable_following_Dolly;
 
 
+
    --------------------------
    --- Mouse Button Responses
    --
@@ -774,6 +777,7 @@ is
    end respond;
 
 
+
    type mouse_button_collision_Event is new gel.World.raycast_collision_Event with null record;
 
 
@@ -810,10 +814,10 @@ is
             the_Context.is_Press  := True;
             the_Context.button_Id := the_Event.Button;
 
-            the_world_Info.World.cast_Ray (From     => the_Camera.Site,
+            the_world_Info.World.cast_Ray (From       => the_Camera.Site,
-                                           To       => Site_world_space,
+                                           To         => Site_world_space,
-                                           Observer => lace.Observer.view (Self.Applet.local_Subject_and_Observer),
+                                           Observer   => lace.Observer.view (Self.Applet.local_Subject_and_Observer),
-                                           Context  => the_Context,
+                                           Context    => the_Context,
                                            event_Kind => event_Kind);
          end;
 
@@ -898,6 +902,7 @@ is
    end respond;
 
 
+
    --------------------------
    --- Window Resize Response
    --
@@ -927,6 +932,7 @@ is
    end respond;
 
 
+
    ---------
    --- Mouse
    --
@@ -975,6 +981,7 @@ is
    end enable_Mouse;
 
 
+
    ----------------
    --- Local Events
    --
@@ -986,6 +993,7 @@ is
    end local_Subject_and_Observer;
 
 
+
    function local_Subject (Self : access Item) return lace.Subject.view
    is
    begin
@@ -993,6 +1001,7 @@ is
    end local_Subject;
 
 
+
    function local_Observer (Self : access Item) return lace.Observer.view
    is
    begin