From 1cd018b440f80601f60908c2e5675413f5c77e25 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 15 May 2018 14:52:00 +1000 Subject: Finished and polished FLTK.Widgets.Menus, fixed some off-by-one errors in Groups --- src/fltk-widgets-groups.ads | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/fltk-widgets-groups.ads') 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) -- cgit