From 5c4cea0152fca573e7b2832799ead10afd0697a6 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Fri, 9 Dec 2022 11:32:42 +1300 Subject: Menu subprograms that return Menu_Item references fixed --- src/fltk-widgets-menus.ads | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) (limited to 'src/fltk-widgets-menus.ads') diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 41eda3a..eb2d17a 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -25,7 +25,9 @@ package FLTK.Widgets.Menus is subtype Index is Positive; subtype Extended_Index is Natural; + No_Index : constant Extended_Index := Extended_Index'First; + No_Reference : exception; type Cursor is private; @@ -241,7 +243,8 @@ private type Item_Access is access FLTK.Menu_Items.Menu_Item; package Item_Vectors is new Ada.Containers.Vectors - (Index_Type => Positive, Element_Type => Item_Access); + (Index_Type => Positive, + Element_Type => Item_Access); type Menu is new Widget with record My_Items : Item_Vectors.Vector; -- cgit