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-widget_callback_conversions.ads | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 src/fltk-widget_callback_conversions.ads

(limited to 'src/fltk-widget_callback_conversions.ads')

diff --git a/src/fltk-widget_callback_conversions.ads b/src/fltk-widget_callback_conversions.ads
new file mode 100644
index 0000000..01e7957
--- /dev/null
+++ b/src/fltk-widget_callback_conversions.ads
@@ -0,0 +1,22 @@
+
+
+limited with
+
+    FLTK.Widgets;
+
+
+private package FLTK.Widget_Callback_Conversions is
+
+
+    function To_Access
+           (Addy : in Storage.Integer_Address)
+        return FLTK.Widgets.Widget_Callback;
+
+    function To_Address
+           (Call : in FLTK.Widgets.Widget_Callback)
+        return Storage.Integer_Address;
+
+
+end FLTK.Widget_Callback_Conversions;
+
+
-- 
cgit