From 36e546c1c9a9bb8e778fb637c17f94390b4d23c2 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Sat, 15 Feb 2025 14:29:16 +1300
Subject: Reorganising Fl / FLTK, improving enum docs

---
 body/fltk-widgets-menus.adb | 20 ++++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

(limited to 'body/fltk-widgets-menus.adb')

diff --git a/body/fltk-widgets-menus.adb b/body/fltk-widgets-menus.adb
index 3344efd..ede63a3 100644
--- a/body/fltk-widgets-menus.adb
+++ b/body/fltk-widgets-menus.adb
@@ -598,7 +598,7 @@ package body FLTK.Widgets.Menus is
             Interfaces.C.To_C (Text),
             To_C (Shortcut),
             Callback_Convert.To_Address (Action),
-            Interfaces.C.int (Flags));
+            MFlag_To_Cint (Flags));
     begin
         This.Adjust_Item_Store;
     end Add;
@@ -617,7 +617,7 @@ package body FLTK.Widgets.Menus is
             Interfaces.C.To_C (Text),
             To_C (Shortcut),
             Callback_Convert.To_Address (Action),
-            Interfaces.C.int (Flags));
+            MFlag_To_Cint (Flags));
     begin
         This.Adjust_Item_Store;
         return Index (Added_Spot + 1);
@@ -636,7 +636,7 @@ package body FLTK.Widgets.Menus is
             Interfaces.C.To_C (Text),
             Interfaces.C.To_C (Shortcut),
             Callback_Convert.To_Address (Action),
-            Interfaces.C.int (Flags));
+            MFlag_To_Cint (Flags));
     begin
         This.Adjust_Item_Store;
     end Add;
@@ -655,7 +655,7 @@ package body FLTK.Widgets.Menus is
             Interfaces.C.To_C (Text),
             Interfaces.C.To_C (Shortcut),
             Callback_Convert.To_Address (Action),
-            Interfaces.C.int (Flags));
+            MFlag_To_Cint (Flags));
     begin
         This.Adjust_Item_Store;
         return Index (Added_Spot + 1);
@@ -676,7 +676,7 @@ package body FLTK.Widgets.Menus is
             Interfaces.C.To_C (Text),
             To_C (Shortcut),
             Callback_Convert.To_Address (Action),
-            Interfaces.C.int (Flags));
+            MFlag_To_Cint (Flags));
     begin
         This.Adjust_Item_Store;
     end Insert;
@@ -697,7 +697,7 @@ package body FLTK.Widgets.Menus is
             Interfaces.C.To_C (Text),
             To_C (Shortcut),
             Callback_Convert.To_Address (Action),
-            Interfaces.C.int (Flags));
+            MFlag_To_Cint (Flags));
     begin
         This.Adjust_Item_Store;
         return Index (Added_Spot + 1);
@@ -718,7 +718,7 @@ package body FLTK.Widgets.Menus is
             Interfaces.C.To_C (Text),
             Interfaces.C.To_C (Shortcut),
             Callback_Convert.To_Address (Action),
-            Interfaces.C.int (Flags));
+            MFlag_To_Cint (Flags));
     begin
         This.Adjust_Item_Store;
     end Insert;
@@ -739,7 +739,7 @@ package body FLTK.Widgets.Menus is
             Interfaces.C.To_C (Text),
             Interfaces.C.To_C (Shortcut),
             Callback_Convert.To_Address (Action),
-            Interfaces.C.int (Flags));
+            MFlag_To_Cint (Flags));
     begin
         This.Adjust_Item_Store;
         return Index (Added_Spot + 1);
@@ -1186,7 +1186,7 @@ package body FLTK.Widgets.Menus is
             Place : in Index)
         return Menu_Flag is
     begin
-        return Menu_Flag (fl_menu_get_mode (This.Void_Ptr, Interfaces.C.int (Place) - 1));
+        return Cint_To_MFlag (fl_menu_get_mode (This.Void_Ptr, Interfaces.C.int (Place) - 1));
     end Get_Flags;
 
 
@@ -1198,7 +1198,7 @@ package body FLTK.Widgets.Menus is
         fl_menu_set_mode
            (This.Void_Ptr,
             Interfaces.C.int (Place) - 1,
-            Interfaces.C.int (Flags));
+            MFlag_To_Cint (Flags));
     end Set_Flags;
 
 
-- 
cgit