Added Fl_Sys_Menu_Bar

1 files changed, 20 insertions, 2 deletions

diff --git a/src/fltk-widgets-menus-menu_bars.adb b/src/fltk-widgets-menus-menu_bars.adb
index d3f1295..f1dba40 100644
--- a/src/fltk-widgets-menus-menu_bars.adb
+++ b/src/fltk-widgets-menus-menu_bars.adb
@@ -47,6 +47,22 @@ package body FLTK.Widgets.Menus.Menu_Bars is
 
 
 
+    function fl_menu_get_item
+           (M : in Storage.Integer_Address;
+            I : in Interfaces.C.int)
+        return Storage.Integer_Address;
+    pragma Import (C, fl_menu_get_item, "fl_menu_get_item");
+    pragma Inline (fl_menu_get_item);
+
+    function fl_menu_value
+           (M : in Storage.Integer_Address)
+        return Interfaces.C.int;
+    pragma Import (C, fl_menu_value, "fl_menu_value");
+    pragma Inline (fl_menu_value);
+
+
+
+
     -------------------
     --  Destructors  --
     -------------------
@@ -87,8 +103,10 @@ package body FLTK.Widgets.Menus.Menu_Bars is
     procedure Initialize
            (This : in out Menu_Bar) is
     begin
-        This.Draw_Ptr   := fl_menu_bar_draw'Address;
-        This.Handle_Ptr := fl_menu_bar_handle'Address;
+        This.Draw_Ptr     := fl_menu_bar_draw'Address;
+        This.Handle_Ptr   := fl_menu_bar_handle'Address;
+        This.Get_Item_Ptr := fl_menu_get_item'Address;
+        This.Value_Ptr    := fl_menu_value'Address;
     end Initialize;