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

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