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-menus.ads | |
parent | c2c5985b130e02b970cb6bf88c9a81e6e72c6646 (diff) |
Further code cleanup
Diffstat (limited to 'src/fltk-widgets-menus.ads')
-rw-r--r-- | src/fltk-widgets-menus.ads | 7 |
1 files changed, 1 insertions, 6 deletions
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; |