From 82eb9509e9e273e8e9e7e584553ccc49f476d4a3 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
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.adb | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'src/fltk.adb')

diff --git a/src/fltk.adb b/src/fltk.adb
index 3afb984..61491d9 100644
--- a/src/fltk.adb
+++ b/src/fltk.adb
@@ -210,14 +210,14 @@ package body FLTK is
 
     function To_C
            (Key : in Key_Combo)
-        return Interfaces.C.unsigned_long is
+        return Interfaces.C.int is
     begin
         return To_C (Key.Modcode) + To_C (Key.Keycode) + To_C (Key.Mousecode);
     end To_C;
 
 
     function To_Ada
-           (Key : in Interfaces.C.unsigned_long)
+           (Key : in Interfaces.C.int)
         return Key_Combo is
     begin
         return Result : Key_Combo do
@@ -230,14 +230,14 @@ package body FLTK is
 
     function To_C
            (Key : in Keypress)
-        return Interfaces.C.unsigned_long is
+        return Interfaces.C.int is
     begin
-        return Interfaces.C.unsigned_long (Key);
+        return Interfaces.C.int (Key);
     end To_C;
 
 
     function To_Ada
-           (Key : in Interfaces.C.unsigned_long)
+           (Key : in Interfaces.C.int)
         return Keypress is
     begin
         return Keypress (Key mod 65536);
@@ -246,14 +246,14 @@ package body FLTK is
 
     function To_C
            (Modi : in Modifier)
-        return Interfaces.C.unsigned_long is
+        return Interfaces.C.int is
     begin
-        return Interfaces.C.unsigned_long (Modi) * 65536;
+        return Interfaces.C.int (Modi) * 65536;
     end To_C;
 
 
     function To_Ada
-           (Modi : in Interfaces.C.unsigned_long)
+           (Modi : in Interfaces.C.int)
         return Modifier is
     begin
         return Modifier ((Modi / 65536) mod 256);
@@ -262,7 +262,7 @@ package body FLTK is
 
     function To_C
            (Button : in Mouse_Button)
-        return Interfaces.C.unsigned_long is
+        return Interfaces.C.int is
     begin
         case Button is
             when Left_Button => return 1 * (256 ** 3);
@@ -274,7 +274,7 @@ package body FLTK is
 
 
     function To_Ada
-           (Button : in Interfaces.C.unsigned_long)
+           (Button : in Interfaces.C.int)
         return Mouse_Button is
     begin
         case (Button / (256 ** 3)) is
-- 
cgit