contrib/ncurses/doc/html/ada/terminal_interface-curses-forms__ads.htm

   1 <HTML><HEAD><TITLE>terminal_interface-curses-forms.ads</TITLE></HEAD>
   2 <BODY>
   3 <HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms.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.Form                      --</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:  Juergen Pfeifer, 1996</EM></FONT>
  42 <FONT COLOR=green><EM>--  Version Control:</EM></FONT>
  43 <FONT COLOR=green><EM>--  @Revision: 1.27 @</EM></FONT>
  44 <FONT COLOR=green><EM>--  Binding Version 01.00</EM></FONT>
  45 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
  46 <FONT COLOR=green><EM>--  form 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> System;
  51 <b>with</b> Ada.Characters.Latin_1;
  52
  53 <b>package</b> Terminal_Interface.Curses.Forms <b>is</b>
  54    <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms);
  55    <b>pragma</b> Linker_Options ("-lform");
  56    <b>pragma</b> Linker_Options ("-lncurses");
  57
  58    Space : Character <b>renames</b> Ada.Characters.Latin_1.Space;
  59
  60    <b>type</b> <FONT COLOR=red><A NAME="56_9">Field</A></FONT>        <b>is</b> <b>private</b>;
  61    <b>type</b> Form         <b>is</b> <b>private</b>;
  62
  63    <FONT COLOR=red><A NAME="59_4">Null_Field</A></FONT>        : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>;
  64    Null_Form         : <b>constant</b> Form;
  65
  66    <b>type</b> Field_Justification <b>is</b> (<FONT COLOR=red><A NAME="62_33">None</A></FONT>,
  67                                 <FONT COLOR=red><A NAME="63_33">Left</A></FONT>,
  68                                 <FONT COLOR=red><A NAME="64_33">Center</A></FONT>,
  69                                 Right);
  70
  71    <b>pragma</b> Warnings (Off);
  72    <b>type</b> Field_Option_Set <b>is</b>
  73       <b>record</b>
  74          <FONT COLOR=red><A NAME="70_10">Visible</A></FONT>     : Boolean;
  75          <FONT COLOR=red><A NAME="71_10">Active</A></FONT>      : Boolean;
  76          <FONT COLOR=red><A NAME="72_10">Public</A></FONT>      : Boolean;
  77          <FONT COLOR=red><A NAME="73_10">Edit</A></FONT>        : Boolean;
  78          <FONT COLOR=red><A NAME="74_10">Wrap</A></FONT>        : Boolean;
  79          <FONT COLOR=red><A NAME="75_10">Blank</A></FONT>       : Boolean;
  80          <FONT COLOR=red><A NAME="76_10">Auto_Skip</A></FONT>   : Boolean;
  81          <FONT COLOR=red><A NAME="77_10">Null_Ok</A></FONT>     : Boolean;
  82          <FONT COLOR=red><A NAME="78_10">Pass_Ok</A></FONT>     : Boolean;
  83          Static <A HREF="terminal_interface-curses-forms__ads.htm#67_9"> </A>    : Boolean;
  84       <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm#67_9">;</A>
  85    <b>pragma</b> Pack (Field_Option_Set);
  86    <b>pragma</b> Convention (C, Field_Option_Set);
  87
  88    <b>for</b> Field_Option_Set <b>use</b>
  89       <b>record</b>
  90          Visible     <b>at</b> 0 <b>range</b>  0 ..  0;
  91          Active      <b>at</b> 0 <b>range</b>  1 ..  1;
  92          Public      <b>at</b> 0 <b>range</b>  2 ..  2;
  93          Edit        <b>at</b> 0 <b>range</b>  3 ..  3;
  94          Wrap        <b>at</b> 0 <b>range</b>  4 ..  4;
  95          Blank       <b>at</b> 0 <b>range</b>  5 ..  5;
  96          Auto_Skip   <b>at</b> 0 <b>range</b>  6 ..  6;
  97          Null_Ok     <b>at</b> 0 <b>range</b>  7 ..  7;
  98          Pass_Ok     <b>at</b> 0 <b>range</b>  8 ..  8;
  99          Static      <b>at</b> 0 <b>range</b>  9 ..  9;
 100       <b>end</b> <b>record</b>;
 101    <b>for</b> Field_Option_Set'Size <b>use</b> 32;
 102    <FONT COLOR=green><EM>--  Please note: this rep. clause is generated and may be</EM></FONT>
 103    <FONT COLOR=green><EM>--               different on your system.Dnl</EM></FONT>
 104
 105    <b>pragma</b> Warnings (On);
 106
 107    <b>function</b> Default_Field_Options <b>return</b> Field_Option_Set;
 108    <FONT COLOR=green><EM>--  The initial defaults for the field options.</EM></FONT>
 109    <b>pragma</b> Inline (Default_Field_Options);
 110
 111    <b>pragma</b> Warnings (Off);
 112    <b>type</b> Form_Option_Set <b>is</b>
 113       <b>record</b>
 114          <FONT COLOR=red><A NAME="110_10">NL_Overload</A></FONT> : Boolean;
 115          BS_Overload : Boolean;
 116       <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm#107_9">;</A>
 117    <b>pragma</b> Pack (Form_Option_Set);
 118    <b>pragma</b> Convention (C, Form_Option_Set);
 119
 120    <b>for</b> Form_Option_Set <b>use</b>
 121       <b>record</b>
 122          NL_Overload <b>at</b> 0 <b>range</b>  0 ..  0;
 123          BS_Overload <b>at</b> 0 <b>range</b>  1 ..  1;
 124       <b>end</b> <b>record</b>;
 125    <b>for</b> Form_Option_Set'Size <b>use</b> 32;
 126    <FONT COLOR=green><EM>--  Please note: this rep. clause is generated and may be</EM></FONT>
 127    <FONT COLOR=green><EM>--               different on your system.Dnl</EM></FONT>
 128
 129    <b>pragma</b> Warnings (On);
 130
 131    <b>function</b> Default_Form_Options <b>return</b> Form_Option_Set;
 132    <FONT COLOR=green><EM>--  The initial defaults for the form options.</EM></FONT>
 133    <b>pragma</b> Inline (Default_Form_Options);
 134
 135    <b>type</b> Buffer_Number <b>is</b> <b>new</b> Natural;
 136
 137    <b>type</b> Field_Array <b>is</b> <b>array</b> (Positive <b>range</b> &lt;&gt;) <b>of</b> <b>aliased</b> Field;
 138    <b>pragma</b> Convention (C, Field_Array);
 139
 140    <b>type</b> Field_Array_Access <b>is</b> <b>access</b> Field_Array;
 141
 142    <b>procedure</b> Free (<FONT COLOR=red><A NAME="138_20">FA</A></FONT>          : <b>in</b> <b>out</b> Field_Array_Access;
 143                    Free_Fields : <b>in</b> Boolean := False);
 144    <FONT COLOR=green><EM>--  Release the memory for an allocated field array</EM></FONT>
 145    <FONT COLOR=green><EM>--  If Free_Fields is True, call Delete() for all the fields in</EM></FONT>
 146    <FONT COLOR=green><EM>--  the array.</EM></FONT>
 147
 148    <b>subtype</b> Form_Request_Code <b>is</b> Key_Code <b>range</b> (Key_Max + 1) .. (Key_Max + 57);
 149
 150    <FONT COLOR=green><EM>--  The prefix F_ stands for "Form Request"</EM></FONT>
 151    <FONT COLOR=red><A NAME="147_4">F_Next_Page</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 1;
 152    <FONT COLOR=red><A NAME="148_4">F_Previous_Page</A></FONT>            : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 2;
 153    <FONT COLOR=red><A NAME="149_4">F_First_Page</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 3;
 154    F_Last_Page                : <b>constant</b> Form_Request_Code := Key_Max + 4;
 155
 156    <FONT COLOR=red><A NAME="152_4">F_Next_Field</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 5;
 157    <FONT COLOR=red><A NAME="153_4">F_Previous_Field</A></FONT>           : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 6;
 158    <FONT COLOR=red><A NAME="154_4">F_First_Field</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 7;
 159    <FONT COLOR=red><A NAME="155_4">F_Last_Field</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 8;
 160    <FONT COLOR=red><A NAME="156_4">F_Sorted_Next_Field</A></FONT>        : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 9;
 161    <FONT COLOR=red><A NAME="157_4">F_Sorted_Previous_Field</A></FONT>    : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 10;
 162    <FONT COLOR=red><A NAME="158_4">F_Sorted_First_Field</A></FONT>       : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 11;
 163    <FONT COLOR=red><A NAME="159_4">F_Sorted_Last_Field</A></FONT>        : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 12;
 164    <FONT COLOR=red><A NAME="160_4">F_Left_Field</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 13;
 165    <FONT COLOR=red><A NAME="161_4">F_Right_Field</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 14;
 166    <FONT COLOR=red><A NAME="162_4">F_Up_Field</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 15;
 167    F_Down_Field               : <b>constant</b> Form_Request_Code := Key_Max + 16;
 168
 169    <FONT COLOR=red><A NAME="165_4">F_Next_Char</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 17;
 170    <FONT COLOR=red><A NAME="166_4">F_Previous_Char</A></FONT>            : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 18;
 171    <FONT COLOR=red><A NAME="167_4">F_Next_Line</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 19;
 172    <FONT COLOR=red><A NAME="168_4">F_Previous_Line</A></FONT>            : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 20;
 173    <FONT COLOR=red><A NAME="169_4">F_Next_Word</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 21;
 174    <FONT COLOR=red><A NAME="170_4">F_Previous_Word</A></FONT>            : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 22;
 175    <FONT COLOR=red><A NAME="171_4">F_Begin_Field</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 23;
 176    <FONT COLOR=red><A NAME="172_4">F_End_Field</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 24;
 177    <FONT COLOR=red><A NAME="173_4">F_Begin_Line</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 25;
 178    <FONT COLOR=red><A NAME="174_4">F_End_Line</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 26;
 179    <FONT COLOR=red><A NAME="175_4">F_Left_Char</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 27;
 180    <FONT COLOR=red><A NAME="176_4">F_Right_Char</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 28;
 181    <FONT COLOR=red><A NAME="177_4">F_Up_Char</A></FONT>                  : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 29;
 182    F_Down_Char                : <b>constant</b> Form_Request_Code := Key_Max + 30;
 183
 184    <FONT COLOR=red><A NAME="180_4">F_New_Line</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 31;
 185    <FONT COLOR=red><A NAME="181_4">F_Insert_Char</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 32;
 186    <FONT COLOR=red><A NAME="182_4">F_Insert_Line</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 33;
 187    <FONT COLOR=red><A NAME="183_4">F_Delete_Char</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 34;
 188    <FONT COLOR=red><A NAME="184_4">F_Delete_Previous</A></FONT>          : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 35;
 189    <FONT COLOR=red><A NAME="185_4">F_Delete_Line</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 36;
 190    <FONT COLOR=red><A NAME="186_4">F_Delete_Word</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 37;
 191    <FONT COLOR=red><A NAME="187_4">F_Clear_EOL</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 38;
 192    <FONT COLOR=red><A NAME="188_4">F_Clear_EOF</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 39;
 193    <FONT COLOR=red><A NAME="189_4">F_Clear_Field</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 40;
 194    <FONT COLOR=red><A NAME="190_4">F_Overlay_Mode</A></FONT>             : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 41;
 195    F_Insert_Mode              : <b>constant</b> Form_Request_Code := Key_Max + 42;
 196
 197    <FONT COLOR=green><EM>--  Vertical Scrolling</EM></FONT>
 198    <FONT COLOR=red><A NAME="194_4">F_ScrollForward_Line</A></FONT>       : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 43;
 199    <FONT COLOR=red><A NAME="195_4">F_ScrollBackward_Line</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 44;
 200    <FONT COLOR=red><A NAME="196_4">F_ScrollForward_Page</A></FONT>       : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 45;
 201    <FONT COLOR=red><A NAME="197_4">F_ScrollBackward_Page</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 46;
 202    <FONT COLOR=red><A NAME="198_4">F_ScrollForward_HalfPage</A></FONT>   : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 47;
 203    F_ScrollBackward_HalfPage  : <b>constant</b> Form_Request_Code := Key_Max + 48;
 204
 205    <FONT COLOR=green><EM>--  Horizontal Scrolling</EM></FONT>
 206    <FONT COLOR=red><A NAME="202_4">F_HScrollForward_Char</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 49;
 207    <FONT COLOR=red><A NAME="203_4">F_HScrollBackward_Char</A></FONT>     : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 50;
 208    <FONT COLOR=red><A NAME="204_4">F_HScrollForward_Line</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 51;
 209    <FONT COLOR=red><A NAME="205_4">F_HScrollBackward_Line</A></FONT>     : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 52;
 210    <FONT COLOR=red><A NAME="206_4">F_HScrollForward_HalfLine</A></FONT>  : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 53;
 211    F_HScrollBackward_HalfLine : <b>constant</b> Form_Request_Code := Key_Max + 54;
 212
 213    <FONT COLOR=red><A NAME="209_4">F_Validate_Field</A></FONT>           : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 55;
 214    <FONT COLOR=red><A NAME="210_4">F_Next_Choice</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 56;
 215    F_Previous_Choice          : <b>constant</b> Form_Request_Code := Key_Max + 57;
 216
 217    <FONT COLOR=green><EM>--  For those who like the old 'C' style request names</EM></FONT>
 218    <FONT COLOR=red><A NAME="214_4">REQ_NEXT_PAGE</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#147_4">F_Next_Page</A>;
 219    <FONT COLOR=red><A NAME="215_4">REQ_PREV_PAGE</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#148_4">F_Previous_Page</A>;
 220    <FONT COLOR=red><A NAME="216_4">REQ_FIRST_PAGE</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#149_4">F_First_Page</A>;
 221    REQ_LAST_PAGE    : Form_Request_Code <b>renames</b> F_Last_Page;
 222
 223    <FONT COLOR=red><A NAME="219_4">REQ_NEXT_FIELD</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#152_4">F_Next_Field</A>;
 224    <FONT COLOR=red><A NAME="220_4">REQ_PREV_FIELD</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#153_4">F_Previous_Field</A>;
 225    <FONT COLOR=red><A NAME="221_4">REQ_FIRST_FIELD</A></FONT>  : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#154_4">F_First_Field</A>;
 226    <FONT COLOR=red><A NAME="222_4">REQ_LAST_FIELD</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#155_4">F_Last_Field</A>;
 227    <FONT COLOR=red><A NAME="223_4">REQ_SNEXT_FIELD</A></FONT>  : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#156_4">F_Sorted_Next_Field</A>;
 228    <FONT COLOR=red><A NAME="224_4">REQ_SPREV_FIELD</A></FONT>  : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#157_4">F_Sorted_Previous_Field</A>;
 229    <FONT COLOR=red><A NAME="225_4">REQ_SFIRST_FIELD</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#158_4">F_Sorted_First_Field</A>;
 230    <FONT COLOR=red><A NAME="226_4">REQ_SLAST_FIELD</A></FONT>  : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#159_4">F_Sorted_Last_Field</A>;
 231    <FONT COLOR=red><A NAME="227_4">REQ_LEFT_FIELD</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#160_4">F_Left_Field</A>;
 232    <FONT COLOR=red><A NAME="228_4">REQ_RIGHT_FIELD</A></FONT>  : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#161_4">F_Right_Field</A>;
 233    <FONT COLOR=red><A NAME="229_4">REQ_UP_FIELD</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#162_4">F_Up_Field</A>;
 234    REQ_DOWN_FIELD   : Form_Request_Code <b>renames</b> F_Down_Field;
 235
 236    <FONT COLOR=red><A NAME="232_4">REQ_NEXT_CHAR</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#165_4">F_Next_Char</A>;
 237    <FONT COLOR=red><A NAME="233_4">REQ_PREV_CHAR</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#166_4">F_Previous_Char</A>;
 238    <FONT COLOR=red><A NAME="234_4">REQ_NEXT_LINE</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#167_4">F_Next_Line</A>;
 239    <FONT COLOR=red><A NAME="235_4">REQ_PREV_LINE</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#168_4">F_Previous_Line</A>;
 240    <FONT COLOR=red><A NAME="236_4">REQ_NEXT_WORD</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#169_4">F_Next_Word</A>;
 241    <FONT COLOR=red><A NAME="237_4">REQ_PREV_WORD</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#170_4">F_Previous_Word</A>;
 242    <FONT COLOR=red><A NAME="238_4">REQ_BEG_FIELD</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#171_4">F_Begin_Field</A>;
 243    <FONT COLOR=red><A NAME="239_4">REQ_END_FIELD</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#172_4">F_End_Field</A>;
 244    <FONT COLOR=red><A NAME="240_4">REQ_BEG_LINE</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#173_4">F_Begin_Line</A>;
 245    <FONT COLOR=red><A NAME="241_4">REQ_END_LINE</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#174_4">F_End_Line</A>;
 246    <FONT COLOR=red><A NAME="242_4">REQ_LEFT_CHAR</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#175_4">F_Left_Char</A>;
 247    <FONT COLOR=red><A NAME="243_4">REQ_RIGHT_CHAR</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#176_4">F_Right_Char</A>;
 248    <FONT COLOR=red><A NAME="244_4">REQ_UP_CHAR</A></FONT>      : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#177_4">F_Up_Char</A>;
 249    REQ_DOWN_CHAR    : Form_Request_Code <b>renames</b> F_Down_Char;
 250
 251    <FONT COLOR=red><A NAME="247_4">REQ_NEW_LINE</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#180_4">F_New_Line</A>;
 252    <FONT COLOR=red><A NAME="248_4">REQ_INS_CHAR</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#181_4">F_Insert_Char</A>;
 253    <FONT COLOR=red><A NAME="249_4">REQ_INS_LINE</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#182_4">F_Insert_Line</A>;
 254    <FONT COLOR=red><A NAME="250_4">REQ_DEL_CHAR</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#183_4">F_Delete_Char</A>;
 255    <FONT COLOR=red><A NAME="251_4">REQ_DEL_PREV</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#184_4">F_Delete_Previous</A>;
 256    <FONT COLOR=red><A NAME="252_4">REQ_DEL_LINE</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#185_4">F_Delete_Line</A>;
 257    <FONT COLOR=red><A NAME="253_4">REQ_DEL_WORD</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#186_4">F_Delete_Word</A>;
 258    <FONT COLOR=red><A NAME="254_4">REQ_CLR_EOL</A></FONT>      : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#187_4">F_Clear_EOL</A>;
 259    <FONT COLOR=red><A NAME="255_4">REQ_CLR_EOF</A></FONT>      : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#188_4">F_Clear_EOF</A>;
 260    <FONT COLOR=red><A NAME="256_4">REQ_CLR_FIELD</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#189_4">F_Clear_Field</A>;
 261    <FONT COLOR=red><A NAME="257_4">REQ_OVL_MODE</A></FONT>     : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#190_4">F_Overlay_Mode</A>;
 262    REQ_INS_MODE     : Form_Request_Code <b>renames</b> F_Insert_Mode;
 263
 264    <FONT COLOR=red><A NAME="260_4">REQ_SCR_FLINE</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#194_4">F_ScrollForward_Line</A>;
 265    <FONT COLOR=red><A NAME="261_4">REQ_SCR_BLINE</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#195_4">F_ScrollBackward_Line</A>;
 266    <FONT COLOR=red><A NAME="262_4">REQ_SCR_FPAGE</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#196_4">F_ScrollForward_Page</A>;
 267    <FONT COLOR=red><A NAME="263_4">REQ_SCR_BPAGE</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#197_4">F_ScrollBackward_Page</A>;
 268    <FONT COLOR=red><A NAME="264_4">REQ_SCR_FHPAGE</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#198_4">F_ScrollForward_HalfPage</A>;
 269    REQ_SCR_BHPAGE   : Form_Request_Code <b>renames</b> F_ScrollBackward_HalfPage;
 270
 271    <FONT COLOR=red><A NAME="267_4">REQ_SCR_FCHAR</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#202_4">F_HScrollForward_Char</A>;
 272    <FONT COLOR=red><A NAME="268_4">REQ_SCR_BCHAR</A></FONT>    : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#203_4">F_HScrollBackward_Char</A>;
 273    <FONT COLOR=red><A NAME="269_4">REQ_SCR_HFLINE</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#204_4">F_HScrollForward_Line</A>;
 274    <FONT COLOR=red><A NAME="270_4">REQ_SCR_HBLINE</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#205_4">F_HScrollBackward_Line</A>;
 275    <FONT COLOR=red><A NAME="271_4">REQ_SCR_HFHALF</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#206_4">F_HScrollForward_HalfLine</A>;
 276    REQ_SCR_HBHALF   : Form_Request_Code <b>renames</b> F_HScrollBackward_HalfLine;
 277
 278    <FONT COLOR=red><A NAME="274_4">REQ_VALIDATION</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#209_4">F_Validate_Field</A>;
 279    <FONT COLOR=red><A NAME="275_4">REQ_NEXT_CHOICE</A></FONT>  : <A HREF="terminal_interface-curses-forms__ads.htm#143_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#210_4">F_Next_Choice</A>;
 280    REQ_PREV_CHOICE  : Form_Request_Code <b>renames</b> F_Previous_Choice;
 281
 282
 283    <b>procedure</b> Request_Name (<FONT COLOR=red><A NAME="279_28">Key</A></FONT>  : <b>in</b> Form_Request_Code;
 284                            Name : <b>out</b> String);
 285
 286    <b>function</b>  Request_Name (Key : Form_Request_Code) <b>return</b> String;
 287    <FONT COLOR=green><EM>--  Same as function</EM></FONT>
 288    <b>pragma</b> Inline (Request_Name);
 289
 290    <FONT COLOR=green><EM>------------------</EM></FONT>
 291    <FONT COLOR=green><EM>--  Exceptions  --</EM></FONT>
 292    <FONT COLOR=green><EM>------------------</EM></FONT>
 293    Form_Exception : <b>exception</b>;
 294
 295    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 296    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></EM></FONT>
 297    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 298
 299    <FONT COLOR=green><EM>--  #1A NAME="AFU_1"#2|</EM></FONT>
 300    <b>function</b> Create (<FONT COLOR=red><A NAME="296_21">Height</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
 301                     <FONT COLOR=red><A NAME="297_21">Width</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>;
 302                     <FONT COLOR=red><A NAME="298_21">Top</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
 303                     <FONT COLOR=red><A NAME="299_21">Left</A></FONT>         : Column_Position;
 304                     <FONT COLOR=red><A NAME="300_21">Off_Screen</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Natural</A> := 0;
 305                     More_Buffers : Buffer_Number := Buffer_Number'First)
 306                     <b>return</b> Field;
 307    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT>
 308    <FONT COLOR=green><EM>--  An overloaded Create is defined later. Pragma Inline appears there.</EM></FONT>
 309
 310    <FONT COLOR=green><EM>--  #1A NAME="AFU_2"#2|</EM></FONT>
 311    <b>function</b> New_Field (<FONT COLOR=red><A NAME="307_24">Height</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
 312                        <FONT COLOR=red><A NAME="308_24">Width</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>;
 313                        <FONT COLOR=red><A NAME="309_24">Top</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
 314                        <FONT COLOR=red><A NAME="310_24">Left</A></FONT>         : Column_Position;
 315                        <FONT COLOR=red><A NAME="311_24">Off_Screen</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Natural</A> := 0;
 316                        More_Buffers : Buffer_Number := Buffer_Number'First)
 317                        <b>return</b> Field <b>renames</b> Create;
 318    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT>
 319    <b>pragma</b> Inline (New_Field);
 320
 321    <FONT COLOR=green><EM>--  #1A NAME="AFU_3"#2|</EM></FONT>
 322    <b>procedure</b> Delete (Fld : <b>in</b> <b>out</b> Field);
 323    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">free_field()</A></EM></FONT>
 324    <FONT COLOR=green><EM>--  Reset Fld to Null_Field</EM></FONT>
 325    <FONT COLOR=green><EM>--  An overloaded Delete is defined later. Pragma Inline appears there.</EM></FONT>
 326
 327    <FONT COLOR=green><EM>--  #1A NAME="AFU_4"#2|</EM></FONT>
 328    <b>function</b> Duplicate (<FONT COLOR=red><A NAME="324_24">Fld</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#59_9">Field</A>;
 329                        <FONT COLOR=red><A NAME="325_24">Top</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
 330                        Left : Column_Position) <b>return</b> Field;
 331    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">dup_field()</A></EM></FONT>
 332    <b>pragma</b> Inline (Duplicate);
 333
 334    <FONT COLOR=green><EM>--  #1A NAME="AFU_5"#2|</EM></FONT>
 335    <b>function</b> Link (<FONT COLOR=red><A NAME="331_19">Fld</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#59_9">Field</A>;
 336                   <FONT COLOR=red><A NAME="332_19">Top</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
 337                   Left : Column_Position) <b>return</b> Field;
 338    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">link_field()</A></EM></FONT>
 339    <b>pragma</b> Inline (Link);
 340
 341    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 342    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></EM></FONT>
 343    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 344
 345    <FONT COLOR=green><EM>--  #1A NAME="AFU_6"#2|</EM></FONT>
 346    <b>procedure</b> Set_Justification (<FONT COLOR=red><A NAME="342_33">Fld</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#61_9">Field</A>;
 347                                 Just : <b>in</b> Field_Justification := None);
 348    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_just.3x.html">set_field_just()</A></EM></FONT>
 349    <b>pragma</b> Inline (Set_Justification);
 350
 351    <FONT COLOR=green><EM>--  #1A NAME="AFU_7"#2|</EM></FONT>
 352    <b>function</b> Get_Justification (Fld : Field) <b>return</b> Field_Justification;
 353    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_just.3x.html">field_just()</A></EM></FONT>
 354    <b>pragma</b> Inline (Get_Justification);
 355
 356    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 357    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></EM></FONT>
 358    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 359
 360    <FONT COLOR=green><EM>--  #1A NAME="AFU_8"#2|</EM></FONT>
 361    <b>procedure</b> Set_Buffer
 362      (<FONT COLOR=red><A NAME="358_7">Fld</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Field</A>;
 363       <FONT COLOR=red><A NAME="359_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First;
 364       Str    : <b>in</b> String);
 365    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_buffer()</A></EM></FONT>
 366    <FONT COLOR=green><EM>--  Not inlined</EM></FONT>
 367
 368    <FONT COLOR=green><EM>--  #1A NAME="AFU_9"#2|</EM></FONT>
 369    <b>procedure</b> Get_Buffer
 370      (<FONT COLOR=red><A NAME="366_7">Fld</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Field</A>;
 371       <FONT COLOR=red><A NAME="367_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First;
 372       Str    : <b>out</b> String);
 373    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT>
 374
 375    <b>function</b> Get_Buffer
 376      (<FONT COLOR=red><A NAME="372_7">Fld</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Field</A>;
 377       Buffer : <b>in</b> Buffer_Number := Buffer_Number'First) <b>return</b> String;
 378    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT>
 379    <FONT COLOR=green><EM>--  Same but as function</EM></FONT>
 380    <b>pragma</b> Inline (Get_Buffer);
 381
 382    <FONT COLOR=green><EM>--  #1A NAME="AFU_10"#2|</EM></FONT>
 383    <b>procedure</b> Set_Status (<FONT COLOR=red><A NAME="379_26">Fld</A></FONT>    : <b>in</b> Field;
 384                          Status : <b>in</b> Boolean := True);
 385    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_status()</A></EM></FONT>
 386    <b>pragma</b> Inline (Set_Status);
 387
 388    <FONT COLOR=green><EM>--  #1A NAME="AFU_11"#2|</EM></FONT>
 389    <b>function</b> Changed (Fld : Field) <b>return</b> Boolean;
 390    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">field_status()</A></EM></FONT>
 391    <b>pragma</b> Inline (Changed);
 392
 393    <FONT COLOR=green><EM>--  #1A NAME="AFU_12"#2|</EM></FONT>
 394    <b>procedure</b> Set_Maximum_Size (<FONT COLOR=red><A NAME="390_32">Fld</A></FONT> : <b>in</b> Field;
 395                                Max : <b>in</b> Natural := 0);
 396    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_max()</A></EM></FONT>
 397    <b>pragma</b> Inline (Set_Maximum_Size);
 398
 399    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 400    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></EM></FONT>
 401    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 402
 403    <FONT COLOR=green><EM>--  #1A NAME="AFU_13"#2|</EM></FONT>
 404    <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="400_27">Fld</A></FONT>     : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field</A>;
 405                           Options : <b>in</b> Field_Option_Set);
 406    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_opts.3x.html">set_field_opts()</A></EM></FONT>
 407    <FONT COLOR=green><EM>--  An overloaded version is defined later. Pragma Inline appears there</EM></FONT>
 408
 409    <FONT COLOR=green><EM>--  #1A NAME="AFU_14"#2|</EM></FONT>
 410    <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="406_30">Fld</A></FONT>     : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field</A>;
 411                              <FONT COLOR=red><A NAME="407_30">Options</A></FONT> : <b>in</b> Field_Option_Set;
 412                              On      : Boolean := True);
 413    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_opts.3x.html">field_opts_on()</A></EM></FONT>
 414    <FONT COLOR=green><EM>--  AKA: field_opts_off()</EM></FONT>
 415    <FONT COLOR=green><EM>--  An overloaded version is defined later. Pragma Inline appears there</EM></FONT>
 416
 417    <FONT COLOR=green><EM>--  #1A NAME="AFU_15"#2|</EM></FONT>
 418    <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="414_27">Fld</A></FONT>     : <b>in</b>  <A HREF="terminal_interface-curses-forms__ads.htm#67_9">Field</A>;
 419                           Options : <b>out</b> Field_Option_Set);
 420    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT>
 421
 422    <FONT COLOR=green><EM>--  #1A NAME="AFU_16"#2|</EM></FONT>
 423    <b>function</b> Get_Options (Fld : Field := Null_Field)
 424                          <b>return</b> Field_Option_Set;
 425    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT>
 426    <FONT COLOR=green><EM>--  An overloaded version is defined later. Pragma Inline appears there</EM></FONT>
 427
 428    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 429    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></EM></FONT>
 430    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 431
 432    <FONT COLOR=green><EM>--  #1A NAME="AFU_17"#2|</EM></FONT>
 433    <b>procedure</b> Set_Foreground
 434      (<FONT COLOR=red><A NAME="430_7">Fld</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
 435       <FONT COLOR=red><A NAME="431_7">Fore</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A> := Normal_Video;
 436       Color : <b>in</b> Color_Pair := Color_Pair'First);
 437    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_fore()</A></EM></FONT>
 438    <b>pragma</b> Inline (Set_Foreground);
 439
 440    <FONT COLOR=green><EM>--  #1A NAME="AFU_18"#2|</EM></FONT>
 441    <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="437_26">Fld</A></FONT>  : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
 442                          Fore : <b>out</b> Character_Attribute_Set);
 443    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT>
 444
 445    <FONT COLOR=green><EM>--  #1A NAME="AFU_19"#2|</EM></FONT>
 446    <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="442_26">Fld</A></FONT>   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
 447                          <FONT COLOR=red><A NAME="443_26">Fore</A></FONT>  : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A>;
 448                          Color : <b>out</b> Color_Pair);
 449    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT>
 450    <b>pragma</b> Inline (Foreground);
 451
 452    <FONT COLOR=green><EM>--  #1A NAME="AFU_20"#2|</EM></FONT>
 453    <b>procedure</b> Set_Background
 454      (<FONT COLOR=red><A NAME="450_7">Fld</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
 455       <FONT COLOR=red><A NAME="451_7">Back</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A> := Normal_Video;
 456       Color : <b>in</b> Color_Pair := Color_Pair'First);
 457    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_back()</A></EM></FONT>
 458    <b>pragma</b> Inline (Set_Background);
 459
 460    <FONT COLOR=green><EM>--  #1A NAME="AFU_21"#2|</EM></FONT>
 461    <b>procedure</b> Background (<FONT COLOR=red><A NAME="457_26">Fld</A></FONT>  : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
 462                          Back : <b>out</b> Character_Attribute_Set);
 463    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT>
 464
 465    <FONT COLOR=green><EM>--  #1A NAME="AFU_22"#2|</EM></FONT>
 466    <b>procedure</b> Background (<FONT COLOR=red><A NAME="462_26">Fld</A></FONT>   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
 467                          <FONT COLOR=red><A NAME="463_26">Back</A></FONT>  : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A>;
 468                          Color : <b>out</b> Color_Pair);
 469    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT>
 470    <b>pragma</b> Inline (Background);
 471
 472    <FONT COLOR=green><EM>--  #1A NAME="AFU_23"#2|</EM></FONT>
 473    <b>procedure</b> Set_Pad_Character (<FONT COLOR=red><A NAME="469_33">Fld</A></FONT> : <b>in</b> Field;
 474                                 Pad : <b>in</b> Character := Space);
 475    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_pad()</A></EM></FONT>
 476    <b>pragma</b> Inline (Set_Pad_Character);
 477
 478    <FONT COLOR=green><EM>--  #1A NAME="AFU_24"#2|</EM></FONT>
 479    <b>procedure</b> Pad_Character (<FONT COLOR=red><A NAME="475_29">Fld</A></FONT> : <b>in</b>  Field;
 480                             Pad : <b>out</b> Character);
 481    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_pad()</A></EM></FONT>
 482    <b>pragma</b> Inline (Pad_Character);
 483
 484    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 485    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></EM></FONT>
 486    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 487
 488    <FONT COLOR=green><EM>--  #1A NAME="AFU_25"#2|</EM></FONT>
 489    <b>procedure</b> Info (<FONT COLOR=red><A NAME="485_20">Fld</A></FONT>                : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#62_12">Field</A>;
 490                    <FONT COLOR=red><A NAME="486_20">Lines</A></FONT>              : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
 491                    <FONT COLOR=red><A NAME="487_20">Columns</A></FONT>            : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>;
 492                    <FONT COLOR=red><A NAME="488_20">First_Row</A></FONT>          : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
 493                    <FONT COLOR=red><A NAME="489_20">First_Column</A></FONT>       : <b>out</b> Column_Position;
 494                    <FONT COLOR=red><A NAME="490_20">Off_Screen</A></FONT>         : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#130_9">Natural</A>;
 495                    Additional_Buffers : <b>out</b> Buffer_Number);
 496    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_info.3x.html">field_info()</A></EM></FONT>
 497    <b>pragma</b> Inline (Info);
 498
 499    <FONT COLOR=green><EM>--  #1A NAME="AFU_26"#2|</EM></FONT>
 500    <b>procedure</b> Dynamic_Info (<FONT COLOR=red><A NAME="496_28">Fld</A></FONT>     : <b>in</b> Field;
 501                            <FONT COLOR=red><A NAME="497_28">Lines</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
 502                            <FONT COLOR=red><A NAME="498_28">Columns</A></FONT> : <b>out</b> Column_Count;
 503                            Max     : <b>out</b> Natural);
 504    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_info.3x.html">dynamic_field_info()</A></EM></FONT>
 505    <b>pragma</b> Inline (Dynamic_Info);
 506
 507    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 508    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_win.3x.html">form_win.3x</A></EM></FONT>
 509    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 510
 511    <FONT COLOR=green><EM>--  #1A NAME="AFU_27"#2|</EM></FONT>
 512    <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="508_26">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Form</A>;
 513                          Win : <b>in</b> Window);
 514    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">set_form_win()</A></EM></FONT>
 515    <b>pragma</b> Inline (Set_Window);
 516
 517    <FONT COLOR=green><EM>--  #1A NAME="AFU_28"#2|</EM></FONT>
 518    <b>function</b> Get_Window (Frm : Form) <b>return</b> Window;
 519    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">form_win()</A></EM></FONT>
 520    <b>pragma</b> Inline (Get_Window);
 521
 522    <FONT COLOR=green><EM>--  #1A NAME="AFU_29"#2|</EM></FONT>
 523    <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="519_30">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Form</A>;
 524                              Win : <b>in</b> Window);
 525    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">set_form_sub()</A></EM></FONT>
 526    <b>pragma</b> Inline (Set_Sub_Window);
 527
 528    <FONT COLOR=green><EM>--  #1A NAME="AFU_30"#2|</EM></FONT>
 529    <b>function</b> Get_Sub_Window (Frm : Form) <b>return</b> Window;
 530    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">form_sub()</A></EM></FONT>
 531    <b>pragma</b> Inline (Get_Sub_Window);
 532
 533    <FONT COLOR=green><EM>--  #1A NAME="AFU_31"#2|</EM></FONT>
 534    <b>procedure</b> Scale (<FONT COLOR=red><A NAME="530_21">Frm</A></FONT>     : <b>in</b> Form;
 535                     <FONT COLOR=red><A NAME="531_21">Lines</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
 536                     Columns : <b>out</b> Column_Count);
 537    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">scale_form()</A></EM></FONT>
 538    <b>pragma</b> Inline (Scale);
 539
 540    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 541    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_hook.3x.html">form_hook.3x</A></EM></FONT>
 542    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 543
 544    <b>type</b> Form_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Frm : <b>in</b> Form);
 545    <b>pragma</b> Convention (C, Form_Hook_Function);
 546
 547    <FONT COLOR=green><EM>--  #1A NAME="AFU_32"#2|</EM></FONT>
 548    <b>procedure</b> Set_Field_Init_Hook (<FONT COLOR=red><A NAME="544_35">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form</A>;
 549                                   Proc : <b>in</b> Form_Hook_Function);
 550    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">set_field_init()</A></EM></FONT>
 551    <b>pragma</b> Inline (Set_Field_Init_Hook);
 552
 553    <FONT COLOR=green><EM>--  #1A NAME="AFU_33"#2|</EM></FONT>
 554    <b>procedure</b> Set_Field_Term_Hook (<FONT COLOR=red><A NAME="550_35">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form</A>;
 555                                   Proc : <b>in</b> Form_Hook_Function);
 556    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">set_field_term()</A></EM></FONT>
 557    <b>pragma</b> Inline (Set_Field_Term_Hook);
 558
 559    <FONT COLOR=green><EM>--  #1A NAME="AFU_34"#2|</EM></FONT>
 560    <b>procedure</b> Set_Form_Init_Hook (<FONT COLOR=red><A NAME="556_34">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form</A>;
 561                                  Proc : <b>in</b> Form_Hook_Function);
 562    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">set_form_init()</A></EM></FONT>
 563    <b>pragma</b> Inline (Set_Form_Init_Hook);
 564
 565    <FONT COLOR=green><EM>--  #1A NAME="AFU_35"#2|</EM></FONT>
 566    <b>procedure</b> Set_Form_Term_Hook (<FONT COLOR=red><A NAME="562_34">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#539_9">Form</A>;
 567                                  Proc : <b>in</b> Form_Hook_Function);
 568    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">set_form_term()</A></EM></FONT>
 569    <b>pragma</b> Inline (Set_Form_Term_Hook);
 570
 571    <FONT COLOR=green><EM>--  #1A NAME="AFU_36"#2|</EM></FONT>
 572    <b>function</b> Get_Field_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
 573    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">field_init()</A></EM></FONT>
 574    <b>pragma</b> Import (C, Get_Field_Init_Hook, "field_init");
 575
 576    <FONT COLOR=green><EM>--  #1A NAME="AFU_37"#2|</EM></FONT>
 577    <b>function</b> Get_Field_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
 578    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">field_term()</A></EM></FONT>
 579    <b>pragma</b> Import (C, Get_Field_Term_Hook, "field_term");
 580
 581    <FONT COLOR=green><EM>--  #1A NAME="AFU_38"#2|</EM></FONT>
 582    <b>function</b> Get_Form_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
 583    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">form_init()</A></EM></FONT>
 584    <b>pragma</b> Import (C, Get_Form_Init_Hook, "form_init");
 585
 586    <FONT COLOR=green><EM>--  #1A NAME="AFU_39"#2|</EM></FONT>
 587    <b>function</b> Get_Form_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
 588    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">form_term()</A></EM></FONT>
 589    <b>pragma</b> Import (C, Get_Form_Term_Hook, "form_term");
 590
 591    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 592    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field.3x.html">form_field.3x</A></EM></FONT>
 593    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 594
 595    <FONT COLOR=green><EM>--  #1A NAME="AFU_40"#2|</EM></FONT>
 596    <b>procedure</b> Redefine (<FONT COLOR=red><A NAME="592_24">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#135_9">Form</A>;
 597                        Flds : <b>in</b> Field_Array_Access);
 598    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT>
 599    <b>pragma</b> Inline (Redefine);
 600
 601    <FONT COLOR=green><EM>--  #1A NAME="AFU_41"#2|</EM></FONT>
 602    <b>procedure</b> Set_Fields (<FONT COLOR=red><A NAME="598_26">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#135_9">Form</A>;
 603                          Flds : <b>in</b> Field_Array_Access) <b>renames</b> Redefine;
 604    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT>
 605    <b>pragma</b> Inline (Set_Fields);
 606
 607    <FONT COLOR=green><EM>--  #1A NAME="AFU_42"#2|</EM></FONT>
 608    <b>function</b> Fields (<FONT COLOR=red><A NAME="604_21">Frm</A></FONT>   : Form;
 609                     Index : Positive) <b>return</b> Field;
 610    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">form_fields()</A></EM></FONT>
 611    <b>pragma</b> Inline (Fields);
 612
 613    <FONT COLOR=green><EM>--  #1A NAME="AFU_43"#2|</EM></FONT>
 614    <b>function</b> Field_Count (Frm : Form) <b>return</b> Natural;
 615    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">field_count()</A></EM></FONT>
 616    <b>pragma</b> Inline (Field_Count);
 617
 618    <FONT COLOR=green><EM>--  #1A NAME="AFU_44"#2|</EM></FONT>
 619    <b>procedure</b> Move (<FONT COLOR=red><A NAME="615_20">Fld</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Field</A>;
 620                    <FONT COLOR=red><A NAME="616_20">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
 621                    Column : <b>in</b> Column_Position);
 622    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">move_field()</A></EM></FONT>
 623    <b>pragma</b> Inline (Move);
 624
 625    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 626    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_new.3x.html">form_new.3x</A></EM></FONT>
 627    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 628
 629    <FONT COLOR=green><EM>--  #1A NAME="AFU_45"#2|</EM></FONT>
 630    <b>function</b> Create (Fields : Field_Array_Access) <b>return</b> Form;
 631    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT>
 632    <b>pragma</b> Inline (Create);
 633
 634    <FONT COLOR=green><EM>--  #1A NAME="AFU_46"#2|</EM></FONT>
 635    <b>function</b> New_Form (Fields : Field_Array_Access) <b>return</b> Form
 636      <b>renames</b> Create;
 637    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT>
 638    <b>pragma</b> Inline (New_Form);
 639
 640    <FONT COLOR=green><EM>--  #1A NAME="AFU_47"#2|</EM></FONT>
 641    <b>procedure</b> Delete (Frm : <b>in</b> <b>out</b> Form);
 642    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new.3x.html">free_form()</A></EM></FONT>
 643    <FONT COLOR=green><EM>--  Reset Frm to Null_Form</EM></FONT>
 644    <b>pragma</b> Inline (Delete);
 645
 646    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 647    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_opts.3x.html">form_opts.3x</A></EM></FONT>
 648    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 649
 650    <FONT COLOR=green><EM>--  #1A NAME="AFU_48"#2|</EM></FONT>
 651    <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="647_27">Frm</A></FONT>     : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form</A>;
 652                           Options : <b>in</b> Form_Option_Set);
 653    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_opts.3x.html">set_form_opts()</A></EM></FONT>
 654    <b>pragma</b> Inline (Set_Options);
 655
 656    <FONT COLOR=green><EM>--  #1A NAME="AFU_49"#2|</EM></FONT>
 657    <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="653_30">Frm</A></FONT>     : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form</A>;
 658                              <FONT COLOR=red><A NAME="654_30">Options</A></FONT> : <b>in</b> Form_Option_Set;
 659                              On      : Boolean := True);
 660    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_opts.3x.html">form_opts_on()</A></EM></FONT>
 661    <FONT COLOR=green><EM>--  AKA: form_opts_off()</EM></FONT>
 662    <b>pragma</b> Inline (Switch_Options);
 663
 664    <FONT COLOR=green><EM>--  #1A NAME="AFU_50"#2|</EM></FONT>
 665    <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="661_27">Frm</A></FONT>     : <b>in</b>  <A HREF="terminal_interface-curses-forms__ads.htm#107_9">Form</A>;
 666                           Options : <b>out</b> Form_Option_Set);
 667    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT>
 668
 669    <FONT COLOR=green><EM>--  #1A NAME="AFU_51"#2|</EM></FONT>
 670    <b>function</b> Get_Options (Frm : Form := Null_Form) <b>return</b> Form_Option_Set;
 671    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT>
 672    <b>pragma</b> Inline (Get_Options);
 673
 674    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 675    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_post.3x.html">form_post.3x</A></EM></FONT>
 676    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 677
 678    <FONT COLOR=green><EM>--  #1A NAME="AFU_52"#2|</EM></FONT>
 679    <b>procedure</b> Post (<FONT COLOR=red><A NAME="675_20">Frm</A></FONT>  : <b>in</b> Form;
 680                    Post : <b>in</b> Boolean := True);
 681    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_post.3x.html">post_form()</A></EM></FONT>
 682    <FONT COLOR=green><EM>--  AKA: unpost_form()</EM></FONT>
 683    <b>pragma</b> Inline (Post);
 684
 685    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 686    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_cursor.3x.html">form_cursor.3x</A></EM></FONT>
 687    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 688
 689    <FONT COLOR=green><EM>--  #1A NAME="AFU_53"#2|</EM></FONT>
 690    <b>procedure</b> Position_Cursor (Frm : Form);
 691    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_cursor.3x.html">pos_form_cursor()</A></EM></FONT>
 692    <b>pragma</b> Inline (Position_Cursor);
 693
 694    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 695    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_data.3x.html">form_data.3x</A></EM></FONT>
 696    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 697
 698    <FONT COLOR=green><EM>--  #1A NAME="AFU_54"#2|</EM></FONT>
 699    <b>function</b> Data_Ahead (Frm : Form) <b>return</b> Boolean;
 700    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_data.3x.html">data_ahead()</A></EM></FONT>
 701    <b>pragma</b> Inline (Data_Ahead);
 702
 703    <FONT COLOR=green><EM>--  #1A NAME="AFU_55"#2|</EM></FONT>
 704    <b>function</b> Data_Behind (Frm : Form) <b>return</b> Boolean;
 705    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_data.3x.html">data_behind()</A></EM></FONT>
 706    <b>pragma</b> Inline (Data_Behind);
 707
 708    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 709    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_driver.3x.html">form_driver.3x</A></EM></FONT>
 710    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 711
 712    <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="708_27">Form_Ok</A></FONT>,
 713                           <FONT COLOR=red><A NAME="709_27">Request_Denied</A></FONT>,
 714                           <FONT COLOR=red><A NAME="710_27">Unknown_Request</A></FONT>,
 715                           Invalid_Field);
 716
 717    <FONT COLOR=green><EM>--  #1A NAME="AFU_56"#2|</EM></FONT>
 718    <b>function</b> Driver (<FONT COLOR=red><A NAME="714_21">Frm</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#67_9">Form</A>;
 719                     Key : Key_Code) <b>return</b> Driver_Result;
 720    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_driver.3x.html">form_driver()</A></EM></FONT>
 721    <FONT COLOR=green><EM>--  Driver not inlined</EM></FONT>
 722
 723    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 724    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_page.3x.html">form_page.3x</A></EM></FONT>
 725    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 726
 727    <b>type</b> Page_Number <b>is</b> <b>new</b> Natural;
 728
 729    <FONT COLOR=green><EM>--  #1A NAME="AFU_57"#2|</EM></FONT>
 730    <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="726_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#55_9">Form</A>;
 731                           Fld : <b>in</b> Field);
 732    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">set_current_field()</A></EM></FONT>
 733    <b>pragma</b> Inline (Set_Current);
 734
 735    <FONT COLOR=green><EM>--  #1A NAME="AFU_58"#2|</EM></FONT>
 736    <b>function</b> Current (Frm : <b>in</b> Form) <b>return</b> Field;
 737    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">current_field()</A></EM></FONT>
 738    <b>pragma</b> Inline (Current);
 739
 740    <FONT COLOR=green><EM>--  #1A NAME="AFU_59"#2|</EM></FONT>
 741    <b>procedure</b> Set_Page (<FONT COLOR=red><A NAME="737_24">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#722_9">Form</A>;
 742                        Page : <b>in</b> Page_Number := Page_Number'First);
 743    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">set_form_page()</A></EM></FONT>
 744    <b>pragma</b> Inline (Set_Page);
 745
 746    <FONT COLOR=green><EM>--  #1A NAME="AFU_60"#2|</EM></FONT>
 747    <b>function</b> Page (Frm : Form) <b>return</b> Page_Number;
 748    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">form_page()</A></EM></FONT>
 749    <b>pragma</b> Inline (Page);
 750
 751    <FONT COLOR=green><EM>--  #1A NAME="AFU_61"#2|</EM></FONT>
 752    <b>function</b> Get_Index (Fld : Field) <b>return</b> Positive;
 753    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">field_index()</A></EM></FONT>
 754    <FONT COLOR=green><EM>--  Please note that in this binding we start the numbering of fields</EM></FONT>
 755    <FONT COLOR=green><EM>--  with 1. So this is number is one more than you get from the low</EM></FONT>
 756    <FONT COLOR=green><EM>--  level call.</EM></FONT>
 757    <b>pragma</b> Inline (Get_Index);
 758
 759    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 760    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></EM></FONT>
 761    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 762
 763    <FONT COLOR=green><EM>--  #1A NAME="AFU_62"#2|</EM></FONT>
 764    <b>procedure</b> Set_New_Page (<FONT COLOR=red><A NAME="760_28">Fld</A></FONT>      : <b>in</b> Field;
 765                            New_Page : <b>in</b> Boolean := True);
 766    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new_page.3x.html">set_new_page()</A></EM></FONT>
 767    <b>pragma</b> Inline (Set_New_Page);
 768
 769    <FONT COLOR=green><EM>--  #1A NAME="AFU_63"#2|</EM></FONT>
 770    <b>function</b> Is_New_Page (Fld : Field) <b>return</b> Boolean;
 771    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new_page.3x.html">new_page()</A></EM></FONT>
 772    <b>pragma</b> Inline (Is_New_Page);
 773
 774    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 775    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_requestname.3x.html">form_requestname.3x</A></EM></FONT>
 776    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
 777    <FONT COLOR=green><EM>--  Not Implemented: form_request_name, form_request_by_name</EM></FONT>
 778
 779 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
 780 <b>private</b>
 781    <b>type</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
 782    <b>type</b> Form  <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
 783
 784    <A HREF="terminal_interface-curses-forms__ads.htm#59_4">Null_Field</A> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A> := 0;
 785    Null_Form  : <b>constant</b> Form  := 0;
 786
 787 <b>end</b> Terminal_Interface.Curses.Forms;
 788 </PRE></BODY></HTML>