diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-20 00:42:19 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-20 00:42:19 +1300 |
| commit | 82eb9509e9e273e8e9e7e584553ccc49f476d4a3 (patch) | |
| tree | fcd903955511ba8798e76f76154c4d5b841ad6a5 /src/fltk.adb | |
| parent | f27eb859eff94ec9c13239daee15f60ffecde089 (diff) | |
Filled holes in Fl_Text_Editor binding and make key/modifier/shortcut/flag representations more in line with C++
Diffstat (limited to 'src/fltk.adb')
| -rw-r--r-- | src/fltk.adb | 20 |
1 files changed, 10 insertions, 10 deletions
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 |