ncurses 5.5
[ncurses.git] / doc / html / ada / terminal_interface-curses-forms__ads.htm
1 <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
2 <HTML><HEAD><TITLE>terminal_interface-curses-forms.ads</TITLE></HEAD>
3 <BODY>
4 <HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms.ads </H1></DIV><HR>
5 <PRE>
6
7 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
8 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
9 <FONT COLOR=green><EM>--                           <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding                           --</EM></FONT>
10 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
11 <FONT COLOR=green><EM>--                      Terminal_Interface.Curses.Form                      --</EM></FONT>
12 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
13 <FONT COLOR=green><EM>--                                 S P E C                                  --</EM></FONT>
14 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
15 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
16 <FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc.                        --</EM></FONT>
17 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
18 <FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a  --</EM></FONT>
19 <FONT COLOR=green><EM>-- copy of this software and associated documentation files (the            --</EM></FONT>
20 <FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including      --</EM></FONT>
21 <FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish,      --</EM></FONT>
22 <FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell       --</EM></FONT>
23 <FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is    --</EM></FONT>
24 <FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions:                 --</EM></FONT>
25 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
26 <FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included  --</EM></FONT>
27 <FONT COLOR=green><EM>-- in all copies or substantial portions of the Software.                   --</EM></FONT>
28 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
29 <FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  --</EM></FONT>
30 <FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               --</EM></FONT>
31 <FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   --</EM></FONT>
32 <FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   --</EM></FONT>
33 <FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    --</EM></FONT>
34 <FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    --</EM></FONT>
35 <FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               --</EM></FONT>
36 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
37 <FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright   --</EM></FONT>
38 <FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the     --</EM></FONT>
39 <FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written       --</EM></FONT>
40 <FONT COLOR=green><EM>-- authorization.                                                           --</EM></FONT>
41 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
42 <FONT COLOR=green><EM>--  Author:  Juergen Pfeifer, 1996</EM></FONT>
43 <FONT COLOR=green><EM>--  Version Control:</EM></FONT>
44 <FONT COLOR=green><EM>--  @Revision: 1.27 @</EM></FONT>
45 <FONT COLOR=green><EM>--  Binding Version 01.00</EM></FONT>
46 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
47 <FONT COLOR=green><EM>--  form binding.</EM></FONT>
48 <FONT COLOR=green><EM>--  This module is generated. Please don't change it manually!</EM></FONT>
49 <FONT COLOR=green><EM>--  Run the generator instead.</EM></FONT>
50 <FONT COLOR=green><EM>--  |</EM></FONT>
51 <b>with</b> System;
52 <b>with</b> Ada.Characters.Latin_1;
53
54 <b>package</b> Terminal_Interface.Curses.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 ("-lncurses");
58
59    Space : Character <b>renames</b> Ada.Characters.Latin_1.Space;
60
61    <b>type</b> <FONT COLOR=red><A NAME="ref_56_9">Field</A></FONT>        <b>is</b> <b>private</b>;
62    <b>type</b> Form         <b>is</b> <b>private</b>;
63
64    <FONT COLOR=red><A NAME="ref_59_4">Null_Field</A></FONT>        : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>;
65    Null_Form         : <b>constant</b> Form;
66
67    <b>type</b> Field_Justification <b>is</b> (<FONT COLOR=red><A NAME="ref_62_33">None</A></FONT>,
68                                 <FONT COLOR=red><A NAME="ref_63_33">Left</A></FONT>,
69                                 <FONT COLOR=red><A NAME="ref_64_33">Center</A></FONT>,
70                                 Right);
71
72    <b>pragma</b> Warnings (Off);
73    <b>type</b> Field_Option_Set <b>is</b>
74       <b>record</b>
75          <FONT COLOR=red><A NAME="ref_70_10">Visible</A></FONT>     : Boolean;
76          <FONT COLOR=red><A NAME="ref_71_10">Active</A></FONT>      : Boolean;
77          <FONT COLOR=red><A NAME="ref_72_10">Public</A></FONT>      : Boolean;
78          <FONT COLOR=red><A NAME="ref_73_10">Edit</A></FONT>        : Boolean;
79          <FONT COLOR=red><A NAME="ref_74_10">Wrap</A></FONT>        : Boolean;
80          <FONT COLOR=red><A NAME="ref_75_10">Blank</A></FONT>       : Boolean;
81          <FONT COLOR=red><A NAME="ref_76_10">Auto_Skip</A></FONT>   : Boolean;
82          <FONT COLOR=red><A NAME="ref_77_10">Null_Ok</A></FONT>     : Boolean;
83          <FONT COLOR=red><A NAME="ref_78_10">Pass_Ok</A></FONT>     : Boolean;
84          Static      : Boolean;
85       <b>end</b> <b>record</b>;
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="ref_109_10">NL_Overload</A></FONT> : Boolean;
115          BS_Overload : Boolean;
116       <b>end</b> <b>record</b>;
117    <b>pragma</b> Convention (C, Form_Option_Set);
118
119    <b>for</b> Form_Option_Set <b>use</b>
120       <b>record</b>
121          NL_Overload <b>at</b> 0 <b>range</b>  0 ..  0;
122          BS_Overload <b>at</b> 0 <b>range</b>  1 ..  1;
123       <b>end</b> <b>record</b>;
124    <b>for</b> Form_Option_Set'Size <b>use</b> 32;
125    <FONT COLOR=green><EM>--  Please note: this rep. clause is generated and may be</EM></FONT>
126    <FONT COLOR=green><EM>--               different on your system.Dnl</EM></FONT>
127
128    <b>pragma</b> Warnings (On);
129
130    <b>function</b> Default_Form_Options <b>return</b> Form_Option_Set;
131    <FONT COLOR=green><EM>--  The initial defaults for the form options.</EM></FONT>
132    <b>pragma</b> Inline (Default_Form_Options);
133
134    <b>type</b> Buffer_Number <b>is</b> <b>new</b> Natural;
135
136    <b>type</b> Field_Array <b>is</b> <b>array</b> (Positive <b>range</b> &lt;&gt;) <b>of</b> <b>aliased</b> Field;
137    <b>pragma</b> Convention (C, Field_Array);
138
139    <b>type</b> Field_Array_Access <b>is</b> <b>access</b> Field_Array;
140
141    <b>procedure</b> Free (<FONT COLOR=red><A NAME="ref_136_20" HREF="terminal_interface-curses-forms__adb.htm#ref_1132_20">FA</A></FONT>          : <b>in</b> <b>out</b> Field_Array_Access;
142                    Free_Fields : <b>in</b> Boolean := False);
143    <FONT COLOR=green><EM>--  Release the memory for an allocated field array</EM></FONT>
144    <FONT COLOR=green><EM>--  If Free_Fields is True, call Delete() for all the fields in</EM></FONT>
145    <FONT COLOR=green><EM>--  the array.</EM></FONT>
146
147    <b>subtype</b> Form_Request_Code <b>is</b> Key_Code <b>range</b> (Key_Max + 1) .. (Key_Max + 57);
148
149    <FONT COLOR=green><EM>--  The prefix F_ stands for "Form Request"</EM></FONT>
150    <FONT COLOR=red><A NAME="ref_145_4">F_Next_Page</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 1;
151    <FONT COLOR=red><A NAME="ref_146_4">F_Previous_Page</A></FONT>            : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 2;
152    <FONT COLOR=red><A NAME="ref_147_4">F_First_Page</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 3;
153    F_Last_Page                : <b>constant</b> Form_Request_Code := Key_Max + 4;
154
155    <FONT COLOR=red><A NAME="ref_150_4">F_Next_Field</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 5;
156    <FONT COLOR=red><A NAME="ref_151_4">F_Previous_Field</A></FONT>           : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 6;
157    <FONT COLOR=red><A NAME="ref_152_4">F_First_Field</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 7;
158    <FONT COLOR=red><A NAME="ref_153_4">F_Last_Field</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 8;
159    <FONT COLOR=red><A NAME="ref_154_4">F_Sorted_Next_Field</A></FONT>        : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 9;
160    <FONT COLOR=red><A NAME="ref_155_4">F_Sorted_Previous_Field</A></FONT>    : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 10;
161    <FONT COLOR=red><A NAME="ref_156_4">F_Sorted_First_Field</A></FONT>       : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 11;
162    <FONT COLOR=red><A NAME="ref_157_4">F_Sorted_Last_Field</A></FONT>        : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 12;
163    <FONT COLOR=red><A NAME="ref_158_4">F_Left_Field</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 13;
164    <FONT COLOR=red><A NAME="ref_159_4">F_Right_Field</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 14;
165    <FONT COLOR=red><A NAME="ref_160_4">F_Up_Field</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 15;
166    F_Down_Field               : <b>constant</b> Form_Request_Code := Key_Max + 16;
167
168    <FONT COLOR=red><A NAME="ref_163_4">F_Next_Char</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 17;
169    <FONT COLOR=red><A NAME="ref_164_4">F_Previous_Char</A></FONT>            : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 18;
170    <FONT COLOR=red><A NAME="ref_165_4">F_Next_Line</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 19;
171    <FONT COLOR=red><A NAME="ref_166_4">F_Previous_Line</A></FONT>            : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 20;
172    <FONT COLOR=red><A NAME="ref_167_4">F_Next_Word</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 21;
173    <FONT COLOR=red><A NAME="ref_168_4">F_Previous_Word</A></FONT>            : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 22;
174    <FONT COLOR=red><A NAME="ref_169_4">F_Begin_Field</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 23;
175    <FONT COLOR=red><A NAME="ref_170_4">F_End_Field</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 24;
176    <FONT COLOR=red><A NAME="ref_171_4">F_Begin_Line</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 25;
177    <FONT COLOR=red><A NAME="ref_172_4">F_End_Line</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 26;
178    <FONT COLOR=red><A NAME="ref_173_4">F_Left_Char</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 27;
179    <FONT COLOR=red><A NAME="ref_174_4">F_Right_Char</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 28;
180    <FONT COLOR=red><A NAME="ref_175_4">F_Up_Char</A></FONT>                  : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 29;
181    F_Down_Char                : <b>constant</b> Form_Request_Code := Key_Max + 30;
182
183    <FONT COLOR=red><A NAME="ref_178_4">F_New_Line</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 31;
184    <FONT COLOR=red><A NAME="ref_179_4">F_Insert_Char</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 32;
185    <FONT COLOR=red><A NAME="ref_180_4">F_Insert_Line</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 33;
186    <FONT COLOR=red><A NAME="ref_181_4">F_Delete_Char</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 34;
187    <FONT COLOR=red><A NAME="ref_182_4">F_Delete_Previous</A></FONT>          : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 35;
188    <FONT COLOR=red><A NAME="ref_183_4">F_Delete_Line</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 36;
189    <FONT COLOR=red><A NAME="ref_184_4">F_Delete_Word</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 37;
190    <FONT COLOR=red><A NAME="ref_185_4">F_Clear_EOL</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 38;
191    <FONT COLOR=red><A NAME="ref_186_4">F_Clear_EOF</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 39;
192    <FONT COLOR=red><A NAME="ref_187_4">F_Clear_Field</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 40;
193    <FONT COLOR=red><A NAME="ref_188_4">F_Overlay_Mode</A></FONT>             : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 41;
194    F_Insert_Mode              : <b>constant</b> Form_Request_Code := Key_Max + 42;
195
196    <FONT COLOR=green><EM>--  Vertical Scrolling</EM></FONT>
197    <FONT COLOR=red><A NAME="ref_192_4">F_ScrollForward_Line</A></FONT>       : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 43;
198    <FONT COLOR=red><A NAME="ref_193_4">F_ScrollBackward_Line</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 44;
199    <FONT COLOR=red><A NAME="ref_194_4">F_ScrollForward_Page</A></FONT>       : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 45;
200    <FONT COLOR=red><A NAME="ref_195_4">F_ScrollBackward_Page</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 46;
201    <FONT COLOR=red><A NAME="ref_196_4">F_ScrollForward_HalfPage</A></FONT>   : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 47;
202    F_ScrollBackward_HalfPage  : <b>constant</b> Form_Request_Code := Key_Max + 48;
203
204    <FONT COLOR=green><EM>--  Horizontal Scrolling</EM></FONT>
205    <FONT COLOR=red><A NAME="ref_200_4">F_HScrollForward_Char</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 49;
206    <FONT COLOR=red><A NAME="ref_201_4">F_HScrollBackward_Char</A></FONT>     : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 50;
207    <FONT COLOR=red><A NAME="ref_202_4">F_HScrollForward_Line</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 51;
208    <FONT COLOR=red><A NAME="ref_203_4">F_HScrollBackward_Line</A></FONT>     : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 52;
209    <FONT COLOR=red><A NAME="ref_204_4">F_HScrollForward_HalfLine</A></FONT>  : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 53;
210    F_HScrollBackward_HalfLine : <b>constant</b> Form_Request_Code := Key_Max + 54;
211
212    <FONT COLOR=red><A NAME="ref_207_4">F_Validate_Field</A></FONT>           : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 55;
213    <FONT COLOR=red><A NAME="ref_208_4">F_Next_Choice</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 56;
214    F_Previous_Choice          : <b>constant</b> Form_Request_Code := Key_Max + 57;
215
216    <FONT COLOR=green><EM>--  For those who like the old 'C' style request names</EM></FONT>
217    REQ_NEXT_PAGE    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_145_4">F_Next_Page</A>;
218    REQ_PREV_PAGE    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_146_4">F_Previous_Page</A>;
219    REQ_FIRST_PAGE   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_147_4">F_First_Page</A>;
220    REQ_LAST_PAGE    : Form_Request_Code <b>renames</b> F_Last_Page;
221
222    REQ_NEXT_FIELD   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_150_4">F_Next_Field</A>;
223    REQ_PREV_FIELD   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_151_4">F_Previous_Field</A>;
224    REQ_FIRST_FIELD  : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_152_4">F_First_Field</A>;
225    REQ_LAST_FIELD   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_153_4">F_Last_Field</A>;
226    REQ_SNEXT_FIELD  : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_154_4">F_Sorted_Next_Field</A>;
227    REQ_SPREV_FIELD  : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_155_4">F_Sorted_Previous_Field</A>;
228    REQ_SFIRST_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_156_4">F_Sorted_First_Field</A>;
229    REQ_SLAST_FIELD  : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_157_4">F_Sorted_Last_Field</A>;
230    REQ_LEFT_FIELD   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_158_4">F_Left_Field</A>;
231    REQ_RIGHT_FIELD  : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_159_4">F_Right_Field</A>;
232    REQ_UP_FIELD     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_160_4">F_Up_Field</A>;
233    REQ_DOWN_FIELD   : Form_Request_Code <b>renames</b> F_Down_Field;
234
235    REQ_NEXT_CHAR    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_163_4">F_Next_Char</A>;
236    REQ_PREV_CHAR    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_164_4">F_Previous_Char</A>;
237    REQ_NEXT_LINE    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_165_4">F_Next_Line</A>;
238    REQ_PREV_LINE    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_166_4">F_Previous_Line</A>;
239    REQ_NEXT_WORD    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_167_4">F_Next_Word</A>;
240    REQ_PREV_WORD    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_168_4">F_Previous_Word</A>;
241    REQ_BEG_FIELD    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_169_4">F_Begin_Field</A>;
242    REQ_END_FIELD    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_170_4">F_End_Field</A>;
243    REQ_BEG_LINE     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_171_4">F_Begin_Line</A>;
244    REQ_END_LINE     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_172_4">F_End_Line</A>;
245    REQ_LEFT_CHAR    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_173_4">F_Left_Char</A>;
246    REQ_RIGHT_CHAR   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_174_4">F_Right_Char</A>;
247    REQ_UP_CHAR      : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_175_4">F_Up_Char</A>;
248    REQ_DOWN_CHAR    : Form_Request_Code <b>renames</b> F_Down_Char;
249
250    REQ_NEW_LINE     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_178_4">F_New_Line</A>;
251    REQ_INS_CHAR     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_179_4">F_Insert_Char</A>;
252    REQ_INS_LINE     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_180_4">F_Insert_Line</A>;
253    REQ_DEL_CHAR     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_181_4">F_Delete_Char</A>;
254    REQ_DEL_PREV     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_182_4">F_Delete_Previous</A>;
255    REQ_DEL_LINE     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_183_4">F_Delete_Line</A>;
256    REQ_DEL_WORD     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_184_4">F_Delete_Word</A>;
257    REQ_CLR_EOL      : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_185_4">F_Clear_EOL</A>;
258    REQ_CLR_EOF      : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_186_4">F_Clear_EOF</A>;
259    REQ_CLR_FIELD    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_187_4">F_Clear_Field</A>;
260    REQ_OVL_MODE     : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_188_4">F_Overlay_Mode</A>;
261    REQ_INS_MODE     : Form_Request_Code <b>renames</b> F_Insert_Mode;
262
263    REQ_SCR_FLINE    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_192_4">F_ScrollForward_Line</A>;
264    REQ_SCR_BLINE    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_193_4">F_ScrollBackward_Line</A>;
265    REQ_SCR_FPAGE    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_194_4">F_ScrollForward_Page</A>;
266    REQ_SCR_BPAGE    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_195_4">F_ScrollBackward_Page</A>;
267    REQ_SCR_FHPAGE   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_196_4">F_ScrollForward_HalfPage</A>;
268    REQ_SCR_BHPAGE   : Form_Request_Code <b>renames</b> F_ScrollBackward_HalfPage;
269
270    REQ_SCR_FCHAR    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_200_4">F_HScrollForward_Char</A>;
271    REQ_SCR_BCHAR    : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_201_4">F_HScrollBackward_Char</A>;
272    REQ_SCR_HFLINE   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_202_4">F_HScrollForward_Line</A>;
273    REQ_SCR_HBLINE   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_203_4">F_HScrollBackward_Line</A>;
274    REQ_SCR_HFHALF   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_204_4">F_HScrollForward_HalfLine</A>;
275    REQ_SCR_HBHALF   : Form_Request_Code <b>renames</b> F_HScrollBackward_HalfLine;
276
277    REQ_VALIDATION   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_207_4">F_Validate_Field</A>;
278    REQ_NEXT_CHOICE  : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_208_4">F_Next_Choice</A>;
279    REQ_PREV_CHOICE  : Form_Request_Code <b>renames</b> F_Previous_Choice;
280
281
282    <b>procedure</b> Request_Name (<FONT COLOR=red><A NAME="ref_277_28" HREF="terminal_interface-curses-forms__adb.htm#ref_82_33">Key</A></FONT>  : <b>in</b> Form_Request_Code;
283                            Name : <b>out</b> String);
284
285    <b>function</b>  Request_Name (Key : Form_Request_Code) <b>return</b> String;
286    <FONT COLOR=green><EM>--  Same as function</EM></FONT>
287    <b>pragma</b> Inline (Request_Name);
288
289    <FONT COLOR=green><EM>------------------</EM></FONT>
290    <FONT COLOR=green><EM>--  Exceptions  --</EM></FONT>
291    <FONT COLOR=green><EM>------------------</EM></FONT>
292    Form_Exception : <b>exception</b>;
293
294    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
295    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></EM></FONT>
296    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
297
298    <FONT COLOR=green><EM>--  #1A NAME="AFU_1"#2|</EM></FONT>
299    <b>function</b> Create (<FONT COLOR=red><A NAME="ref_294_21" HREF="terminal_interface-curses-forms__adb.htm#ref_109_21">Height</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>;
300                     <FONT COLOR=red><A NAME="ref_295_21" HREF="terminal_interface-curses-forms__adb.htm#ref_110_21">Width</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>;
301                     <FONT COLOR=red><A NAME="ref_296_21" HREF="terminal_interface-curses-forms__adb.htm#ref_111_21">Top</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>;
302                     <FONT COLOR=red><A NAME="ref_297_21" HREF="terminal_interface-curses-forms__adb.htm#ref_112_21">Left</A></FONT>         : Column_Position;
303                     <FONT COLOR=red><A NAME="ref_298_21" HREF="terminal_interface-curses-forms__adb.htm#ref_113_21">Off_Screen</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Natural</A> := 0;
304                     More_Buffers : Buffer_Number := Buffer_Number'First)
305                     <b>return</b> Field;
306    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT>
307    <FONT COLOR=green><EM>--  An overloaded Create is defined later. Pragma Inline appears there.</EM></FONT>
308
309    <FONT COLOR=green><EM>--  #1A NAME="AFU_2"#2|</EM></FONT>
310    <b>function</b> New_Field (<FONT COLOR=red><A NAME="ref_305_24">Height</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>;
311                        <FONT COLOR=red><A NAME="ref_306_24">Width</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>;
312                        <FONT COLOR=red><A NAME="ref_307_24">Top</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>;
313                        <FONT COLOR=red><A NAME="ref_308_24">Left</A></FONT>         : Column_Position;
314                        <FONT COLOR=red><A NAME="ref_309_24">Off_Screen</A></FONT>   : <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Natural</A> := 0;
315                        More_Buffers : Buffer_Number := Buffer_Number'First)
316                        <b>return</b> Field <b>renames</b> Create;
317    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT>
318    <b>pragma</b> Inline (New_Field);
319
320    <FONT COLOR=green><EM>--  #1A NAME="AFU_3"#2|</EM></FONT>
321    <b>procedure</b> Delete (Fld : <b>in</b> <b>out</b> Field);
322    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">free_field()</A></EM></FONT>
323    <FONT COLOR=green><EM>--  Reset Fld to Null_Field</EM></FONT>
324    <FONT COLOR=green><EM>--  An overloaded Delete is defined later. Pragma Inline appears there.</EM></FONT>
325
326    <FONT COLOR=green><EM>--  #1A NAME="AFU_4"#2|</EM></FONT>
327    <b>function</b> Duplicate (<FONT COLOR=red><A NAME="ref_322_24" HREF="terminal_interface-curses-forms__adb.htm#ref_148_24">Fld</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Field</A>;
328                        <FONT COLOR=red><A NAME="ref_323_24" HREF="terminal_interface-curses-forms__adb.htm#ref_149_24">Top</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>;
329                        Left : Column_Position) <b>return</b> Field;
330    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">dup_field()</A></EM></FONT>
331    <b>pragma</b> Inline (Duplicate);
332
333    <FONT COLOR=green><EM>--  #1A NAME="AFU_5"#2|</EM></FONT>
334    <b>function</b> Link (<FONT COLOR=red><A NAME="ref_329_19" HREF="terminal_interface-curses-forms__adb.htm#ref_169_19">Fld</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Field</A>;
335                   <FONT COLOR=red><A NAME="ref_330_19" HREF="terminal_interface-curses-forms__adb.htm#ref_170_19">Top</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>;
336                   Left : Column_Position) <b>return</b> Field;
337    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_new.3x.html">link_field()</A></EM></FONT>
338    <b>pragma</b> Inline (Link);
339
340    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
341    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></EM></FONT>
342    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
343
344    <FONT COLOR=green><EM>--  #1A NAME="AFU_6"#2|</EM></FONT>
345    <b>procedure</b> Set_Justification (<FONT COLOR=red><A NAME="ref_340_33" HREF="terminal_interface-curses-forms__adb.htm#ref_194_33">Fld</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_61_9">Field</A>;
346                                 Just : <b>in</b> Field_Justification := None);
347    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_just.3x.html">set_field_just()</A></EM></FONT>
348    <b>pragma</b> Inline (Set_Justification);
349
350    <FONT COLOR=green><EM>--  #1A NAME="AFU_7"#2|</EM></FONT>
351    <b>function</b> Get_Justification (Fld : Field) <b>return</b> Field_Justification;
352    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_just.3x.html">field_just()</A></EM></FONT>
353    <b>pragma</b> Inline (Get_Justification);
354
355    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
356    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></EM></FONT>
357    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
358
359    <FONT COLOR=green><EM>--  #1A NAME="AFU_8"#2|</EM></FONT>
360    <b>procedure</b> Set_Buffer
361      (<FONT COLOR=red><A NAME="ref_356_7" HREF="terminal_interface-curses-forms__adb.htm#ref_227_7">Fld</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Field</A>;
362       <FONT COLOR=red><A NAME="ref_357_7" HREF="terminal_interface-curses-forms__adb.htm#ref_228_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First;
363       Str    : <b>in</b> String);
364    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_buffer()</A></EM></FONT>
365    <FONT COLOR=green><EM>--  Not inlined</EM></FONT>
366
367    <FONT COLOR=green><EM>--  #1A NAME="AFU_9"#2|</EM></FONT>
368    <b>procedure</b> Get_Buffer
369      (<FONT COLOR=red><A NAME="ref_364_7" HREF="terminal_interface-curses-forms__adb.htm#ref_252_7">Fld</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Field</A>;
370       <FONT COLOR=red><A NAME="ref_365_7" HREF="terminal_interface-curses-forms__adb.htm#ref_253_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First;
371       Str    : <b>out</b> String);
372    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT>
373
374    <b>function</b> Get_Buffer
375      (<FONT COLOR=red><A NAME="ref_370_7" HREF="terminal_interface-curses-forms__adb.htm#ref_264_7">Fld</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Field</A>;
376       Buffer : <b>in</b> Buffer_Number := Buffer_Number'First) <b>return</b> String;
377    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT>
378    <FONT COLOR=green><EM>--  Same but as function</EM></FONT>
379    <b>pragma</b> Inline (Get_Buffer);
380
381    <FONT COLOR=green><EM>--  #1A NAME="AFU_10"#2|</EM></FONT>
382    <b>procedure</b> Set_Status (<FONT COLOR=red><A NAME="ref_377_26" HREF="terminal_interface-curses-forms__adb.htm#ref_276_26">Fld</A></FONT>    : <b>in</b> Field;
383                          Status : <b>in</b> Boolean := True);
384    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_status()</A></EM></FONT>
385    <b>pragma</b> Inline (Set_Status);
386
387    <FONT COLOR=green><EM>--  #1A NAME="AFU_11"#2|</EM></FONT>
388    <b>function</b> Changed (Fld : Field) <b>return</b> Boolean;
389    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">field_status()</A></EM></FONT>
390    <b>pragma</b> Inline (Changed);
391
392    <FONT COLOR=green><EM>--  #1A NAME="AFU_12"#2|</EM></FONT>
393    <b>procedure</b> Set_Maximum_Size (<FONT COLOR=red><A NAME="ref_388_32" HREF="terminal_interface-curses-forms__adb.htm#ref_308_32">Fld</A></FONT> : <b>in</b> Field;
394                                Max : <b>in</b> Natural := 0);
395    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_max()</A></EM></FONT>
396    <b>pragma</b> Inline (Set_Maximum_Size);
397
398    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
399    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></EM></FONT>
400    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
401
402    <FONT COLOR=green><EM>--  #1A NAME="AFU_13"#2|</EM></FONT>
403    <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="ref_398_27" HREF="terminal_interface-curses-forms__adb.htm#ref_328_27">Fld</A></FONT>     : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field</A>;
404                           Options : <b>in</b> Field_Option_Set);
405    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_opts.3x.html">set_field_opts()</A></EM></FONT>
406    <FONT COLOR=green><EM>--  An overloaded version is defined later. Pragma Inline appears there</EM></FONT>
407
408    <FONT COLOR=green><EM>--  #1A NAME="AFU_14"#2|</EM></FONT>
409    <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="ref_404_30" HREF="terminal_interface-curses-forms__adb.htm#ref_346_30">Fld</A></FONT>     : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field</A>;
410                              <FONT COLOR=red><A NAME="ref_405_30" HREF="terminal_interface-curses-forms__adb.htm#ref_347_30">Options</A></FONT> : <b>in</b> Field_Option_Set;
411                              On      : Boolean := True);
412    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_opts.3x.html">field_opts_on()</A></EM></FONT>
413    <FONT COLOR=green><EM>--  AKA: field_opts_off()</EM></FONT>
414    <FONT COLOR=green><EM>--  An overloaded version is defined later. Pragma Inline appears there</EM></FONT>
415
416    <FONT COLOR=green><EM>--  #1A NAME="AFU_15"#2|</EM></FONT>
417    <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="ref_412_27" HREF="terminal_interface-curses-forms__adb.htm#ref_372_27">Fld</A></FONT>     : <b>in</b>  <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field</A>;
418                           Options : <b>out</b> Field_Option_Set);
419    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT>
420
421    <FONT COLOR=green><EM>--  #1A NAME="AFU_16"#2|</EM></FONT>
422    <b>function</b> Get_Options (Fld : Field := Null_Field)
423                          <b>return</b> Field_Option_Set;
424    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT>
425    <FONT COLOR=green><EM>--  An overloaded version is defined later. Pragma Inline appears there</EM></FONT>
426
427    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
428    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></EM></FONT>
429    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
430
431    <FONT COLOR=green><EM>--  #1A NAME="AFU_17"#2|</EM></FONT>
432    <b>procedure</b> Set_Foreground
433      (<FONT COLOR=red><A NAME="ref_428_7" HREF="terminal_interface-curses-forms__adb.htm#ref_401_7">Fld</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>;
434       <FONT COLOR=red><A NAME="ref_429_7" HREF="terminal_interface-curses-forms__adb.htm#ref_402_7">Fore</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A> := Normal_Video;
435       Color : <b>in</b> Color_Pair := Color_Pair'First);
436    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_fore()</A></EM></FONT>
437    <b>pragma</b> Inline (Set_Foreground);
438
439    <FONT COLOR=green><EM>--  #1A NAME="AFU_18"#2|</EM></FONT>
440    <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="ref_435_26" HREF="terminal_interface-curses-forms__adb.htm#ref_422_26">Fld</A></FONT>  : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>;
441                          Fore : <b>out</b> Character_Attribute_Set);
442    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT>
443
444    <FONT COLOR=green><EM>--  #1A NAME="AFU_19"#2|</EM></FONT>
445    <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="ref_440_26" HREF="terminal_interface-curses-forms__adb.htm#ref_431_26">Fld</A></FONT>   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>;
446                          <FONT COLOR=red><A NAME="ref_441_26" HREF="terminal_interface-curses-forms__adb.htm#ref_432_26">Fore</A></FONT>  : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A>;
447                          Color : <b>out</b> Color_Pair);
448    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT>
449    <b>pragma</b> Inline (Foreground);
450
451    <FONT COLOR=green><EM>--  #1A NAME="AFU_20"#2|</EM></FONT>
452    <b>procedure</b> Set_Background
453      (<FONT COLOR=red><A NAME="ref_448_7" HREF="terminal_interface-curses-forms__adb.htm#ref_445_7">Fld</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>;
454       <FONT COLOR=red><A NAME="ref_449_7" HREF="terminal_interface-curses-forms__adb.htm#ref_446_7">Back</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A> := Normal_Video;
455       Color : <b>in</b> Color_Pair := Color_Pair'First);
456    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_back()</A></EM></FONT>
457    <b>pragma</b> Inline (Set_Background);
458
459    <FONT COLOR=green><EM>--  #1A NAME="AFU_21"#2|</EM></FONT>
460    <b>procedure</b> Background (<FONT COLOR=red><A NAME="ref_455_26" HREF="terminal_interface-curses-forms__adb.htm#ref_466_26">Fld</A></FONT>  : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>;
461                          Back : <b>out</b> Character_Attribute_Set);
462    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT>
463
464    <FONT COLOR=green><EM>--  #1A NAME="AFU_22"#2|</EM></FONT>
465    <b>procedure</b> Background (<FONT COLOR=red><A NAME="ref_460_26" HREF="terminal_interface-curses-forms__adb.htm#ref_475_26">Fld</A></FONT>   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>;
466                          <FONT COLOR=red><A NAME="ref_461_26" HREF="terminal_interface-curses-forms__adb.htm#ref_476_26">Back</A></FONT>  : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A>;
467                          Color : <b>out</b> Color_Pair);
468    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT>
469    <b>pragma</b> Inline (Background);
470
471    <FONT COLOR=green><EM>--  #1A NAME="AFU_23"#2|</EM></FONT>
472    <b>procedure</b> Set_Pad_Character (<FONT COLOR=red><A NAME="ref_467_33" HREF="terminal_interface-curses-forms__adb.htm#ref_488_33">Fld</A></FONT> : <b>in</b> Field;
473                                 Pad : <b>in</b> Character := Space);
474    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_pad()</A></EM></FONT>
475    <b>pragma</b> Inline (Set_Pad_Character);
476
477    <FONT COLOR=green><EM>--  #1A NAME="AFU_24"#2|</EM></FONT>
478    <b>procedure</b> Pad_Character (<FONT COLOR=red><A NAME="ref_473_29" HREF="terminal_interface-curses-forms__adb.htm#ref_505_29">Fld</A></FONT> : <b>in</b>  Field;
479                             Pad : <b>out</b> Character);
480    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_attributes.3x.html">field_pad()</A></EM></FONT>
481    <b>pragma</b> Inline (Pad_Character);
482
483    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
484    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></EM></FONT>
485    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
486
487    <FONT COLOR=green><EM>--  #1A NAME="AFU_25"#2|</EM></FONT>
488    <b>procedure</b> Info (<FONT COLOR=red><A NAME="ref_483_20" HREF="terminal_interface-curses-forms__adb.htm#ref_520_20">Fld</A></FONT>                : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Field</A>;
489                    <FONT COLOR=red><A NAME="ref_484_20" HREF="terminal_interface-curses-forms__adb.htm#ref_521_20">Lines</A></FONT>              : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>;
490                    <FONT COLOR=red><A NAME="ref_485_20" HREF="terminal_interface-curses-forms__adb.htm#ref_522_20">Columns</A></FONT>            : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>;
491                    <FONT COLOR=red><A NAME="ref_486_20" HREF="terminal_interface-curses-forms__adb.htm#ref_523_20">First_Row</A></FONT>          : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>;
492                    <FONT COLOR=red><A NAME="ref_487_20" HREF="terminal_interface-curses-forms__adb.htm#ref_524_20">First_Column</A></FONT>       : <b>out</b> Column_Position;
493                    <FONT COLOR=red><A NAME="ref_488_20" HREF="terminal_interface-curses-forms__adb.htm#ref_525_20">Off_Screen</A></FONT>         : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Natural</A>;
494                    Additional_Buffers : <b>out</b> Buffer_Number);
495    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_info.3x.html">field_info()</A></EM></FONT>
496    <b>pragma</b> Inline (Info);
497
498    <FONT COLOR=green><EM>--  #1A NAME="AFU_26"#2|</EM></FONT>
499    <b>procedure</b> Dynamic_Info (<FONT COLOR=red><A NAME="ref_494_28" HREF="terminal_interface-curses-forms__adb.htm#ref_554_28">Fld</A></FONT>     : <b>in</b> Field;
500                            <FONT COLOR=red><A NAME="ref_495_28" HREF="terminal_interface-curses-forms__adb.htm#ref_555_28">Lines</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>;
501                            <FONT COLOR=red><A NAME="ref_496_28" HREF="terminal_interface-curses-forms__adb.htm#ref_556_28">Columns</A></FONT> : <b>out</b> Column_Count;
502                            Max     : <b>out</b> Natural);
503    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field_info.3x.html">dynamic_field_info()</A></EM></FONT>
504    <b>pragma</b> Inline (Dynamic_Info);
505
506    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
507    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_win.3x.html">form_win.3x</A></EM></FONT>
508    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
509
510    <FONT COLOR=green><EM>--  #1A NAME="AFU_27"#2|</EM></FONT>
511    <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="ref_506_26" HREF="terminal_interface-curses-forms__adb.htm#ref_583_26">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Form</A>;
512                          Win : <b>in</b> Window);
513    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">set_form_win()</A></EM></FONT>
514    <b>pragma</b> Inline (Set_Window);
515
516    <FONT COLOR=green><EM>--  #1A NAME="AFU_28"#2|</EM></FONT>
517    <b>function</b> Get_Window (Frm : Form) <b>return</b> Window;
518    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">form_win()</A></EM></FONT>
519    <b>pragma</b> Inline (Get_Window);
520
521    <FONT COLOR=green><EM>--  #1A NAME="AFU_29"#2|</EM></FONT>
522    <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="ref_517_30" HREF="terminal_interface-curses-forms__adb.htm#ref_611_30">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Form</A>;
523                              Win : <b>in</b> Window);
524    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">set_form_sub()</A></EM></FONT>
525    <b>pragma</b> Inline (Set_Sub_Window);
526
527    <FONT COLOR=green><EM>--  #1A NAME="AFU_30"#2|</EM></FONT>
528    <b>function</b> Get_Sub_Window (Frm : Form) <b>return</b> Window;
529    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">form_sub()</A></EM></FONT>
530    <b>pragma</b> Inline (Get_Sub_Window);
531
532    <FONT COLOR=green><EM>--  #1A NAME="AFU_31"#2|</EM></FONT>
533    <b>procedure</b> Scale (<FONT COLOR=red><A NAME="ref_528_21" HREF="terminal_interface-curses-forms__adb.htm#ref_639_21">Frm</A></FONT>     : <b>in</b> Form;
534                     <FONT COLOR=red><A NAME="ref_529_21" HREF="terminal_interface-curses-forms__adb.htm#ref_640_21">Lines</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>;
535                     Columns : <b>out</b> Column_Count);
536    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_win.3x.html">scale_form()</A></EM></FONT>
537    <b>pragma</b> Inline (Scale);
538
539    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
540    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_hook.3x.html">form_hook.3x</A></EM></FONT>
541    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
542
543    <b>type</b> Form_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Frm : <b>in</b> Form);
544    <b>pragma</b> Convention (C, Form_Hook_Function);
545
546    <FONT COLOR=green><EM>--  #1A NAME="AFU_32"#2|</EM></FONT>
547    <b>procedure</b> Set_Field_Init_Hook (<FONT COLOR=red><A NAME="ref_542_35" HREF="terminal_interface-curses-forms__adb.htm#ref_663_35">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form</A>;
548                                   Proc : <b>in</b> Form_Hook_Function);
549    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">set_field_init()</A></EM></FONT>
550    <b>pragma</b> Inline (Set_Field_Init_Hook);
551
552    <FONT COLOR=green><EM>--  #1A NAME="AFU_33"#2|</EM></FONT>
553    <b>procedure</b> Set_Field_Term_Hook (<FONT COLOR=red><A NAME="ref_548_35" HREF="terminal_interface-curses-forms__adb.htm#ref_679_35">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form</A>;
554                                   Proc : <b>in</b> Form_Hook_Function);
555    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">set_field_term()</A></EM></FONT>
556    <b>pragma</b> Inline (Set_Field_Term_Hook);
557
558    <FONT COLOR=green><EM>--  #1A NAME="AFU_34"#2|</EM></FONT>
559    <b>procedure</b> Set_Form_Init_Hook (<FONT COLOR=red><A NAME="ref_554_34" HREF="terminal_interface-curses-forms__adb.htm#ref_695_34">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form</A>;
560                                  Proc : <b>in</b> Form_Hook_Function);
561    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">set_form_init()</A></EM></FONT>
562    <b>pragma</b> Inline (Set_Form_Init_Hook);
563
564    <FONT COLOR=green><EM>--  #1A NAME="AFU_35"#2|</EM></FONT>
565    <b>procedure</b> Set_Form_Term_Hook (<FONT COLOR=red><A NAME="ref_560_34" HREF="terminal_interface-curses-forms__adb.htm#ref_711_34">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form</A>;
566                                  Proc : <b>in</b> Form_Hook_Function);
567    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">set_form_term()</A></EM></FONT>
568    <b>pragma</b> Inline (Set_Form_Term_Hook);
569
570    <FONT COLOR=green><EM>--  #1A NAME="AFU_36"#2|</EM></FONT>
571    <b>function</b> Get_Field_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
572    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">field_init()</A></EM></FONT>
573    <b>pragma</b> Import (C, Get_Field_Init_Hook, "field_init");
574
575    <FONT COLOR=green><EM>--  #1A NAME="AFU_37"#2|</EM></FONT>
576    <b>function</b> Get_Field_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
577    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">field_term()</A></EM></FONT>
578    <b>pragma</b> Import (C, Get_Field_Term_Hook, "field_term");
579
580    <FONT COLOR=green><EM>--  #1A NAME="AFU_38"#2|</EM></FONT>
581    <b>function</b> Get_Form_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
582    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">form_init()</A></EM></FONT>
583    <b>pragma</b> Import (C, Get_Form_Init_Hook, "form_init");
584
585    <FONT COLOR=green><EM>--  #1A NAME="AFU_39"#2|</EM></FONT>
586    <b>function</b> Get_Form_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
587    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_hook.3x.html">form_term()</A></EM></FONT>
588    <b>pragma</b> Import (C, Get_Form_Term_Hook, "form_term");
589
590    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
591    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_field.3x.html">form_field.3x</A></EM></FONT>
592    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
593
594    <FONT COLOR=green><EM>--  #1A NAME="AFU_40"#2|</EM></FONT>
595    <b>procedure</b> Redefine (<FONT COLOR=red><A NAME="ref_590_24" HREF="terminal_interface-curses-forms__adb.htm#ref_731_24">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Form</A>;
596                        Flds : <b>in</b> Field_Array_Access);
597    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT>
598    <b>pragma</b> Inline (Redefine);
599
600    <FONT COLOR=green><EM>--  #1A NAME="AFU_41"#2|</EM></FONT>
601    <b>procedure</b> Set_Fields (<FONT COLOR=red><A NAME="ref_596_26">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Form</A>;
602                          Flds : <b>in</b> Field_Array_Access) <b>renames</b> Redefine;
603    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT>
604    <b>pragma</b> Inline (Set_Fields);
605
606    <FONT COLOR=green><EM>--  #1A NAME="AFU_42"#2|</EM></FONT>
607    <b>function</b> Fields (<FONT COLOR=red><A NAME="ref_602_21" HREF="terminal_interface-curses-forms__adb.htm#ref_753_21">Frm</A></FONT>   : Form;
608                     Index : Positive) <b>return</b> Field;
609    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">form_fields()</A></EM></FONT>
610    <b>pragma</b> Inline (Fields);
611
612    <FONT COLOR=green><EM>--  #1A NAME="AFU_43"#2|</EM></FONT>
613    <b>function</b> Field_Count (Frm : Form) <b>return</b> Natural;
614    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">field_count()</A></EM></FONT>
615    <b>pragma</b> Inline (Field_Count);
616
617    <FONT COLOR=green><EM>--  #1A NAME="AFU_44"#2|</EM></FONT>
618    <b>procedure</b> Move (<FONT COLOR=red><A NAME="ref_613_20" HREF="terminal_interface-curses-forms__adb.htm#ref_783_20">Fld</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Field</A>;
619                    <FONT COLOR=red><A NAME="ref_614_20" HREF="terminal_interface-curses-forms__adb.htm#ref_784_20">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>;
620                    Column : <b>in</b> Column_Position);
621    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_field.3x.html">move_field()</A></EM></FONT>
622    <b>pragma</b> Inline (Move);
623
624    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
625    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_new.3x.html">form_new.3x</A></EM></FONT>
626    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
627
628    <FONT COLOR=green><EM>--  #1A NAME="AFU_45"#2|</EM></FONT>
629    <b>function</b> Create (Fields : Field_Array_Access) <b>return</b> Form;
630    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT>
631    <b>pragma</b> Inline (Create);
632
633    <FONT COLOR=green><EM>--  #1A NAME="AFU_46"#2|</EM></FONT>
634    <b>function</b> New_Form (Fields : Field_Array_Access) <b>return</b> Form
635      <b>renames</b> Create;
636    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT>
637    <b>pragma</b> Inline (New_Form);
638
639    <FONT COLOR=green><EM>--  #1A NAME="AFU_47"#2|</EM></FONT>
640    <b>procedure</b> Delete (Frm : <b>in</b> <b>out</b> Form);
641    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new.3x.html">free_form()</A></EM></FONT>
642    <FONT COLOR=green><EM>--  Reset Frm to Null_Form</EM></FONT>
643    <b>pragma</b> Inline (Delete);
644
645    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
646    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_opts.3x.html">form_opts.3x</A></EM></FONT>
647    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
648
649    <FONT COLOR=green><EM>--  #1A NAME="AFU_48"#2|</EM></FONT>
650    <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="ref_645_27" HREF="terminal_interface-curses-forms__adb.htm#ref_843_27">Frm</A></FONT>     : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form</A>;
651                           Options : <b>in</b> Form_Option_Set);
652    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_opts.3x.html">set_form_opts()</A></EM></FONT>
653    <b>pragma</b> Inline (Set_Options);
654
655    <FONT COLOR=green><EM>--  #1A NAME="AFU_49"#2|</EM></FONT>
656    <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="ref_651_30" HREF="terminal_interface-curses-forms__adb.htm#ref_861_30">Frm</A></FONT>     : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form</A>;
657                              <FONT COLOR=red><A NAME="ref_652_30" HREF="terminal_interface-curses-forms__adb.htm#ref_862_30">Options</A></FONT> : <b>in</b> Form_Option_Set;
658                              On      : Boolean := True);
659    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_opts.3x.html">form_opts_on()</A></EM></FONT>
660    <FONT COLOR=green><EM>--  AKA: form_opts_off()</EM></FONT>
661    <b>pragma</b> Inline (Switch_Options);
662
663    <FONT COLOR=green><EM>--  #1A NAME="AFU_50"#2|</EM></FONT>
664    <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="ref_659_27" HREF="terminal_interface-curses-forms__adb.htm#ref_887_27">Frm</A></FONT>     : <b>in</b>  <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form</A>;
665                           Options : <b>out</b> Form_Option_Set);
666    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT>
667
668    <FONT COLOR=green><EM>--  #1A NAME="AFU_51"#2|</EM></FONT>
669    <b>function</b> Get_Options (Frm : Form := Null_Form) <b>return</b> Form_Option_Set;
670    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT>
671    <b>pragma</b> Inline (Get_Options);
672
673    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
674    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_post.3x.html">form_post.3x</A></EM></FONT>
675    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
676
677    <FONT COLOR=green><EM>--  #1A NAME="AFU_52"#2|</EM></FONT>
678    <b>procedure</b> Post (<FONT COLOR=red><A NAME="ref_673_20" HREF="terminal_interface-curses-forms__adb.htm#ref_914_20">Frm</A></FONT>  : <b>in</b> Form;
679                    Post : <b>in</b> Boolean := True);
680    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_post.3x.html">post_form()</A></EM></FONT>
681    <FONT COLOR=green><EM>--  AKA: unpost_form()</EM></FONT>
682    <b>pragma</b> Inline (Post);
683
684    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
685    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_cursor.3x.html">form_cursor.3x</A></EM></FONT>
686    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
687
688    <FONT COLOR=green><EM>--  #1A NAME="AFU_53"#2|</EM></FONT>
689    <b>procedure</b> Position_Cursor (Frm : Form);
690    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_cursor.3x.html">pos_form_cursor()</A></EM></FONT>
691    <b>pragma</b> Inline (Position_Cursor);
692
693    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
694    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_data.3x.html">form_data.3x</A></EM></FONT>
695    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
696
697    <FONT COLOR=green><EM>--  #1A NAME="AFU_54"#2|</EM></FONT>
698    <b>function</b> Data_Ahead (Frm : Form) <b>return</b> Boolean;
699    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_data.3x.html">data_ahead()</A></EM></FONT>
700    <b>pragma</b> Inline (Data_Ahead);
701
702    <FONT COLOR=green><EM>--  #1A NAME="AFU_55"#2|</EM></FONT>
703    <b>function</b> Data_Behind (Frm : Form) <b>return</b> Boolean;
704    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_data.3x.html">data_behind()</A></EM></FONT>
705    <b>pragma</b> Inline (Data_Behind);
706
707    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
708    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_driver.3x.html">form_driver.3x</A></EM></FONT>
709    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
710
711    <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="ref_706_27">Form_Ok</A></FONT>,
712                           <FONT COLOR=red><A NAME="ref_707_27">Request_Denied</A></FONT>,
713                           <FONT COLOR=red><A NAME="ref_708_27">Unknown_Request</A></FONT>,
714                           Invalid_Field);
715
716    <FONT COLOR=green><EM>--  #1A NAME="AFU_56"#2|</EM></FONT>
717    <b>function</b> Driver (<FONT COLOR=red><A NAME="ref_712_21" HREF="terminal_interface-curses-forms__adb.htm#ref_994_21">Frm</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_68_9">Form</A>;
718                     Key : Key_Code) <b>return</b> Driver_Result;
719    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_driver.3x.html">form_driver()</A></EM></FONT>
720    <FONT COLOR=green><EM>--  Driver not inlined</EM></FONT>
721
722    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
723    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_page.3x.html">form_page.3x</A></EM></FONT>
724    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
725
726    <b>type</b> Page_Number <b>is</b> <b>new</b> Natural;
727
728    <FONT COLOR=green><EM>--  #1A NAME="AFU_57"#2|</EM></FONT>
729    <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="ref_724_27" HREF="terminal_interface-curses-forms__adb.htm#ref_1024_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Form</A>;
730                           Fld : <b>in</b> Field);
731    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">set_current_field()</A></EM></FONT>
732    <b>pragma</b> Inline (Set_Current);
733
734    <FONT COLOR=green><EM>--  #1A NAME="AFU_58"#2|</EM></FONT>
735    <b>function</b> Current (Frm : <b>in</b> Form) <b>return</b> Field;
736    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">current_field()</A></EM></FONT>
737    <b>pragma</b> Inline (Current);
738
739    <FONT COLOR=green><EM>--  #1A NAME="AFU_59"#2|</EM></FONT>
740    <b>procedure</b> Set_Page (<FONT COLOR=red><A NAME="ref_735_24" HREF="terminal_interface-curses-forms__adb.htm#ref_1054_24">Frm</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_720_9">Form</A>;
741                        Page : <b>in</b> Page_Number := Page_Number'First);
742    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">set_form_page()</A></EM></FONT>
743    <b>pragma</b> Inline (Set_Page);
744
745    <FONT COLOR=green><EM>--  #1A NAME="AFU_60"#2|</EM></FONT>
746    <b>function</b> Page (Frm : Form) <b>return</b> Page_Number;
747    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">form_page()</A></EM></FONT>
748    <b>pragma</b> Inline (Page);
749
750    <FONT COLOR=green><EM>--  #1A NAME="AFU_61"#2|</EM></FONT>
751    <b>function</b> Get_Index (Fld : Field) <b>return</b> Positive;
752    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_page.3x.html">field_index()</A></EM></FONT>
753    <FONT COLOR=green><EM>--  Please note that in this binding we start the numbering of fields</EM></FONT>
754    <FONT COLOR=green><EM>--  with 1. So this is number is one more than you get from the low</EM></FONT>
755    <FONT COLOR=green><EM>--  level call.</EM></FONT>
756    <b>pragma</b> Inline (Get_Index);
757
758    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
759    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></EM></FONT>
760    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
761
762    <FONT COLOR=green><EM>--  #1A NAME="AFU_62"#2|</EM></FONT>
763    <b>procedure</b> Set_New_Page (<FONT COLOR=red><A NAME="ref_758_28" HREF="terminal_interface-curses-forms__adb.htm#ref_1103_28">Fld</A></FONT>      : <b>in</b> Field;
764                            New_Page : <b>in</b> Boolean := True);
765    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new_page.3x.html">set_new_page()</A></EM></FONT>
766    <b>pragma</b> Inline (Set_New_Page);
767
768    <FONT COLOR=green><EM>--  #1A NAME="AFU_63"#2|</EM></FONT>
769    <b>function</b> Is_New_Page (Fld : Field) <b>return</b> Boolean;
770    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/form_new_page.3x.html">new_page()</A></EM></FONT>
771    <b>pragma</b> Inline (Is_New_Page);
772
773    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
774    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/form_requestname.3x.html">form_requestname.3x</A></EM></FONT>
775    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
776    <FONT COLOR=green><EM>--  Not Implemented: form_request_name, form_request_by_name</EM></FONT>
777
778 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
779 <b>private</b>
780    <b>type</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
781    <b>type</b> Form  <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
782
783    <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := 0;
784    Null_Form  : <b>constant</b> Form  := 0;
785
786 <b>end</b> Terminal_Interface.Curses.Forms;
787 </PRE></BODY></HTML>