diff options
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); |