ncurses 5.0
[ncurses.git] / 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>