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-dialogs.adb | |
| parent | ca99321b1f7aa54b435c73f1ec14321dbd989f16 (diff) | |
Changed System.Address to Integer_Address
Diffstat (limited to 'src/fltk-dialogs.adb')
| -rw-r--r-- | src/fltk-dialogs.adb | 5 |
1 files changed, 2 insertions, 3 deletions
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); |