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=a8d9253a6d08b34102e72cce2aa1ed044b8aeb84;hp=d90df1a5625ec2cae4d7f18bd43c7792622d21a5;hb=97cb42f22c43eb31a4bf11475bd73ab0e0b10923;hpb=bca50d0d8592defee6c584fdedd25f4b1a31345b
diff --git a/doc/html/ada/terminal_interface-curses-menus__ads.htm b/doc/html/ada/terminal_interface-curses-menus__ads.htm
index d90df1a5..a8d9253a 100644
--- a/doc/html/ada/terminal_interface-curses-menus__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-menus__ads.htm
@@ -115,10 +115,10 @@
REQ_NEXT_MATCH : Menu_Request_Code renames M_Next_Match;
REQ_PREV_MATCH : Menu_Request_Code renames M_Previous_Match;
- procedure Request_Name (Key : Menu_Request_Code;
- Name : out String);
+ procedure Request_Name (Key : Menu_Request_Code;
+ Name : out String);
- function Request_Name (Key : Menu_Request_Code) return String;
+ function Request_Name (Key : Menu_Request_Code) return String;
@@ -159,7 +159,7 @@
for Menu_Option_Set'Size use Curses_Constants.Menu_Options_Size;
pragma Warnings (On);
- function Default_Menu_Options return Menu_Option_Set;
+ function Default_Menu_Options return Menu_Option_Set;
pragma Inline (Default_Menu_Options);
@@ -180,7 +180,7 @@
for Item_Option_Set'Size use Curses_Constants.Item_Options_Size;
pragma Warnings (On);
- function Default_Item_Options return Item_Option_Set;
+ function Default_Item_Options return Item_Option_Set;
pragma Inline (Default_Item_Options);
@@ -192,8 +192,8 @@
type Item_Array_Access is access Item_Array;
- procedure Free (IA : in out Item_Array_Access;
- Free_Items : Boolean := False);
+ procedure Free (IA : in out Item_Array_Access;
+ Free_Items : Boolean := False);
@@ -202,20 +202,20 @@
-
- function Create (Name : String;
- Description : String := "") return Item;
+
+ function Create (Name : String;
+ Description : String := "") return Item;
-
+
function New_Item (Name : String;
Description : String := "") return Item
renames Create;
-
- procedure Delete (Itm : in out Item);
+
+ procedure Delete (Itm : in out Item);
@@ -223,14 +223,14 @@
-
- procedure Set_Value (Itm : Item;
- Value : Boolean := True);
+
+ procedure Set_Value (Itm : Item;
+ Value : Boolean := True);
pragma Inline (Set_Value);
-
- function Value (Itm : Item) return Boolean;
+
+ function Value (Itm : Item) return Boolean;
pragma Inline (Value);
@@ -238,8 +238,8 @@
-
- function Visible (Itm : Item) return Boolean;
+
+ function Visible (Itm : Item) return Boolean;
pragma Inline (Visible);
@@ -247,28 +247,28 @@
-
- procedure Set_Options (Itm : Item;
- Options : Item_Option_Set);
+
+ procedure Set_Options (Itm : Item;
+ Options : Item_Option_Set);
-
- procedure Switch_Options (Itm : Item;
- Options : Item_Option_Set;
- On : Boolean := True);
+
+ procedure Switch_Options (Itm : Item;
+ Options : Item_Option_Set;
+ On : Boolean := True);
-
- procedure Get_Options (Itm : Item;
- Options : out Item_Option_Set);
+
+ procedure Get_Options (Itm : Item;
+ Options : out Item_Option_Set);
-
- function Get_Options (Itm : Item := Null_Item) return Item_Option_Set;
+
+ function Get_Options (Itm : Item := Null_Item) return Item_Option_Set;
@@ -276,21 +276,21 @@
-
- procedure Name (Itm : Item;
- Name : out String);
+
+ procedure Name (Itm : Item;
+ Name : out String);
- function Name (Itm : Item) return String;
+ function Name (Itm : Item) return String;
pragma Inline (Name);
-
- procedure Description (Itm : Item;
- Description : out String);
+
+ procedure Description (Itm : Item;
+ Description : out String);
- function Description (Itm : Item) return String;
+ function Description (Itm : Item) return String;
pragma Inline (Description);
@@ -299,30 +299,30 @@
-
- procedure Set_Current (Men : Menu;
- Itm : Item);
+
+ procedure Set_Current (Men : Menu;
+ Itm : Item);
pragma Inline (Set_Current);
-
- function Current (Men : Menu) return Item;
+
+ function Current (Men : Menu) return Item;
pragma Inline (Current);
-
- procedure Set_Top_Row (Men : Menu;
- Line : Line_Position);
+
+ procedure Set_Top_Row (Men : Menu;
+ Line : Line_Position);
pragma Inline (Set_Top_Row);
-
- function Top_Row (Men : Menu) return Line_Position;
+
+ function Top_Row (Men : Menu) return Line_Position;
pragma Inline (Top_Row);
-
- function Get_Index (Itm : Item) return Positive;
+
+ function Get_Index (Itm : Item) return Positive;
@@ -333,9 +333,9 @@
-
- procedure Post (Men : Menu;
- Post : Boolean := True);
+
+ procedure Post (Men : Menu;
+ Post : Boolean := True);
pragma Inline (Post);
@@ -344,27 +344,27 @@
-
- procedure Set_Options (Men : Menu;
- Options : Menu_Option_Set);
+
+ procedure Set_Options (Men : Menu;
+ Options : Menu_Option_Set);
pragma Inline (Set_Options);
-
- procedure Switch_Options (Men : Menu;
- Options : Menu_Option_Set;
- On : Boolean := True);
+
+ procedure Switch_Options (Men : Menu;
+ Options : Menu_Option_Set;
+ On : Boolean := True);
pragma Inline (Switch_Options);
-
- procedure Get_Options (Men : Menu;
- Options : out Menu_Option_Set);
+
+ procedure Get_Options (Men : Menu;
+ Options : out Menu_Option_Set);
-
- function Get_Options (Men : Menu := Null_Menu) return Menu_Option_Set;
+
+ function Get_Options (Men : Menu := Null_Menu) return Menu_Option_Set;
pragma Inline (Get_Options);
@@ -372,32 +372,32 @@
-
- procedure Set_Window (Men : Menu;
- Win : Window);
+
+ procedure Set_Window (Men : Menu;
+ Win : Window);
pragma Inline (Set_Window);
-
- function Get_Window (Men : Menu) return Window;
+
+ function Get_Window (Men : Menu) return Window;
pragma Inline (Get_Window);
-
- procedure Set_Sub_Window (Men : Menu;
- Win : Window);
+
+ procedure Set_Sub_Window (Men : Menu;
+ Win : Window);
pragma Inline (Set_Sub_Window);
-
- function Get_Sub_Window (Men : Menu) return Window;
+
+ function Get_Sub_Window (Men : Menu) return Window;
pragma Inline (Get_Sub_Window);
-
- procedure Scale (Men : Menu;
- Lines : out Line_Count;
- Columns : out Column_Count);
+
+ procedure Scale (Men : Menu;
+ Lines : out Line_Count;
+ Columns : out Column_Count);
pragma Inline (Scale);
@@ -405,8 +405,8 @@
-
- procedure Position_Cursor (Men : Menu);
+
+ procedure Position_Cursor (Men : Menu);
pragma Inline (Position_Cursor);
@@ -414,18 +414,18 @@
-
- procedure Set_Mark (Men : Menu;
- Mark : String);
+
+ procedure Set_Mark (Men : Menu;
+ Mark : String);
pragma Inline (Set_Mark);
-
- procedure Mark (Men : Menu;
- Mark : out String);
+
+ procedure Mark (Men : Menu;
+ Mark : out String);
- function Mark (Men : Menu) return String;
+ function Mark (Men : Menu) return String;
pragma Inline (Mark);
@@ -434,76 +434,76 @@
-
- procedure Set_Foreground
- (Men : Menu;
- Fore : Character_Attribute_Set := Normal_Video;
- Color : Color_Pair := Color_Pair'First);
+
+ procedure Set_Foreground
+ (Men : Menu;
+ Fore : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
pragma Inline (Set_Foreground);
-
- procedure Foreground (Men : Menu;
- Fore : out Character_Attribute_Set);
+
+ procedure Foreground (Men : Menu;
+ Fore : out Character_Attribute_Set);
-
- procedure Foreground (Men : Menu;
- Fore : out Character_Attribute_Set;
- Color : out Color_Pair);
+
+ procedure Foreground (Men : Menu;
+ Fore : out Character_Attribute_Set;
+ Color : out Color_Pair);
pragma Inline (Foreground);
-
- procedure Set_Background
- (Men : Menu;
- Back : Character_Attribute_Set := Normal_Video;
- Color : Color_Pair := Color_Pair'First);
+
+ procedure Set_Background
+ (Men : Menu;
+ Back : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
pragma Inline (Set_Background);
-
- procedure Background (Men : Menu;
- Back : out Character_Attribute_Set);
+
+ procedure Background (Men : Menu;
+ Back : out Character_Attribute_Set);
-
+
- procedure Background (Men : Menu;
- Back : out Character_Attribute_Set;
- Color : out Color_Pair);
+ procedure Background (Men : Menu;
+ Back : out Character_Attribute_Set;
+ Color : out Color_Pair);
pragma Inline (Background);
-
- procedure Set_Grey
- (Men : Menu;
- Grey : Character_Attribute_Set := Normal_Video;
- Color : Color_Pair := Color_Pair'First);
+
+ procedure Set_Grey
+ (Men : Menu;
+ Grey : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
pragma Inline (Set_Grey);
-
- procedure Grey (Men : Menu;
- Grey : out Character_Attribute_Set);
+
+ procedure Grey (Men : Menu;
+ Grey : out Character_Attribute_Set);
-
- procedure Grey
- (Men : Menu;
- Grey : out Character_Attribute_Set;
- Color : out Color_Pair);
+
+ procedure Grey
+ (Men : Menu;
+ Grey : out Character_Attribute_Set;
+ Color : out Color_Pair);
pragma Inline (Grey);
-
- procedure Set_Pad_Character (Men : Menu;
- Pad : Character := Space);
+
+ procedure Set_Pad_Character (Men : Menu;
+ Pad : Character := Space);
pragma Inline (Set_Pad_Character);
-
- procedure Pad_Character (Men : Menu;
- Pad : out Character);
+
+ procedure Pad_Character (Men : Menu;
+ Pad : out Character);
pragma Inline (Pad_Character);
@@ -511,19 +511,19 @@
-
- procedure Set_Spacing (Men : Menu;
- Descr : Column_Position := 0;
- Row : Line_Position := 0;
- Col : Column_Position := 0);
+
+ procedure Set_Spacing (Men : Menu;
+ Descr : Column_Position := 0;
+ Row : Line_Position := 0;
+ Col : Column_Position := 0);
pragma Inline (Set_Spacing);
-
- procedure Spacing (Men : Menu;
- Descr : out Column_Position;
- Row : out Line_Position;
- Col : out Column_Position);
+
+ procedure Spacing (Men : Menu;
+ Descr : out Column_Position;
+ Row : out Line_Position;
+ Col : out Column_Position);
pragma Inline (Spacing);
@@ -531,16 +531,16 @@
-
- function Set_Pattern (Men : Menu;
- Text : String) return Boolean;
+
+ function Set_Pattern (Men : Menu;
+ Text : String) return Boolean;
pragma Inline (Set_Pattern);
-
- procedure Pattern (Men : Menu;
- Text : out String);
+
+ procedure Pattern (Men : Menu;
+ Text : out String);
pragma Inline (Pattern);
@@ -548,10 +548,10 @@
-
- procedure Set_Format (Men : Menu;
- Lines : Line_Count;
- Columns : Column_Count);
+
+ procedure Set_Format (Men : Menu;
+ Lines : Line_Count;
+ Columns : Column_Count);
@@ -562,10 +562,10 @@
pragma Inline (Set_Format);
-
- procedure Format (Men : Menu;
- Lines : out Line_Count;
- Columns : out Column_Count);
+
+ procedure Format (Men : Menu;
+ Lines : out Line_Count;
+ Columns : out Column_Count);
pragma Inline (Format);
@@ -576,47 +576,47 @@
type Menu_Hook_Function is access procedure (Men : Menu);
pragma Convention (C, Menu_Hook_Function);
-
- procedure Set_Item_Init_Hook (Men : Menu;
- Proc : Menu_Hook_Function);
+
+ procedure Set_Item_Init_Hook (Men : Menu;
+ Proc : Menu_Hook_Function);
pragma Inline (Set_Item_Init_Hook);
-
- procedure Set_Item_Term_Hook (Men : Menu;
- Proc : Menu_Hook_Function);
+
+ procedure Set_Item_Term_Hook (Men : Menu;
+ Proc : Menu_Hook_Function);
pragma Inline (Set_Item_Term_Hook);
-
- procedure Set_Menu_Init_Hook (Men : Menu;
- Proc : Menu_Hook_Function);
+
+ procedure Set_Menu_Init_Hook (Men : Menu;
+ Proc : Menu_Hook_Function);
pragma Inline (Set_Menu_Init_Hook);
-
- procedure Set_Menu_Term_Hook (Men : Menu;
- Proc : Menu_Hook_Function);
+
+ procedure Set_Menu_Term_Hook (Men : Menu;
+ Proc : Menu_Hook_Function);
pragma Inline (Set_Menu_Term_Hook);
-
- function Get_Item_Init_Hook (Men : Menu) return Menu_Hook_Function;
+
+ function Get_Item_Init_Hook (Men : Menu) return Menu_Hook_Function;
pragma Inline (Get_Item_Init_Hook);
-
- function Get_Item_Term_Hook (Men : Menu) return Menu_Hook_Function;
+
+ function Get_Item_Term_Hook (Men : Menu) return Menu_Hook_Function;
pragma Inline (Get_Item_Term_Hook);
-
- function Get_Menu_Init_Hook (Men : Menu) return Menu_Hook_Function;
+
+ function Get_Menu_Init_Hook (Men : Menu) return Menu_Hook_Function;
pragma Inline (Get_Menu_Init_Hook);
-
- function Get_Menu_Term_Hook (Men : Menu) return Menu_Hook_Function;
+
+ function Get_Menu_Term_Hook (Men : Menu) return Menu_Hook_Function;
pragma Inline (Get_Menu_Term_Hook);
@@ -624,9 +624,9 @@
-
- procedure Redefine (Men : Menu;
- Items : Item_Array_Access);
+
+ procedure Redefine (Men : Menu;
+ Items : Item_Array_Access);
pragma Inline (Redefine);
@@ -634,14 +634,14 @@
Items : Item_Array_Access) renames Redefine;
-
- function Items (Men : Menu;
- Index : Positive) return Item;
+
+ function Items (Men : Menu;
+ Index : Positive) return Item;
pragma Inline (Items);
-
- function Item_Count (Men : Menu) return Natural;
+
+ function Item_Count (Men : Menu) return Natural;
pragma Inline (Item_Count);
@@ -649,15 +649,15 @@
-
- function Create (Items : Item_Array_Access) return Menu;
+
+ function Create (Items : Item_Array_Access) return Menu;
function New_Menu (Items : Item_Array_Access) return Menu renames Create;
-
- procedure Delete (Men : in out Menu);
+
+ procedure Delete (Men : in out Menu);
@@ -671,13 +671,13 @@
Unknown_Request,
No_Match);
-
- function Driver (Men : Menu;
- Key : Key_Code) return Driver_Result;
+
+ function Driver (Men : Menu;
+ Key : Key_Code) return Driver_Result;
-
+
private