Added the first of event handling functions, to figure out what key was pressed

1 files changed, 26 insertions, 0 deletions

diff --git a/src/fltk-event.adb b/src/fltk-event.adb
new file mode 100644
index 0000000..a62f0ee
--- /dev/null
+++ b/src/fltk-event.adb
@@ -0,0 +1,26 @@
+
+
+with
+
+    Interfaces.C;
+
+
+package body FLTK.Event is
+
+
+    function fl_event_key
+        return Interfaces.C.int;
+    pragma Import (C, fl_event_key, "fl_event_key");
+
+
+
+
+    function Last_Keypress
+        return Shortcut_Key is
+    begin
+        return C_To_Key (Interfaces.C.unsigned_long (fl_event_key));
+    end Last_Keypress;
+
+
+end FLTK.Event;
+