diff options
Diffstat (limited to 'src/fltk-widgets-menus.ads')
| -rw-r--r-- | src/fltk-widgets-menus.ads | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 41eda3a..7eb56d2 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; @@ -204,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; @@ -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; |