From 87671a2f2423efacd0b0c4ad0c34c244680ef565 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sun, 13 Oct 2024 02:00:32 +1300
Subject: Changed System.Address to Integer_Address

---
 src/fltk-widgets-menus.ads | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/fltk-widgets-menus.ads')

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);
 
 
-- 
cgit