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-dialogs.adb | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src/fltk-dialogs.adb')

diff --git a/src/fltk-dialogs.adb b/src/fltk-dialogs.adb
index 349fd1f..414c1da 100644
--- a/src/fltk-dialogs.adb
+++ b/src/fltk-dialogs.adb
@@ -2,8 +2,7 @@
 
 with
 
-    Interfaces.C.Strings,
-    System;
+    Interfaces.C.Strings;
 
 use type
 
@@ -105,7 +104,7 @@ package body FLTK.Dialogs is
     pragma Inline (dialog_fl_message_font);
 
     function dialog_fl_message_icon
-        return System.Address;
+        return Storage.Integer_Address;
     pragma Import (C, dialog_fl_message_icon, "dialog_fl_message_icon");
     pragma Inline (dialog_fl_message_icon);
 
-- 
cgit