gel.events: Add space mouse click detection for 2D.

2024-01-08 09:02:46 +11:00
parent b09bfd1f69
commit 85d2aca897
2 changed files with 37 additions and 8 deletions
--- a/4-high/gel/source/gel-events.ads
+++ b/4-high/gel/source/gel-events.ads
@@ -73,6 +73,20 @@ is
      end record;


+   type space_click_down_Event is new lace.Event.item with
+      record
+         mouse_Button : gel.Mouse.Button_Id;
+         world_Site   : math.Vector_3;
+      end record;
+
+
+   type space_click_up_Event is new lace.Event.item with
+      record
+         mouse_Button : gel.Mouse.Button_Id;
+         world_Site   : math.Vector_3;
+      end record;
+
+
   type sprite_click_down_Event is new lace.Event.item with
      record
         mouse_Button : gel.Mouse.Button_Id;