From 9d1dddaae2989736e391e38ab2951330b0208a4d Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Thu, 20 Apr 2023 13:54:10 +1000
Subject: [PATCH] demo.mouse.selection: Update.

---
 .../mouse_selection/launch_mouse_selection.adb   | 16 +++++++++++-----
 1 file changed, 11 insertions(+), 5 deletions(-)

diff --git a/4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb b/4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb
index 035f690..bff958c 100644
--- a/4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb
+++ b/4-high/gel/applet/demo/mouse/mouse_selection/launch_mouse_selection.adb
@@ -35,11 +35,13 @@ begin
    declare
       use ada.Calendar;
 
-      the_Applet : constant gel.Applet.gui_world.view := gel.Forge.new_gui_Applet  ("mouse Selection",
+      the_Applet : constant gel.Applet.gui_world.view := gel.Forge.new_gui_Applet  ("mouse_Selection_Applet",
                                                                                     space_Kind => physics.Bullet);
       the_Ball   : constant gel.Sprite.view           := gel.Forge.new_ball_Sprite (the_Applet.World (1),
                                                                                     mass => 0.0);
 
+
+
       type retreat_Sprite is new lace.Response.item with
          record
             Sprite : gel.Sprite.view;
@@ -51,12 +53,14 @@ begin
          use float_Math;
       begin
          put_Line ("retreat_Sprite");
-         Self.Sprite.Site_is (self.Sprite.Site - the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]);
+         Self.Sprite.Site_is (Self.Sprite.Site - the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]);
       end respond;
 
       retreat_Sprite_Response : aliased retreat_Sprite := (lace.Response.item with sprite => the_Ball);
 
 
+
+
       type advance_Sprite is new lace.Response.item with
          record
             Sprite : gel.Sprite.view;
@@ -68,20 +72,22 @@ begin
          use float_Math;
       begin
          put_Line ("advance_Sprite");
-         Self.Sprite.Site_is (self.Sprite.Site + the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]);
+         Self.Sprite.Site_is (Self.Sprite.Site + the_Applet.gui_Camera.Spin * [0.0, 0.0, 1.0]);
       end respond;
 
       advance_Sprite_Response : aliased advance_Sprite := (lace.Response.Item with sprite => the_Ball);
 
 
+
+
       next_render_Time : ada.calendar.Time;
 
    begin
-      the_Ball.add (advance_Sprite_Response'unchecked_access,
+      the_Ball.add (advance_Sprite_Response'unchecked_Access,
                     to_Kind (gel.events.sprite_click_down_Event'Tag),
                     the_Applet.Name);
 
-      the_Ball.add (retreat_Sprite_Response'unchecked_access,
+      the_Ball.add (retreat_Sprite_Response'unchecked_Access,
                     to_Kind (gel.events.sprite_click_up_Event'Tag),
                     the_Applet.Name);