diff options
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; |