diff options
author | Jed Barber <jjbarber@y7mail.com> | 2017-05-07 12:04:33 +1000 |
---|---|---|
committer | Jed Barber <jjbarber@y7mail.com> | 2017-05-07 12:04:33 +1000 |
commit | df843c7fe48f33d25981d03975e670a3e7159031 (patch) | |
tree | 32ad270bf18d5bedadd255a42c0b013332609488 /src/fltk-widgets.ads | |
parent | c2c5985b130e02b970cb6bf88c9a81e6e72c6646 (diff) |
Further code cleanup
Diffstat (limited to 'src/fltk-widgets.ads')
-rw-r--r-- | src/fltk-widgets.ads | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads index c2b863b..56bad0a 100644 --- a/src/fltk-widgets.ads +++ b/src/fltk-widgets.ads @@ -130,7 +130,7 @@ package FLTK.Widgets is procedure Draw - (This : in out Widget); + (This : in out Widget) is null; private @@ -148,7 +148,6 @@ private package Widget_Convert is new System.Address_To_Access_Conversions (Widget'Class); - -- package Callback_Convert is new System.Address_To_Access_Conversions (Widget_Callback); package Callback_Convert is function To_Pointer is new Ada.Unchecked_Conversion (System.Address, Widget_Callback); function To_Address is new Ada.Unchecked_Conversion (Widget_Callback, System.Address); |