Ada95/html/ada/terminal_interface-curses-menus__ads.htm

   1 <HEAD><TITLE>terminal_interface-curses-menus.ads</TITLE></HEAD>
   2 <BODY>
   3 <HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus.ads </H1></DIV><HR>
   4 <PRE>
   5
   6 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
   7 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
   8 <FONT COLOR=green><EM>--                           <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding                           --</EM></FONT>
   9 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
  10 <FONT COLOR=green><EM>--                      Terminal_Interface.Curses.Menu                      --</EM></FONT>
  11 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
  12 <FONT COLOR=green><EM>--                                 S P E C                                  --</EM></FONT>
  13 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
  14 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
  15 <FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc.                        --</EM></FONT>
  16 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
  17 <FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a  --</EM></FONT>
  18 <FONT COLOR=green><EM>-- copy of this software and associated documentation files (the            --</EM></FONT>
  19 <FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including      --</EM></FONT>
  20 <FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish,      --</EM></FONT>
  21 <FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell       --</EM></FONT>
  22 <FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is    --</EM></FONT>
  23 <FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions:                 --</EM></FONT>
  24 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
  25 <FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included  --</EM></FONT>
  26 <FONT COLOR=green><EM>-- in all copies or substantial portions of the Software.                   --</EM></FONT>
  27 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
  28 <FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  --</EM></FONT>
  29 <FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               --</EM></FONT>
  30 <FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   --</EM></FONT>
  31 <FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   --</EM></FONT>
  32 <FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    --</EM></FONT>
  33 <FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    --</EM></FONT>
  34 <FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               --</EM></FONT>
  35 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
  36 <FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright   --</EM></FONT>
  37 <FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the     --</EM></FONT>
  38 <FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written       --</EM></FONT>
  39 <FONT COLOR=green><EM>-- authorization.                                                           --</EM></FONT>
  40 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
  41 <FONT COLOR=green><EM>--  <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">J&uuml;rgen Pfeifer</A> (<A HREF="mailto:juergen.pfeifer@gmx.net">juergen.pfeifer@gmx.net</A>) 1996                          --</EM></FONT>
  42 <FONT COLOR=green><EM>--  Version Control:</EM></FONT>
  43 <FONT COLOR=green><EM>--  @Revision: 1.19 @</EM></FONT>
  44 <FONT COLOR=green><EM>--  Binding Version 00.93</EM></FONT>
  45 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
  46 <FONT COLOR=green><EM>--  menu binding.</EM></FONT>
  47 <FONT COLOR=green><EM>--  This module is generated. Please don't change it manually!</EM></FONT>
  48 <FONT COLOR=green><EM>--  Run the generator instead.</EM></FONT>
  49 <FONT COLOR=green><EM>--  |</EM></FONT>
  50 <b>with</b> <A HREF="interfac__ads.htm>3_9">System</A>;
  51 <b>with</b> <A HREF="ada__ads.htm<8_9">Interfaces</A>.C;
  52 <b>with</b> Ada.Characters.Latin_1;
  53
  54 <b>package</b> Terminal_Interface.Curses.Menus <b>is</b>
  55    <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Menus);
  56    <b>pragma</b> Linker_Options ("-lmenu");
  57    <b>pragma</b> Linker_Options ("-lAdaCurses");
  58    <b>pragma</b> Linker_Options ("-lncurses");
  59
  60    Space : Character <b>renames</b> Ada.Characters.Latin_1.Space;
  61
  62    <b>type</b> <FONT COLOR=red><A NAME="58_9">Item</A></FONT> <b>is</b> <b>private</b>;
  63    <b>type</b> Menu <b>is</b> <b>private</b>;
  64
  65   <FONT COLOR=green><EM>---------------------------</EM></FONT>
  66   <FONT COLOR=green><EM>--  Interface constants  --</EM></FONT>
  67   <FONT COLOR=green><EM>---------------------------</EM></FONT>
  68    <FONT COLOR=red><A NAME="64_4">Null_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#58_9">Item</A>;
  69    Null_Menu : <b>constant</b> Menu;
  70
  71    <b>subtype</b> Menu_Request_Code <b>is</b> Key_Code
  72      <b>range</b> (Key_Max + 1) .. (Key_Max + 17);
  73
  74   <FONT COLOR=green><EM>--  The prefix M_ stands for "Menu Request"</EM></FONT>
  75    M_Left_Item       : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 1;
  76    M_Right_Item      : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 2;
  77    M_Up_Item         : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 3;
  78    M_Down_Item       : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 4;
  79    M_ScrollUp_Line   : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 5;
  80    M_ScrollDown_Line : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 6;
  81    M_ScrollDown_Page : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 7;
  82    M_ScrollUp_Page   : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 8;
  83    M_First_Item      : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 9;
  84    M_Last_Item       : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 10;
  85    M_Next_Item       : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 11;
  86    M_Previous_Item   : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 12;
  87    M_Toggle_Item     : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 13;
  88    M_Clear_Pattern   : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 14;
  89    M_Back_Pattern    : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 15;
  90    M_Next_Match      : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 16;
  91    M_Previous_Match  : <b>constant</b> Menu_Request_Code := Key_Max + 17;
  92
  93   <FONT COLOR=green><EM>--  For those who like the old 'C' names for the request codes</EM></FONT>
  94    REQ_LEFT_ITEM     : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Left_Item;
  95    REQ_RIGHT_ITEM    : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Right_Item;
  96    REQ_UP_ITEM       : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Up_Item;
  97    REQ_DOWN_ITEM     : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Down_Item;
  98    REQ_SCR_ULINE     : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_ScrollUp_Line;
  99    REQ_SCR_DLINE     : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_ScrollDown_Line;
 100    REQ_SCR_DPAGE     : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_ScrollDown_Page;
 101    REQ_SCR_UPAGE     : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_ScrollUp_Page;
 102    REQ_FIRST_ITEM    : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_First_Item;
 103    REQ_LAST_ITEM     : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Last_Item;
 104    REQ_NEXT_ITEM     : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Next_Item;
 105    REQ_PREV_ITEM     : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Previous_Item;
 106    REQ_TOGGLE_ITEM   : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Toggle_Item;
 107    REQ_CLEAR_PATTERN : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Clear_Pattern;
 108    REQ_BACK_PATTERN  : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Back_Pattern;
 109    REQ_NEXT_MATCH    : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Next_Match;
 110    REQ_PREV_MATCH    : Menu_Request_Code <b>renames</b> M_Previous_Match;
 111
 112    <b>procedure</b> Request_Name (Key  : <b>in</b> Menu_Request_Code;
 113                            Name : <b>out</b> String);
 114
 115    <b>function</b>  Request_Name (Key : Menu_Request_Code) <b>return</b> String;
 116   <FONT COLOR=green><EM>--  Same as function</EM></FONT>
 117
 118   <FONT COLOR=green><EM>------------------</EM></FONT>
 119   <FONT COLOR=green><EM>--  Exceptions  --</EM></FONT>
 120   <FONT COLOR=green><EM>------------------</EM></FONT>
 121
 122    Menu_Exception : <b>exception</b>;
 123   <FONT COLOR=green><EM>--</EM></FONT>
 124   <FONT COLOR=green><EM>--  Menu options</EM></FONT>
 125   <FONT COLOR=green><EM>--</EM></FONT>
 126    <b>pragma</b> Warnings (Off);
 127    <b>type</b> Menu_Option_Set <b>is</b>
 128       <b>record</b>
 129          One_Valued        : Boolean;
 130          Show_Descriptions : Boolean;
 131          Row_Major_Order   : Boolean;
 132          Ignore_Case       : Boolean;
 133          Show_Matches      : Boolean;
 134          Non_Cyclic        : Boolean;
 135       <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm<22_9">;</A>
 136    <b>pragma</b> Pack (Menu_Option_Set);
 137    <b>pragma</b> Convention (C, Menu_Option_Set);
 138
 139    <b>for</b> Menu_Option_Set <b>use</b>
 140       <b>record</b>
 141          One_Valued        <b>at</b> 0 <b>range</b>  0 ..  0;
 142          Show_Descriptions <b>at</b> 0 <b>range</b>  1 ..  1;
 143          Row_Major_Order   <b>at</b> 0 <b>range</b>  2 ..  2;
 144          Ignore_Case       <b>at</b> 0 <b>range</b>  3 ..  3;
 145          Show_Matches      <b>at</b> 0 <b>range</b>  4 ..  4;
 146          Non_Cyclic        <b>at</b> 0 <b>range</b>  5 ..  5;
 147       <b>end</b> <b>record</b>;
 148    <b>for</b> Menu_Option_Set'Size <b>use</b> 32;
 149   <FONT COLOR=green><EM>--  Please note: this rep. clause is generated and may be</EM></FONT>
 150   <FONT COLOR=green><EM>--               different on your system.</EM></FONT>
 151    <b>pragma</b> Warnings (On);
 152
 153    <b>function</b> Default_Menu_Options <b>return</b> Menu_Option_Set;
 154   <FONT COLOR=green><EM>--  Initial default options for a menu.</EM></FONT>
 155    <b>pragma</b> Inline (Default_Menu_Options);
 156   <FONT COLOR=green><EM>--</EM></FONT>
 157   <FONT COLOR=green><EM>--  Item options</EM></FONT>
 158   <FONT COLOR=green><EM>--</EM></FONT>
 159    <b>pragma</b> Warnings (Off);
 160    <b>type</b> Item_Option_Set <b>is</b>
 161       <b>record</b>
 162          Selectable  : Boolean;
 163       <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm<55_9">;</A>
 164    <b>pragma</b> Pack (Item_Option_Set);
 165    <b>pragma</b> Convention (C, Item_Option_Set);
 166
 167    <b>for</b> Item_Option_Set <b>use</b>
 168       <b>record</b>
 169          Selectable  <b>at</b> 0 <b>range</b>  0 ..  0;
 170       <b>end</b> <b>record</b>;
 171    <b>for</b> Item_Option_Set'Size <b>use</b> 32;
 172   <FONT COLOR=green><EM>--  Please note: this rep. clause is generated and may be</EM></FONT>
 173   <FONT COLOR=green><EM>--               different on your system.</EM></FONT>
 174    <b>pragma</b> Warnings (On);
 175
 176    <b>function</b> Default_Item_Options <b>return</b> Item_Option_Set;
 177   <FONT COLOR=green><EM>--  Initial default options for an item.</EM></FONT>
 178    <b>pragma</b> Inline (Default_Item_Options);
 179
 180   <FONT COLOR=green><EM>--</EM></FONT>
 181   <FONT COLOR=green><EM>--  Item Array</EM></FONT>
 182   <FONT COLOR=green><EM>--</EM></FONT>
 183    <b>type</b> Item_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <b>aliased</b> Item;
 184    <b>pragma</b> Convention (C, Item_Array);
 185
 186    <b>type</b> Item_Array_Access <b>is</b> <b>access</b> Item_Array;
 187
 188    <b>procedure</b> Free (IA         : <b>in</b> <b>out</b> Item_Array_Access;
 189                    Free_Items : Boolean := False);
 190   <FONT COLOR=green><EM>--  Release the memory for an allocated item array</EM></FONT>
 191   <FONT COLOR=green><EM>--  If Free_Items is True, call Delete() for all the items in</EM></FONT>
 192   <FONT COLOR=green><EM>--  the array.</EM></FONT>
 193
 194   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 195   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></EM></FONT>
 196   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 197
 198   <FONT COLOR=green><EM>--  <A NAME="AFU_1">|</EM></FONT>
 199    <b>function</b> Create (Name        : String;
 200                     Description : String := "") <b>return</b> Item;
 201   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT>
 202   <FONT COLOR=green><EM>--  Not inlined.</EM></FONT>
 203
 204   <FONT COLOR=green><EM>--  <A NAME="AFU_2">|</EM></FONT>
 205    <b>function</b> New_Item (Name        : String;
 206              <A HREF="terminal_interface-curses-menus__ads.htm<94_13"> </A>        Description : String := "") <b>return</b> Item
 207      <b>renames</b> Create;
 208   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT>
 209
 210   <FONT COLOR=green><EM>--  <A NAME="AFU_3">|</EM></FONT>
 211    <b>procedure</b> Delete (Itm : <b>in</b> <b>out</b> Item);
 212   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_new.3x.html">free_item()</A></EM></FONT>
 213   <FONT COLOR=green><EM>--  Resets Itm to Null_Item</EM></FONT>
 214
 215   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 216   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/mitem_value.3x.html">mitem_value.3x</A></EM></FONT>
 217   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 218
 219   <FONT COLOR=green><EM>--  <A NAME="AFU_4">|</EM></FONT>
 220    <b>procedure</b> Set_Value (Itm   : <b>in</b> Item;
 221                         Value : <b>in</b> Boolean := True);
 222   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_value.3x.html">set_item_value()</A></EM></FONT>
 223    <b>pragma</b> Inline (Set_Value);
 224
 225   <FONT COLOR=green><EM>--  <A NAME="AFU_5">|</EM></FONT>
 226    <b>function</b> Value (Itm : Item) <b>return</b> Boolean;
 227   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_value.3x.html">item_value()</A></EM></FONT>
 228    <b>pragma</b> Inline (Value);
 229
 230   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 231   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/mitem_visible.3x.html">mitem_visible.3x</A></EM></FONT>
 232   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 233
 234   <FONT COLOR=green><EM>--  <A NAME="AFU_6">|</EM></FONT>
 235    <b>function</b> Visible (Itm : Item) <b>return</b> Boolean;
 236   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_visible.3x.html">item_visible()</A></EM></FONT>
 237    <b>pragma</b> Inline (Visible);
 238
 239   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 240   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></EM></FONT>
 241   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 242
 243   <FONT COLOR=green><EM>--  <A NAME="AFU_7">|</EM></FONT>
 244    <b>procedure</b> Set_Options (Itm     : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<55_9">Item</A>;
 245                           Options : <b>in</b> Item_Option_Set);
 246   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_opts.3x.html">set_item_opts()</A></EM></FONT>
 247   <FONT COLOR=green><EM>--  An overloaded Set_Options is defined later. Pragma Inline appears there</EM></FONT>
 248
 249   <FONT COLOR=green><EM>--  <A NAME="AFU_8">|</EM></FONT>
 250    <b>procedure</b> Switch_Options (Itm     : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<55_9">Item</A>;
 251                              Options : <b>in</b> Item_Option_Set;
 252                              On      : Boolean := True);
 253   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_opts.3x.html">item_opts_on()</A></EM></FONT>
 254   <FONT COLOR=green><EM>--  AKA: item_opts_off()</EM></FONT>
 255   <FONT COLOR=green><EM>--  An overloaded Switch_Options is defined later.</EM></FONT>
 256   <FONT COLOR=green><EM>--  Pragma Inline appears there</EM></FONT>
 257
 258   <FONT COLOR=green><EM>--  <A NAME="AFU_9">|</EM></FONT>
 259    <b>procedure</b> Get_Options (Itm     : <b>in</b>  <A HREF="terminal_interface-curses-menus__ads.htm<55_9">Item</A>;
 260                           Options : <b>out</b> Item_Option_Set);
 261   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT>
 262
 263   <FONT COLOR=green><EM>--  <A NAME="AFU_10">|</EM></FONT>
 264    <b>function</b> Get_Options (Itm : Item := Null_Item) <b>return</b> Item_Option_Set;
 265   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT>
 266   <FONT COLOR=green><EM>--  An overloaded Get_Options is defined later. Pragma Inline appears there</EM></FONT>
 267
 268   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 269   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/mitem_name.3x.html">mitem_name.3x</A></EM></FONT>
 270   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 271
 272   <FONT COLOR=green><EM>--  <A NAME="AFU_11">|</EM></FONT>
 273    <b>procedure</b> Name (Itm  : <b>in</b> Item;
 274                    Name : <b>out</b> String);
 275   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT>
 276    <b>function</b>  Name (Itm : Item) <b>return</b> String;
 277   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT>
 278   <FONT COLOR=green><EM>--  Implemented as function</EM></FONT>
 279    <b>pragma</b> Inline (Name);
 280
 281   <FONT COLOR=green><EM>--  <A NAME="AFU_12">|</EM></FONT>
 282    <b>procedure</b> Description (Itm         : <b>in</b> Item;
 283                           Description : <b>out</b> String);
 284   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT>
 285
 286    <b>function</b>  Description (Itm : Item) <b>return</b> String;
 287   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT>
 288   <FONT COLOR=green><EM>--  Implemented as function</EM></FONT>
 289    <b>pragma</b> Inline (Description);
 290
 291   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 292   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></EM></FONT>
 293   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 294
 295   <FONT COLOR=green><EM>--  <A NAME="AFU_13">|</EM></FONT>
 296    <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="292_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>;
 297                           Itm : <b>in</b> Item);
 298   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_current.3x.html">set_current_item()</A></EM></FONT>
 299    <b>pragma</b> Inline (Set_Current);
 300
 301   <FONT COLOR=green><EM>--  <A NAME="AFU_14">|</EM></FONT>
 302    <b>function</b> Current (Men : Menu) <b>return</b> Item;
 303   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_current.3x.html">current_item()</A></EM></FONT>
 304    <b>pragma</b> Inline (Current);
 305
 306   <FONT COLOR=green><EM>--  <A NAME="AFU_15">|</EM></FONT>
 307    <b>procedure</b> Set_Top_Row (Men  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Menu</A>;
 308                           Line : <b>in</b> Line_Position);
 309   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_current.3x.html">set_top_row()</A></EM></FONT>
 310    <b>pragma</b> Inline (Set_Top_Row);
 311
 312   <FONT COLOR=green><EM>--  <A NAME="AFU_16">|</EM></FONT>
 313    <b>function</b> Top_Row (Men : Menu) <b>return</b> Line_Position;
 314   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_current.3x.html">top_row()</A></EM></FONT>
 315    <b>pragma</b> Inline (Top_Row);
 316
 317   <FONT COLOR=green><EM>--  <A NAME="AFU_17">|</EM></FONT>
 318    <b>function</b> Get_Index (Itm : Item) <b>return</b> Positive;
 319   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/mitem_current.3x.html">item_index()</A></EM></FONT>
 320   <FONT COLOR=green><EM>--  Please note that in this binding we start the numbering of items</EM></FONT>
 321   <FONT COLOR=green><EM>--  with 1. So this is number is one more than you get from the low</EM></FONT>
 322   <FONT COLOR=green><EM>--  level call.</EM></FONT>
 323    <b>pragma</b> Inline (Get_Index);
 324
 325   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 326   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_post.3x.html">menu_post.3x</A></EM></FONT>
 327   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 328
 329   <FONT COLOR=green><EM>--  <A NAME="AFU_18">|</EM></FONT>
 330    <b>procedure</b> Post (Men  : <b>in</b> Menu;
 331                    Post : <b>in</b> Boolean := True);
 332   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_post.3x.html">post_menu()</A></EM></FONT>
 333   <FONT COLOR=green><EM>--  AKA: unpost_menu()</EM></FONT>
 334    <b>pragma</b> Inline (Post);
 335
 336   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 337   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></EM></FONT>
 338   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 339
 340   <FONT COLOR=green><EM>--  <A NAME="AFU_19">|</EM></FONT>
 341    <b>procedure</b> Set_Options (Men     : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<22_9">Menu</A>;
 342                           Options : <b>in</b> Menu_Option_Set);
 343   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_opts.3x.html">set_menu_opts()</A></EM></FONT>
 344    <b>pragma</b> Inline (Set_Options);
 345
 346   <FONT COLOR=green><EM>--  <A NAME="AFU_20">|</EM></FONT>
 347    <b>procedure</b> Switch_Options (Men     : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<22_9">Menu</A>;
 348                              Options : <b>in</b> Menu_Option_Set;
 349                              On      : Boolean := True);
 350   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_opts.3x.html">menu_opts_on()</A></EM></FONT>
 351   <FONT COLOR=green><EM>--  AKA: menu_opts_off()</EM></FONT>
 352    <b>pragma</b> Inline (Switch_Options);
 353
 354   <FONT COLOR=green><EM>--  <A NAME="AFU_21">|</EM></FONT>
 355    <b>procedure</b> Get_Options (Men     : <b>in</b>  <A HREF="terminal_interface-curses-menus__ads.htm<22_9">Menu</A>;
 356                           Options : <b>out</b> Menu_Option_Set);
 357   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT>
 358
 359   <FONT COLOR=green><EM>--  <A NAME="AFU_22">|</EM></FONT>
 360    <b>function</b> Get_Options (Men : Menu := Null_Menu) <b>return</b> Menu_Option_Set;
 361   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT>
 362    <b>pragma</b> Inline (Get_Options);
 363
 364   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 365   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_win.3x.html">menu_win.3x</A></EM></FONT>
 366   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 367
 368   <FONT COLOR=green><EM>--  <A NAME="AFU_23">|</EM></FONT>
 369    <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="365_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Menu</A>;
 370                          Win : <b>in</b> Window);
 371   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_win.3x.html">set_menu_win()</A></EM></FONT>
 372    <b>pragma</b> Inline (Set_Window);
 373
 374   <FONT COLOR=green><EM>--  <A NAME="AFU_24">|</EM></FONT>
 375    <b>function</b> Get_Window (Men : Menu) <b>return</b> Window;
 376   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_win.3x.html">menu_win()</A></EM></FONT>
 377    <b>pragma</b> Inline (Get_Window);
 378
 379   <FONT COLOR=green><EM>--  <A NAME="AFU_25">|</EM></FONT>
 380    <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="376_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Menu</A>;
 381                              Win : <b>in</b> Window);
 382   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_win.3x.html">set_menu_sub()</A></EM></FONT>
 383    <b>pragma</b> Inline (Set_Sub_Window);
 384
 385   <FONT COLOR=green><EM>--  <A NAME="AFU_26">|</EM></FONT>
 386    <b>function</b> Get_Sub_Window (Men : Menu) <b>return</b> Window;
 387   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_win.3x.html">menu_sub()</A></EM></FONT>
 388    <b>pragma</b> Inline (Get_Sub_Window);
 389
 390   <FONT COLOR=green><EM>--  <A NAME="AFU_27">|</EM></FONT>
 391    <b>procedure</b> Scale (Men     : <b>in</b> Menu;
 392                     Lines   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
 393                     Columns : <b>out</b> Column_Count);
 394   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_win.3x.html">scale_menu()</A></EM></FONT>
 395    <b>pragma</b> Inline (Scale);
 396
 397   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 398   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_cursor.3x.html">menu_cursor.3x</A></EM></FONT>
 399   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 400
 401   <FONT COLOR=green><EM>--  <A NAME="AFU_28">|</EM></FONT>
 402    <b>procedure</b> Position_Cursor (Men : Menu);
 403   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_cursor.3x.html">pos_menu_cursor()</A></EM></FONT>
 404    <b>pragma</b> Inline (Position_Cursor);
 405
 406   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 407   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_mark.3x.html">menu_mark.3x</A></EM></FONT>
 408   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 409
 410   <FONT COLOR=green><EM>--  <A NAME="AFU_29">|</EM></FONT>
 411    <b>procedure</b> Set_Mark (Men  : <b>in</b> Menu;
 412                        Mark : <b>in</b> String);
 413   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_mark.3x.html">set_menu_mark()</A></EM></FONT>
 414    <b>pragma</b> Inline (Set_Mark);
 415
 416   <FONT COLOR=green><EM>--  <A NAME="AFU_30">|</EM></FONT>
 417    <b>procedure</b> Mark (Men  : <b>in</b>  Menu;
 418                    Mark : <b>out</b> String);
 419   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT>
 420
 421    <b>function</b>  Mark (Men : Menu) <b>return</b> String;
 422   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT>
 423   <FONT COLOR=green><EM>--  Implemented as function</EM></FONT>
 424    <b>pragma</b> Inline (Mark);
 425
 426   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 427   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></EM></FONT>
 428   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 429
 430   <FONT COLOR=green><EM>--  <A NAME="AFU_31">|</EM></FONT>
 431    <b>procedure</b> Set_Foreground
 432      (Men   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
 433       Fore  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
 434       Color : <b>in</b> Color_Pair := Color_Pair'First);
 435   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_fore()</A></EM></FONT>
 436    <b>pragma</b> Inline (Set_Foreground);
 437
 438   <FONT COLOR=green><EM>--  <A NAME="AFU_32">|</EM></FONT>
 439    <b>procedure</b> Foreground (Men   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
 440                          Fore  : <b>out</b> Character_Attribute_Set);
 441   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT>
 442
 443   <FONT COLOR=green><EM>--  <A NAME="AFU_33">|</EM></FONT>
 444    <b>procedure</b> Foreground (Men   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
 445                          Fore  : <b>out</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A>;
 446                          Color : <b>out</b> Color_Pair);
 447   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT>
 448    <b>pragma</b> Inline (Foreground);
 449
 450   <FONT COLOR=green><EM>--  <A NAME="AFU_34">|</EM></FONT>
 451    <b>procedure</b> Set_Background
 452      (Men   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
 453       Back  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
 454       Color : <b>in</b> Color_Pair := Color_Pair'First);
 455   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_back()</A></EM></FONT>
 456    <b>pragma</b> Inline (Set_Background);
 457
 458   <FONT COLOR=green><EM>--  <A NAME="AFU_35">|</EM></FONT>
 459    <b>procedure</b> Background (Men  : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
 460                          Back : <b>out</b> Character_Attribute_Set);
 461   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT>
 462   <FONT COLOR=green><EM>--  <A NAME="AFU_36">|</EM></FONT>
 463
 464    <b>procedure</b> Background (Men   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
 465                          Back  : <b>out</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A>;
 466                          Color : <b>out</b> Color_Pair);
 467   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT>
 468    <b>pragma</b> Inline (Background);
 469
 470   <FONT COLOR=green><EM>--  <A NAME="AFU_37">|</EM></FONT>
 471    <b>procedure</b> Set_Grey
 472      (Men   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
 473       Grey  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
 474       Color : <b>in</b> Color_Pair := Color_Pair'First);
 475   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_grey()</A></EM></FONT>
 476    <b>pragma</b> Inline (Set_Grey);
 477
 478   <FONT COLOR=green><EM>--  <A NAME="AFU_38">|</EM></FONT>
 479    <b>procedure</b> Grey (Men  : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
 480                    Grey : <b>out</b> Character_Attribute_Set);
 481   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT>
 482
 483   <FONT COLOR=green><EM>--  <A NAME="AFU_39">|</EM></FONT>
 484    <b>procedure</b> Grey
 485      (Men   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
 486       Grey  : <b>out</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A>;
 487       Color : <b>out</b> Color_Pair);
 488   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT>
 489    <b>pragma</b> Inline (Grey);
 490
 491   <FONT COLOR=green><EM>--  <A NAME="AFU_40">|</EM></FONT>
 492    <b>procedure</b> Set_Pad_Character (Men : <b>in</b> Menu;
 493                                 Pad : <b>in</b> Character := Space);
 494   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_pad()</A></EM></FONT>
 495    <b>pragma</b> Inline (Set_Pad_Character);
 496
 497   <FONT COLOR=green><EM>--  <A NAME="AFU_41">|</EM></FONT>
 498    <b>procedure</b> Pad_Character (Men : <b>in</b>  Menu;
 499                             Pad : <b>out</b> Character);
 500   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_attribs.3x.html">menu_pad()</A></EM></FONT>
 501    <b>pragma</b> Inline (Pad_Character);
 502
 503   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 504   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A></EM></FONT>
 505   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 506
 507   <FONT COLOR=green><EM>--  <A NAME="AFU_42">|</EM></FONT>
 508    <b>procedure</b> Set_Spacing (Men   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Menu</A>;
 509                           Descr : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> := 0;
 510                           Row   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>   := 0;
 511                           Col   : <b>in</b> Column_Position := 0);
 512   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_spacing.3x.html">set_menu_spacing()</A></EM></FONT>
 513    <b>pragma</b> Inline (Set_Spacing);
 514
 515   <FONT COLOR=green><EM>--  <A NAME="AFU_43">|</EM></FONT>
 516    <b>procedure</b> Spacing (Men   : <b>in</b> Menu;
 517                       Descr : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>;
 518                       Row   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
 519                       Col   : <b>out</b> Column_Position);
 520   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_spacing.3x.html">menu_spacing()</A></EM></FONT>
 521    <b>pragma</b> Inline (Spacing);
 522
 523   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 524   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A></EM></FONT>
 525   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 526
 527   <FONT COLOR=green><EM>--  <A NAME="AFU_44">|</EM></FONT>
 528    <b>function</b> Set_Pattern (Men  : Menu;
 529                          Text : String) <b>return</b> Boolean;
 530   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_pattern.3x.html">set_menu_pattern()</A></EM></FONT>
 531   <FONT COLOR=green><EM>--  Return TRUE if the pattern matches, FALSE otherwise</EM></FONT>
 532    <b>pragma</b> Inline (Set_Pattern);
 533
 534   <FONT COLOR=green><EM>--  <A NAME="AFU_45">|</EM></FONT>
 535    <b>procedure</b> Pattern (Men  : <b>in</b>  Menu;
 536                       Text : <b>out</b> String);
 537   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_pattern.3x.html">menu_pattern()</A></EM></FONT>
 538    <b>pragma</b> Inline (Pattern);
 539
 540   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 541   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_format.3x.html">menu_format.3x</A></EM></FONT>
 542   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 543
 544   <FONT COLOR=green><EM>--  <A NAME="AFU_46">|</EM></FONT>
 545    <b>procedure</b> Set_Format (Men     : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Menu</A>;
 546                          Lines   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
 547                          Columns : <b>in</b> Column_Count);
 548   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_format.3x.html">set_menu_format()</A></EM></FONT>
 549    <b>pragma</b> Inline (Set_Format);
 550
 551   <FONT COLOR=green><EM>--  <A NAME="AFU_47">|</EM></FONT>
 552    <b>procedure</b> Format (Men     : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#63_12">Menu</A>;
 553                      Lines   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
 554                      Columns : <b>out</b> Column_Count);
 555   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_format.3x.html">menu_format()</A></EM></FONT>
 556    <b>pragma</b> Inline (Format);
 557
 558   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 559   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></EM></FONT>
 560   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 561
 562    <b>type</b> Menu_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Men : <b>in</b> Menu);
 563    <b>pragma</b> Convention (C, Menu_Hook_Function);
 564
 565   <FONT COLOR=green><EM>--  <A NAME="AFU_48">|</EM></FONT>
 566    <b>procedure</b> Set_Item_Init_Hook (Men  : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#557_9">Menu</A>;
 567                                  Proc : <b>in</b> Menu_Hook_Function);
 568   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">set_item_init()</A></EM></FONT>
 569    <b>pragma</b> Inline (Set_Item_Init_Hook);
 570
 571   <FONT COLOR=green><EM>--  <A NAME="AFU_49">|</EM></FONT>
 572    <b>procedure</b> Set_Item_Term_Hook (Men  : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#557_9">Menu</A>;
 573                                  Proc : <b>in</b> Menu_Hook_Function);
 574   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">set_item_term()</A></EM></FONT>
 575    <b>pragma</b> Inline (Set_Item_Term_Hook);
 576
 577   <FONT COLOR=green><EM>--  <A NAME="AFU_50">|</EM></FONT>
 578    <b>procedure</b> Set_Menu_Init_Hook (Men  : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#557_9">Menu</A>;
 579                                  Proc : <b>in</b> Menu_Hook_Function);
 580   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">set_menu_init()</A></EM></FONT>
 581    <b>pragma</b> Inline (Set_Menu_Init_Hook);
 582
 583   <FONT COLOR=green><EM>--  <A NAME="AFU_51">|</EM></FONT>
 584    <b>procedure</b> Set_Menu_Term_Hook (Men  : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#557_9">Menu</A>;
 585                                  Proc : <b>in</b> Menu_Hook_Function);
 586   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">set_menu_term()</A></EM></FONT>
 587    <b>pragma</b> Inline (Set_Menu_Term_Hook);
 588
 589   <FONT COLOR=green><EM>--  <A NAME="AFU_52">|</EM></FONT>
 590    <b>function</b> Get_Item_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
 591   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">item_init()</A></EM></FONT>
 592    <b>pragma</b> Inline (Get_Item_Init_Hook);
 593
 594   <FONT COLOR=green><EM>--  <A NAME="AFU_53">|</EM></FONT>
 595    <b>function</b> Get_Item_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
 596   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">item_term()</A></EM></FONT>
 597    <b>pragma</b> Inline (Get_Item_Term_Hook);
 598
 599   <FONT COLOR=green><EM>--  <A NAME="AFU_54">|</EM></FONT>
 600    <b>function</b> Get_Menu_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
 601   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">menu_init()</A></EM></FONT>
 602    <b>pragma</b> Inline (Get_Menu_Init_Hook);
 603
 604   <FONT COLOR=green><EM>--  <A NAME="AFU_55">|</EM></FONT>
 605    <b>function</b> Get_Menu_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
 606   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_hook.3x.html">menu_term()</A></EM></FONT>
 607    <b>pragma</b> Inline (Get_Menu_Term_Hook);
 608
 609   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 610   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_items.3x.html">menu_items.3x</A></EM></FONT>
 611   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 612
 613   <FONT COLOR=green><EM>--  <A NAME="AFU_56">|</EM></FONT>
 614    <b>procedure</b> Redefine (Men   : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<81_9">Menu</A>;
 615                        Items : <b>in</b> Item_Array_Access);
 616   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_items.3x.html">set_menu_items()</A></EM></FONT>
 617    <b>pragma</b> Inline (Redefine);
 618
 619    <b>procedure</b> Set_Items (Men   : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<81_9">Menu</A>;
 620                   <A HREF="terminal_interface-curses-menus__ads.htm#614_14"> </A>     Items : <b>in</b> Item_Array_Access) <b>renames</b> Redefine;
 621    <b>pragma</b> Inline (Set_Items);
 622
 623   <FONT COLOR=green><EM>--  <A NAME="AFU_57">|</EM></FONT>
 624    <b>function</b> Items (Men   : Menu;
 625                    Index : Positive) <b>return</b> Item;
 626   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_items.3x.html">menu_items()</A></EM></FONT>
 627    <b>pragma</b> Inline (Items);
 628
 629   <FONT COLOR=green><EM>--  <A NAME="AFU_58">|</EM></FONT>
 630    <b>function</b> Item_Count (Men : Menu) <b>return</b> Natural;
 631   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_items.3x.html">item_count()</A></EM></FONT>
 632    <b>pragma</b> Inline (Item_Count);
 633
 634   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 635   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_new.3x.html">menu_new.3x</A></EM></FONT>
 636   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 637
 638   <FONT COLOR=green><EM>--  <A NAME="AFU_59">|</EM></FONT>
 639    <b>function</b> Create (Items : Item_Array_Access) <b>return</b> Menu;
 640   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_new.3x.html">new_menu()</A></EM></FONT>
 641   <FONT COLOR=green><EM>--  Not inlined</EM></FONT>
 642
 643    <b>function</b> New_Menu (Items : Item_Array_Access) <b>return</b> Menu <b>renames</b> Create;
 644
 645   <FONT COLOR=green><EM>--  <A NAME="AFU_60">|</EM></FONT>
 646    <b>procedure</b> Delete (Men : <b>in</b> <b>out</b> Menu);
 647   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_new.3x.html">free_menu()</A></EM></FONT>
 648   <FONT COLOR=green><EM>--  Reset Men to Null_Menu</EM></FONT>
 649   <FONT COLOR=green><EM>--  Not inlined</EM></FONT>
 650
 651   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 652   <FONT COLOR=green><EM>--  | Man page <A HREF="../man/menu_new.3x.html">menu_new.3x</A></EM></FONT>
 653   <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 654
 655    <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="651_27">Menu_Ok</A></FONT>,
 656                           <FONT COLOR=red><A NAME="652_27">Request_Denied</A></FONT>,
 657                           <FONT COLOR=red><A NAME="653_27">Unknown_Request</A></FONT>,
 658                           No_Match);
 659
 660   <FONT COLOR=green><EM>--  <A NAME="AFU_61">|</EM></FONT>
 661    <b>function</b> Driver (Men : <A HREF="terminal_interface-curses__ads.htm#68_9">Menu</A>;
 662                     Key : Key_Code) <b>return</b> Driver_Result;
 663   <FONT COLOR=green><EM>--  AKA: <A HREF="../man/menu_new.3x.html">menu_driver()</A></EM></FONT>
 664   <FONT COLOR=green><EM>--  Driver is not inlined</EM></FONT>
 665
 666 <FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT>
 667 <b>private</b>
 668    <b>type</b> <A HREF="terminal_interface-curses-menus__ads.htm#58_9">Item</A>   <b>is</b> <b>new</b> <A HREF="system__ads.htm>3_9">System</A>.<A HREF="s-stoele__ads.htm>2_16">Storage_Elements</A>.<A HREF="s-stoele__ads.htm#70_9">Integer_Address</A>;
 669    <b>type</b> Menu   <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
 670
 671    <A HREF="terminal_interface-curses-menus__ads.htm#64_4">Null_Item</A> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#58_9">Item</A> := 0;
 672    Null_Menu : <b>constant</b> Menu := 0;
 673
 674 <b>end</b> Terminal_Interface.Curses.Menus;
 675 </PRE></BODY></HTML>