diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2022-12-09 11:32:42 +1300 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2022-12-09 11:32:42 +1300 |
commit | 5c4cea0152fca573e7b2832799ead10afd0697a6 (patch) | |
tree | 449d35398303610fa4f24bc8541136a3168e5cc5 /src/fltk-widgets-menus.ads | |
parent | 8dd289655ff9ed17ae16bf6b7197ae3ae6c07b3e (diff) |
Menu subprograms that return Menu_Item references fixed
Diffstat (limited to 'src/fltk-widgets-menus.ads')
-rw-r--r-- | src/fltk-widgets-menus.ads | 5 |
1 files changed, 4 insertions, 1 deletions
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; |