From 82eb9509e9e273e8e9e7e584553ccc49f476d4a3 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 20 Jan 2025 00:42:19 +1300 Subject: Filled holes in Fl_Text_Editor binding and make key/modifier/shortcut/flag representations more in line with C++ --- src/fltk-event.adb | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/fltk-event.adb') diff --git a/src/fltk-event.adb b/src/fltk-event.adb index c4933b4..4521fc2 100644 --- a/src/fltk-event.adb +++ b/src/fltk-event.adb @@ -120,12 +120,12 @@ package body FLTK.Event is pragma Inline (fl_event_get); function fl_event_state - return Interfaces.C.unsigned_long; + return Interfaces.C.int; pragma Import (C, fl_event_state, "fl_event_state"); pragma Inline (fl_event_state); function fl_event_check_state - (S : in Interfaces.C.unsigned_long) + (S : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_event_check_state, "fl_event_check_state"); pragma Inline (fl_event_check_state); @@ -213,23 +213,23 @@ package body FLTK.Event is function fl_event_key - return Interfaces.C.unsigned_long; + return Interfaces.C.int; pragma Import (C, fl_event_key, "fl_event_key"); pragma Inline (fl_event_key); function fl_event_original_key - return Interfaces.C.unsigned_long; + return Interfaces.C.int; pragma Import (C, fl_event_original_key, "fl_event_original_key"); pragma Inline (fl_event_original_key); function fl_event_key_during - (K : in Interfaces.C.unsigned_long) + (K : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_event_key_during, "fl_event_key_during"); pragma Inline (fl_event_key_during); function fl_event_get_key - (K : in Interfaces.C.unsigned_long) + (K : in Interfaces.C.int) return Interfaces.C.int; pragma Import (C, fl_event_get_key, "fl_event_get_key"); pragma Inline (fl_event_get_key); -- cgit