From 87671a2f2423efacd0b0c4ad0c34c244680ef565 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sun, 13 Oct 2024 02:00:32 +1300 Subject: Changed System.Address to Integer_Address --- src/fltk-static_callback_conversions.ads | 54 ++++++++++++++++++++++++++++++++ 1 file changed, 54 insertions(+) create mode 100644 src/fltk-static_callback_conversions.ads (limited to 'src/fltk-static_callback_conversions.ads') diff --git a/src/fltk-static_callback_conversions.ads b/src/fltk-static_callback_conversions.ads new file mode 100644 index 0000000..2e47f4b --- /dev/null +++ b/src/fltk-static_callback_conversions.ads @@ -0,0 +1,54 @@ + + +limited with + + FLTK.Static; + + +private package FLTK.Static_Callback_Conversions is + + + function To_Awake_Access + (Addy : in Storage.Integer_Address) + return FLTK.Static.Awake_Handler; + + function To_Address + (Call : in FLTK.Static.Awake_Handler) + return Storage.Integer_Address; + + function To_Timeout_Access + (Addy : in Storage.Integer_Address) + return FLTK.Static.Timeout_Handler; + + function To_Address + (Call : in FLTK.Static.Timeout_Handler) + return Storage.Integer_Address; + + function To_Idle_Access + (Addy : in Storage.Integer_Address) + return FLTK.Static.Idle_Handler; + + function To_Address + (Call : in FLTK.Static.Idle_Handler) + return Storage.Integer_Address; + + function To_Clipboard_Access + (Addy : in Storage.Integer_Address) + return FLTK.Static.Clipboard_Notify_Handler; + + function To_Address + (Call : in FLTK.Static.Clipboard_Notify_Handler) + return Storage.Integer_Address; + + function To_File_Access + (Addy : in Storage.Integer_Address) + return FLTK.Static.File_Handler; + + function To_Address + (Call : in FLTK.Static.File_Handler) + return Storage.Integer_Address; + + +end FLTK.Static_Callback_Conversions; + + -- cgit