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

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