From e70e81e7f08105474a01858b38a7e27d028a1972 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 3 Aug 2017 20:08:23 +1000 Subject: Added the first of event handling functions, to figure out what key was pressed --- src/fltk-event.adb | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 src/fltk-event.adb (limited to 'src/fltk-event.adb') 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; + -- cgit