summaryrefslogtreecommitdiff
path: root/src/fltk-widgets-valuators-dials-fill.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk-widgets-valuators-dials-fill.adb')
-rw-r--r--src/fltk-widgets-valuators-dials-fill.adb31
1 files changed, 15 insertions, 16 deletions
diff --git a/src/fltk-widgets-valuators-dials-fill.adb b/src/fltk-widgets-valuators-dials-fill.adb
index 40460f4..881b1f8 100644
--- a/src/fltk-widgets-valuators-dials-fill.adb
+++ b/src/fltk-widgets-valuators-dials-fill.adb
@@ -1,25 +1,24 @@
-with
+-- Programmed by Jedidiah Barber
+-- Released into the public domain
- Interfaces.C.Strings,
- System;
-use type
+with
- System.Address;
+ Interfaces.C.Strings;
package body FLTK.Widgets.Valuators.Dials.Fill is
procedure fill_dial_set_draw_hook
- (W, D : in System.Address);
+ (W, D : in Storage.Integer_Address);
pragma Import (C, fill_dial_set_draw_hook, "fill_dial_set_draw_hook");
pragma Inline (fill_dial_set_draw_hook);
procedure fill_dial_set_handle_hook
- (W, H : in System.Address);
+ (W, H : in Storage.Integer_Address);
pragma Import (C, fill_dial_set_handle_hook, "fill_dial_set_handle_hook");
pragma Inline (fill_dial_set_handle_hook);
@@ -29,12 +28,12 @@ package body FLTK.Widgets.Valuators.Dials.Fill is
function new_fl_fill_dial
(X, Y, W, H : in Interfaces.C.int;
Text : in Interfaces.C.char_array)
- return System.Address;
+ return Storage.Integer_Address;
pragma Import (C, new_fl_fill_dial, "new_fl_fill_dial");
pragma Inline (new_fl_fill_dial);
procedure free_fl_fill_dial
- (D : in System.Address);
+ (D : in Storage.Integer_Address);
pragma Import (C, free_fl_fill_dial, "free_fl_fill_dial");
pragma Inline (free_fl_fill_dial);
@@ -42,12 +41,12 @@ package body FLTK.Widgets.Valuators.Dials.Fill is
procedure fl_fill_dial_draw
- (W : in System.Address);
+ (W : in Storage.Integer_Address);
pragma Import (C, fl_fill_dial_draw, "fl_fill_dial_draw");
pragma Inline (fl_fill_dial_draw);
function fl_fill_dial_handle
- (W : in System.Address;
+ (W : in Storage.Integer_Address;
E : in Interfaces.C.int)
return Interfaces.C.int;
pragma Import (C, fl_fill_dial_handle, "fl_fill_dial_handle");
@@ -59,11 +58,11 @@ package body FLTK.Widgets.Valuators.Dials.Fill is
procedure Finalize
(This : in out Fill_Dial) is
begin
- if This.Void_Ptr /= System.Null_Address and then
+ if This.Void_Ptr /= Null_Pointer and then
This in Fill_Dial'Class
then
free_fl_fill_dial (This.Void_Ptr);
- This.Void_Ptr := System.Null_Address;
+ This.Void_Ptr := Null_Pointer;
end if;
Finalize (Dial (This));
end Finalize;
@@ -87,9 +86,9 @@ package body FLTK.Widgets.Valuators.Dials.Fill is
Interfaces.C.To_C (Text));
fl_widget_set_user_data
(This.Void_Ptr,
- Widget_Convert.To_Address (This'Unchecked_Access));
- fill_dial_set_draw_hook (This.Void_Ptr, Draw_Hook'Address);
- fill_dial_set_handle_hook (This.Void_Ptr, Handle_Hook'Address);
+ Storage.To_Integer (Widget_Convert.To_Address (This'Unchecked_Access)));
+ fill_dial_set_draw_hook (This.Void_Ptr, Storage.To_Integer (Draw_Hook'Address));
+ fill_dial_set_handle_hook (This.Void_Ptr, Storage.To_Integer (Handle_Hook'Address));
fl_widget_set_label (This.Void_Ptr, Interfaces.C.To_C (Text));
end return;
end Create;