From 6e8b2cd87a74ac8d1366775186f35268837523e1 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Fri, 4 May 2018 02:07:02 +1000 Subject: Finished and polished FLTK.Menu_Items --- src/fltk-widgets-menus.adb | 10 ---------- 1 file changed, 10 deletions(-) (limited to 'src/fltk-widgets-menus.adb') diff --git a/src/fltk-widgets-menus.adb b/src/fltk-widgets-menus.adb index 0947003..3d8ea0c 100644 --- a/src/fltk-widgets-menus.adb +++ b/src/fltk-widgets-menus.adb @@ -16,16 +16,6 @@ use type package body FLTK.Widgets.Menus is - function "+" - (Left, Right : in Menu_Flag) - return Menu_Flag is - begin - return Left or Right; - end "+"; - - - - procedure menu_set_draw_hook (W, D : in System.Address); pragma Import (C, menu_set_draw_hook, "menu_set_draw_hook"); -- cgit