diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-18 00:43:55 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-01-18 00:43:55 +1300 |
| commit | f27eb859eff94ec9c13239daee15f60ffecde089 (patch) | |
| tree | 68912acc3a7e9fa85ef447f69a3e3bbb8e27cf04 /src/fltk-widgets-menus.ads | |
| parent | 157f44ff7034212a29696c5bb2b87e4f6f20d625 (diff) | |
Added Fl_Sys_Menu_Bar
Diffstat (limited to 'src/fltk-widgets-menus.ads')
| -rw-r--r-- | src/fltk-widgets-menus.ads | 18 |
1 files changed, 12 insertions, 6 deletions
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); |