From df843c7fe48f33d25981d03975e670a3e7159031 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 7 May 2017 12:04:33 +1000 Subject: Further code cleanup --- src/fltk-widgets.ads | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) (limited to 'src/fltk-widgets.ads') 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); -- cgit