nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gel.applet: Fix bug in mouse picking.

Browse Source
This commit is contained in:
Rod Kay
2024-01-09 16:58:55 +11:00
parent f4baa64e8f
commit bd635b8dcb
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -806,7 +806,7 @@ is
then then
declare declare
sprite_clicked_Event : constant gel.Events.sprite_click_down_Event := (mouse_Button => the_Event.Button, 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 begin
the_Collision.near_Sprite.emit (sprite_clicked_Event); the_Collision.near_Sprite.emit (sprite_clicked_Event);
@@ -814,7 +814,7 @@ is
else else
declare declare
space_clicked_Event : constant gel.Events.space_click_down_Event := (mouse_Button => the_Event.Button, space_clicked_Event : constant gel.Events.space_click_down_Event := (mouse_Button => the_Event.Button,
world_Site => Site_world_space); world_Site => Intersect);
begin begin
Self.Applet.emit (space_clicked_Event); Self.Applet.emit (space_clicked_Event);
end; end;