diff options
Diffstat (limited to 'src/fltk-event.adb')
-rw-r--r-- | src/fltk-event.adb | 26 |
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; + |