diff options
Diffstat (limited to 'src/fltk-widgets-menus.ads')
| -rw-r--r-- | src/fltk-widgets-menus.ads | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads index 5a25790..bc72bef 100644 --- a/src/fltk-widgets-menus.ads +++ b/src/fltk-widgets-menus.ads @@ -256,15 +256,17 @@ private overriding procedure Finalize (This : in out Menu); - + procedure Extra_Init + (This : in out Menu; + X, Y, W, H : in Integer; + Text : in String) + with Inline; procedure Item_Hook (M, U : in Storage.Integer_Address); pragma Convention (C, Item_Hook); - - type Cursor is record My_Container : access Menu; My_Index : Index'Base := Index'First; @@ -293,24 +295,19 @@ private return Cursor; - - pragma Inline (Has_Item); pragma Inline (Item); pragma Inline (Find_Item); pragma Inline (Find_Index); pragma Inline (Number_Of_Items); - pragma Inline (Iterate); - pragma Inline (Chosen); pragma Inline (Chosen_Label); pragma Inline (Chosen_Index); pragma Inline (Set_Chosen); - pragma Inline (Get_Text_Color); pragma Inline (Set_Text_Color); pragma Inline (Get_Text_Font); @@ -318,17 +315,14 @@ private pragma Inline (Get_Text_Size); pragma Inline (Set_Text_Size); - pragma Inline (Get_Down_Box); pragma Inline (Set_Down_Box); pragma Inline (Make_Global); pragma Inline (Measure_Item); - pragma Inline (Popup); pragma Inline (Pulldown); - pragma Inline (Draw); pragma Inline (Draw_Item); pragma Inline (Handle); |