📄 terminal_interface-curses-forms__ads.htm
字号:
<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="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="59_4">Null_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#56_9">Field</A>; Null_Form : <b>constant</b> Form; <b>type</b> Field_Justification <b>is</b> (<FONT COLOR=red><A NAME="62_33">None</A></FONT>, <FONT COLOR=red><A NAME="63_33">Left</A></FONT>, <FONT COLOR=red><A NAME="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="70_10">Visible</A></FONT> : Boolean; <FONT COLOR=red><A NAME="71_10">Active</A></FONT> : Boolean; <FONT COLOR=red><A NAME="72_10">Public</A></FONT> : Boolean; <FONT COLOR=red><A NAME="73_10">Edit</A></FONT> : Boolean; <FONT COLOR=red><A NAME="74_10">Wrap</A></FONT> : Boolean; <FONT COLOR=red><A NAME="75_10">Blank</A></FONT> : Boolean; <FONT COLOR=red><A NAME="76_10">Auto_Skip</A></FONT> : Boolean; <FONT COLOR=red><A NAME="77_10">Null_Ok</A></FONT> : Boolean; <FONT COLOR=red><A NAME="78_10">Pass_Ok</A></FONT> : Boolean; Static <A HREF="terminal_interface-curses-forms__ads.htm#67_9"> </A> : Boolean; <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm#67_9">;</A> <b>pragma</b> Pack (Field_Option_Set); <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="110_10">NL_Overload</A></FONT> : Boolean; BS_Overload : Boolean; <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm#107_9">;</A> <b>pragma</b> Pack (Form_Option_Set); <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;⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -