diff options
Diffstat (limited to 'src/fltk-widgets-groups.ads')
| -rw-r--r-- | src/fltk-widgets-groups.ads | 4 |
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) |