1 files changed, 22 insertions, 0 deletions
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;
+
+