<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML><HEAD><TITLE>terminal_interface-curses-forms.ads</TITLE></HEAD> <BODY> <HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms.ads </H1></DIV><HR> <PRE> <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- Terminal_Interface.Curses.Form --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- S P E C --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> <FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> <FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> <FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> <FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> <FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> <FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> <FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> <FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> <FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> <FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> <FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> <FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> <FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> <FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> <FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> <FONT COLOR=green><EM>-- authorization. --</EM></FONT> <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT> <FONT COLOR=green><EM>-- Version Control:</EM></FONT> <FONT COLOR=green><EM>-- @Revision: 1.27 @</EM></FONT> <FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <FONT COLOR=green><EM>-- form binding.</EM></FONT> <FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> <FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> <FONT COLOR=green><EM>-- |</EM></FONT> <b>with</b> System; <b>with</b> Ada.Characters.Latin_1; <b>package</b> Terminal_Interface.Curses.Forms <b>is</b> <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms); <b>pragma</b> Linker_Options ("-lform"); <b>pragma</b> Linker_Options ("-lncurses"); Space : Character <b>renames</b> Ada.Characters.Latin_1.Space; <b>type</b> <FONT COLOR=red><A NAME="ref_56_9">Field</A></FONT> <b>is</b> <b>private</b>; <b>type</b> Form <b>is</b> <b>private</b>; <FONT COLOR=red><A NAME="ref_59_4">Null_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A>; Null_Form : <b>constant</b> Form; <b>type</b> Field_Justification <b>is</b> (<FONT COLOR=red><A NAME="ref_62_33">None</A></FONT>, <FONT COLOR=red><A NAME="ref_63_33">Left</A></FONT>, <FONT COLOR=red><A NAME="ref_64_33">Center</A></FONT>, Right); <b>pragma</b> Warnings (Off); <b>type</b> Field_Option_Set <b>is</b> <b>record</b> <FONT COLOR=red><A NAME="ref_70_10">Visible</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_71_10">Active</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_72_10">Public</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_73_10">Edit</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_74_10">Wrap</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_75_10">Blank</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_76_10">Auto_Skip</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_77_10">Null_Ok</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_78_10">Pass_Ok</A></FONT> : Boolean; Static : Boolean; <b>end</b> <b>record</b>; <b>pragma</b> Convention (C, Field_Option_Set); <b>for</b> Field_Option_Set <b>use</b> <b>record</b> Visible <b>at</b> 0 <b>range</b> 0 .. 0; Active <b>at</b> 0 <b>range</b> 1 .. 1; Public <b>at</b> 0 <b>range</b> 2 .. 2; Edit <b>at</b> 0 <b>range</b> 3 .. 3; Wrap <b>at</b> 0 <b>range</b> 4 .. 4; Blank <b>at</b> 0 <b>range</b> 5 .. 5; Auto_Skip <b>at</b> 0 <b>range</b> 6 .. 6; Null_Ok <b>at</b> 0 <b>range</b> 7 .. 7; Pass_Ok <b>at</b> 0 <b>range</b> 8 .. 8; Static <b>at</b> 0 <b>range</b> 9 .. 9; <b>end</b> <b>record</b>; <b>for</b> Field_Option_Set'Size <b>use</b> 32; <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> <FONT COLOR=green><EM>-- different on your system.Dnl</EM></FONT> <b>pragma</b> Warnings (On); <b>function</b> Default_Field_Options <b>return</b> Field_Option_Set; <FONT COLOR=green><EM>-- The initial defaults for the field options.</EM></FONT> <b>pragma</b> Inline (Default_Field_Options); <b>pragma</b> Warnings (Off); <b>type</b> Form_Option_Set <b>is</b> <b>record</b> <FONT COLOR=red><A NAME="ref_109_10">NL_Overload</A></FONT> : Boolean; BS_Overload : Boolean; <b>end</b> <b>record</b>; <b>pragma</b> Convention (C, Form_Option_Set); <b>for</b> Form_Option_Set <b>use</b> <b>record</b> NL_Overload <b>at</b> 0 <b>range</b> 0 .. 0; BS_Overload <b>at</b> 0 <b>range</b> 1 .. 1; <b>end</b> <b>record</b>; <b>for</b> Form_Option_Set'Size <b>use</b> 32; <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> <FONT COLOR=green><EM>-- different on your system.Dnl</EM></FONT> <b>pragma</b> Warnings (On); <b>function</b> Default_Form_Options <b>return</b> Form_Option_Set; <FONT COLOR=green><EM>-- The initial defaults for the form options.</EM></FONT> <b>pragma</b> Inline (Default_Form_Options); <b>type</b> Buffer_Number <b>is</b> <b>new</b> Natural; <b>type</b> Field_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <b>aliased</b> Field; <b>pragma</b> Convention (C, Field_Array); <b>type</b> Field_Array_Access <b>is</b> <b>access</b> Field_Array; <b>procedure</b> Free (<FONT COLOR=red><A NAME="ref_136_20" HREF="terminal_interface-curses-forms__adb.htm#ref_1132_20">FA</A></FONT> : <b>in</b> <b>out</b> Field_Array_Access; Free_Fields : <b>in</b> Boolean := False); <FONT COLOR=green><EM>-- Release the memory for an allocated field array</EM></FONT> <FONT COLOR=green><EM>-- If Free_Fields is True, call Delete() for all the fields in</EM></FONT> <FONT COLOR=green><EM>-- the array.</EM></FONT> <b>subtype</b> Form_Request_Code <b>is</b> Key_Code <b>range</b> (Key_Max + 1) .. (Key_Max + 57); <FONT COLOR=green><EM>-- The prefix F_ stands for "Form Request"</EM></FONT> <FONT COLOR=red><A NAME="ref_145_4">F_Next_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 1; <FONT COLOR=red><A NAME="ref_146_4">F_Previous_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 2; <FONT COLOR=red><A NAME="ref_147_4">F_First_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 3; F_Last_Page : <b>constant</b> Form_Request_Code := Key_Max + 4; <FONT COLOR=red><A NAME="ref_150_4">F_Next_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 5; <FONT COLOR=red><A NAME="ref_151_4">F_Previous_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 6; <FONT COLOR=red><A NAME="ref_152_4">F_First_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 7; <FONT COLOR=red><A NAME="ref_153_4">F_Last_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 8; <FONT COLOR=red><A NAME="ref_154_4">F_Sorted_Next_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 9; <FONT COLOR=red><A NAME="ref_155_4">F_Sorted_Previous_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 10; <FONT COLOR=red><A NAME="ref_156_4">F_Sorted_First_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 11; <FONT COLOR=red><A NAME="ref_157_4">F_Sorted_Last_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 12; <FONT COLOR=red><A NAME="ref_158_4">F_Left_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 13; <FONT COLOR=red><A NAME="ref_159_4">F_Right_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 14; <FONT COLOR=red><A NAME="ref_160_4">F_Up_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 15; F_Down_Field : <b>constant</b> Form_Request_Code := Key_Max + 16; <FONT COLOR=red><A NAME="ref_163_4">F_Next_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 17; <FONT COLOR=red><A NAME="ref_164_4">F_Previous_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 18; <FONT COLOR=red><A NAME="ref_165_4">F_Next_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 19; <FONT COLOR=red><A NAME="ref_166_4">F_Previous_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 20; <FONT COLOR=red><A NAME="ref_167_4">F_Next_Word</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 21; <FONT COLOR=red><A NAME="ref_168_4">F_Previous_Word</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 22; <FONT COLOR=red><A NAME="ref_169_4">F_Begin_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 23; <FONT COLOR=red><A NAME="ref_170_4">F_End_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 24; <FONT COLOR=red><A NAME="ref_171_4">F_Begin_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 25; <FONT COLOR=red><A NAME="ref_172_4">F_End_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 26; <FONT COLOR=red><A NAME="ref_173_4">F_Left_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 27; <FONT COLOR=red><A NAME="ref_174_4">F_Right_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 28; <FONT COLOR=red><A NAME="ref_175_4">F_Up_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 29; F_Down_Char : <b>constant</b> Form_Request_Code := Key_Max + 30; <FONT COLOR=red><A NAME="ref_178_4">F_New_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 31; <FONT COLOR=red><A NAME="ref_179_4">F_Insert_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 32; <FONT COLOR=red><A NAME="ref_180_4">F_Insert_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 33; <FONT COLOR=red><A NAME="ref_181_4">F_Delete_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 34; <FONT COLOR=red><A NAME="ref_182_4">F_Delete_Previous</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 35; <FONT COLOR=red><A NAME="ref_183_4">F_Delete_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 36; <FONT COLOR=red><A NAME="ref_184_4">F_Delete_Word</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 37; <FONT COLOR=red><A NAME="ref_185_4">F_Clear_EOL</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 38; <FONT COLOR=red><A NAME="ref_186_4">F_Clear_EOF</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 39; <FONT COLOR=red><A NAME="ref_187_4">F_Clear_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 40; <FONT COLOR=red><A NAME="ref_188_4">F_Overlay_Mode</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 41; F_Insert_Mode : <b>constant</b> Form_Request_Code := Key_Max + 42; <FONT COLOR=green><EM>-- Vertical Scrolling</EM></FONT> <FONT COLOR=red><A NAME="ref_192_4">F_ScrollForward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 43; <FONT COLOR=red><A NAME="ref_193_4">F_ScrollBackward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 44; <FONT COLOR=red><A NAME="ref_194_4">F_ScrollForward_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 45; <FONT COLOR=red><A NAME="ref_195_4">F_ScrollBackward_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 46; <FONT COLOR=red><A NAME="ref_196_4">F_ScrollForward_HalfPage</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 47; F_ScrollBackward_HalfPage : <b>constant</b> Form_Request_Code := Key_Max + 48; <FONT COLOR=green><EM>-- Horizontal Scrolling</EM></FONT> <FONT COLOR=red><A NAME="ref_200_4">F_HScrollForward_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 49; <FONT COLOR=red><A NAME="ref_201_4">F_HScrollBackward_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 50; <FONT COLOR=red><A NAME="ref_202_4">F_HScrollForward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 51; <FONT COLOR=red><A NAME="ref_203_4">F_HScrollBackward_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 52; <FONT COLOR=red><A NAME="ref_204_4">F_HScrollForward_HalfLine</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 53; F_HScrollBackward_HalfLine : <b>constant</b> Form_Request_Code := Key_Max + 54; <FONT COLOR=red><A NAME="ref_207_4">F_Validate_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 55; <FONT COLOR=red><A NAME="ref_208_4">F_Next_Choice</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 56; F_Previous_Choice : <b>constant</b> Form_Request_Code := Key_Max + 57; <FONT COLOR=green><EM>-- For those who like the old 'C' style request names</EM></FONT> REQ_NEXT_PAGE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_145_4">F_Next_Page</A>; REQ_PREV_PAGE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_146_4">F_Previous_Page</A>; REQ_FIRST_PAGE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_147_4">F_First_Page</A>; REQ_LAST_PAGE : Form_Request_Code <b>renames</b> F_Last_Page; REQ_NEXT_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_150_4">F_Next_Field</A>; REQ_PREV_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_151_4">F_Previous_Field</A>; REQ_FIRST_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_152_4">F_First_Field</A>; REQ_LAST_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_153_4">F_Last_Field</A>; REQ_SNEXT_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_154_4">F_Sorted_Next_Field</A>; REQ_SPREV_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_155_4">F_Sorted_Previous_Field</A>; REQ_SFIRST_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_156_4">F_Sorted_First_Field</A>; REQ_SLAST_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_157_4">F_Sorted_Last_Field</A>; REQ_LEFT_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_158_4">F_Left_Field</A>; REQ_RIGHT_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_159_4">F_Right_Field</A>; REQ_UP_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_160_4">F_Up_Field</A>; REQ_DOWN_FIELD : Form_Request_Code <b>renames</b> F_Down_Field; REQ_NEXT_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_163_4">F_Next_Char</A>; REQ_PREV_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_164_4">F_Previous_Char</A>; REQ_NEXT_LINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_165_4">F_Next_Line</A>; REQ_PREV_LINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_166_4">F_Previous_Line</A>; REQ_NEXT_WORD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_167_4">F_Next_Word</A>; REQ_PREV_WORD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_168_4">F_Previous_Word</A>; REQ_BEG_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_169_4">F_Begin_Field</A>; REQ_END_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_170_4">F_End_Field</A>; REQ_BEG_LINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_171_4">F_Begin_Line</A>; REQ_END_LINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_172_4">F_End_Line</A>; REQ_LEFT_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_173_4">F_Left_Char</A>; REQ_RIGHT_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_174_4">F_Right_Char</A>; REQ_UP_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_175_4">F_Up_Char</A>; REQ_DOWN_CHAR : Form_Request_Code <b>renames</b> F_Down_Char; REQ_NEW_LINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_178_4">F_New_Line</A>; REQ_INS_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_179_4">F_Insert_Char</A>; REQ_INS_LINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_180_4">F_Insert_Line</A>; REQ_DEL_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_181_4">F_Delete_Char</A>; REQ_DEL_PREV : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_182_4">F_Delete_Previous</A>; REQ_DEL_LINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_183_4">F_Delete_Line</A>; REQ_DEL_WORD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_184_4">F_Delete_Word</A>; REQ_CLR_EOL : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_185_4">F_Clear_EOL</A>; REQ_CLR_EOF : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_186_4">F_Clear_EOF</A>; REQ_CLR_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_187_4">F_Clear_Field</A>; REQ_OVL_MODE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_188_4">F_Overlay_Mode</A>; REQ_INS_MODE : Form_Request_Code <b>renames</b> F_Insert_Mode; REQ_SCR_FLINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_192_4">F_ScrollForward_Line</A>; REQ_SCR_BLINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_193_4">F_ScrollBackward_Line</A>; REQ_SCR_FPAGE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_194_4">F_ScrollForward_Page</A>; REQ_SCR_BPAGE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_195_4">F_ScrollBackward_Page</A>; REQ_SCR_FHPAGE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_196_4">F_ScrollForward_HalfPage</A>; REQ_SCR_BHPAGE : Form_Request_Code <b>renames</b> F_ScrollBackward_HalfPage; REQ_SCR_FCHAR : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_200_4">F_HScrollForward_Char</A>; REQ_SCR_BCHAR : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_201_4">F_HScrollBackward_Char</A>; REQ_SCR_HFLINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_202_4">F_HScrollForward_Line</A>; REQ_SCR_HBLINE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_203_4">F_HScrollBackward_Line</A>; REQ_SCR_HFHALF : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_204_4">F_HScrollForward_HalfLine</A>; REQ_SCR_HBHALF : Form_Request_Code <b>renames</b> F_HScrollBackward_HalfLine; REQ_VALIDATION : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_207_4">F_Validate_Field</A>; REQ_NEXT_CHOICE : <A HREF="terminal_interface-curses-forms__ads.htm#ref_141_12">Form_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_208_4">F_Next_Choice</A>; REQ_PREV_CHOICE : Form_Request_Code <b>renames</b> F_Previous_Choice; <b>procedure</b> Request_Name (<FONT COLOR=red><A NAME="ref_277_28" HREF="terminal_interface-curses-forms__adb.htm#ref_82_33">Key</A></FONT> : <b>in</b> Form_Request_Code; Name : <b>out</b> String); <b>function</b> Request_Name (Key : Form_Request_Code) <b>return</b> String; <FONT COLOR=green><EM>-- Same as function</EM></FONT> <b>pragma</b> Inline (Request_Name); <FONT COLOR=green><EM>------------------</EM></FONT> <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> <FONT COLOR=green><EM>------------------</EM></FONT> Form_Exception : <b>exception</b>; <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> <b>function</b> Create (<FONT COLOR=red><A NAME="ref_294_21" HREF="terminal_interface-curses-forms__adb.htm#ref_109_21">Height</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; <FONT COLOR=red><A NAME="ref_295_21" HREF="terminal_interface-curses-forms__adb.htm#ref_110_21">Width</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>; <FONT COLOR=red><A NAME="ref_296_21" HREF="terminal_interface-curses-forms__adb.htm#ref_111_21">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_297_21" HREF="terminal_interface-curses-forms__adb.htm#ref_112_21">Left</A></FONT> : Column_Position; <FONT COLOR=red><A NAME="ref_298_21" HREF="terminal_interface-curses-forms__adb.htm#ref_113_21">Off_Screen</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Natural</A> := 0; More_Buffers : Buffer_Number := Buffer_Number'First) <b>return</b> Field; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT> <FONT COLOR=green><EM>-- An overloaded Create is defined later. Pragma Inline appears there.</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> <b>function</b> New_Field (<FONT COLOR=red><A NAME="ref_305_24">Height</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; <FONT COLOR=red><A NAME="ref_306_24">Width</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>; <FONT COLOR=red><A NAME="ref_307_24">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_308_24">Left</A></FONT> : Column_Position; <FONT COLOR=red><A NAME="ref_309_24">Off_Screen</A></FONT> : <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Natural</A> := 0; More_Buffers : Buffer_Number := Buffer_Number'First) <b>return</b> Field <b>renames</b> Create; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT> <b>pragma</b> Inline (New_Field); <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> <b>procedure</b> Delete (Fld : <b>in</b> <b>out</b> Field); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">free_field()</A></EM></FONT> <FONT COLOR=green><EM>-- Reset Fld to Null_Field</EM></FONT> <FONT COLOR=green><EM>-- An overloaded Delete is defined later. Pragma Inline appears there.</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> <b>function</b> Duplicate (<FONT COLOR=red><A NAME="ref_322_24" HREF="terminal_interface-curses-forms__adb.htm#ref_148_24">Fld</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Field</A>; <FONT COLOR=red><A NAME="ref_323_24" HREF="terminal_interface-curses-forms__adb.htm#ref_149_24">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Left : Column_Position) <b>return</b> Field; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">dup_field()</A></EM></FONT> <b>pragma</b> Inline (Duplicate); <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> <b>function</b> Link (<FONT COLOR=red><A NAME="ref_329_19" HREF="terminal_interface-curses-forms__adb.htm#ref_169_19">Fld</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Field</A>; <FONT COLOR=red><A NAME="ref_330_19" HREF="terminal_interface-curses-forms__adb.htm#ref_170_19">Top</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Left : Column_Position) <b>return</b> Field; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">link_field()</A></EM></FONT> <b>pragma</b> Inline (Link); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> <b>procedure</b> Set_Justification (<FONT COLOR=red><A NAME="ref_340_33" HREF="terminal_interface-curses-forms__adb.htm#ref_194_33">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_61_9">Field</A>; Just : <b>in</b> Field_Justification := None); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_just.3x.html">set_field_just()</A></EM></FONT> <b>pragma</b> Inline (Set_Justification); <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> <b>function</b> Get_Justification (Fld : Field) <b>return</b> Field_Justification; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_just.3x.html">field_just()</A></EM></FONT> <b>pragma</b> Inline (Get_Justification); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> <b>procedure</b> Set_Buffer (<FONT COLOR=red><A NAME="ref_356_7" HREF="terminal_interface-curses-forms__adb.htm#ref_227_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Field</A>; <FONT COLOR=red><A NAME="ref_357_7" HREF="terminal_interface-curses-forms__adb.htm#ref_228_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First; Str : <b>in</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_buffer()</A></EM></FONT> <FONT COLOR=green><EM>-- Not inlined</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> <b>procedure</b> Get_Buffer (<FONT COLOR=red><A NAME="ref_364_7" HREF="terminal_interface-curses-forms__adb.htm#ref_252_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Field</A>; <FONT COLOR=red><A NAME="ref_365_7" HREF="terminal_interface-curses-forms__adb.htm#ref_253_7">Buffer</A></FONT> : <b>in</b> Buffer_Number := Buffer_Number'First; Str : <b>out</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT> <b>function</b> Get_Buffer (<FONT COLOR=red><A NAME="ref_370_7" HREF="terminal_interface-curses-forms__adb.htm#ref_264_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Field</A>; Buffer : <b>in</b> Buffer_Number := Buffer_Number'First) <b>return</b> String; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT> <FONT COLOR=green><EM>-- Same but as function</EM></FONT> <b>pragma</b> Inline (Get_Buffer); <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> <b>procedure</b> Set_Status (<FONT COLOR=red><A NAME="ref_377_26" HREF="terminal_interface-curses-forms__adb.htm#ref_276_26">Fld</A></FONT> : <b>in</b> Field; Status : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_status()</A></EM></FONT> <b>pragma</b> Inline (Set_Status); <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> <b>function</b> Changed (Fld : Field) <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_status()</A></EM></FONT> <b>pragma</b> Inline (Changed); <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> <b>procedure</b> Set_Maximum_Size (<FONT COLOR=red><A NAME="ref_388_32" HREF="terminal_interface-curses-forms__adb.htm#ref_308_32">Fld</A></FONT> : <b>in</b> Field; Max : <b>in</b> Natural := 0); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_max()</A></EM></FONT> <b>pragma</b> Inline (Set_Maximum_Size); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="ref_398_27" HREF="terminal_interface-curses-forms__adb.htm#ref_328_27">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field</A>; Options : <b>in</b> Field_Option_Set); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">set_field_opts()</A></EM></FONT> <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="ref_404_30" HREF="terminal_interface-curses-forms__adb.htm#ref_346_30">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field</A>; <FONT COLOR=red><A NAME="ref_405_30" HREF="terminal_interface-curses-forms__adb.htm#ref_347_30">Options</A></FONT> : <b>in</b> Field_Option_Set; On : Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts_on()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: field_opts_off()</EM></FONT> <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="ref_412_27" HREF="terminal_interface-curses-forms__adb.htm#ref_372_27">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_67_9">Field</A>; Options : <b>out</b> Field_Option_Set); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> <b>function</b> Get_Options (Fld : Field := Null_Field) <b>return</b> Field_Option_Set; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT> <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> <b>procedure</b> Set_Foreground (<FONT COLOR=red><A NAME="ref_428_7" HREF="terminal_interface-curses-forms__adb.htm#ref_401_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>; <FONT COLOR=red><A NAME="ref_429_7" HREF="terminal_interface-curses-forms__adb.htm#ref_402_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A> := Normal_Video; Color : <b>in</b> Color_Pair := Color_Pair'First); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_fore()</A></EM></FONT> <b>pragma</b> Inline (Set_Foreground); <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="ref_435_26" HREF="terminal_interface-curses-forms__adb.htm#ref_422_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>; Fore : <b>out</b> Character_Attribute_Set); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="ref_440_26" HREF="terminal_interface-curses-forms__adb.htm#ref_431_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>; <FONT COLOR=red><A NAME="ref_441_26" HREF="terminal_interface-curses-forms__adb.htm#ref_432_26">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A>; Color : <b>out</b> Color_Pair); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT> <b>pragma</b> Inline (Foreground); <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> <b>procedure</b> Set_Background (<FONT COLOR=red><A NAME="ref_448_7" HREF="terminal_interface-curses-forms__adb.htm#ref_445_7">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>; <FONT COLOR=red><A NAME="ref_449_7" HREF="terminal_interface-curses-forms__adb.htm#ref_446_7">Back</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A> := Normal_Video; Color : <b>in</b> Color_Pair := Color_Pair'First); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_back()</A></EM></FONT> <b>pragma</b> Inline (Set_Background); <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> <b>procedure</b> Background (<FONT COLOR=red><A NAME="ref_455_26" HREF="terminal_interface-curses-forms__adb.htm#ref_466_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>; Back : <b>out</b> Character_Attribute_Set); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> <b>procedure</b> Background (<FONT COLOR=red><A NAME="ref_460_26" HREF="terminal_interface-curses-forms__adb.htm#ref_475_26">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Field</A>; <FONT COLOR=red><A NAME="ref_461_26" HREF="terminal_interface-curses-forms__adb.htm#ref_476_26">Back</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A>; Color : <b>out</b> Color_Pair); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT> <b>pragma</b> Inline (Background); <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> <b>procedure</b> Set_Pad_Character (<FONT COLOR=red><A NAME="ref_467_33" HREF="terminal_interface-curses-forms__adb.htm#ref_488_33">Fld</A></FONT> : <b>in</b> Field; Pad : <b>in</b> Character := Space); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_pad()</A></EM></FONT> <b>pragma</b> Inline (Set_Pad_Character); <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> <b>procedure</b> Pad_Character (<FONT COLOR=red><A NAME="ref_473_29" HREF="terminal_interface-curses-forms__adb.htm#ref_505_29">Fld</A></FONT> : <b>in</b> Field; Pad : <b>out</b> Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_pad()</A></EM></FONT> <b>pragma</b> Inline (Pad_Character); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> <b>procedure</b> Info (<FONT COLOR=red><A NAME="ref_483_20" HREF="terminal_interface-curses-forms__adb.htm#ref_520_20">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Field</A>; <FONT COLOR=red><A NAME="ref_484_20" HREF="terminal_interface-curses-forms__adb.htm#ref_521_20">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; <FONT COLOR=red><A NAME="ref_485_20" HREF="terminal_interface-curses-forms__adb.htm#ref_522_20">Columns</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>; <FONT COLOR=red><A NAME="ref_486_20" HREF="terminal_interface-curses-forms__adb.htm#ref_523_20">First_Row</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_487_20" HREF="terminal_interface-curses-forms__adb.htm#ref_524_20">First_Column</A></FONT> : <b>out</b> Column_Position; <FONT COLOR=red><A NAME="ref_488_20" HREF="terminal_interface-curses-forms__adb.htm#ref_525_20">Off_Screen</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_128_9">Natural</A>; Additional_Buffers : <b>out</b> Buffer_Number); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_info.3x.html">field_info()</A></EM></FONT> <b>pragma</b> Inline (Info); <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> <b>procedure</b> Dynamic_Info (<FONT COLOR=red><A NAME="ref_494_28" HREF="terminal_interface-curses-forms__adb.htm#ref_554_28">Fld</A></FONT> : <b>in</b> Field; <FONT COLOR=red><A NAME="ref_495_28" HREF="terminal_interface-curses-forms__adb.htm#ref_555_28">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; <FONT COLOR=red><A NAME="ref_496_28" HREF="terminal_interface-curses-forms__adb.htm#ref_556_28">Columns</A></FONT> : <b>out</b> Column_Count; Max : <b>out</b> Natural); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_info.3x.html">dynamic_field_info()</A></EM></FONT> <b>pragma</b> Inline (Dynamic_Info); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_win.3x.html">form_win.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="ref_506_26" HREF="terminal_interface-curses-forms__adb.htm#ref_583_26">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Form</A>; Win : <b>in</b> Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">set_form_win()</A></EM></FONT> <b>pragma</b> Inline (Set_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> <b>function</b> Get_Window (Frm : Form) <b>return</b> Window; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">form_win()</A></EM></FONT> <b>pragma</b> Inline (Get_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="ref_517_30" HREF="terminal_interface-curses-forms__adb.htm#ref_611_30">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Form</A>; Win : <b>in</b> Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">set_form_sub()</A></EM></FONT> <b>pragma</b> Inline (Set_Sub_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> <b>function</b> Get_Sub_Window (Frm : Form) <b>return</b> Window; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">form_sub()</A></EM></FONT> <b>pragma</b> Inline (Get_Sub_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> <b>procedure</b> Scale (<FONT COLOR=red><A NAME="ref_528_21" HREF="terminal_interface-curses-forms__adb.htm#ref_639_21">Frm</A></FONT> : <b>in</b> Form; <FONT COLOR=red><A NAME="ref_529_21" HREF="terminal_interface-curses-forms__adb.htm#ref_640_21">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; Columns : <b>out</b> Column_Count); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">scale_form()</A></EM></FONT> <b>pragma</b> Inline (Scale); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_hook.3x.html">form_hook.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <b>type</b> Form_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Frm : <b>in</b> Form); <b>pragma</b> Convention (C, Form_Hook_Function); <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> <b>procedure</b> Set_Field_Init_Hook (<FONT COLOR=red><A NAME="ref_542_35" HREF="terminal_interface-curses-forms__adb.htm#ref_663_35">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form</A>; Proc : <b>in</b> Form_Hook_Function); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_field_init()</A></EM></FONT> <b>pragma</b> Inline (Set_Field_Init_Hook); <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> <b>procedure</b> Set_Field_Term_Hook (<FONT COLOR=red><A NAME="ref_548_35" HREF="terminal_interface-curses-forms__adb.htm#ref_679_35">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form</A>; Proc : <b>in</b> Form_Hook_Function); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_field_term()</A></EM></FONT> <b>pragma</b> Inline (Set_Field_Term_Hook); <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> <b>procedure</b> Set_Form_Init_Hook (<FONT COLOR=red><A NAME="ref_554_34" HREF="terminal_interface-curses-forms__adb.htm#ref_695_34">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form</A>; Proc : <b>in</b> Form_Hook_Function); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_form_init()</A></EM></FONT> <b>pragma</b> Inline (Set_Form_Init_Hook); <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> <b>procedure</b> Set_Form_Term_Hook (<FONT COLOR=red><A NAME="ref_560_34" HREF="terminal_interface-curses-forms__adb.htm#ref_711_34">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_537_9">Form</A>; Proc : <b>in</b> Form_Hook_Function); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_form_term()</A></EM></FONT> <b>pragma</b> Inline (Set_Form_Term_Hook); <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> <b>function</b> Get_Field_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">field_init()</A></EM></FONT> <b>pragma</b> Import (C, Get_Field_Init_Hook, "field_init"); <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> <b>function</b> Get_Field_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">field_term()</A></EM></FONT> <b>pragma</b> Import (C, Get_Field_Term_Hook, "field_term"); <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> <b>function</b> Get_Form_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">form_init()</A></EM></FONT> <b>pragma</b> Import (C, Get_Form_Init_Hook, "form_init"); <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> <b>function</b> Get_Form_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">form_term()</A></EM></FONT> <b>pragma</b> Import (C, Get_Form_Term_Hook, "form_term"); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field.3x.html">form_field.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> <b>procedure</b> Redefine (<FONT COLOR=red><A NAME="ref_590_24" HREF="terminal_interface-curses-forms__adb.htm#ref_731_24">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Form</A>; Flds : <b>in</b> Field_Array_Access); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT> <b>pragma</b> Inline (Redefine); <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> <b>procedure</b> Set_Fields (<FONT COLOR=red><A NAME="ref_596_26">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_133_9">Form</A>; Flds : <b>in</b> Field_Array_Access) <b>renames</b> Redefine; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT> <b>pragma</b> Inline (Set_Fields); <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> <b>function</b> Fields (<FONT COLOR=red><A NAME="ref_602_21" HREF="terminal_interface-curses-forms__adb.htm#ref_753_21">Frm</A></FONT> : Form; Index : Positive) <b>return</b> Field; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">form_fields()</A></EM></FONT> <b>pragma</b> Inline (Fields); <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> <b>function</b> Field_Count (Frm : Form) <b>return</b> Natural; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">field_count()</A></EM></FONT> <b>pragma</b> Inline (Field_Count); <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT> <b>procedure</b> Move (<FONT COLOR=red><A NAME="ref_613_20" HREF="terminal_interface-curses-forms__adb.htm#ref_783_20">Fld</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Field</A>; <FONT COLOR=red><A NAME="ref_614_20" HREF="terminal_interface-curses-forms__adb.htm#ref_784_20">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Column : <b>in</b> Column_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">move_field()</A></EM></FONT> <b>pragma</b> Inline (Move); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_new.3x.html">form_new.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT> <b>function</b> Create (Fields : Field_Array_Access) <b>return</b> Form; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT> <b>pragma</b> Inline (Create); <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT> <b>function</b> New_Form (Fields : Field_Array_Access) <b>return</b> Form <b>renames</b> Create; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT> <b>pragma</b> Inline (New_Form); <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT> <b>procedure</b> Delete (Frm : <b>in</b> <b>out</b> Form); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">free_form()</A></EM></FONT> <FONT COLOR=green><EM>-- Reset Frm to Null_Form</EM></FONT> <b>pragma</b> Inline (Delete); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_opts.3x.html">form_opts.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT> <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="ref_645_27" HREF="terminal_interface-curses-forms__adb.htm#ref_843_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form</A>; Options : <b>in</b> Form_Option_Set); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">set_form_opts()</A></EM></FONT> <b>pragma</b> Inline (Set_Options); <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT> <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="ref_651_30" HREF="terminal_interface-curses-forms__adb.htm#ref_861_30">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form</A>; <FONT COLOR=red><A NAME="ref_652_30" HREF="terminal_interface-curses-forms__adb.htm#ref_862_30">Options</A></FONT> : <b>in</b> Form_Option_Set; On : Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts_on()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: form_opts_off()</EM></FONT> <b>pragma</b> Inline (Switch_Options); <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT> <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="ref_659_27" HREF="terminal_interface-curses-forms__adb.htm#ref_887_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_106_9">Form</A>; Options : <b>out</b> Form_Option_Set); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT> <b>function</b> Get_Options (Frm : Form := Null_Form) <b>return</b> Form_Option_Set; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT> <b>pragma</b> Inline (Get_Options); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_post.3x.html">form_post.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT> <b>procedure</b> Post (<FONT COLOR=red><A NAME="ref_673_20" HREF="terminal_interface-curses-forms__adb.htm#ref_914_20">Frm</A></FONT> : <b>in</b> Form; Post : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_post.3x.html">post_form()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: unpost_form()</EM></FONT> <b>pragma</b> Inline (Post); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_cursor.3x.html">form_cursor.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT> <b>procedure</b> Position_Cursor (Frm : Form); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_cursor.3x.html">pos_form_cursor()</A></EM></FONT> <b>pragma</b> Inline (Position_Cursor); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_data.3x.html">form_data.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT> <b>function</b> Data_Ahead (Frm : Form) <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_data.3x.html">data_ahead()</A></EM></FONT> <b>pragma</b> Inline (Data_Ahead); <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT> <b>function</b> Data_Behind (Frm : Form) <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_data.3x.html">data_behind()</A></EM></FONT> <b>pragma</b> Inline (Data_Behind); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_driver.3x.html">form_driver.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="ref_706_27">Form_Ok</A></FONT>, <FONT COLOR=red><A NAME="ref_707_27">Request_Denied</A></FONT>, <FONT COLOR=red><A NAME="ref_708_27">Unknown_Request</A></FONT>, Invalid_Field); <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT> <b>function</b> Driver (<FONT COLOR=red><A NAME="ref_712_21" HREF="terminal_interface-curses-forms__adb.htm#ref_994_21">Frm</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_68_9">Form</A>; Key : Key_Code) <b>return</b> Driver_Result; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_driver.3x.html">form_driver()</A></EM></FONT> <FONT COLOR=green><EM>-- Driver not inlined</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_page.3x.html">form_page.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <b>type</b> Page_Number <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT> <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="ref_724_27" HREF="terminal_interface-curses-forms__adb.htm#ref_1024_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_55_9">Form</A>; Fld : <b>in</b> Field); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">set_current_field()</A></EM></FONT> <b>pragma</b> Inline (Set_Current); <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT> <b>function</b> Current (Frm : <b>in</b> Form) <b>return</b> Field; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">current_field()</A></EM></FONT> <b>pragma</b> Inline (Current); <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT> <b>procedure</b> Set_Page (<FONT COLOR=red><A NAME="ref_735_24" HREF="terminal_interface-curses-forms__adb.htm#ref_1054_24">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_720_9">Form</A>; Page : <b>in</b> Page_Number := Page_Number'First); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">set_form_page()</A></EM></FONT> <b>pragma</b> Inline (Set_Page); <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT> <b>function</b> Page (Frm : Form) <b>return</b> Page_Number; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">form_page()</A></EM></FONT> <b>pragma</b> Inline (Page); <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT> <b>function</b> Get_Index (Fld : Field) <b>return</b> Positive; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">field_index()</A></EM></FONT> <FONT COLOR=green><EM>-- Please note that in this binding we start the numbering of fields</EM></FONT> <FONT COLOR=green><EM>-- with 1. So this is number is one more than you get from the low</EM></FONT> <FONT COLOR=green><EM>-- level call.</EM></FONT> <b>pragma</b> Inline (Get_Index); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT> <b>procedure</b> Set_New_Page (<FONT COLOR=red><A NAME="ref_758_28" HREF="terminal_interface-curses-forms__adb.htm#ref_1103_28">Fld</A></FONT> : <b>in</b> Field; New_Page : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new_page.3x.html">set_new_page()</A></EM></FONT> <b>pragma</b> Inline (Set_New_Page); <FONT COLOR=green><EM>-- #1A NAME="AFU_63"#2|</EM></FONT> <b>function</b> Is_New_Page (Fld : Field) <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new_page.3x.html">new_page()</A></EM></FONT> <b>pragma</b> Inline (Is_New_Page); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_requestname.3x.html">form_requestname.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- Not Implemented: form_request_name, form_request_by_name</EM></FONT> <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <b>private</b> <b>type</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; <b>type</b> Form <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; <A HREF="terminal_interface-curses-forms__ads.htm#ref_59_4">Null_Field</A> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#ref_56_9">Field</A> := 0; Null_Form : <b>constant</b> Form := 0; <b>end</b> Terminal_Interface.Curses.Forms; </PRE></BODY></HTML>