From c477cd9b9879692a03178e67e71448fc97033b66 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 10 Dec 2022 02:02:35 +1300 Subject: Reworked menu popup and pulldown subprograms to no longer need exceptions --- src/fltk-widgets-menus.ads | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/fltk-widgets-menus.ads') diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index eb2d17a..7eb56d2 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -206,13 +206,13 @@ package FLTK.Widgets.Menus is X, Y : in Integer; Title : in String := ""; Initial : in Extended_Index := No_Index) - return FLTK.Menu_Items.Menu_Item_Reference; + return Extended_Index; function Pulldown (This : in Menu; X, Y, W, H : in Integer; Initial : in Extended_Index := No_Index) - return FLTK.Menu_Items.Menu_Item_Reference; + return Extended_Index; -- cgit