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=391ca8ee21f7c95609e89d01bff7950d7e6ecc7d;hp=62780fbd0fcd6d4ad316f03841eaa7cfa6955787;hb=77afe78361875f531dc2bf8d73f2e781c8e76176;hpb=40cf934fff2d2790c060619e3a29bd54c20994b0
diff --git a/doc/html/ada/terminal_interface-curses-menus__ads.htm b/doc/html/ada/terminal_interface-curses-menus__ads.htm
index 62780fbd..391ca8ee 100644
--- a/doc/html/ada/terminal_interface-curses-menus__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-menus__ads.htm
@@ -12,7 +12,7 @@
-- S P E C --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998,2006 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-2007,2009 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
@@ -40,8 +40,8 @@
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- @Revision: 1.27 @
--- @Date: 2007/05/05 20:20:52 @
+-- @Revision: 1.28 @
+-- @Date: 2009/12/26 18:35:22 @
-- Binding Version 01.00
------------------------------------------------------------------------------
-- menu binding.
@@ -108,7 +108,7 @@
REQ_NEXT_MATCH : Menu_Request_Code renames M_Next_Match;
REQ_PREV_MATCH : Menu_Request_Code renames M_Previous_Match;
- procedure Request_Name (Key : in Menu_Request_Code;
+ procedure Request_Name (Key : Menu_Request_Code;
Name : out String);
function Request_Name (Key : Menu_Request_Code) return String;
@@ -214,8 +214,8 @@
-- |=====================================================================
-- #1A NAME="AFU_4"#2|
- procedure Set_Value (Itm : in Item;
- Value : in Boolean := True);
+ procedure Set_Value (Itm : Item;
+ Value : Boolean := True);
-- AKA: set_item_value()
pragma Inline (Set_Value);
@@ -238,14 +238,14 @@
-- |=====================================================================
-- #1A NAME="AFU_7"#2|
- procedure Set_Options (Itm : in Item;
- Options : in Item_Option_Set);
+ procedure Set_Options (Itm : Item;
+ Options : Item_Option_Set);
-- AKA: set_item_opts()
-- An overloaded Set_Options is defined later. Pragma Inline appears there
-- #1A NAME="AFU_8"#2|
- procedure Switch_Options (Itm : in Item;
- Options : in Item_Option_Set;
+ procedure Switch_Options (Itm : Item;
+ Options : Item_Option_Set;
On : Boolean := True);
-- AKA: item_opts_on()
-- AKA: item_opts_off()
@@ -253,7 +253,7 @@
-- Pragma Inline appears there
-- #1A NAME="AFU_9"#2|
- procedure Get_Options (Itm : in Item;
+ procedure Get_Options (Itm : Item;
Options : out Item_Option_Set);
-- AKA: item_opts()
@@ -267,7 +267,7 @@
-- |=====================================================================
-- #1A NAME="AFU_11"#2|
- procedure Name (Itm : in Item;
+ procedure Name (Itm : Item;
Name : out String);
-- AKA: item_name()
function Name (Itm : Item) return String;
@@ -276,7 +276,7 @@
pragma Inline (Name);
-- #1A NAME="AFU_12"#2|
- procedure Description (Itm : in Item;
+ procedure Description (Itm : Item;
Description : out String);
-- AKA: item_description();
@@ -290,8 +290,8 @@
-- |=====================================================================
-- #1A NAME="AFU_13"#2|
- procedure Set_Current (Men : in Menu;
- Itm : in Item);
+ procedure Set_Current (Men : Menu;
+ Itm : Item);
-- AKA: set_current_item()
pragma Inline (Set_Current);
@@ -301,8 +301,8 @@
pragma Inline (Current);
-- #1A NAME="AFU_15"#2|
- procedure Set_Top_Row (Men : in Menu;
- Line : in Line_Position);
+ procedure Set_Top_Row (Men : Menu;
+ Line : Line_Position);
-- AKA: set_top_row()
pragma Inline (Set_Top_Row);
@@ -324,8 +324,8 @@
-- |=====================================================================
-- #1A NAME="AFU_18"#2|
- procedure Post (Men : in Menu;
- Post : in Boolean := True);
+ procedure Post (Men : Menu;
+ Post : Boolean := True);
-- AKA: post_menu()
-- AKA: unpost_menu()
pragma Inline (Post);
@@ -335,22 +335,22 @@
-- |=====================================================================
-- #1A NAME="AFU_19"#2|
- procedure Set_Options (Men : in Menu;
- Options : in Menu_Option_Set);
+ procedure Set_Options (Men : Menu;
+ Options : Menu_Option_Set);
-- AKA: set_menu_opts()
pragma Inline (Set_Options);
-- #1A NAME="AFU_20"#2|
- procedure Switch_Options (Men : in Menu;
- Options : in Menu_Option_Set;
+ procedure Switch_Options (Men : Menu;
+ Options : Menu_Option_Set;
On : Boolean := True);
-- AKA: menu_opts_on()
-- AKA: menu_opts_off()
pragma Inline (Switch_Options);
-- #1A NAME="AFU_21"#2|
- procedure Get_Options (Men : in Menu;
- Options : out Menu_Option_Set);
+ procedure Get_Options (Men : Menu;
+ Options : out Menu_Option_Set);
-- AKA: menu_opts()
-- #1A NAME="AFU_22"#2|
@@ -363,8 +363,8 @@
-- |=====================================================================
-- #1A NAME="AFU_23"#2|
- procedure Set_Window (Men : in Menu;
- Win : in Window);
+ procedure Set_Window (Men : Menu;
+ Win : Window);
-- AKA: set_menu_win()
pragma Inline (Set_Window);
@@ -374,8 +374,8 @@
pragma Inline (Get_Window);
-- #1A NAME="AFU_25"#2|
- procedure Set_Sub_Window (Men : in Menu;
- Win : in Window);
+ procedure Set_Sub_Window (Men : Menu;
+ Win : Window);
-- AKA: set_menu_sub()
pragma Inline (Set_Sub_Window);
@@ -385,7 +385,7 @@
pragma Inline (Get_Sub_Window);
-- #1A NAME="AFU_27"#2|
- procedure Scale (Men : in Menu;
+ procedure Scale (Men : Menu;
Lines : out Line_Count;
Columns : out Column_Count);
-- AKA: scale_menu()
@@ -405,13 +405,13 @@
-- |=====================================================================
-- #1A NAME="AFU_29"#2|
- procedure Set_Mark (Men : in Menu;
- Mark : in String);
+ procedure Set_Mark (Men : Menu;
+ Mark : String);
-- AKA: set_menu_mark()
pragma Inline (Set_Mark);
-- #1A NAME="AFU_30"#2|
- procedure Mark (Men : in Menu;
+ procedure Mark (Men : Menu;
Mark : out String);
-- AKA: menu_mark()
@@ -426,19 +426,19 @@
-- #1A NAME="AFU_31"#2|
procedure Set_Foreground
- (Men : in Menu;
- Fore : in Character_Attribute_Set := Normal_Video;
- Color : in Color_Pair := Color_Pair'First);
+ (Men : Menu;
+ Fore : Character_Attribute_Set := Normal_Video;
+ Color : 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 : Menu;
Fore : out Character_Attribute_Set);
-- AKA: menu_fore()
-- #1A NAME="AFU_33"#2|
- procedure Foreground (Men : in Menu;
+ procedure Foreground (Men : Menu;
Fore : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA: menu_fore()
@@ -446,19 +446,19 @@
-- #1A NAME="AFU_34"#2|
procedure Set_Background
- (Men : in Menu;
- Back : in Character_Attribute_Set := Normal_Video;
- Color : in Color_Pair := Color_Pair'First);
+ (Men : Menu;
+ Back : Character_Attribute_Set := Normal_Video;
+ Color : 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 : Menu;
Back : out Character_Attribute_Set);
-- AKA: menu_back()
-- #1A NAME="AFU_36"#2|
- procedure Background (Men : in Menu;
+ procedure Background (Men : Menu;
Back : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA: menu_back()
@@ -466,33 +466,33 @@
-- #1A NAME="AFU_37"#2|
procedure Set_Grey
- (Men : in Menu;
- Grey : in Character_Attribute_Set := Normal_Video;
- Color : in Color_Pair := Color_Pair'First);
+ (Men : Menu;
+ Grey : Character_Attribute_Set := Normal_Video;
+ Color : 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 : Menu;
Grey : out Character_Attribute_Set);
-- AKA: menu_grey()
-- #1A NAME="AFU_39"#2|
procedure Grey
- (Men : in Menu;
+ (Men : Menu;
Grey : out Character_Attribute_Set;
Color : out Color_Pair);
-- AKA: menu_grey()
pragma Inline (Grey);
-- #1A NAME="AFU_40"#2|
- procedure Set_Pad_Character (Men : in Menu;
- Pad : in Character := Space);
+ procedure Set_Pad_Character (Men : Menu;
+ Pad : Character := Space);
-- AKA: set_menu_pad()
pragma Inline (Set_Pad_Character);
-- #1A NAME="AFU_41"#2|
- procedure Pad_Character (Men : in Menu;
+ procedure Pad_Character (Men : Menu;
Pad : out Character);
-- AKA: menu_pad()
pragma Inline (Pad_Character);
@@ -502,15 +502,15 @@
-- |=====================================================================
-- #1A NAME="AFU_42"#2|
- procedure Set_Spacing (Men : in Menu;
- Descr : in Column_Position := 0;
- Row : in Line_Position := 0;
- Col : in Column_Position := 0);
+ procedure Set_Spacing (Men : Menu;
+ Descr : Column_Position := 0;
+ Row : Line_Position := 0;
+ Col : Column_Position := 0);
-- AKA: set_menu_spacing()
pragma Inline (Set_Spacing);
-- #1A NAME="AFU_43"#2|
- procedure Spacing (Men : in Menu;
+ procedure Spacing (Men : Menu;
Descr : out Column_Position;
Row : out Line_Position;
Col : out Column_Position);
@@ -529,7 +529,7 @@
pragma Inline (Set_Pattern);
-- #1A NAME="AFU_45"#2|
- procedure Pattern (Men : in Menu;
+ procedure Pattern (Men : Menu;
Text : out String);
-- AKA: menu_pattern()
pragma Inline (Pattern);
@@ -539,9 +539,9 @@
-- |=====================================================================
-- #1A NAME="AFU_46"#2|
- procedure Set_Format (Men : in Menu;
- Lines : in Line_Count;
- Columns : in Column_Count);
+ procedure Set_Format (Men : Menu;
+ Lines : Line_Count;
+ Columns : Column_Count);
-- Not implemented: 0 argument for Lines or Columns;
-- instead use Format to get the current sizes
-- The default format is 16 rows, 1 column. Calling
@@ -553,7 +553,7 @@
pragma Inline (Set_Format);
-- #1A NAME="AFU_47"#2|
- procedure Format (Men : in Menu;
+ procedure Format (Men : Menu;
Lines : out Line_Count;
Columns : out Column_Count);
-- AKA: menu_format()
@@ -563,30 +563,30 @@
-- | Man page menu_hook.3x
-- |=====================================================================
- type Menu_Hook_Function is access procedure (Men : in Menu);
+ type Menu_Hook_Function is access procedure (Men : Menu);
pragma Convention (C, Menu_Hook_Function);
-- #1A NAME="AFU_48"#2|
- procedure Set_Item_Init_Hook (Men : in Menu;
- Proc : in Menu_Hook_Function);
+ procedure Set_Item_Init_Hook (Men : Menu;
+ Proc : 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;
- Proc : in Menu_Hook_Function);
+ procedure Set_Item_Term_Hook (Men : Menu;
+ Proc : 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;
- Proc : in Menu_Hook_Function);
+ procedure Set_Menu_Init_Hook (Men : Menu;
+ Proc : 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;
- Proc : in Menu_Hook_Function);
+ procedure Set_Menu_Term_Hook (Men : Menu;
+ Proc : Menu_Hook_Function);
-- AKA: set_menu_term()
pragma Inline (Set_Menu_Term_Hook);
@@ -615,13 +615,13 @@
-- |=====================================================================
-- #1A NAME="AFU_56"#2|
- procedure Redefine (Men : in Menu;
- Items : in Item_Array_Access);
+ procedure Redefine (Men : Menu;
+ Items : 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 : Menu;
+ Items : Item_Array_Access) renames Redefine;
-- pragma Inline (Set_Items);
-- #1A NAME="AFU_57"#2|