X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-menus__ads.htm;h=4d5f290afaef667360359e922db2ff615511d41e;hp=5a591dae1f57232176f6b5a84c2703abd8d1cb92;hb=a8987e73ec254703634802b4f7ee30d3a485524d;hpb=c633e5103a29a38532cf1925257b91cea33fd090
diff --git a/doc/html/ada/terminal_interface-curses-menus__ads.htm b/doc/html/ada/terminal_interface-curses-menus__ads.htm
index 5a591dae..4d5f290a 100644
--- a/doc/html/ada/terminal_interface-curses-menus__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-menus__ads.htm
@@ -38,9 +38,9 @@
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
--- Author: Jürgen Pfeifer <<juergen.pfeifer@gmx.net>> 1996
+-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- @Revision: 1.21 @
+-- @Revision: 1.24 @
-- Binding Version 01.00
------------------------------------------------------------------------------
-- menu binding.
@@ -427,61 +427,61 @@
-- #1A NAME="AFU_31"#2|
procedure Set_Foreground
- (Men : in Menu;
- Fore : in Character_Attribute_Set := Normal_Video;
+ (Men : in Menu;
+ Fore : in Character_Attribute_Set := Normal_Video;
Color : in Color_Pair := Color_Pair'First);
-- AKA: set_menu_fore()
pragma Inline (Set_Foreground);
-- #1A NAME="AFU_32"#2|
- procedure Foreground (Men : in Menu;
+ procedure Foreground (Men : in Menu;
Fore : out Character_Attribute_Set);
-- AKA: menu_fore()
-- #1A NAME="AFU_33"#2|
- procedure Foreground (Men : in Menu;
- Fore : out Character_Attribute_Set;
+ procedure Foreground (Men : in Menu;
+ Fore : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA: menu_fore()
pragma Inline (Foreground);
-- #1A NAME="AFU_34"#2|
procedure Set_Background
- (Men : in Menu;
- Back : in Character_Attribute_Set := Normal_Video;
+ (Men : in Menu;
+ Back : in Character_Attribute_Set := Normal_Video;
Color : in Color_Pair := Color_Pair'First);
-- AKA: set_menu_back()
pragma Inline (Set_Background);
-- #1A NAME="AFU_35"#2|
- procedure Background (Men : in Menu;
+ procedure Background (Men : in Menu;
Back : out Character_Attribute_Set);
-- AKA: menu_back()
-- #1A NAME="AFU_36"#2|
- procedure Background (Men : in Menu;
- Back : out Character_Attribute_Set;
+ procedure Background (Men : in Menu;
+ Back : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA: menu_back()
pragma Inline (Background);
-- #1A NAME="AFU_37"#2|
procedure Set_Grey
- (Men : in Menu;
- Grey : in Character_Attribute_Set := Normal_Video;
+ (Men : in Menu;
+ Grey : in Character_Attribute_Set := Normal_Video;
Color : in Color_Pair := Color_Pair'First);
-- AKA: set_menu_grey()
pragma Inline (Set_Grey);
-- #1A NAME="AFU_38"#2|
- procedure Grey (Men : in Menu;
+ procedure Grey (Men : in Menu;
Grey : out Character_Attribute_Set);
-- AKA: menu_grey()
-- #1A NAME="AFU_39"#2|
procedure Grey
- (Men : in Menu;
- Grey : out Character_Attribute_Set;
+ (Men : in Menu;
+ Grey : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA: menu_grey()
pragma Inline (Grey);
@@ -543,12 +543,19 @@
procedure Set_Format (Men : in Menu;
Lines : in Line_Count;
Columns : in Column_Count);
+ -- Not implemented: 0 argument for Lines or Columns;
+ -- instead use Format to get the current sizes
+ -- The default is 16 rows, 1 column. Calling
+ -- set_menu_format with a null menu pointer will change this
+ -- default. A zero row or column argument to set_menu_format
+ -- is interpreted as a request not to change the current
+ -- value.
-- AKA: set_menu_format()
pragma Inline (Set_Format);
-- #1A NAME="AFU_47"#2|
- procedure Format (Men : in Menu;
- Lines : out Line_Count;
+ procedure Format (Men : in Menu;
+ Lines : out Line_Count;
Columns : out Column_Count);
-- AKA: menu_format()
pragma Inline (Format);
@@ -561,25 +568,25 @@
pragma Convention (C, Menu_Hook_Function);
-- #1A NAME="AFU_48"#2|
- procedure Set_Item_Init_Hook (Men : in Menu;
+ procedure Set_Item_Init_Hook (Men : in Menu;
Proc : in Menu_Hook_Function);
-- AKA: set_item_init()
pragma Inline (Set_Item_Init_Hook);
-- #1A NAME="AFU_49"#2|
- procedure Set_Item_Term_Hook (Men : in Menu;
+ procedure Set_Item_Term_Hook (Men : in Menu;
Proc : in Menu_Hook_Function);
-- AKA: set_item_term()
pragma Inline (Set_Item_Term_Hook);
-- #1A NAME="AFU_50"#2|
- procedure Set_Menu_Init_Hook (Men : in Menu;
+ procedure Set_Menu_Init_Hook (Men : in Menu;
Proc : in Menu_Hook_Function);
-- AKA: set_menu_init()
pragma Inline (Set_Menu_Init_Hook);
-- #1A NAME="AFU_51"#2|
- procedure Set_Menu_Term_Hook (Men : in Menu;
+ procedure Set_Menu_Term_Hook (Men : in Menu;
Proc : in Menu_Hook_Function);
-- AKA: set_menu_term()
pragma Inline (Set_Menu_Term_Hook);
@@ -609,17 +616,17 @@
-- |=====================================================================
-- #1A NAME="AFU_56"#2|
- procedure Redefine (Men : in Menu;
+ procedure Redefine (Men : in Menu;
Items : in Item_Array_Access);
-- AKA: set_menu_items()
pragma Inline (Redefine);
- procedure Set_Items (Men : in Menu;
- Items : in Item_Array_Access) renames Redefine;
+ procedure Set_Items (Men : in Menu;
+ Items : in Item_Array_Access) renames Redefine;
pragma Inline (Set_Items);
-- #1A NAME="AFU_57"#2|
- function Items (Men : Menu;
+ function Items (Men : Menu;
Index : Positive) return Item;
-- AKA: menu_items()
pragma Inline (Items);
@@ -647,20 +654,22 @@
-- Not inlined
-- |=====================================================================
- -- | Man page menu_new.3x
+ -- | Man page menu_driver.3x
-- |=====================================================================
- type Driver_Result is (Menu_Ok,
- Request_Denied,
- Unknown_Request,
+ type Driver_Result is (Menu_Ok,
+ Request_Denied,
+ Unknown_Request,
No_Match);
-- #1A NAME="AFU_61"#2|
- function Driver (Men : Menu;
+ function Driver (Men : Menu;
Key : Key_Code) return Driver_Result;
- -- AKA: menu_driver()
+ -- AKA: menu_driver()
-- Driver is not inlined
+ -- #1A NAME="AFU_62"#2|
+ -- Not Implemented: menu_request_name, menu_request_by_name
-------------------------------------------------------------------------------
private
type Item is new System.Storage_Elements.Integer_Address;
@@ -670,4 +679,4 @@
Null_Menu : constant Menu := 0;
end Terminal_Interface.Curses.Menus;
-