summaryrefslogtreecommitdiff
path: root/body/fltk-static_callback_conversions.ads
diff options
context:
space:
mode:
Diffstat (limited to 'body/fltk-static_callback_conversions.ads')
-rw-r--r--body/fltk-static_callback_conversions.ads58
1 files changed, 58 insertions, 0 deletions
diff --git a/body/fltk-static_callback_conversions.ads b/body/fltk-static_callback_conversions.ads
new file mode 100644
index 0000000..1e10c03
--- /dev/null
+++ b/body/fltk-static_callback_conversions.ads
@@ -0,0 +1,58 @@
+
+
+-- Programmed by Jedidiah Barber
+-- Released into the public domain
+
+
+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;
+
+