1 <!DOCTYPE html PUBLIC
"-//W3C//DTD HTML 4.01//EN">
4 <TITLE>terminal_interface-curses-forms.adb
</TITLE>
5 <meta http-equiv=
"Content-Type" content=
"text/html; charset=iso-8859-1">
6 <style type=
"text/css">
16 <HR><DIV style=
"text-align:center"><H1> File : terminal_interface-curses-forms.adb
</H1></DIV><HR>
18 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
19 <span class=
"comment"><EM>-- --
</EM></span>
20 <span class=
"comment"><EM>--
<A HREF=
"http://www.gnat.com">GNAT
</A> ncurses Binding --
</EM></span>
21 <span class=
"comment"><EM>-- --
</EM></span>
22 <span class=
"comment"><EM>-- Terminal_Interface.Curses.Forms --
</EM></span>
23 <span class=
"comment"><EM>-- --
</EM></span>
24 <span class=
"comment"><EM>-- B O D Y --
</EM></span>
25 <span class=
"comment"><EM>-- --
</EM></span>
26 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
27 <span class=
"comment"><EM>-- Copyright (c)
1998-
2011,
2014 Free Software Foundation, Inc. --
</EM></span>
28 <span class=
"comment"><EM>-- --
</EM></span>
29 <span class=
"comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --
</EM></span>
30 <span class=
"comment"><EM>-- copy of this software and associated documentation files (the --
</EM></span>
31 <span class=
"comment"><EM>--
"Software"), to deal in the Software without restriction, including --
</EM></span>
32 <span class=
"comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --
</EM></span>
33 <span class=
"comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --
</EM></span>
34 <span class=
"comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --
</EM></span>
35 <span class=
"comment"><EM>-- furnished to do so, subject to the following conditions: --
</EM></span>
36 <span class=
"comment"><EM>-- --
</EM></span>
37 <span class=
"comment"><EM>-- The above copyright notice and this permission notice shall be included --
</EM></span>
38 <span class=
"comment"><EM>-- in all copies or substantial portions of the Software. --
</EM></span>
39 <span class=
"comment"><EM>-- --
</EM></span>
40 <span class=
"comment"><EM>-- THE SOFTWARE IS PROVIDED
"AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
</EM></span>
41 <span class=
"comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
</EM></span>
42 <span class=
"comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
</EM></span>
43 <span class=
"comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
</EM></span>
44 <span class=
"comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
</EM></span>
45 <span class=
"comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
</EM></span>
46 <span class=
"comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
</EM></span>
47 <span class=
"comment"><EM>-- --
</EM></span>
48 <span class=
"comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --
</EM></span>
49 <span class=
"comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --
</EM></span>
50 <span class=
"comment"><EM>-- sale, use or other dealings in this Software without prior written --
</EM></span>
51 <span class=
"comment"><EM>-- authorization. --
</EM></span>
52 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
53 <span class=
"comment"><EM>-- Author: Juergen Pfeifer,
1996</EM></span>
54 <span class=
"comment"><EM>-- Version Control:
</EM></span>
55 <span class=
"comment"><EM>-- @Revision:
1.32 @
</EM></span>
56 <span class=
"comment"><EM>-- @Date:
2014/
05/
24 21:
31:
05 @
</EM></span>
57 <span class=
"comment"><EM>-- Binding Version
01.00</EM></span>
58 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
59 <b>with
</b> Ada.Unchecked_Deallocation;
61 <b>with
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C;
<b>use
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C;
62 <b>with
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Strings;
<b>use
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Strings;
63 <b>with
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Pointers;
65 <b>with
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_45_35">Aux
</A>;
67 <b>package
</b> <b>body
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<span class=
"symbol"><A NAME=
"ref_50_40" HREF=
"terminal_interface-curses-forms__ads.htm#ref_45_35">Forms
</A></span> <b>is
</b>
69 <b>use
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_45_35">Aux
</A>;
71 <b>type
</b> C_Field_Array
<b>is
</b> <b>array
</b> (Natural
<b>range
</b> <>)
<b>of
</b> <b>aliased
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
72 <b>package
</b> F_Array
<b>is
</b> <b>new
</b>
73 <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Pointers (Natural,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>, C_Field_Array,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A>);
75 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
76 <span class=
"comment"><EM>-- |
</EM></span>
77 <span class=
"comment"><EM>-- |
</EM></span>
78 <span class=
"comment"><EM>-- |
</EM></span>
79 <span class=
"comment"><EM>-- subtype chars_ptr is Interfaces.C.Strings.chars_ptr;
</EM></span>
81 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_64_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_277_14">Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_64_28" HREF=
"terminal_interface-curses-forms__ads.htm#ref_277_28">Key
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_143_12">Form_Request_Code
</A>;
82 <span class=
"symbol"><A NAME=
"ref_65_33" HREF=
"terminal_interface-curses-forms__ads.htm#ref_278_28">Name
</A></span> :
<b>out
</b> String)
84 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_67_16">Form_Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_67_35" HREF=
"terminal_interface-curses-forms__adb.htm#ref_67_16">Key
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> chars_ptr;
85 <b>pragma
</b> Import (C, Form_Request_Name,
"form_request_name");
87 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_92_14">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_67_16">Form_Request_Name
</A> (
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_277_28">Key
</A>)),
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_278_28">Name
</A>);
88 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_277_14">Request_Name
</A>;
90 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_73_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_280_14">Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_73_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_280_28">Key
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_143_12">Form_Request_Code
</A>)
<b>return
</b> String
92 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_75_16">Form_Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_75_35" HREF=
"terminal_interface-curses-forms__adb.htm#ref_75_16">Key
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> chars_ptr;
93 <b>pragma
</b> Import (C, Form_Request_Name,
"form_request_name");
95 <b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_97_13">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_75_16">Form_Request_Name
</A> (
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_280_28">Key
</A>)));
96 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_280_14">Request_Name
</A>;
97 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
98 <span class=
"comment"><EM>-- |
</EM></span>
99 <span class=
"comment"><EM>-- |
</EM></span>
100 <span class=
"comment"><EM>-- |
</EM></span>
101 <span class=
"comment"><EM>-- |
</EM></span>
102 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
103 <span class=
"comment"><EM>-- | man page form_field_new
.3x
</EM></span>
104 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
105 <span class=
"comment"><EM>-- |
</EM></span>
106 <span class=
"comment"><EM>-- |
</EM></span>
107 <span class=
"comment"><EM>-- |
</EM></span>
108 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_91_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_294_13">Create
</A></span> (
<span class=
"symbol"><A NAME=
"ref_91_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_294_21">Height
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
109 <span class=
"symbol"><A NAME=
"ref_92_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_295_21">Width
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>;
110 <span class=
"symbol"><A NAME=
"ref_93_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_296_21">Top
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>;
111 <span class=
"symbol"><A NAME=
"ref_94_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_297_21">Left
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>;
112 <span class=
"symbol"><A NAME=
"ref_95_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_298_21">Off_Screen
</A></span> : Natural :=
0;
113 <span class=
"symbol"><A NAME=
"ref_96_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_299_21">More_Buffers
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A>'First)
114 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>
116 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_99_16">Newfield
</A></span> (
<span class=
"symbol"><A NAME=
"ref_99_26" HREF=
"terminal_interface-curses-forms__adb.htm#ref_99_16">H
</A></span>,
<span class=
"symbol"><A NAME=
"ref_99_29" HREF=
"terminal_interface-curses-forms__adb.htm#ref_99_16">W
</A></span>,
<span class=
"symbol"><A NAME=
"ref_99_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_99_16">T
</A></span>,
<span class=
"symbol"><A NAME=
"ref_99_35" HREF=
"terminal_interface-curses-forms__adb.htm#ref_99_16">L
</A></span>,
<span class=
"symbol"><A NAME=
"ref_99_38" HREF=
"terminal_interface-curses-forms__adb.htm#ref_99_16">O
</A></span>,
<span class=
"symbol"><A NAME=
"ref_99_41" HREF=
"terminal_interface-curses-forms__adb.htm#ref_99_16">M
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
117 <b>pragma
</b> Import (C, Newfield,
"new_field");
118 <span class=
"symbol"><A NAME=
"ref_101_7">Fld
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_99_16">Newfield
</A> (
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_294_21">Height
</A>),
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_295_21">Width
</A>),
119 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_296_21">Top
</A>),
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_297_21">Left
</A>),
120 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_298_21">Off_Screen
</A>),
121 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_299_21">More_Buffers
</A>));
123 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_101_7">Fld
</A> =
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A> <b>then
</b>
124 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
125 <b>end
</b> <b>if
</b>;
126 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_101_7">Fld
</A>;
127 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_294_13">Create
</A>;
128 <span class=
"comment"><EM>-- |
</EM></span>
129 <span class=
"comment"><EM>-- |
</EM></span>
130 <span class=
"comment"><EM>-- |
</EM></span>
131 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_114_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_316_14">Delete
</A></span> (
<span class=
"symbol"><A NAME=
"ref_114_22" HREF=
"terminal_interface-curses-forms__ads.htm#ref_316_22">Fld
</A></span> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
133 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_116_16">Free_Field
</A></span> (
<span class=
"symbol"><A NAME=
"ref_116_28" HREF=
"terminal_interface-curses-forms__adb.htm#ref_116_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
134 <b>pragma
</b> Import (C, Free_Field,
"free_field");
137 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_116_16">Free_Field
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_316_22">Fld
</A>));
138 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_316_22">Fld
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A>;
139 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_316_14">Delete
</A>;
140 <span class=
"comment"><EM>-- |
</EM></span>
141 <span class=
"comment"><EM>-- |
</EM></span>
142 <span class=
"comment"><EM>-- |
</EM></span>
143 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_126_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_322_13">Duplicate
</A></span> (
<span class=
"symbol"><A NAME=
"ref_126_24" HREF=
"terminal_interface-curses-forms__ads.htm#ref_322_24">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
144 <span class=
"symbol"><A NAME=
"ref_127_24" HREF=
"terminal_interface-curses-forms__ads.htm#ref_323_24">Top
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>;
145 <span class=
"symbol"><A NAME=
"ref_128_24" HREF=
"terminal_interface-curses-forms__ads.htm#ref_324_24">Left
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>
147 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_130_16">Dup_Field
</A></span> (
<span class=
"symbol"><A NAME=
"ref_130_27" HREF=
"terminal_interface-curses-forms__adb.htm#ref_130_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
148 <span class=
"symbol"><A NAME=
"ref_131_27" HREF=
"terminal_interface-curses-forms__adb.htm#ref_130_16">Top
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
149 <span class=
"symbol"><A NAME=
"ref_132_27" HREF=
"terminal_interface-curses-forms__adb.htm#ref_130_16">Left
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
150 <b>pragma
</b> Import (C, Dup_Field,
"dup_field");
152 <span class=
"symbol"><A NAME=
"ref_135_7">F
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_130_16">Dup_Field
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_322_24">Fld
</A>,
153 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_323_24">Top
</A>),
154 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_324_24">Left
</A>));
156 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_135_7">F
</A> =
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A> <b>then
</b>
157 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
158 <b>end
</b> <b>if
</b>;
159 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_135_7">F
</A>;
160 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_322_13">Duplicate
</A>;
161 <span class=
"comment"><EM>-- |
</EM></span>
162 <span class=
"comment"><EM>-- |
</EM></span>
163 <span class=
"comment"><EM>-- |
</EM></span>
164 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_147_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_329_13">Link
</A></span> (
<span class=
"symbol"><A NAME=
"ref_147_19" HREF=
"terminal_interface-curses-forms__ads.htm#ref_329_19">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
165 <span class=
"symbol"><A NAME=
"ref_148_19" HREF=
"terminal_interface-curses-forms__ads.htm#ref_330_19">Top
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>;
166 <span class=
"symbol"><A NAME=
"ref_149_19" HREF=
"terminal_interface-curses-forms__ads.htm#ref_331_19">Left
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>
168 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_151_16">Lnk_Field
</A></span> (
<span class=
"symbol"><A NAME=
"ref_151_27" HREF=
"terminal_interface-curses-forms__adb.htm#ref_151_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
169 <span class=
"symbol"><A NAME=
"ref_152_27" HREF=
"terminal_interface-curses-forms__adb.htm#ref_151_16">Top
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
170 <span class=
"symbol"><A NAME=
"ref_153_27" HREF=
"terminal_interface-curses-forms__adb.htm#ref_151_16">Left
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
171 <b>pragma
</b> Import (C, Lnk_Field,
"link_field");
173 <span class=
"symbol"><A NAME=
"ref_156_7">F
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_151_16">Lnk_Field
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_329_19">Fld
</A>,
174 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_330_19">Top
</A>),
175 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_331_19">Left
</A>));
177 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_156_7">F
</A> =
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A> <b>then
</b>
178 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
179 <b>end
</b> <b>if
</b>;
180 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_156_7">F
</A>;
181 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_329_13">Link
</A>;
182 <span class=
"comment"><EM>-- |
</EM></span>
183 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
184 <span class=
"comment"><EM>-- | man page form_field_just
.3x
</EM></span>
185 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
186 <span class=
"comment"><EM>-- |
</EM></span>
187 <span class=
"comment"><EM>-- |
</EM></span>
188 <span class=
"comment"><EM>-- |
</EM></span>
189 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_172_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_340_14">Set_Justification
</A></span> (
<span class=
"symbol"><A NAME=
"ref_172_33" HREF=
"terminal_interface-curses-forms__ads.htm#ref_340_33">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
190 <span class=
"symbol"><A NAME=
"ref_173_33" HREF=
"terminal_interface-curses-forms__ads.htm#ref_341_33">Just
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_57_9">Field_Justification
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_57_33">None
</A>)
192 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_175_16">Set_Field_Just
</A></span> (
<span class=
"symbol"><A NAME=
"ref_175_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_175_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
193 <span class=
"symbol"><A NAME=
"ref_176_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_175_16">Just
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
194 <b>pragma
</b> Import (C, Set_Field_Just,
"set_field_just");
197 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_175_16">Set_Field_Just
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_340_33">Fld
</A>,
198 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_57_9">Field_Justification
</A>'Pos (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_341_33">Just
</A>))));
199 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_340_14">Set_Justification
</A>;
200 <span class=
"comment"><EM>-- |
</EM></span>
201 <span class=
"comment"><EM>-- |
</EM></span>
202 <span class=
"comment"><EM>-- |
</EM></span>
203 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_186_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_346_13">Get_Justification
</A></span> (
<span class=
"symbol"><A NAME=
"ref_186_32" HREF=
"terminal_interface-curses-forms__ads.htm#ref_346_32">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_57_9">Field_Justification
</A>
205 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_188_16">Field_Just
</A></span> (
<span class=
"symbol"><A NAME=
"ref_188_28" HREF=
"terminal_interface-curses-forms__adb.htm#ref_188_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
206 <b>pragma
</b> Import (C, Field_Just,
"field_just");
208 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_57_9">Field_Justification
</A>'Val (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_188_16">Field_Just
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_346_32">Fld
</A>));
209 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_346_13">Get_Justification
</A>;
210 <span class=
"comment"><EM>-- |
</EM></span>
211 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
212 <span class=
"comment"><EM>-- | man page form_field_buffer
.3x
</EM></span>
213 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
214 <span class=
"comment"><EM>-- |
</EM></span>
215 <span class=
"comment"><EM>-- |
</EM></span>
216 <span class=
"comment"><EM>-- |
</EM></span>
217 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_200_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_355_14">Set_Buffer
</A></span>
218 (
<span class=
"symbol"><A NAME=
"ref_201_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_356_7">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
219 <span class=
"symbol"><A NAME=
"ref_202_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_357_7">Buffer
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A>'First;
220 <span class=
"symbol"><A NAME=
"ref_203_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_358_7">Str
</A></span> : String)
222 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_205_16">Set_Fld_Buffer
</A></span> (
<span class=
"symbol"><A NAME=
"ref_205_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_205_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
223 <span class=
"symbol"><A NAME=
"ref_206_34" HREF=
"terminal_interface-curses-forms__adb.htm#ref_205_16">Bufnum
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
224 <span class=
"symbol"><A NAME=
"ref_207_34" HREF=
"terminal_interface-curses-forms__adb.htm#ref_205_16">S
</A></span> : char_array)
225 <b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
226 <b>pragma
</b> Import (C, Set_Fld_Buffer,
"set_field_buffer");
229 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_205_16">Set_Fld_Buffer
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_356_7">Fld
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_357_7">Buffer
</A>), To_C (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_358_7">Str
</A>)));
230 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_355_14">Set_Buffer
</A>;
231 <span class=
"comment"><EM>-- |
</EM></span>
232 <span class=
"comment"><EM>-- |
</EM></span>
233 <span class=
"comment"><EM>-- |
</EM></span>
234 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_217_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_363_14">Get_Buffer
</A></span>
235 (
<span class=
"symbol"><A NAME=
"ref_218_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_364_7">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
236 <span class=
"symbol"><A NAME=
"ref_219_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_365_7">Buffer
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A>'First;
237 <span class=
"symbol"><A NAME=
"ref_220_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_366_7">Str
</A></span> :
<b>out
</b> String)
239 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_222_16">Field_Buffer
</A></span> (
<span class=
"symbol"><A NAME=
"ref_222_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_222_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
240 <span class=
"symbol"><A NAME=
"ref_223_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_222_16">B
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> chars_ptr;
241 <b>pragma
</b> Import (C, Field_Buffer,
"field_buffer");
243 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_92_14">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_222_16">Field_Buffer
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_364_7">Fld
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_365_7">Buffer
</A>)),
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_366_7">Str
</A>);
244 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_363_14">Get_Buffer
</A>;
246 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_229_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_369_13">Get_Buffer
</A></span>
247 (
<span class=
"symbol"><A NAME=
"ref_230_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_370_7">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
248 <span class=
"symbol"><A NAME=
"ref_231_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_371_7">Buffer
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A>'First)
<b>return
</b> String
250 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_233_16">Field_Buffer
</A></span> (
<span class=
"symbol"><A NAME=
"ref_233_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_233_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
251 <span class=
"symbol"><A NAME=
"ref_234_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_233_16">B
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> chars_ptr;
252 <b>pragma
</b> Import (C, Field_Buffer,
"field_buffer");
254 <b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_97_13">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_233_16">Field_Buffer
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_370_7">Fld
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_371_7">Buffer
</A>)));
255 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_369_13">Get_Buffer
</A>;
256 <span class=
"comment"><EM>-- |
</EM></span>
257 <span class=
"comment"><EM>-- |
</EM></span>
258 <span class=
"comment"><EM>-- |
</EM></span>
259 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_242_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_377_14">Set_Status
</A></span> (
<span class=
"symbol"><A NAME=
"ref_242_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_377_26">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
260 <span class=
"symbol"><A NAME=
"ref_243_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_378_26">Status
</A></span> : Boolean := True)
262 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_245_16">Set_Fld_Status
</A></span> (
<span class=
"symbol"><A NAME=
"ref_245_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_245_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
263 <span class=
"symbol"><A NAME=
"ref_246_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_245_16">St
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
264 <b>pragma
</b> Import (C, Set_Fld_Status,
"set_field_status");
267 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_245_16">Set_Fld_Status
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_377_26">Fld
</A>, Boolean'Pos (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_378_26">Status
</A>)) /=
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_86_7">E_Ok
</A> <b>then
</b>
268 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
269 <b>end
</b> <b>if
</b>;
270 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_377_14">Set_Status
</A>;
271 <span class=
"comment"><EM>-- |
</EM></span>
272 <span class=
"comment"><EM>-- |
</EM></span>
273 <span class=
"comment"><EM>-- |
</EM></span>
274 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_257_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_383_13">Changed
</A></span> (
<span class=
"symbol"><A NAME=
"ref_257_22" HREF=
"terminal_interface-curses-forms__ads.htm#ref_383_22">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> Boolean
276 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_259_16">Field_Status
</A></span> (
<span class=
"symbol"><A NAME=
"ref_259_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_259_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
277 <b>pragma
</b> Import (C, Field_Status,
"field_status");
279 <span class=
"symbol"><A NAME=
"ref_262_7">Res
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_259_16">Field_Status
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_383_22">Fld
</A>);
281 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_262_7">Res
</A> =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_68_4">Curses_False
</A> <b>then
</b>
285 <b>end
</b> <b>if
</b>;
286 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_383_13">Changed
</A>;
287 <span class=
"comment"><EM>-- |
</EM></span>
288 <span class=
"comment"><EM>-- |
</EM></span>
289 <span class=
"comment"><EM>-- |
</EM></span>
290 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_273_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_388_14">Set_Maximum_Size
</A></span> (
<span class=
"symbol"><A NAME=
"ref_273_32" HREF=
"terminal_interface-curses-forms__ads.htm#ref_388_32">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
291 <span class=
"symbol"><A NAME=
"ref_274_32" HREF=
"terminal_interface-curses-forms__ads.htm#ref_389_32">Max
</A></span> : Natural :=
0)
293 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_276_16">Set_Field_Max
</A></span> (
<span class=
"symbol"><A NAME=
"ref_276_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_276_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
294 <span class=
"symbol"><A NAME=
"ref_277_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_276_16">M
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
295 <b>pragma
</b> Import (C, Set_Field_Max,
"set_max_field");
298 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_276_16">Set_Field_Max
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_388_32">Fld
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_389_32">Max
</A>)));
299 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_388_14">Set_Maximum_Size
</A>;
300 <span class=
"comment"><EM>-- |
</EM></span>
301 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
302 <span class=
"comment"><EM>-- | man page form_field_opts
.3x
</EM></span>
303 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
304 <span class=
"comment"><EM>-- |
</EM></span>
305 <span class=
"comment"><EM>-- |
</EM></span>
306 <span class=
"comment"><EM>-- |
</EM></span>
307 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_290_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_398_14">Set_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_290_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_398_27">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
308 <span class=
"symbol"><A NAME=
"ref_291_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_399_27">Options
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>)
310 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_293_16">Set_Field_Opts
</A></span> (
<span class=
"symbol"><A NAME=
"ref_293_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_293_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
311 <span class=
"symbol"><A NAME=
"ref_294_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_293_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
312 <b>pragma
</b> Import (C, Set_Field_Opts,
"set_field_opts");
315 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_293_16">Set_Field_Opts
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_398_27">Fld
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_399_27">Options
</A>));
316 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_398_14">Set_Options
</A>;
317 <span class=
"comment"><EM>-- |
</EM></span>
318 <span class=
"comment"><EM>-- |
</EM></span>
319 <span class=
"comment"><EM>-- |
</EM></span>
320 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_303_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_404_14">Switch_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_303_30" HREF=
"terminal_interface-curses-forms__ads.htm#ref_404_30">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
321 <span class=
"symbol"><A NAME=
"ref_304_30" HREF=
"terminal_interface-curses-forms__ads.htm#ref_405_30">Options
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>;
322 <span class=
"symbol"><A NAME=
"ref_305_30" HREF=
"terminal_interface-curses-forms__ads.htm#ref_406_30">On
</A></span> : Boolean := True)
324 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_307_16">Field_Opts_On
</A></span> (
<span class=
"symbol"><A NAME=
"ref_307_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_307_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
325 <span class=
"symbol"><A NAME=
"ref_308_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_307_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
326 <b>pragma
</b> Import (C, Field_Opts_On,
"field_opts_on");
327 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_310_16">Field_Opts_Off
</A></span> (
<span class=
"symbol"><A NAME=
"ref_310_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_310_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
328 <span class=
"symbol"><A NAME=
"ref_311_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_310_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
329 <b>pragma
</b> Import (C, Field_Opts_Off,
"field_opts_off");
332 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_406_30">On
</A> <b>then
</b>
333 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_307_16">Field_Opts_On
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_404_30">Fld
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_405_30">Options
</A>));
335 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_310_16">Field_Opts_Off
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_404_30">Fld
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_405_30">Options
</A>));
336 <b>end
</b> <b>if
</b>;
337 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_404_14">Switch_Options
</A>;
338 <span class=
"comment"><EM>-- |
</EM></span>
339 <span class=
"comment"><EM>-- |
</EM></span>
340 <span class=
"comment"><EM>-- |
</EM></span>
341 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_324_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_412_14">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_324_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_412_27">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
342 <span class=
"symbol"><A NAME=
"ref_325_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_413_27">Options
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>)
344 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_327_16">Field_Opts
</A></span> (
<span class=
"symbol"><A NAME=
"ref_327_28" HREF=
"terminal_interface-curses-forms__adb.htm#ref_327_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>;
345 <b>pragma
</b> Import (C, Field_Opts,
"field_opts");
348 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_413_27">Options
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_327_16">Field_Opts
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_412_27">Fld
</A>);
349 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_412_14">Get_Options
</A>;
350 <span class=
"comment"><EM>-- |
</EM></span>
351 <span class=
"comment"><EM>-- |
</EM></span>
352 <span class=
"comment"><EM>-- |
</EM></span>
353 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_336_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_417_13">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_336_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_417_26">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A>)
354 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>
356 <span class=
"symbol"><A NAME=
"ref_339_7">Fos
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>;
358 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_412_14">Get_Options
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_417_26">Fld
</A>,
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_339_7">Fos
</A>);
359 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_339_7">Fos
</A>;
360 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_417_13">Get_Options
</A>;
361 <span class=
"comment"><EM>-- |
</EM></span>
362 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
363 <span class=
"comment"><EM>-- | man page form_field_attributes
.3x
</EM></span>
364 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
365 <span class=
"comment"><EM>-- |
</EM></span>
366 <span class=
"comment"><EM>-- |
</EM></span>
367 <span class=
"comment"><EM>-- |
</EM></span>
368 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_351_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_427_14">Set_Foreground
</A></span>
369 (
<span class=
"symbol"><A NAME=
"ref_352_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_428_7">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
370 <span class=
"symbol"><A NAME=
"ref_353_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_429_7">Fore
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_485_4">Normal_Video
</A>;
371 <span class=
"symbol"><A NAME=
"ref_354_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_430_7">Color
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>'First)
373 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_356_16">Set_Field_Fore
</A></span> (
<span class=
"symbol"><A NAME=
"ref_356_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_356_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
374 <span class=
"symbol"><A NAME=
"ref_357_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_356_16">Attr
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
375 <b>pragma
</b> Import (C, Set_Field_Fore,
"set_field_fore");
378 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_356_16">Set_Field_Fore
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_428_7">Fld
</A>, (
<A HREF=
"terminal_interface-curses__ads.htm#ref_491_10">Ch
</A> =
> Character'First,
379 <A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A> =
> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_430_7">Color
</A>,
380 <A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A> =
> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_429_7">Fore
</A>)));
381 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_427_14">Set_Foreground
</A>;
382 <span class=
"comment"><EM>-- |
</EM></span>
383 <span class=
"comment"><EM>-- |
</EM></span>
384 <span class=
"comment"><EM>-- |
</EM></span>
385 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_368_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_435_14">Foreground
</A></span> (
<span class=
"symbol"><A NAME=
"ref_368_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_435_26">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
386 <span class=
"symbol"><A NAME=
"ref_369_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_436_26">Fore
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>)
388 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_371_16">Field_Fore
</A></span> (
<span class=
"symbol"><A NAME=
"ref_371_28" HREF=
"terminal_interface-curses-forms__adb.htm#ref_371_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
389 <b>pragma
</b> Import (C, Field_Fore,
"field_fore");
391 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_436_26">Fore
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_371_16">Field_Fore
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_435_26">Fld
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
392 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_435_14">Foreground
</A>;
394 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_377_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_440_14">Foreground
</A></span> (
<span class=
"symbol"><A NAME=
"ref_377_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_440_26">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
395 <span class=
"symbol"><A NAME=
"ref_378_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_441_26">Fore
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>;
396 <span class=
"symbol"><A NAME=
"ref_379_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_442_26">Color
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>)
398 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_381_16">Field_Fore
</A></span> (
<span class=
"symbol"><A NAME=
"ref_381_28" HREF=
"terminal_interface-curses-forms__adb.htm#ref_381_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
399 <b>pragma
</b> Import (C, Field_Fore,
"field_fore");
401 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_441_26">Fore
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_381_16">Field_Fore
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_440_26">Fld
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
402 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_442_26">Color
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_381_16">Field_Fore
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_440_26">Fld
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A>;
403 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_440_14">Foreground
</A>;
404 <span class=
"comment"><EM>-- |
</EM></span>
405 <span class=
"comment"><EM>-- |
</EM></span>
406 <span class=
"comment"><EM>-- |
</EM></span>
407 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_390_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_447_14">Set_Background
</A></span>
408 (
<span class=
"symbol"><A NAME=
"ref_391_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_448_7">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
409 <span class=
"symbol"><A NAME=
"ref_392_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_449_7">Back
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_485_4">Normal_Video
</A>;
410 <span class=
"symbol"><A NAME=
"ref_393_7" HREF=
"terminal_interface-curses-forms__ads.htm#ref_450_7">Color
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>'First)
412 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_395_16">Set_Field_Back
</A></span> (
<span class=
"symbol"><A NAME=
"ref_395_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_395_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
413 <span class=
"symbol"><A NAME=
"ref_396_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_395_16">Attr
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
414 <b>pragma
</b> Import (C, Set_Field_Back,
"set_field_back");
417 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_395_16">Set_Field_Back
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_448_7">Fld
</A>, (
<A HREF=
"terminal_interface-curses__ads.htm#ref_491_10">Ch
</A> =
> Character'First,
418 <A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A> =
> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_450_7">Color
</A>,
419 <A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A> =
> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_449_7">Back
</A>)));
420 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_447_14">Set_Background
</A>;
421 <span class=
"comment"><EM>-- |
</EM></span>
422 <span class=
"comment"><EM>-- |
</EM></span>
423 <span class=
"comment"><EM>-- |
</EM></span>
424 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_407_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_455_14">Background
</A></span> (
<span class=
"symbol"><A NAME=
"ref_407_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_455_26">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
425 <span class=
"symbol"><A NAME=
"ref_408_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_456_26">Back
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>)
427 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_410_16">Field_Back
</A></span> (
<span class=
"symbol"><A NAME=
"ref_410_28" HREF=
"terminal_interface-curses-forms__adb.htm#ref_410_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
428 <b>pragma
</b> Import (C, Field_Back,
"field_back");
430 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_456_26">Back
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_410_16">Field_Back
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_455_26">Fld
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
431 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_455_14">Background
</A>;
433 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_416_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_460_14">Background
</A></span> (
<span class=
"symbol"><A NAME=
"ref_416_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_460_26">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
434 <span class=
"symbol"><A NAME=
"ref_417_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_461_26">Back
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>;
435 <span class=
"symbol"><A NAME=
"ref_418_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_462_26">Color
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>)
437 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_420_16">Field_Back
</A></span> (
<span class=
"symbol"><A NAME=
"ref_420_28" HREF=
"terminal_interface-curses-forms__adb.htm#ref_420_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
438 <b>pragma
</b> Import (C, Field_Back,
"field_back");
440 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_461_26">Back
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_420_16">Field_Back
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_460_26">Fld
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
441 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_462_26">Color
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_420_16">Field_Back
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_460_26">Fld
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A>;
442 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_460_14">Background
</A>;
443 <span class=
"comment"><EM>-- |
</EM></span>
444 <span class=
"comment"><EM>-- |
</EM></span>
445 <span class=
"comment"><EM>-- |
</EM></span>
446 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_429_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_467_14">Set_Pad_Character
</A></span> (
<span class=
"symbol"><A NAME=
"ref_429_33" HREF=
"terminal_interface-curses-forms__ads.htm#ref_467_33">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
447 <span class=
"symbol"><A NAME=
"ref_430_33" HREF=
"terminal_interface-curses-forms__ads.htm#ref_468_33">Pad
</A></span> : Character := Space)
449 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_432_16">Set_Field_Pad
</A></span> (
<span class=
"symbol"><A NAME=
"ref_432_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_432_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
450 <span class=
"symbol"><A NAME=
"ref_433_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_432_16">Ch
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
451 <b>pragma
</b> Import (C, Set_Field_Pad,
"set_field_pad");
454 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_432_16">Set_Field_Pad
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_467_33">Fld
</A>,
455 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (Character'Pos (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_468_33">Pad
</A>))));
456 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_467_14">Set_Pad_Character
</A>;
457 <span class=
"comment"><EM>-- |
</EM></span>
458 <span class=
"comment"><EM>-- |
</EM></span>
459 <span class=
"comment"><EM>-- |
</EM></span>
460 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_443_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_473_14">Pad_Character
</A></span> (
<span class=
"symbol"><A NAME=
"ref_443_29" HREF=
"terminal_interface-curses-forms__ads.htm#ref_473_29">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
461 <span class=
"symbol"><A NAME=
"ref_444_29" HREF=
"terminal_interface-curses-forms__ads.htm#ref_474_29">Pad
</A></span> :
<b>out
</b> Character)
463 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_446_16">Field_Pad
</A></span> (
<span class=
"symbol"><A NAME=
"ref_446_27" HREF=
"terminal_interface-curses-forms__adb.htm#ref_446_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
464 <b>pragma
</b> Import (C, Field_Pad,
"field_pad");
466 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_474_29">Pad
</A> := Character'Val (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_446_16">Field_Pad
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_473_29">Fld
</A>));
467 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_473_14">Pad_Character
</A>;
468 <span class=
"comment"><EM>-- |
</EM></span>
469 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
470 <span class=
"comment"><EM>-- | man page form_field_info
.3x
</EM></span>
471 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
472 <span class=
"comment"><EM>-- |
</EM></span>
473 <span class=
"comment"><EM>-- |
</EM></span>
474 <span class=
"comment"><EM>-- |
</EM></span>
475 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_458_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_483_14">Info
</A></span> (
<span class=
"symbol"><A NAME=
"ref_458_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_483_20">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
476 <span class=
"symbol"><A NAME=
"ref_459_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_484_20">Lines
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
477 <span class=
"symbol"><A NAME=
"ref_460_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_485_20">Columns
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>;
478 <span class=
"symbol"><A NAME=
"ref_461_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_486_20">First_Row
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>;
479 <span class=
"symbol"><A NAME=
"ref_462_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_487_20">First_Column
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>;
480 <span class=
"symbol"><A NAME=
"ref_463_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_488_20">Off_Screen
</A></span> :
<b>out
</b> Natural;
481 <span class=
"symbol"><A NAME=
"ref_464_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_489_20">Additional_Buffers
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A>)
483 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_466_12">C_Int_Access
</A></span> <b>is
</b> <b>access
</b> <b>all
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
484 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_467_16">Fld_Info
</A></span> (
<span class=
"symbol"><A NAME=
"ref_467_26" HREF=
"terminal_interface-curses-forms__adb.htm#ref_467_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
485 <span class=
"symbol"><A NAME=
"ref_468_26" HREF=
"terminal_interface-curses-forms__adb.htm#ref_467_16">L
</A></span>,
<span class=
"symbol"><A NAME=
"ref_468_29" HREF=
"terminal_interface-curses-forms__adb.htm#ref_467_16">C
</A></span>,
<span class=
"symbol"><A NAME=
"ref_468_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_467_16">Fr
</A></span>,
<span class=
"symbol"><A NAME=
"ref_468_36" HREF=
"terminal_interface-curses-forms__adb.htm#ref_467_16">Fc
</A></span>,
<span class=
"symbol"><A NAME=
"ref_468_40" HREF=
"terminal_interface-curses-forms__adb.htm#ref_467_16">Os
</A></span>,
<span class=
"symbol"><A NAME=
"ref_468_44" HREF=
"terminal_interface-curses-forms__adb.htm#ref_467_16">Ab
</A></span> :
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_466_12">C_Int_Access
</A>)
486 <b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
487 <b>pragma
</b> Import (C, Fld_Info,
"field_info");
489 <span class=
"symbol"><A NAME=
"ref_472_7">L
</A></span>,
<span class=
"symbol"><A NAME=
"ref_472_10">C
</A></span>,
<span class=
"symbol"><A NAME=
"ref_472_13">Fr
</A></span>,
<span class=
"symbol"><A NAME=
"ref_472_17">Fc
</A></span>,
<span class=
"symbol"><A NAME=
"ref_472_21">Os
</A></span>,
<span class=
"symbol"><A NAME=
"ref_472_25">Ab
</A></span> :
<b>aliased
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
491 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_467_16">Fld_Info
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_483_20">Fld
</A>,
492 <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_7">L
</A>'
<b>Access
</b>,
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_10">C
</A>'
<b>Access
</b>,
493 <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_13">Fr
</A>'
<b>Access
</b>,
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_17">Fc
</A>'
<b>Access
</b>,
494 <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_21">Os
</A>'
<b>Access
</b>,
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_25">Ab
</A>'
<b>Access
</b>));
495 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_484_20">Lines
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_7">L
</A>);
496 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_485_20">Columns
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_10">C
</A>);
497 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_486_20">First_Row
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_13">Fr
</A>);
498 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_487_20">First_Column
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_17">Fc
</A>);
499 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_488_20">Off_Screen
</A> := Natural (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_21">Os
</A>);
500 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_489_20">Additional_Buffers
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_130_9">Buffer_Number
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_472_25">Ab
</A>);
501 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_483_14">Info
</A>;
502 <span class=
"comment"><EM>-- |
</EM></span>
503 <span class=
"comment"><EM>-- |
</EM></span>
504 <span class=
"comment"><EM>-- |
</EM></span>
505 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_488_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_494_14">Dynamic_Info
</A></span> (
<span class=
"symbol"><A NAME=
"ref_488_28" HREF=
"terminal_interface-curses-forms__ads.htm#ref_494_28">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
506 <span class=
"symbol"><A NAME=
"ref_489_28" HREF=
"terminal_interface-curses-forms__ads.htm#ref_495_28">Lines
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
507 <span class=
"symbol"><A NAME=
"ref_490_28" HREF=
"terminal_interface-curses-forms__ads.htm#ref_496_28">Columns
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>;
508 <span class=
"symbol"><A NAME=
"ref_491_28" HREF=
"terminal_interface-curses-forms__ads.htm#ref_497_28">Max
</A></span> :
<b>out
</b> Natural)
510 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_493_12">C_Int_Access
</A></span> <b>is
</b> <b>access
</b> <b>all
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
511 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_494_16">Dyn_Info
</A></span> (
<span class=
"symbol"><A NAME=
"ref_494_26" HREF=
"terminal_interface-curses-forms__adb.htm#ref_494_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
<span class=
"symbol"><A NAME=
"ref_494_39" HREF=
"terminal_interface-curses-forms__adb.htm#ref_494_16">L
</A></span>,
<span class=
"symbol"><A NAME=
"ref_494_42" HREF=
"terminal_interface-curses-forms__adb.htm#ref_494_16">C
</A></span>,
<span class=
"symbol"><A NAME=
"ref_494_45" HREF=
"terminal_interface-curses-forms__adb.htm#ref_494_16">M
</A></span> :
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_493_12">C_Int_Access
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
512 <b>pragma
</b> Import (C, Dyn_Info,
"dynamic_field_info");
514 <span class=
"symbol"><A NAME=
"ref_497_7">L
</A></span>,
<span class=
"symbol"><A NAME=
"ref_497_10">C
</A></span>,
<span class=
"symbol"><A NAME=
"ref_497_13">M
</A></span> :
<b>aliased
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
516 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_494_16">Dyn_Info
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_494_28">Fld
</A>,
517 <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_497_7">L
</A>'
<b>Access
</b>,
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_497_10">C
</A>'
<b>Access
</b>,
518 <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_497_13">M
</A>'
<b>Access
</b>));
519 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_495_28">Lines
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_497_7">L
</A>);
520 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_496_28">Columns
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_497_10">C
</A>);
521 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_497_28">Max
</A> := Natural (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_497_13">M
</A>);
522 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_494_14">Dynamic_Info
</A>;
523 <span class=
"comment"><EM>-- |
</EM></span>
524 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
525 <span class=
"comment"><EM>-- | man page form_win
.3x
</EM></span>
526 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
527 <span class=
"comment"><EM>-- |
</EM></span>
528 <span class=
"comment"><EM>-- |
</EM></span>
529 <span class=
"comment"><EM>-- |
</EM></span>
530 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_513_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_506_14">Set_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_513_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_506_26">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
531 <span class=
"symbol"><A NAME=
"ref_514_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_507_26">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
533 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_516_16">Set_Form_Win
</A></span> (
<span class=
"symbol"><A NAME=
"ref_516_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_516_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
534 <span class=
"symbol"><A NAME=
"ref_517_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_516_16">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
535 <b>pragma
</b> Import (C, Set_Form_Win,
"set_form_win");
538 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_516_16">Set_Form_Win
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_506_26">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_507_26">Win
</A>));
539 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_506_14">Set_Window
</A>;
540 <span class=
"comment"><EM>-- |
</EM></span>
541 <span class=
"comment"><EM>-- |
</EM></span>
542 <span class=
"comment"><EM>-- |
</EM></span>
543 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_526_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_512_13">Get_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_526_25" HREF=
"terminal_interface-curses-forms__ads.htm#ref_512_25">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>
545 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_528_16">Form_Win
</A></span> (
<span class=
"symbol"><A NAME=
"ref_528_26" HREF=
"terminal_interface-curses-forms__adb.htm#ref_528_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>;
546 <b>pragma
</b> Import (C, Form_Win,
"form_win");
548 <span class=
"symbol"><A NAME=
"ref_531_7">W
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_528_16">Form_Win
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_512_25">Frm
</A>);
550 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_531_7">W
</A>;
551 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_512_13">Get_Window
</A>;
552 <span class=
"comment"><EM>-- |
</EM></span>
553 <span class=
"comment"><EM>-- |
</EM></span>
554 <span class=
"comment"><EM>-- |
</EM></span>
555 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_538_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_517_14">Set_Sub_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_538_30" HREF=
"terminal_interface-curses-forms__ads.htm#ref_517_30">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
556 <span class=
"symbol"><A NAME=
"ref_539_30" HREF=
"terminal_interface-curses-forms__ads.htm#ref_518_30">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
558 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_541_16">Set_Form_Sub
</A></span> (
<span class=
"symbol"><A NAME=
"ref_541_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_541_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
559 <span class=
"symbol"><A NAME=
"ref_542_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_541_16">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
560 <b>pragma
</b> Import (C, Set_Form_Sub,
"set_form_sub");
563 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_541_16">Set_Form_Sub
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_517_30">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_518_30">Win
</A>));
564 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_517_14">Set_Sub_Window
</A>;
565 <span class=
"comment"><EM>-- |
</EM></span>
566 <span class=
"comment"><EM>-- |
</EM></span>
567 <span class=
"comment"><EM>-- |
</EM></span>
568 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_551_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_523_13">Get_Sub_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_551_29" HREF=
"terminal_interface-curses-forms__ads.htm#ref_523_29">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>
570 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_553_16">Form_Sub
</A></span> (
<span class=
"symbol"><A NAME=
"ref_553_26" HREF=
"terminal_interface-curses-forms__adb.htm#ref_553_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>;
571 <b>pragma
</b> Import (C, Form_Sub,
"form_sub");
573 <span class=
"symbol"><A NAME=
"ref_556_7">W
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_553_16">Form_Sub
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_523_29">Frm
</A>);
575 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_556_7">W
</A>;
576 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_523_13">Get_Sub_Window
</A>;
577 <span class=
"comment"><EM>-- |
</EM></span>
578 <span class=
"comment"><EM>-- |
</EM></span>
579 <span class=
"comment"><EM>-- |
</EM></span>
580 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_563_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_528_14">Scale
</A></span> (
<span class=
"symbol"><A NAME=
"ref_563_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_528_21">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
581 <span class=
"symbol"><A NAME=
"ref_564_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_529_21">Lines
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
582 <span class=
"symbol"><A NAME=
"ref_565_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_530_21">Columns
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>)
584 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_567_12">C_Int_Access
</A></span> <b>is
</b> <b>access
</b> <b>all
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
585 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_568_16">M_Scale
</A></span> (
<span class=
"symbol"><A NAME=
"ref_568_25" HREF=
"terminal_interface-curses-forms__adb.htm#ref_568_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
<span class=
"symbol"><A NAME=
"ref_568_37" HREF=
"terminal_interface-curses-forms__adb.htm#ref_568_16">Yp
</A></span>,
<span class=
"symbol"><A NAME=
"ref_568_41" HREF=
"terminal_interface-curses-forms__adb.htm#ref_568_16">Xp
</A></span> :
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_567_12">C_Int_Access
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
586 <b>pragma
</b> Import (C, M_Scale,
"scale_form");
588 <span class=
"symbol"><A NAME=
"ref_571_7">X
</A></span>,
<span class=
"symbol"><A NAME=
"ref_571_10">Y
</A></span> :
<b>aliased
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
590 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_568_16">M_Scale
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_528_21">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_571_10">Y
</A>'
<b>Access
</b>,
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_571_7">X
</A>'
<b>Access
</b>));
591 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_529_21">Lines
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_571_10">Y
</A>);
592 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_530_21">Columns
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_571_7">X
</A>);
593 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_528_14">Scale
</A>;
594 <span class=
"comment"><EM>-- |
</EM></span>
595 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
596 <span class=
"comment"><EM>-- | man page menu_hook
.3x
</EM></span>
597 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
598 <span class=
"comment"><EM>-- |
</EM></span>
599 <span class=
"comment"><EM>-- |
</EM></span>
600 <span class=
"comment"><EM>-- |
</EM></span>
601 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_584_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_542_14">Set_Field_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_584_35" HREF=
"terminal_interface-curses-forms__ads.htm#ref_542_35">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
602 <span class=
"symbol"><A NAME=
"ref_585_35" HREF=
"terminal_interface-curses-forms__ads.htm#ref_543_35">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_538_9">Form_Hook_Function
</A>)
604 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_587_16">Set_Field_Init
</A></span> (
<span class=
"symbol"><A NAME=
"ref_587_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_587_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
605 <span class=
"symbol"><A NAME=
"ref_588_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_587_16">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_538_9">Form_Hook_Function
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
606 <b>pragma
</b> Import (C, Set_Field_Init,
"set_field_init");
609 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_587_16">Set_Field_Init
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_542_35">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_543_35">Proc
</A>));
610 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_542_14">Set_Field_Init_Hook
</A>;
611 <span class=
"comment"><EM>-- |
</EM></span>
612 <span class=
"comment"><EM>-- |
</EM></span>
613 <span class=
"comment"><EM>-- |
</EM></span>
614 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_597_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_548_14">Set_Field_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_597_35" HREF=
"terminal_interface-curses-forms__ads.htm#ref_548_35">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
615 <span class=
"symbol"><A NAME=
"ref_598_35" HREF=
"terminal_interface-curses-forms__ads.htm#ref_549_35">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_538_9">Form_Hook_Function
</A>)
617 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_600_16">Set_Field_Term
</A></span> (
<span class=
"symbol"><A NAME=
"ref_600_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_600_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
618 <span class=
"symbol"><A NAME=
"ref_601_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_600_16">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_538_9">Form_Hook_Function
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
619 <b>pragma
</b> Import (C, Set_Field_Term,
"set_field_term");
622 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_600_16">Set_Field_Term
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_548_35">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_549_35">Proc
</A>));
623 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_548_14">Set_Field_Term_Hook
</A>;
624 <span class=
"comment"><EM>-- |
</EM></span>
625 <span class=
"comment"><EM>-- |
</EM></span>
626 <span class=
"comment"><EM>-- |
</EM></span>
627 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_610_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_554_14">Set_Form_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_610_34" HREF=
"terminal_interface-curses-forms__ads.htm#ref_554_34">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
628 <span class=
"symbol"><A NAME=
"ref_611_34" HREF=
"terminal_interface-curses-forms__ads.htm#ref_555_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_538_9">Form_Hook_Function
</A>)
630 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_613_16">Set_Form_Init
</A></span> (
<span class=
"symbol"><A NAME=
"ref_613_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_613_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
631 <span class=
"symbol"><A NAME=
"ref_614_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_613_16">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_538_9">Form_Hook_Function
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
632 <b>pragma
</b> Import (C, Set_Form_Init,
"set_form_init");
635 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_613_16">Set_Form_Init
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_554_34">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_555_34">Proc
</A>));
636 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_554_14">Set_Form_Init_Hook
</A>;
637 <span class=
"comment"><EM>-- |
</EM></span>
638 <span class=
"comment"><EM>-- |
</EM></span>
639 <span class=
"comment"><EM>-- |
</EM></span>
640 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_623_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_560_14">Set_Form_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_623_34" HREF=
"terminal_interface-curses-forms__ads.htm#ref_560_34">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
641 <span class=
"symbol"><A NAME=
"ref_624_34" HREF=
"terminal_interface-curses-forms__ads.htm#ref_561_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_538_9">Form_Hook_Function
</A>)
643 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_626_16">Set_Form_Term
</A></span> (
<span class=
"symbol"><A NAME=
"ref_626_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_626_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
644 <span class=
"symbol"><A NAME=
"ref_627_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_626_16">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_538_9">Form_Hook_Function
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
645 <b>pragma
</b> Import (C, Set_Form_Term,
"set_form_term");
648 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_626_16">Set_Form_Term
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_560_34">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_561_34">Proc
</A>));
649 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_560_14">Set_Form_Term_Hook
</A>;
650 <span class=
"comment"><EM>-- |
</EM></span>
651 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
652 <span class=
"comment"><EM>-- | man page form_fields
.3x
</EM></span>
653 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
654 <span class=
"comment"><EM>-- |
</EM></span>
655 <span class=
"comment"><EM>-- |
</EM></span>
656 <span class=
"comment"><EM>-- |
</EM></span>
657 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_640_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_590_14">Redefine
</A></span> (
<span class=
"symbol"><A NAME=
"ref_640_24" HREF=
"terminal_interface-curses-forms__ads.htm#ref_590_24">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
658 <span class=
"symbol"><A NAME=
"ref_641_24" HREF=
"terminal_interface-curses-forms__ads.htm#ref_591_24">Flds
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_135_9">Field_Array_Access
</A>)
660 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_643_16">Set_Frm_Fields
</A></span> (
<span class=
"symbol"><A NAME=
"ref_643_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_643_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
661 <span class=
"symbol"><A NAME=
"ref_644_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_643_16">Items
</A></span> : System.Address)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
662 <b>pragma
</b> Import (C, Set_Frm_Fields,
"set_form_fields");
665 <b>pragma
</b> Assert (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_591_24">Flds
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_591_24">Flds
</A>'Last) =
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A>);
666 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_591_24">Flds
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_591_24">Flds
</A>'Last) /=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A> <b>then
</b>
667 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
669 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_643_16">Set_Frm_Fields
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_590_24">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_591_24">Flds
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_591_24">Flds
</A>'First)'Address));
670 <b>end
</b> <b>if
</b>;
671 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_590_14">Redefine
</A>;
672 <span class=
"comment"><EM>-- |
</EM></span>
673 <span class=
"comment"><EM>-- |
</EM></span>
674 <span class=
"comment"><EM>-- |
</EM></span>
675 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_658_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_602_13">Fields
</A></span> (
<span class=
"symbol"><A NAME=
"ref_658_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_602_21">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
676 <span class=
"symbol"><A NAME=
"ref_659_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_603_21">Index
</A></span> : Positive)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>
680 <b>function
</b> C_Fields (
<span class=
"symbol"><A NAME=
"ref_663_26">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> Pointer;
681 <b>pragma
</b> Import (C, C_Fields,
"form_fields");
683 P : Pointer := C_Fields (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_602_21">Frm
</A>);
685 <b>if
</b> P =
<b>null
</b> <b>or
</b> <b>else
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_603_21">Index
</A> > <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_608_13">Field_Count
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_602_21">Frm
</A>)
<b>then
</b>
686 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
688 P := P + ptrdiff_t (
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_603_21">Index
</A>) -
1);
689 <b>return
</b> P.
<b>all
</b>;
690 <b>end
</b> <b>if
</b>;
691 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_602_13">Fields
</A>;
692 <span class=
"comment"><EM>-- |
</EM></span>
693 <span class=
"comment"><EM>-- |
</EM></span>
694 <span class=
"comment"><EM>-- |
</EM></span>
695 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_678_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_608_13">Field_Count
</A></span> (
<span class=
"symbol"><A NAME=
"ref_678_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_608_26">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> Natural
697 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_680_16">Count
</A></span> (
<span class=
"symbol"><A NAME=
"ref_680_23" HREF=
"terminal_interface-curses-forms__adb.htm#ref_680_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
698 <b>pragma
</b> Import (C, Count,
"field_count");
700 <b>return
</b> Natural (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_680_16">Count
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_608_26">Frm
</A>));
701 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_608_13">Field_Count
</A>;
702 <span class=
"comment"><EM>-- |
</EM></span>
703 <span class=
"comment"><EM>-- |
</EM></span>
704 <span class=
"comment"><EM>-- |
</EM></span>
705 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_688_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_613_14">Move
</A></span> (
<span class=
"symbol"><A NAME=
"ref_688_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_613_20">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
706 <span class=
"symbol"><A NAME=
"ref_689_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_614_20">Line
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>;
707 <span class=
"symbol"><A NAME=
"ref_690_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_615_20">Column
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>)
709 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_692_16">Move
</A></span> (
<span class=
"symbol"><A NAME=
"ref_692_22" HREF=
"terminal_interface-curses-forms__adb.htm#ref_692_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
<span class=
"symbol"><A NAME=
"ref_692_35" HREF=
"terminal_interface-curses-forms__adb.htm#ref_692_16">L
</A></span>,
<span class=
"symbol"><A NAME=
"ref_692_38" HREF=
"terminal_interface-curses-forms__adb.htm#ref_692_16">C
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
710 <b>pragma
</b> Import (C, Move,
"move_field");
713 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_692_16">Move
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_613_20">Fld
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_614_20">Line
</A>),
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_615_20">Column
</A>)));
714 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_613_14">Move
</A>;
715 <span class=
"comment"><EM>-- |
</EM></span>
716 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
717 <span class=
"comment"><EM>-- | man page form_new
.3x
</EM></span>
718 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
719 <span class=
"comment"><EM>-- |
</EM></span>
720 <span class=
"comment"><EM>-- |
</EM></span>
721 <span class=
"comment"><EM>-- |
</EM></span>
722 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_705_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_624_13">Create
</A></span> (
<span class=
"symbol"><A NAME=
"ref_705_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_624_21">Fields
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_135_9">Field_Array_Access
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>
724 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_707_16">NewForm
</A></span> (
<span class=
"symbol"><A NAME=
"ref_707_25" HREF=
"terminal_interface-curses-forms__adb.htm#ref_707_16">Fields
</A></span> : System.Address)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
725 <b>pragma
</b> Import (C, NewForm,
"new_form");
727 <span class=
"symbol"><A NAME=
"ref_710_7">M
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
729 <b>pragma
</b> Assert (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_624_21">Fields
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_624_21">Fields
</A>'Last) =
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A>);
730 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_624_21">Fields
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_624_21">Fields
</A>'Last) /=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A> <b>then
</b>
731 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
733 <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_710_7">M
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_707_16">NewForm
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_624_21">Fields
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_624_21">Fields
</A>'First)'Address);
734 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_710_7">M
</A> =
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_55_4">Null_Form
</A> <b>then
</b>
735 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
736 <b>end
</b> <b>if
</b>;
737 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_710_7">M
</A>;
738 <b>end
</b> <b>if
</b>;
739 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_624_13">Create
</A>;
740 <span class=
"comment"><EM>-- |
</EM></span>
741 <span class=
"comment"><EM>-- |
</EM></span>
742 <span class=
"comment"><EM>-- |
</EM></span>
743 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_726_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_635_14">Delete
</A></span> (
<span class=
"symbol"><A NAME=
"ref_726_22" HREF=
"terminal_interface-curses-forms__ads.htm#ref_635_22">Frm
</A></span> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
745 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_728_16">Free
</A></span> (
<span class=
"symbol"><A NAME=
"ref_728_22" HREF=
"terminal_interface-curses-forms__adb.htm#ref_728_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
746 <b>pragma
</b> Import (C, Free,
"free_form");
749 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_728_16">Free
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_635_22">Frm
</A>));
750 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_635_22">Frm
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_55_4">Null_Form
</A>;
751 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_635_14">Delete
</A>;
752 <span class=
"comment"><EM>-- |
</EM></span>
753 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
754 <span class=
"comment"><EM>-- | man page form_opts
.3x
</EM></span>
755 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
756 <span class=
"comment"><EM>-- |
</EM></span>
757 <span class=
"comment"><EM>-- |
</EM></span>
758 <span class=
"comment"><EM>-- |
</EM></span>
759 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_742_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_645_14">Set_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_742_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_645_27">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
760 <span class=
"symbol"><A NAME=
"ref_743_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_646_27">Options
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>)
762 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_745_16">Set_Form_Opts
</A></span> (
<span class=
"symbol"><A NAME=
"ref_745_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_745_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
763 <span class=
"symbol"><A NAME=
"ref_746_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_745_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
764 <b>pragma
</b> Import (C, Set_Form_Opts,
"set_form_opts");
767 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_745_16">Set_Form_Opts
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_645_27">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_646_27">Options
</A>));
768 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_645_14">Set_Options
</A>;
769 <span class=
"comment"><EM>-- |
</EM></span>
770 <span class=
"comment"><EM>-- |
</EM></span>
771 <span class=
"comment"><EM>-- |
</EM></span>
772 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_755_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_651_14">Switch_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_755_30" HREF=
"terminal_interface-curses-forms__ads.htm#ref_651_30">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
773 <span class=
"symbol"><A NAME=
"ref_756_30" HREF=
"terminal_interface-curses-forms__ads.htm#ref_652_30">Options
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>;
774 <span class=
"symbol"><A NAME=
"ref_757_30" HREF=
"terminal_interface-curses-forms__ads.htm#ref_653_30">On
</A></span> : Boolean := True)
776 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_759_16">Form_Opts_On
</A></span> (
<span class=
"symbol"><A NAME=
"ref_759_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_759_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
777 <span class=
"symbol"><A NAME=
"ref_760_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_759_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
778 <b>pragma
</b> Import (C, Form_Opts_On,
"form_opts_on");
779 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_762_16">Form_Opts_Off
</A></span> (
<span class=
"symbol"><A NAME=
"ref_762_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_762_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
780 <span class=
"symbol"><A NAME=
"ref_763_31" HREF=
"terminal_interface-curses-forms__adb.htm#ref_762_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
781 <b>pragma
</b> Import (C, Form_Opts_Off,
"form_opts_off");
784 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_653_30">On
</A> <b>then
</b>
785 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_759_16">Form_Opts_On
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_651_30">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_652_30">Options
</A>));
787 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_762_16">Form_Opts_Off
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_651_30">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_652_30">Options
</A>));
788 <b>end
</b> <b>if
</b>;
789 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_651_14">Switch_Options
</A>;
790 <span class=
"comment"><EM>-- |
</EM></span>
791 <span class=
"comment"><EM>-- |
</EM></span>
792 <span class=
"comment"><EM>-- |
</EM></span>
793 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_776_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_659_14">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_776_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_659_27">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
794 <span class=
"symbol"><A NAME=
"ref_777_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_660_27">Options
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>)
796 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_779_16">Form_Opts
</A></span> (
<span class=
"symbol"><A NAME=
"ref_779_27" HREF=
"terminal_interface-curses-forms__adb.htm#ref_779_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>;
797 <b>pragma
</b> Import (C, Form_Opts,
"form_opts");
800 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_660_27">Options
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_779_16">Form_Opts
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_659_27">Frm
</A>);
801 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_659_14">Get_Options
</A>;
802 <span class=
"comment"><EM>-- |
</EM></span>
803 <span class=
"comment"><EM>-- |
</EM></span>
804 <span class=
"comment"><EM>-- |
</EM></span>
805 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_788_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_664_13">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_788_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_664_26">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_55_4">Null_Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>
807 <span class=
"symbol"><A NAME=
"ref_790_7">Fos
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>;
809 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_659_14">Get_Options
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_664_26">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_790_7">Fos
</A>);
810 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_790_7">Fos
</A>;
811 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_664_13">Get_Options
</A>;
812 <span class=
"comment"><EM>-- |
</EM></span>
813 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
814 <span class=
"comment"><EM>-- | man page form_post
.3x
</EM></span>
815 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
816 <span class=
"comment"><EM>-- |
</EM></span>
817 <span class=
"comment"><EM>-- |
</EM></span>
818 <span class=
"comment"><EM>-- |
</EM></span>
819 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_802_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_673_14">Post
</A></span> (
<span class=
"symbol"><A NAME=
"ref_802_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_673_20">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
820 <span class=
"symbol"><A NAME=
"ref_803_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_674_20">Post
</A></span> : Boolean := True)
822 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_805_16">M_Post
</A></span> (
<span class=
"symbol"><A NAME=
"ref_805_24" HREF=
"terminal_interface-curses-forms__adb.htm#ref_805_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
823 <b>pragma
</b> Import (C, M_Post,
"post_form");
824 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_807_16">M_Unpost
</A></span> (
<span class=
"symbol"><A NAME=
"ref_807_26" HREF=
"terminal_interface-curses-forms__adb.htm#ref_807_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
825 <b>pragma
</b> Import (C, M_Unpost,
"unpost_form");
828 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_674_20">Post
</A> <b>then
</b>
829 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_805_16">M_Post
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_673_20">Frm
</A>));
831 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_807_16">M_Unpost
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_673_20">Frm
</A>));
832 <b>end
</b> <b>if
</b>;
833 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_673_14">Post
</A>;
834 <span class=
"comment"><EM>-- |
</EM></span>
835 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
836 <span class=
"comment"><EM>-- | man page form_cursor
.3x
</EM></span>
837 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
838 <span class=
"comment"><EM>-- |
</EM></span>
839 <span class=
"comment"><EM>-- |
</EM></span>
840 <span class=
"comment"><EM>-- |
</EM></span>
841 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_824_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_684_14">Position_Cursor
</A></span> (
<span class=
"symbol"><A NAME=
"ref_824_31" HREF=
"terminal_interface-curses-forms__ads.htm#ref_684_31">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
843 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_826_16">Pos_Form_Cursor
</A></span> (
<span class=
"symbol"><A NAME=
"ref_826_33" HREF=
"terminal_interface-curses-forms__adb.htm#ref_826_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
844 <b>pragma
</b> Import (C, Pos_Form_Cursor,
"pos_form_cursor");
847 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_826_16">Pos_Form_Cursor
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_684_31">Frm
</A>));
848 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_684_14">Position_Cursor
</A>;
849 <span class=
"comment"><EM>-- |
</EM></span>
850 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
851 <span class=
"comment"><EM>-- | man page form_data
.3x
</EM></span>
852 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
853 <span class=
"comment"><EM>-- |
</EM></span>
854 <span class=
"comment"><EM>-- |
</EM></span>
855 <span class=
"comment"><EM>-- |
</EM></span>
856 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_839_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_693_13">Data_Ahead
</A></span> (
<span class=
"symbol"><A NAME=
"ref_839_25" HREF=
"terminal_interface-curses-forms__ads.htm#ref_693_25">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> Boolean
858 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_841_16">Ahead
</A></span> (
<span class=
"symbol"><A NAME=
"ref_841_23" HREF=
"terminal_interface-curses-forms__adb.htm#ref_841_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
859 <b>pragma
</b> Import (C, Ahead,
"data_ahead");
861 <span class=
"symbol"><A NAME=
"ref_844_7">Res
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_841_16">Ahead
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_693_25">Frm
</A>);
863 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_844_7">Res
</A> =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_68_4">Curses_False
</A> <b>then
</b>
867 <b>end
</b> <b>if
</b>;
868 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_693_13">Data_Ahead
</A>;
869 <span class=
"comment"><EM>-- |
</EM></span>
870 <span class=
"comment"><EM>-- |
</EM></span>
871 <span class=
"comment"><EM>-- |
</EM></span>
872 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_855_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_698_13">Data_Behind
</A></span> (
<span class=
"symbol"><A NAME=
"ref_855_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_698_26">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> Boolean
874 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_857_16">Behind
</A></span> (
<span class=
"symbol"><A NAME=
"ref_857_24" HREF=
"terminal_interface-curses-forms__adb.htm#ref_857_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
875 <b>pragma
</b> Import (C, Behind,
"data_behind");
877 <span class=
"symbol"><A NAME=
"ref_860_7">Res
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_857_16">Behind
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_698_26">Frm
</A>);
879 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_860_7">Res
</A> =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_68_4">Curses_False
</A> <b>then
</b>
883 <b>end
</b> <b>if
</b>;
884 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_698_13">Data_Behind
</A>;
885 <span class=
"comment"><EM>-- |
</EM></span>
886 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
887 <span class=
"comment"><EM>-- | man page form_driver
.3x
</EM></span>
888 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
889 <span class=
"comment"><EM>-- |
</EM></span>
890 <span class=
"comment"><EM>-- |
</EM></span>
891 <span class=
"comment"><EM>-- |
</EM></span>
892 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_875_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_712_13">Driver
</A></span> (
<span class=
"symbol"><A NAME=
"ref_875_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_712_21">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
893 <span class=
"symbol"><A NAME=
"ref_876_21" HREF=
"terminal_interface-curses-forms__ads.htm#ref_713_21">Key
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_66_9">Key_Code
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_706_9">Driver_Result
</A>
895 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_878_16">Frm_Driver
</A></span> (
<span class=
"symbol"><A NAME=
"ref_878_28" HREF=
"terminal_interface-curses-forms__adb.htm#ref_878_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
<span class=
"symbol"><A NAME=
"ref_878_40" HREF=
"terminal_interface-curses-forms__adb.htm#ref_878_16">Key
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
896 <b>pragma
</b> Import (C, Frm_Driver,
"form_driver");
898 <span class=
"symbol"><A NAME=
"ref_881_7">R
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_878_16">Frm_Driver
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_712_21">Frm
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_713_21">Key
</A>));
900 <b>case
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_881_7">R
</A> <b>is
</b>
901 <b>when
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_78_7">E_Unknown_Command
</A> =
>
902 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_708_27">Unknown_Request
</A>;
903 <b>when
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_73_7">E_Invalid_Field
</A> =
>
904 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_709_27">Invalid_Field
</A>;
905 <b>when
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_74_7">E_Request_Denied
</A> =
>
906 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_707_27">Request_Denied
</A>;
907 <b>when
</b> <b>others
</b> =
>
908 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_881_7">R
</A>);
909 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_706_27">Form_Ok
</A>;
910 <b>end
</b> <b>case
</b>;
911 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_712_13">Driver
</A>;
912 <span class=
"comment"><EM>-- |
</EM></span>
913 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
914 <span class=
"comment"><EM>-- | man page form_page
.3x
</EM></span>
915 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
916 <span class=
"comment"><EM>-- |
</EM></span>
917 <span class=
"comment"><EM>-- |
</EM></span>
918 <span class=
"comment"><EM>-- |
</EM></span>
919 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_902_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_724_14">Set_Current
</A></span> (
<span class=
"symbol"><A NAME=
"ref_902_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_724_27">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
920 <span class=
"symbol"><A NAME=
"ref_903_27" HREF=
"terminal_interface-curses-forms__ads.htm#ref_725_27">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
922 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_905_16">Set_Current_Fld
</A></span> (
<span class=
"symbol"><A NAME=
"ref_905_33" HREF=
"terminal_interface-curses-forms__adb.htm#ref_905_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
<span class=
"symbol"><A NAME=
"ref_905_45" HREF=
"terminal_interface-curses-forms__adb.htm#ref_905_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
923 <b>pragma
</b> Import (C, Set_Current_Fld,
"set_current_field");
926 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_905_16">Set_Current_Fld
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_724_27">Frm
</A>,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_725_27">Fld
</A>));
927 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_724_14">Set_Current
</A>;
928 <span class=
"comment"><EM>-- |
</EM></span>
929 <span class=
"comment"><EM>-- |
</EM></span>
930 <span class=
"comment"><EM>-- |
</EM></span>
931 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_914_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_730_13">Current
</A></span> (
<span class=
"symbol"><A NAME=
"ref_914_22" HREF=
"terminal_interface-curses-forms__ads.htm#ref_730_22">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>
933 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_916_16">Current_Fld
</A></span> (
<span class=
"symbol"><A NAME=
"ref_916_29" HREF=
"terminal_interface-curses-forms__adb.htm#ref_916_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
934 <b>pragma
</b> Import (C, Current_Fld,
"current_field");
936 <span class=
"symbol"><A NAME=
"ref_919_7">Fld
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_916_16">Current_Fld
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_730_22">Frm
</A>);
938 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_919_7">Fld
</A> =
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A> <b>then
</b>
939 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
940 <b>end
</b> <b>if
</b>;
941 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_919_7">Fld
</A>;
942 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_730_13">Current
</A>;
943 <span class=
"comment"><EM>-- |
</EM></span>
944 <span class=
"comment"><EM>-- |
</EM></span>
945 <span class=
"comment"><EM>-- |
</EM></span>
946 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_929_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_735_14">Set_Page
</A></span> (
<span class=
"symbol"><A NAME=
"ref_929_24" HREF=
"terminal_interface-curses-forms__ads.htm#ref_735_24">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
947 <span class=
"symbol"><A NAME=
"ref_930_24" HREF=
"terminal_interface-curses-forms__ads.htm#ref_736_24">Page
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_721_9">Page_Number
</A> :=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_721_9">Page_Number
</A>'First)
949 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_932_16">Set_Frm_Page
</A></span> (
<span class=
"symbol"><A NAME=
"ref_932_30" HREF=
"terminal_interface-curses-forms__adb.htm#ref_932_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>;
<span class=
"symbol"><A NAME=
"ref_932_42" HREF=
"terminal_interface-curses-forms__adb.htm#ref_932_16">Pg
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
950 <b>pragma
</b> Import (C, Set_Frm_Page,
"set_form_page");
953 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_932_16">Set_Frm_Page
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_735_24">Frm
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_736_24">Page
</A>)));
954 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_735_14">Set_Page
</A>;
955 <span class=
"comment"><EM>-- |
</EM></span>
956 <span class=
"comment"><EM>-- |
</EM></span>
957 <span class=
"comment"><EM>-- |
</EM></span>
958 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_941_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_741_13">Page
</A></span> (
<span class=
"symbol"><A NAME=
"ref_941_19" HREF=
"terminal_interface-curses-forms__ads.htm#ref_741_19">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_721_9">Page_Number
</A>
960 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_943_16">Get_Page
</A></span> (
<span class=
"symbol"><A NAME=
"ref_943_26" HREF=
"terminal_interface-curses-forms__adb.htm#ref_943_16">Frm
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_52_9">Form
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
961 <b>pragma
</b> Import (C, Get_Page,
"form_page");
963 <span class=
"symbol"><A NAME=
"ref_946_7">P
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_943_16">Get_Page
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_741_19">Frm
</A>);
965 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_946_7">P
</A> < 0 <b>then
</b>
966 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
968 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_721_9">Page_Number
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_946_7">P
</A>);
969 <b>end
</b> <b>if
</b>;
970 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_741_13">Page
</A>;
972 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_955_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_746_13">Get_Index
</A></span> (
<span class=
"symbol"><A NAME=
"ref_955_24" HREF=
"terminal_interface-curses-forms__ads.htm#ref_746_24">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> Positive
974 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_957_16">Get_Fieldindex
</A></span> (
<span class=
"symbol"><A NAME=
"ref_957_32" HREF=
"terminal_interface-curses-forms__adb.htm#ref_957_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
975 <b>pragma
</b> Import (C, Get_Fieldindex,
"field_index");
977 <span class=
"symbol"><A NAME=
"ref_960_7">Res
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_957_16">Get_Fieldindex
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_746_24">Fld
</A>);
979 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_960_7">Res
</A> =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_65_4">Curses_Err
</A> <b>then
</b>
980 <b>raise
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_287_4">Form_Exception
</A>;
981 <b>end
</b> <b>if
</b>;
982 <b>return
</b> Positive (Natural (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_960_7">Res
</A>) + Positive'First);
983 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_746_13">Get_Index
</A>;
985 <span class=
"comment"><EM>-- |
</EM></span>
986 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
987 <span class=
"comment"><EM>-- | man page form_new_page
.3x
</EM></span>
988 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
989 <span class=
"comment"><EM>-- |
</EM></span>
990 <span class=
"comment"><EM>-- |
</EM></span>
991 <span class=
"comment"><EM>-- |
</EM></span>
992 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_975_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_758_14">Set_New_Page
</A></span> (
<span class=
"symbol"><A NAME=
"ref_975_28" HREF=
"terminal_interface-curses-forms__ads.htm#ref_758_28">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
993 <span class=
"symbol"><A NAME=
"ref_976_28" HREF=
"terminal_interface-curses-forms__ads.htm#ref_759_28">New_Page
</A></span> : Boolean := True)
995 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_978_16">Set_Page
</A></span> (
<span class=
"symbol"><A NAME=
"ref_978_26" HREF=
"terminal_interface-curses-forms__adb.htm#ref_978_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>;
<span class=
"symbol"><A NAME=
"ref_978_39" HREF=
"terminal_interface-curses-forms__adb.htm#ref_978_16">Flg
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
996 <b>pragma
</b> Import (C, Set_Page,
"set_new_page");
999 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_978_16">Set_Page
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_758_28">Fld
</A>, Boolean'Pos (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_759_28">New_Page
</A>)));
1000 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_758_14">Set_New_Page
</A>;
1001 <span class=
"comment"><EM>-- |
</EM></span>
1002 <span class=
"comment"><EM>-- |
</EM></span>
1003 <span class=
"comment"><EM>-- |
</EM></span>
1004 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_987_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_764_13">Is_New_Page
</A></span> (
<span class=
"symbol"><A NAME=
"ref_987_26" HREF=
"terminal_interface-curses-forms__ads.htm#ref_764_26">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> Boolean
1006 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_989_16">Is_New
</A></span> (
<span class=
"symbol"><A NAME=
"ref_989_24" HREF=
"terminal_interface-curses-forms__adb.htm#ref_989_16">Fld
</A></span> :
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_51_9">Field
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
1007 <b>pragma
</b> Import (C, Is_New,
"new_page");
1009 <span class=
"symbol"><A NAME=
"ref_992_7">Res
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> :=
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_989_16">Is_New
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_764_26">Fld
</A>);
1011 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__adb.htm#ref_992_7">Res
</A> =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_68_4">Curses_False
</A> <b>then
</b>
1012 <b>return
</b> False;
1015 <b>end
</b> <b>if
</b>;
1016 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_764_13">Is_New_Page
</A>;
1018 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_1001_14" HREF=
"terminal_interface-curses-forms__ads.htm#ref_137_14">Free
</A></span> (
<span class=
"symbol"><A NAME=
"ref_1001_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_137_20">FA
</A></span> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_135_9">Field_Array_Access
</A>;
1019 <span class=
"symbol"><A NAME=
"ref_1002_20" HREF=
"terminal_interface-curses-forms__ads.htm#ref_138_20">Free_Fields
</A></span> : Boolean := False)
1021 <b>procedure
</b> Release
<b>is
</b> <b>new
</b> Ada.Unchecked_Deallocation
1022 (Field_Array,
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_135_9">Field_Array_Access
</A>);
1024 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_137_20">FA
</A> /=
<b>null
</b> <b>and
</b> <b>then
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_138_20">Free_Fields
</A> <b>then
</b>
1025 <b>for
</b> <span class=
"symbol"><A NAME=
"ref_1008_14">I
</A></span> <b>in
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_137_20">FA
</A>'First .. (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_137_20">FA
</A>'Last -
1)
<b>loop
</b>
1026 <b>if
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_137_20">FA
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_1008_14">I
</A>) /=
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A> <b>then
</b>
1027 <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_316_14">Delete
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_137_20">FA
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-forms__adb.htm#ref_1008_14">I
</A>));
1028 <b>end
</b> <b>if
</b>;
1029 <b>end
</b> <b>loop
</b>;
1030 <b>end
</b> <b>if
</b>;
1031 Release (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_137_20">FA
</A>);
1032 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_137_14">Free
</A>;
1034 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
1036 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_1019_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_104_13">Default_Field_Options
</A></span> <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_62_9">Field_Option_Set
</A>
1039 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_417_13">Get_Options
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_54_4">Null_Field
</A>);
1040 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_104_13">Default_Field_Options
</A>;
1042 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_1025_13" HREF=
"terminal_interface-curses-forms__ads.htm#ref_126_13">Default_Form_Options
</A></span> <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_108_9">Form_Option_Set
</A>
1045 <b>return
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_664_13">Get_Options
</A> (
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_55_4">Null_Form
</A>);
1046 <b>end
</b> <A HREF=
"terminal_interface-curses-forms__ads.htm#ref_126_13">Default_Form_Options
</A>;
1048 <b>end
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-forms__ads.htm#ref_45_35">Forms
</A>;
1049 </PRE></BODY></HTML>