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.ads | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) (limited to 'src/fltk-widgets-menus.ads') diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 648def2..63828a5 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -17,7 +17,8 @@ private with Ada.Containers.Vectors, Ada.Finalization, - Interfaces; + Interfaces, + System; package FLTK.Widgets.Menus is @@ -408,9 +409,11 @@ private Element_Type => Item_Access); type Menu is new Widget with record - My_Items : Item_Vectors.Vector; - My_Find : aliased FLTK.Menu_Items.Menu_Item; - My_Pick : aliased FLTK.Menu_Items.Menu_Item; + My_Items : Item_Vectors.Vector; + My_Find : aliased FLTK.Menu_Items.Menu_Item; + My_Pick : aliased FLTK.Menu_Items.Menu_Item; + Get_Item_Ptr : System.Address; + Value_Ptr : System.Address; end record; overriding procedure Initialize @@ -429,6 +432,11 @@ private (This : in out Menu); + -- Used internally after every time the number of menu items is meddled with + procedure Adjust_Item_Store + (This : in out Menu); + + type Cursor is record My_Container : access Menu; My_Index : Index'Base := Index'First; @@ -457,8 +465,6 @@ private return Cursor; - pragma Inline (Use_Same_Items); - pragma Inline (Has_Item); pragma Inline (Item); pragma Inline (Find_Item); -- cgit