From bd635b8dcb4d064fb622abdd405c071846f42eec Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Tue, 9 Jan 2024 16:58:55 +1100
Subject: [PATCH] gel.applet: Fix bug in mouse picking.

---
 4-high/gel/source/applet/gel-applet.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/4-high/gel/source/applet/gel-applet.adb b/4-high/gel/source/applet/gel-applet.adb
index 5fd2d44..f94a841 100644
--- a/4-high/gel/source/applet/gel-applet.adb
+++ b/4-high/gel/source/applet/gel-applet.adb
@@ -806,7 +806,7 @@ is
                      then
                         declare
                            sprite_clicked_Event : constant gel.Events.sprite_click_down_Event := (mouse_Button => the_Event.Button,
-                                                                                                  world_Site   => Site_world_space);
+                                                                                                  world_Site   => the_Collision.Site_world);
 
                         begin
                            the_Collision.near_Sprite.emit (sprite_clicked_Event);
@@ -814,7 +814,7 @@ is
                      else
                         declare
                            space_clicked_Event : constant gel.Events.space_click_down_Event := (mouse_Button => the_Event.Button,
-                                                                                                world_Site   => Site_world_space);
+                                                                                                world_Site   => Intersect);
                         begin
                            Self.Applet.emit (space_clicked_Event);
                         end;