Some mouse functions added to FLTK.Event

1 files changed, 64 insertions, 0 deletions

diff --git a/src/fltk-event.adb b/src/fltk-event.adb
index a62f0ee..398021d 100644
--- a/src/fltk-event.adb
+++ b/src/fltk-event.adb
@@ -4,6 +4,10 @@ with
 
     Interfaces.C;
 
+use type
+
+    Interfaces.C.int;
+
 
 package body FLTK.Event is
 
@@ -15,6 +19,29 @@ package body FLTK.Event is
 
 
 
+    function fl_event_x
+        return Interfaces.C.int;
+    pragma Import (C, fl_event_x, "fl_event_x");
+
+    function fl_event_x_root
+        return Interfaces.C.int;
+    pragma Import (C, fl_event_x_root, "fl_event_x_root");
+
+    function fl_event_y
+        return Interfaces.C.int;
+    pragma Import (C, fl_event_y, "fl_event_y");
+
+    function fl_event_y_root
+        return Interfaces.C.int;
+    pragma Import (C, fl_event_y_root, "fl_event_y_root");
+
+    function fl_event_is_click
+        return Interfaces.C.int;
+    pragma Import (C, fl_event_is_click, "fl_event_is_click");
+
+
+
+
     function Last_Keypress
         return Shortcut_Key is
     begin
@@ -22,5 +49,42 @@ package body FLTK.Event is
     end Last_Keypress;
 
 
+
+
+    function Mouse_X
+        return Integer is
+    begin
+        return Integer (fl_event_x);
+    end Mouse_X;
+
+
+    function Mouse_X_Root
+        return Integer is
+    begin
+        return Integer (fl_event_x_root);
+    end Mouse_X_Root;
+
+
+    function Mouse_Y
+        return Integer is
+    begin
+        return Integer (fl_event_y);
+    end Mouse_Y;
+
+
+    function Mouse_Y_Root
+        return Integer is
+    begin
+        return Integer (fl_event_y_root);
+    end Mouse_Y_Root;
+
+
+    function Is_Click
+        return Boolean is
+    begin
+        return fl_event_is_click /= 0;
+    end Is_Click;
+
+
 end FLTK.Event;