From f27eb859eff94ec9c13239daee15f60ffecde089 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 18 Jan 2025 00:43:55 +1300 Subject: Added Fl_Sys_Menu_Bar --- src/fltk-widgets-menus-menu_bars.adb | 22 ++++++++++++++++++++-- 1 file changed, 20 insertions(+), 2 deletions(-) (limited to 'src/fltk-widgets-menus-menu_bars.adb') 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; -- cgit