diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2024-10-13 02:00:32 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2024-10-13 02:00:32 +1300 |
| commit | 87671a2f2423efacd0b0c4ad0c34c244680ef565 (patch) | |
| tree | b581ee812415bd27bed09f0e0c77c4d24619afcf /src/fltk-widgets-menus.ads | |
| parent | ca99321b1f7aa54b435c73f1ec14321dbd989f16 (diff) | |
Changed System.Address to Integer_Address
Diffstat (limited to 'src/fltk-widgets-menus.ads')
| -rw-r--r-- | src/fltk-widgets-menus.ads | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 7eb56d2..5023922 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -8,8 +8,7 @@ with private with Ada.Containers.Vectors, - Interfaces, - System; + Interfaces; package FLTK.Widgets.Menus is @@ -256,7 +255,7 @@ private - procedure Item_Hook (M, U : in System.Address); + procedure Item_Hook (M, U : in Storage.Integer_Address); pragma Convention (C, Item_Hook); |