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