diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-20 16:02:12 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-20 16:02:12 +1300 |
| commit | 096ec211833d663b3e8976452c3293756a7ededf (patch) | |
| tree | 716536ffe15b6b31bc32dd6f4af4330e97ccb374 /src/fltk-widgets-menus.ads | |
| parent | 82eb9509e9e273e8e9e7e584553ccc49f476d4a3 (diff) | |
format / Format method for Fl_Valuator
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; |