diff options
Diffstat (limited to 'src/fltk-widgets-menus.ads')
| -rw-r--r-- | src/fltk-widgets-menus.ads | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 63828a5..bce29dd 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -42,7 +42,7 @@ package FLTK.Widgets.Menus is -- If your menu item path names are longer than this, -- then calls to Item_Pathname will raise an exception. - Item_Path_Max : constant Integer := 1023; + Item_Path_Max : constant Natural := Integer'Max (0, FLTK.Buffer_Size - 1); No_Reference_Error : exception; |