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-menus.ads | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'src/fltk-widgets-menus.ads') diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 6cc197d..c33c180 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -8,8 +8,6 @@ private with System; package FLTK.Widgets.Menus is - -- still abstract, really, because if the Draw procedure isn't - -- overridden it'll call the abstract C++ method type Menu is new Widget with private; @@ -74,7 +72,7 @@ package FLTK.Widgets.Menus is procedure Draw - (This : in out Menu); + (This : in out Menu) is null; private @@ -105,8 +103,5 @@ private Flag_Divider : constant Menu_Flag := 2#10000000#; - package Menu_Convert is new System.Address_To_Access_Conversions (Menu'Class); - - end FLTK.Widgets.Menus; -- cgit