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-widget_callback_conversions.ads | |
| parent | ca99321b1f7aa54b435c73f1ec14321dbd989f16 (diff) | |
Changed System.Address to Integer_Address
Diffstat (limited to 'src/fltk-widget_callback_conversions.ads')
| -rw-r--r-- | src/fltk-widget_callback_conversions.ads | 22 |
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; + + |