Finished and polished FLTK.Widgets.Menus, fixed some off-by-one errors in Groups

1 files changed, 3 insertions, 1 deletions

diff --git a/src/fltk-widgets-groups.ads b/src/fltk-widgets-groups.ads
index 609ba5d..ec0ab2a 100644
--- a/src/fltk-widgets-groups.ads
+++ b/src/fltk-widgets-groups.ads
@@ -21,6 +21,8 @@ package FLTK.Widgets.Groups is
         with Implicit_Dereference => Data;
 
     subtype Index is Positive;
+    subtype Extended_Index is Natural;
+    No_Index : constant Extended_Index := Extended_Index'First;
 
     --  type Clip_Mode is (No_Clip, Clip);
 
@@ -91,7 +93,7 @@ package FLTK.Widgets.Groups is
     function Find
            (This : in     Group;
             Item : in out Widget'Class)
-        return Index;
+        return Extended_Index;
 
     function Number_Of_Children
            (This : in Group)