ncurses 5.1
[ncurses.git] / doc / html / ada / terminal_interface-curses__ads.htm
1 <HTML><HEAD><TITLE>terminal_interface-curses.ads</TITLE></HEAD>
2 <BODY>
3 <HR><DIV ALIGN="center"><H1> File : terminal_interface-curses.ads </H1></DIV><HR>
4 <PRE>
5
6 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
7 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
8 <FONT COLOR=green><EM>--                           <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding                           --</EM></FONT>
9 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
10 <FONT COLOR=green><EM>--                         Terminal_Interface.Curses                        --</EM></FONT>
11 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
12 <FONT COLOR=green><EM>--                                 S P E C                                  --</EM></FONT>
13 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
14 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
15 <FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc.                        --</EM></FONT>
16 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
17 <FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a  --</EM></FONT>
18 <FONT COLOR=green><EM>-- copy of this software and associated documentation files (the            --</EM></FONT>
19 <FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including      --</EM></FONT>
20 <FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish,      --</EM></FONT>
21 <FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell       --</EM></FONT>
22 <FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is    --</EM></FONT>
23 <FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions:                 --</EM></FONT>
24 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
25 <FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included  --</EM></FONT>
26 <FONT COLOR=green><EM>-- in all copies or substantial portions of the Software.                   --</EM></FONT>
27 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
28 <FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  --</EM></FONT>
29 <FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               --</EM></FONT>
30 <FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   --</EM></FONT>
31 <FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   --</EM></FONT>
32 <FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    --</EM></FONT>
33 <FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    --</EM></FONT>
34 <FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               --</EM></FONT>
35 <FONT COLOR=green><EM>--                                                                          --</EM></FONT>
36 <FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright   --</EM></FONT>
37 <FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the     --</EM></FONT>
38 <FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written       --</EM></FONT>
39 <FONT COLOR=green><EM>-- authorization.                                                           --</EM></FONT>
40 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
41 <FONT COLOR=green><EM>--  Author: <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">J&uuml;rgen Pfeifer</A> &lt;<A HREF="mailto:juergen.pfeifer@gmx.net">&lt;juergen.pfeifer@gmx.net&gt;</A>&gt; 1996</EM></FONT>
42 <FONT COLOR=green><EM>--  Version Control:</EM></FONT>
43 <FONT COLOR=green><EM>--  @Revision: 1.28 @</EM></FONT>
44 <FONT COLOR=green><EM>--  Binding Version 01.00</EM></FONT>
45 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
46 <FONT COLOR=green><EM>--  curses binding.</EM></FONT>
47 <FONT COLOR=green><EM>--  This module is generated. Please don't change it manually!</EM></FONT>
48 <FONT COLOR=green><EM>--  Run the generator instead.</EM></FONT>
49 <FONT COLOR=green><EM>--  |</EM></FONT>
50 <b>with</b> <A HREF="interfac__ads.htm#23_9">System</A>.Storage_Elements;
51 <b>with</b> Interfaces.C;   <FONT COLOR=green><EM>--  We need this for some assertions.</EM></FONT>
52
53 <b>package</b> Terminal_Interface.Curses <b>is</b>
54    <b>pragma</b> Preelaborate (Terminal_Interface.Curses);
55    <b>pragma</b> Linker_Options ("-lncurses");
56
57    <FONT COLOR=red><A NAME="53_4">NC_Major_Version</A></FONT> : <b>constant</b> := 5; <FONT COLOR=green><EM>--  Major version of the library</EM></FONT>
58    <FONT COLOR=red><A NAME="54_4">NC_Minor_Version</A></FONT> : <b>constant</b> := 0; <FONT COLOR=green><EM>--  Minor version of the library</EM></FONT>
59    NC_Version : <b>constant</b> String := "5.0";  <FONT COLOR=green><EM>--  Version of library</EM></FONT>
60
61    <b>type</b> Window <b>is</b> <b>private</b>;
62    Null_Window : <b>constant</b> Window;
63
64    <b>type</b> <FONT COLOR=red><A NAME="60_9">Line_Position</A></FONT>   <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>--  line coordinate</EM></FONT>
65    <b>type</b> Column_Position <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>--  column coordinate</EM></FONT>
66
67    <b>subtype</b> Line_Count   <b>is</b> Line_Position   <b>range</b> 1 .. Line_Position'Last;
68    <FONT COLOR=green><EM>--  Type to count lines. We do not allow null windows, so must be positive</EM></FONT>
69    <b>subtype</b> Column_Count <b>is</b> Column_Position <b>range</b> 1 .. Column_Position'Last;
70    <FONT COLOR=green><EM>--  Type to count columns. We do not allow null windows, so must be positive</EM></FONT>
71
72    <b>type</b> Key_Code <b>is</b> <b>new</b> Natural;
73    <FONT COLOR=green><EM>--  That is anything including real characters, special keys and logical</EM></FONT>
74    <FONT COLOR=green><EM>--  request codes.</EM></FONT>
75
76    <b>subtype</b> Real_Key_Code <b>is</b> Key_Code <b>range</b> 0 .. 8#777#;
77    <FONT COLOR=green><EM>--  This are the codes that potentially represent a real keystroke.</EM></FONT>
78    <FONT COLOR=green><EM>--  Not all codes may be possible on a specific terminal. To check the</EM></FONT>
79    <FONT COLOR=green><EM>--  availability of a special key, the Has_Key function is provided.</EM></FONT>
80
81    <b>subtype</b> Special_Key_Code <b>is</b> Real_Key_Code
82      <b>range</b> 8#400# .. Real_Key_Code'Last;
83    <FONT COLOR=green><EM>--  Type for a function- or special key number</EM></FONT>
84
85    <b>subtype</b> Normal_Key_Code <b>is</b> Real_Key_Code <b>range</b>
86      Character'Pos (Character'First) .. Character'Pos (Character'Last);
87    <FONT COLOR=green><EM>--  This are the codes for regular (incl. non-graphical) characters.</EM></FONT>
88
89    <FONT COLOR=green><EM>--  Constants for function- and special keys</EM></FONT>
90    <FONT COLOR=green><EM>--</EM></FONT>
91    <FONT COLOR=red><A NAME="87_4">Key_None</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#400#;
92    <FONT COLOR=red><A NAME="88_4">Key_Code_Yes</A></FONT>                   : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#400#;
93    <FONT COLOR=red><A NAME="89_4">Key_Min</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#401#;
94    <FONT COLOR=red><A NAME="90_4">Key_Break</A></FONT>                      : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#401#;
95    <FONT COLOR=red><A NAME="91_4">Key_Cursor_Down</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#402#;
96    <FONT COLOR=red><A NAME="92_4">Key_Cursor_Up</A></FONT>                  : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#403#;
97    <FONT COLOR=red><A NAME="93_4">Key_Cursor_Left</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#404#;
98    <FONT COLOR=red><A NAME="94_4">Key_Cursor_Right</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#405#;
99    <FONT COLOR=red><A NAME="95_4">Key_Home</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#406#;
100    <FONT COLOR=red><A NAME="96_4">Key_Backspace</A></FONT>                  : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#407#;
101    <FONT COLOR=red><A NAME="97_4">Key_F0</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#410#;
102    <FONT COLOR=red><A NAME="98_4">Key_F1</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#411#;
103    <FONT COLOR=red><A NAME="99_4">Key_F2</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#412#;
104    <FONT COLOR=red><A NAME="100_4">Key_F3</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#413#;
105    <FONT COLOR=red><A NAME="101_4">Key_F4</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#414#;
106    <FONT COLOR=red><A NAME="102_4">Key_F5</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#415#;
107    <FONT COLOR=red><A NAME="103_4">Key_F6</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#416#;
108    <FONT COLOR=red><A NAME="104_4">Key_F7</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#417#;
109    <FONT COLOR=red><A NAME="105_4">Key_F8</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#420#;
110    <FONT COLOR=red><A NAME="106_4">Key_F9</A></FONT>                         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#421#;
111    <FONT COLOR=red><A NAME="107_4">Key_F10</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#422#;
112    <FONT COLOR=red><A NAME="108_4">Key_F11</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#423#;
113    <FONT COLOR=red><A NAME="109_4">Key_F12</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#424#;
114    <FONT COLOR=red><A NAME="110_4">Key_F13</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#425#;
115    <FONT COLOR=red><A NAME="111_4">Key_F14</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#426#;
116    <FONT COLOR=red><A NAME="112_4">Key_F15</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#427#;
117    <FONT COLOR=red><A NAME="113_4">Key_F16</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#430#;
118    <FONT COLOR=red><A NAME="114_4">Key_F17</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#431#;
119    <FONT COLOR=red><A NAME="115_4">Key_F18</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#432#;
120    <FONT COLOR=red><A NAME="116_4">Key_F19</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#433#;
121    <FONT COLOR=red><A NAME="117_4">Key_F20</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#434#;
122    <FONT COLOR=red><A NAME="118_4">Key_F21</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#435#;
123    <FONT COLOR=red><A NAME="119_4">Key_F22</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#436#;
124    <FONT COLOR=red><A NAME="120_4">Key_F23</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#437#;
125    <FONT COLOR=red><A NAME="121_4">Key_F24</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#440#;
126    <FONT COLOR=red><A NAME="122_4">Key_Delete_Line</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#510#;
127    <FONT COLOR=red><A NAME="123_4">Key_Insert_Line</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#511#;
128    <FONT COLOR=red><A NAME="124_4">Key_Delete_Char</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#512#;
129    <FONT COLOR=red><A NAME="125_4">Key_Insert_Char</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#513#;
130    <FONT COLOR=red><A NAME="126_4">Key_Exit_Insert_Mode</A></FONT>           : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#514#;
131    <FONT COLOR=red><A NAME="127_4">Key_Clear_Screen</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#515#;
132    <FONT COLOR=red><A NAME="128_4">Key_Clear_End_Of_Screen</A></FONT>        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#516#;
133    <FONT COLOR=red><A NAME="129_4">Key_Clear_End_Of_Line</A></FONT>          : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#517#;
134    <FONT COLOR=red><A NAME="130_4">Key_Scroll_1_Forward</A></FONT>           : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#520#;
135    <FONT COLOR=red><A NAME="131_4">Key_Scroll_1_Backward</A></FONT>          : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#521#;
136    <FONT COLOR=red><A NAME="132_4">Key_Next_Page</A></FONT>                  : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#522#;
137    <FONT COLOR=red><A NAME="133_4">Key_Previous_Page</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#523#;
138    <FONT COLOR=red><A NAME="134_4">Key_Set_Tab</A></FONT>                    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#524#;
139    <FONT COLOR=red><A NAME="135_4">Key_Clear_Tab</A></FONT>                  : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#525#;
140    <FONT COLOR=red><A NAME="136_4">Key_Clear_All_Tabs</A></FONT>             : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#526#;
141    <FONT COLOR=red><A NAME="137_4">Key_Enter_Or_Send</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#527#;
142    <FONT COLOR=red><A NAME="138_4">Key_Soft_Reset</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#530#;
143    <FONT COLOR=red><A NAME="139_4">Key_Reset</A></FONT>                      : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#531#;
144    <FONT COLOR=red><A NAME="140_4">Key_Print</A></FONT>                      : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#532#;
145    <FONT COLOR=red><A NAME="141_4">Key_Bottom</A></FONT>                     : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#533#;
146    <FONT COLOR=red><A NAME="142_4">Key_Upper_Left_Of_Keypad</A></FONT>       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#534#;
147    <FONT COLOR=red><A NAME="143_4">Key_Upper_Right_Of_Keypad</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#535#;
148    <FONT COLOR=red><A NAME="144_4">Key_Center_Of_Keypad</A></FONT>           : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#536#;
149    <FONT COLOR=red><A NAME="145_4">Key_Lower_Left_Of_Keypad</A></FONT>       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#537#;
150    <FONT COLOR=red><A NAME="146_4">Key_Lower_Right_Of_Keypad</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#540#;
151    <FONT COLOR=red><A NAME="147_4">Key_Back_Tab</A></FONT>                   : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#541#;
152    <FONT COLOR=red><A NAME="148_4">Key_Beginning</A></FONT>                  : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#542#;
153    <FONT COLOR=red><A NAME="149_4">Key_Cancel</A></FONT>                     : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#543#;
154    <FONT COLOR=red><A NAME="150_4">Key_Close</A></FONT>                      : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#544#;
155    <FONT COLOR=red><A NAME="151_4">Key_Command</A></FONT>                    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#545#;
156    <FONT COLOR=red><A NAME="152_4">Key_Copy</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#546#;
157    <FONT COLOR=red><A NAME="153_4">Key_Create</A></FONT>                     : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#547#;
158    <FONT COLOR=red><A NAME="154_4">Key_End</A></FONT>                        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#550#;
159    <FONT COLOR=red><A NAME="155_4">Key_Exit</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#551#;
160    <FONT COLOR=red><A NAME="156_4">Key_Find</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#552#;
161    <FONT COLOR=red><A NAME="157_4">Key_Help</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#553#;
162    <FONT COLOR=red><A NAME="158_4">Key_Mark</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#554#;
163    <FONT COLOR=red><A NAME="159_4">Key_Message</A></FONT>                    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#555#;
164    <FONT COLOR=red><A NAME="160_4">Key_Move</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#556#;
165    <FONT COLOR=red><A NAME="161_4">Key_Next</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#557#;
166    <FONT COLOR=red><A NAME="162_4">Key_Open</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#560#;
167    <FONT COLOR=red><A NAME="163_4">Key_Options</A></FONT>                    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#561#;
168    <FONT COLOR=red><A NAME="164_4">Key_Previous</A></FONT>                   : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#562#;
169    <FONT COLOR=red><A NAME="165_4">Key_Redo</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#563#;
170    <FONT COLOR=red><A NAME="166_4">Key_Reference</A></FONT>                  : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#564#;
171    <FONT COLOR=red><A NAME="167_4">Key_Refresh</A></FONT>                    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#565#;
172    <FONT COLOR=red><A NAME="168_4">Key_Replace</A></FONT>                    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#566#;
173    <FONT COLOR=red><A NAME="169_4">Key_Restart</A></FONT>                    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#567#;
174    <FONT COLOR=red><A NAME="170_4">Key_Resume</A></FONT>                     : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#570#;
175    <FONT COLOR=red><A NAME="171_4">Key_Save</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#571#;
176    <FONT COLOR=red><A NAME="172_4">Key_Shift_Begin</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#572#;
177    <FONT COLOR=red><A NAME="173_4">Key_Shift_Cancel</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#573#;
178    <FONT COLOR=red><A NAME="174_4">Key_Shift_Command</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#574#;
179    <FONT COLOR=red><A NAME="175_4">Key_Shift_Copy</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#575#;
180    <FONT COLOR=red><A NAME="176_4">Key_Shift_Create</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#576#;
181    <FONT COLOR=red><A NAME="177_4">Key_Shift_Delete_Char</A></FONT>          : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#577#;
182    <FONT COLOR=red><A NAME="178_4">Key_Shift_Delete_Line</A></FONT>          : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#600#;
183    <FONT COLOR=red><A NAME="179_4">Key_Select</A></FONT>                     : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#601#;
184    <FONT COLOR=red><A NAME="180_4">Key_Shift_End</A></FONT>                  : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#602#;
185    <FONT COLOR=red><A NAME="181_4">Key_Shift_Clear_End_Of_Line</A></FONT>    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#603#;
186    <FONT COLOR=red><A NAME="182_4">Key_Shift_Exit</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#604#;
187    <FONT COLOR=red><A NAME="183_4">Key_Shift_Find</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#605#;
188    <FONT COLOR=red><A NAME="184_4">Key_Shift_Help</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#606#;
189    <FONT COLOR=red><A NAME="185_4">Key_Shift_Home</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#607#;
190    <FONT COLOR=red><A NAME="186_4">Key_Shift_Insert_Char</A></FONT>          : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#610#;
191    <FONT COLOR=red><A NAME="187_4">Key_Shift_Cursor_Left</A></FONT>          : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#611#;
192    <FONT COLOR=red><A NAME="188_4">Key_Shift_Message</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#612#;
193    <FONT COLOR=red><A NAME="189_4">Key_Shift_Move</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#613#;
194    <FONT COLOR=red><A NAME="190_4">Key_Shift_Next_Page</A></FONT>            : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#614#;
195    <FONT COLOR=red><A NAME="191_4">Key_Shift_Options</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#615#;
196    <FONT COLOR=red><A NAME="192_4">Key_Shift_Previous_Page</A></FONT>        : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#616#;
197    <FONT COLOR=red><A NAME="193_4">Key_Shift_Print</A></FONT>                : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#617#;
198    <FONT COLOR=red><A NAME="194_4">Key_Shift_Redo</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#620#;
199    <FONT COLOR=red><A NAME="195_4">Key_Shift_Replace</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#621#;
200    <FONT COLOR=red><A NAME="196_4">Key_Shift_Cursor_Right</A></FONT>         : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#622#;
201    <FONT COLOR=red><A NAME="197_4">Key_Shift_Resume</A></FONT>               : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#623#;
202    <FONT COLOR=red><A NAME="198_4">Key_Shift_Save</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#624#;
203    <FONT COLOR=red><A NAME="199_4">Key_Shift_Suspend</A></FONT>              : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#625#;
204    <FONT COLOR=red><A NAME="200_4">Key_Shift_Undo</A></FONT>                 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#626#;
205    <FONT COLOR=red><A NAME="201_4">Key_Suspend</A></FONT>                    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#627#;
206    <FONT COLOR=red><A NAME="202_4">Key_Undo</A></FONT>                       : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#630#;
207    <FONT COLOR=red><A NAME="203_4">Key_Mouse</A></FONT>                      : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> := 8#631#;
208    Key_Resize                     : <b>constant</b> Special_Key_Code := 8#632#;
209
210    Key_Max                        : <b>constant</b> Special_Key_Code
211      := Special_Key_Code'Last;
212
213    <b>subtype</b> User_Key_Code <b>is</b> Key_Code
214      <b>range</b> (Key_Max + 129) .. Key_Code'Last;
215    <FONT COLOR=green><EM>--  This is reserved for user defined key codes. The range between Key_Max</EM></FONT>
216    <FONT COLOR=green><EM>--  and the first user code is reserved for subsystems like menu and forms.</EM></FONT>
217
218    <FONT COLOR=green><EM>--  For those who like to use the original key names we produce them were</EM></FONT>
219    <FONT COLOR=green><EM>--  they differ from the original. Please note that they may differ in</EM></FONT>
220    <FONT COLOR=green><EM>--  lower/upper case.</EM></FONT>
221    <FONT COLOR=red><A NAME="217_4">KEY_DOWN</A></FONT>         : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#91_4">Key_Cursor_Down</A>;
222    <FONT COLOR=red><A NAME="218_4">KEY_UP</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#92_4">Key_Cursor_Up</A>;
223    <FONT COLOR=red><A NAME="219_4">KEY_LEFT</A></FONT>         : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#93_4">Key_Cursor_Left</A>;
224    <FONT COLOR=red><A NAME="220_4">KEY_RIGHT</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#121_4">Key_Cursor_Right</A>;
225    <FONT COLOR=red><A NAME="221_4">KEY_DL</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#122_4">Key_Delete_Line</A>;
226    <FONT COLOR=red><A NAME="222_4">KEY_IL</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#123_4">Key_Insert_Line</A>;
227    <FONT COLOR=red><A NAME="223_4">KEY_DC</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#124_4">Key_Delete_Char</A>;
228    <FONT COLOR=red><A NAME="224_4">KEY_IC</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#125_4">Key_Insert_Char</A>;
229    <FONT COLOR=red><A NAME="225_4">KEY_EIC</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#126_4">Key_Exit_Insert_Mode</A>;
230    <FONT COLOR=red><A NAME="226_4">KEY_CLEAR</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#127_4">Key_Clear_Screen</A>;
231    <FONT COLOR=red><A NAME="227_4">KEY_EOS</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#128_4">Key_Clear_End_Of_Screen</A>;
232    <FONT COLOR=red><A NAME="228_4">KEY_EOL</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#129_4">Key_Clear_End_Of_Line</A>;
233    <FONT COLOR=red><A NAME="229_4">KEY_SF</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#130_4">Key_Scroll_1_Forward</A>;
234    <FONT COLOR=red><A NAME="230_4">KEY_SR</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#131_4">Key_Scroll_1_Backward</A>;
235    <FONT COLOR=red><A NAME="231_4">KEY_NPAGE</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#132_4">Key_Next_Page</A>;
236    <FONT COLOR=red><A NAME="232_4">KEY_PPAGE</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#133_4">Key_Previous_Page</A>;
237    <FONT COLOR=red><A NAME="233_4">KEY_STAB</A></FONT>         : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#134_4">Key_Set_Tab</A>;
238    <FONT COLOR=red><A NAME="234_4">KEY_CTAB</A></FONT>         : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#135_4">Key_Clear_Tab</A>;
239    <FONT COLOR=red><A NAME="235_4">KEY_CATAB</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#136_4">Key_Clear_All_Tabs</A>;
240    <FONT COLOR=red><A NAME="236_4">KEY_ENTER</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#137_4">Key_Enter_Or_Send</A>;
241    <FONT COLOR=red><A NAME="237_4">KEY_SRESET</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#140_4">Key_Soft_Reset</A>;
242    <FONT COLOR=red><A NAME="238_4">KEY_LL</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#141_4">Key_Bottom</A>;
243    <FONT COLOR=red><A NAME="239_4">KEY_A1</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#142_4">Key_Upper_Left_Of_Keypad</A>;
244    <FONT COLOR=red><A NAME="240_4">KEY_A3</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#143_4">Key_Upper_Right_Of_Keypad</A>;
245    <FONT COLOR=red><A NAME="241_4">KEY_B2</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#144_4">Key_Center_Of_Keypad</A>;
246    <FONT COLOR=red><A NAME="242_4">KEY_C1</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#145_4">Key_Lower_Left_Of_Keypad</A>;
247    <FONT COLOR=red><A NAME="243_4">KEY_C3</A></FONT>           : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#146_4">Key_Lower_Right_Of_Keypad</A>;
248    <FONT COLOR=red><A NAME="244_4">KEY_BTAB</A></FONT>         : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#147_4">Key_Back_Tab</A>;
249    <FONT COLOR=red><A NAME="245_4">KEY_BEG</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#171_4">Key_Beginning</A>;
250    <FONT COLOR=red><A NAME="246_4">KEY_SBEG</A></FONT>         : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#172_4">Key_Shift_Begin</A>;
251    <FONT COLOR=red><A NAME="247_4">KEY_SCANCEL</A></FONT>      : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#173_4">Key_Shift_Cancel</A>;
252    <FONT COLOR=red><A NAME="248_4">KEY_SCOMMAND</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#174_4">Key_Shift_Command</A>;
253    <FONT COLOR=red><A NAME="249_4">KEY_SCOPY</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#175_4">Key_Shift_Copy</A>;
254    <FONT COLOR=red><A NAME="250_4">KEY_SCREATE</A></FONT>      : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#176_4">Key_Shift_Create</A>;
255    <FONT COLOR=red><A NAME="251_4">KEY_SDC</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#177_4">Key_Shift_Delete_Char</A>;
256    <FONT COLOR=red><A NAME="252_4">KEY_SDL</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#179_4">Key_Shift_Delete_Line</A>;
257    <FONT COLOR=red><A NAME="253_4">KEY_SEND</A></FONT>         : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#180_4">Key_Shift_End</A>;
258    <FONT COLOR=red><A NAME="254_4">KEY_SEOL</A></FONT>         : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#181_4">Key_Shift_Clear_End_Of_Line</A>;
259    <FONT COLOR=red><A NAME="255_4">KEY_SEXIT</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#182_4">Key_Shift_Exit</A>;
260    <FONT COLOR=red><A NAME="256_4">KEY_SFIND</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#183_4">Key_Shift_Find</A>;
261    <FONT COLOR=red><A NAME="257_4">KEY_SHELP</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#184_4">Key_Shift_Help</A>;
262    <FONT COLOR=red><A NAME="258_4">KEY_SHOME</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#185_4">Key_Shift_Home</A>;
263    <FONT COLOR=red><A NAME="259_4">KEY_SIC</A></FONT>          : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#186_4">Key_Shift_Insert_Char</A>;
264    <FONT COLOR=red><A NAME="260_4">KEY_SLEFT</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#187_4">Key_Shift_Cursor_Left</A>;
265    <FONT COLOR=red><A NAME="261_4">KEY_SMESSAGE</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#188_4">Key_Shift_Message</A>;
266    <FONT COLOR=red><A NAME="262_4">KEY_SMOVE</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#189_4">Key_Shift_Move</A>;
267    <FONT COLOR=red><A NAME="263_4">KEY_SNEXT</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#190_4">Key_Shift_Next_Page</A>;
268    <FONT COLOR=red><A NAME="264_4">KEY_SOPTIONS</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#191_4">Key_Shift_Options</A>;
269    <FONT COLOR=red><A NAME="265_4">KEY_SPREVIOUS</A></FONT>    : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#192_4">Key_Shift_Previous_Page</A>;
270    <FONT COLOR=red><A NAME="266_4">KEY_SPRINT</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#193_4">Key_Shift_Print</A>;
271    <FONT COLOR=red><A NAME="267_4">KEY_SREDO</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#194_4">Key_Shift_Redo</A>;
272    <FONT COLOR=red><A NAME="268_4">KEY_SREPLACE</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#195_4">Key_Shift_Replace</A>;
273    <FONT COLOR=red><A NAME="269_4">KEY_SRIGHT</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#196_4">Key_Shift_Cursor_Right</A>;
274    <FONT COLOR=red><A NAME="270_4">KEY_SRSUME</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#197_4">Key_Shift_Resume</A>;
275    <FONT COLOR=red><A NAME="271_4">KEY_SSAVE</A></FONT>        : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#198_4">Key_Shift_Save</A>;
276    <FONT COLOR=red><A NAME="272_4">KEY_SSUSPEND</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#76_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#199_4">Key_Shift_Suspend</A>;
277    KEY_SUNDO        : Special_Key_Code <b>renames</b> Key_Shift_Undo;
278
279 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
280
281    <b>type</b><A HREF="terminal_interface-curses__ads.htm#276_9"> </A>Color_Number <b>is</b> <b>range</b><A HREF="interfac__ads.htm#23_9"> </A>0 .. Integer (Interfaces.C.short'Last);
282    <b>for</b> Color_Number'Size <b>use</b> Interfaces.C.short'Size;
283    <FONT COLOR=green><EM>--  (n)curses uses a short for the color index</EM></FONT>
284    <FONT COLOR=green><EM>--  The model is, that a Color_Number is an index into an array of</EM></FONT>
285    <FONT COLOR=green><EM>--  (potentially) definable colors. Some of those indices are</EM></FONT>
286    <FONT COLOR=green><EM>--  predefined (see below), although they may not really exist.</EM></FONT>
287
288    <FONT COLOR=red><A NAME="284_4">Black</A></FONT>    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 0;
289    <FONT COLOR=red><A NAME="285_4">Red</A></FONT>      : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 1;
290    <FONT COLOR=red><A NAME="286_4">Green</A></FONT>    : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 2;
291    <FONT COLOR=red><A NAME="287_4">Yellow</A></FONT>   : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 3;
292    <FONT COLOR=red><A NAME="288_4">Blue</A></FONT>     : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 4;
293    <FONT COLOR=red><A NAME="289_4">Magenta</A></FONT>  : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 5;
294    <FONT COLOR=red><A NAME="290_4">Cyan</A></FONT>     : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A> := 6;
295    White    : <b>constant</b> Color_Number := 7;
296
297    <b>type</b><A HREF="terminal_interface-curses__ads.htm#292_9"> </A>RGB_Value <b>is</b> <b>range</b><A HREF="interfac__ads.htm#23_9"> </A>0 .. Integer (Interfaces.C.short'Last);
298    <b>for</b> RGB_Value'Size <b>use</b> Interfaces.C.short'Size;
299    <FONT COLOR=green><EM>--  Some system may allow to redefine a color by setting RGB values.</EM></FONT>
300
301    <b>type</b><A HREF="terminal_interface-curses__ads.htm#296_9"> </A>Color_Pair <b>is</b> <b>range</b> 0 .. 255;
302    <b>for</b> Color_Pair'Size <b>use</b> 8;
303    <b>subtype</b> Redefinable_Color_Pair <b>is</b> Color_Pair <b>range</b> 1 .. 255;
304    <FONT COLOR=green><EM>--  (n)curses reserves 1 Byte for the color-pair number. Color Pair 0</EM></FONT>
305    <FONT COLOR=green><EM>--  is fixed (Black & White). A color pair is simply a combination of</EM></FONT>
306    <FONT COLOR=green><EM>--  two colors described by Color_Numbers, one for the foreground and</EM></FONT>
307    <FONT COLOR=green><EM>--  the other for the background</EM></FONT>
308
309    <b>type</b> Character_Attribute_Set <b>is</b>
310       <b>record</b>
311          <FONT COLOR=red><A NAME="307_10">Stand_Out</A></FONT>               : Boolean;
312          <FONT COLOR=red><A NAME="308_10">Under_Line</A></FONT>              : Boolean;
313          <FONT COLOR=red><A NAME="309_10">Reverse_Video</A></FONT>           : Boolean;
314          <FONT COLOR=red><A NAME="310_10">Blink</A></FONT>                   : Boolean;
315          <FONT COLOR=red><A NAME="311_10">Dim_Character</A></FONT>           : Boolean;
316          <FONT COLOR=red><A NAME="312_10">Bold_Character</A></FONT>          : Boolean;
317          <FONT COLOR=red><A NAME="313_10">Alternate_Character_Set</A></FONT> : Boolean;
318          <FONT COLOR=red><A NAME="314_10">Invisible_Character</A></FONT>     : Boolean;
319          <FONT COLOR=red><A NAME="315_10">Protected_Character</A></FONT>     : Boolean;
320          <FONT COLOR=red><A NAME="316_10">Horizontal</A></FONT>              : Boolean;
321          <FONT COLOR=red><A NAME="317_10">Left</A></FONT>                    : Boolean;
322          <FONT COLOR=red><A NAME="318_10">Low</A></FONT>                     : Boolean;
323          <FONT COLOR=red><A NAME="319_10">Right</A></FONT>                   : Boolean;
324          <FONT COLOR=red><A NAME="320_10">Top</A></FONT>                     : Boolean;
325          Vertical                : Boolean;
326       <b>end</b> <b>record</b><A HREF="terminal_interface-curses__ads.htm#304_9">;</A>
327    <b>pragma</b> Pack (Character_Attribute_Set);
328    <b>pragma</b> Convention (C, Character_Attribute_Set);
329
330    <b>for</b> Character_Attribute_Set <b>use</b>
331       <b>record</b>
332          Stand_Out               <b>at</b> 0 <b>range</b>  0 ..  0;
333          Under_Line              <b>at</b> 0 <b>range</b>  1 ..  1;
334          Reverse_Video           <b>at</b> 0 <b>range</b>  2 ..  2;
335          Blink                   <b>at</b> 0 <b>range</b>  3 ..  3;
336          Dim_Character           <b>at</b> 0 <b>range</b>  4 ..  4;
337          Bold_Character          <b>at</b> 0 <b>range</b>  5 ..  5;
338          Alternate_Character_Set <b>at</b> 0 <b>range</b>  6 ..  6;
339          Invisible_Character     <b>at</b> 0 <b>range</b>  7 ..  7;
340          Protected_Character     <b>at</b> 0 <b>range</b>  8 ..  8;
341          Horizontal              <b>at</b> 0 <b>range</b>  9 ..  9;
342          Left                    <b>at</b> 0 <b>range</b> 10 .. 10;
343          Low                     <b>at</b> 0 <b>range</b> 11 .. 11;
344          Right                   <b>at</b> 0 <b>range</b> 12 .. 12;
345          Top                     <b>at</b> 0 <b>range</b> 13 .. 13;
346          Vertical                <b>at</b> 0 <b>range</b> 14 .. 14;
347       <b>end</b> <b>record</b>;
348    <b>for</b> Character_Attribute_Set'Size <b>use</b> 16;
349    <FONT COLOR=green><EM>--  Please note: this rep. clause is generated and may be</EM></FONT>
350    <FONT COLOR=green><EM>--               different on your system.</EM></FONT>
351    <FONT COLOR=green><EM>--  (n)curses uses all but the lowest 16 Bits for Attributes.</EM></FONT>
352
353    Normal_Video : <b>constant</b> Character_Attribute_Set := (<b>others</b> =&gt; False);
354
355    <b>type</b> Attributed_Character <b>is</b>
356       <b>record</b>
357          <FONT COLOR=red><A NAME="353_10">Attr</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A>;
358          <FONT COLOR=red><A NAME="354_10">Color</A></FONT> : Color_Pair;
359          Ch    : Character;
360       <b>end</b> <b>record</b>;
361    <b>pragma</b> Convention (C, Attributed_Character);
362    <FONT COLOR=green><EM>--  This is the counterpart for the chtype in C.</EM></FONT>
363
364    <b>for</b> Attributed_Character <b>use</b>
365       <b>record</b>
366          Ch    <b>at</b> 0 <b>range</b>  0 ..  7;
367          Color <b>at</b> 0 <b>range</b>  8 .. 15;
368          Attr  <b>at</b> 0 <b>range</b> 16 .. 31;
369       <b>end</b> <b>record</b>;
370    <b>for</b> Attributed_Character'Size <b>use</b> 32;
371       <FONT COLOR=green><EM>--  Please note: this rep. clause is generated and may be</EM></FONT>
372       <FONT COLOR=green><EM>--               different on your system.</EM></FONT>
373
374    Default_Character : <b>constant</b> Attributed_Character
375      := (Ch    =&gt; <A HREF="terminal_interface-curses__ads.htm#296_9">Character</A>'First,
376          Color =&gt; Color_Pair'First,
377          Attr  =&gt; (<b>others</b> =&gt; False));  <FONT COLOR=green><EM>--  preelaboratable Normal_Video</EM></FONT>
378
379    <b>type</b> Attributed_String <b>is</b> <b>array</b> (Positive <b>range</b> &lt;&gt;) <b>of</b> Attributed_Character;
380    <b>pragma</b> Pack (Attributed_String);
381    <FONT COLOR=green><EM>--  In this binding we allow strings of attributed characters.</EM></FONT>
382
383    <FONT COLOR=green><EM>------------------</EM></FONT>
384    <FONT COLOR=green><EM>--  Exceptions  --</EM></FONT>
385    <FONT COLOR=green><EM>------------------</EM></FONT>
386    <FONT COLOR=red><A NAME="382_4">Curses_Exception</A></FONT>     : <b>exception</b>;
387    Wrong_Curses_Version : <b>exception</b>;
388
389    <FONT COLOR=green><EM>--  Those exceptions are raised by the ETI (Extended Terminal Interface)</EM></FONT>
390    <FONT COLOR=green><EM>--  subpackets for Menu and Forms handling.</EM></FONT>
391    <FONT COLOR=green><EM>--</EM></FONT>
392    <FONT COLOR=red><A NAME="388_4">Eti_System_Error</A></FONT>    : <b>exception</b>;
393    <FONT COLOR=red><A NAME="389_4">Eti_Bad_Argument</A></FONT>    : <b>exception</b>;
394    <FONT COLOR=red><A NAME="390_4">Eti_Posted</A></FONT>          : <b>exception</b>;
395    <FONT COLOR=red><A NAME="391_4">Eti_Connected</A></FONT>       : <b>exception</b>;
396    <FONT COLOR=red><A NAME="392_4">Eti_Bad_State</A></FONT>       : <b>exception</b>;
397    <FONT COLOR=red><A NAME="393_4">Eti_No_Room</A></FONT>         : <b>exception</b>;
398    <FONT COLOR=red><A NAME="394_4">Eti_Not_Posted</A></FONT>      : <b>exception</b>;
399    <FONT COLOR=red><A NAME="395_4">Eti_Unknown_Command</A></FONT> : <b>exception</b>;
400    <FONT COLOR=red><A NAME="396_4">Eti_No_Match</A></FONT>        : <b>exception</b>;
401    <FONT COLOR=red><A NAME="397_4">Eti_Not_Selectable</A></FONT>  : <b>exception</b>;
402    <FONT COLOR=red><A NAME="398_4">Eti_Not_Connected</A></FONT>   : <b>exception</b>;
403    <FONT COLOR=red><A NAME="399_4">Eti_Request_Denied</A></FONT>  : <b>exception</b>;
404    <FONT COLOR=red><A NAME="400_4">Eti_Invalid_Field</A></FONT>   : <b>exception</b>;
405    Eti_Current         : <b>exception</b>;
406
407    <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT>
408    <FONT COLOR=green><EM>--  External C variables</EM></FONT>
409    <FONT COLOR=green><EM>--  Conceptually even in C this are kind of constants, but they are</EM></FONT>
410    <FONT COLOR=green><EM>--  initialized and sometimes changed by the library routines at runtime</EM></FONT>
411    <FONT COLOR=green><EM>--  depending on the type of terminal. I believe the best way to model</EM></FONT>
412    <FONT COLOR=green><EM>--  this is to use functions.</EM></FONT>
413    <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT>
414
415    <b>function</b> Lines <A HREF="terminal_interface-curses__ads.htm#410_13"> </A>          <b>return</b> Line_Count;
416    <b>pragma</b> Inline (Lines);
417
418    <b>function</b> Columns          <b>return</b> Column_Count;
419    <b>pragma</b> Inline (Columns);
420
421    <b>function</b> Tab_Size         <b>return</b> Natural;
422    <b>pragma</b> Inline (Tab_Size);
423
424    <b>function</b> Number_Of_Colors <b>return</b> Natural;
425    <b>pragma</b> Inline (Number_Of_Colors);
426
427    <b>function</b> Number_Of_Color_Pairs <b>return</b> Natural;
428    <b>pragma</b> Inline (Number_Of_Color_Pairs);
429
430    ACS_Map : <b>array</b> (Character'Val (0) .. Character'Val (127)) <b>of</b>
431      Attributed_Character;
432    <b>pragma</b> Import (C, ACS_Map, "acs_map");
433    <FONT COLOR=green><EM>--</EM></FONT>
434    <FONT COLOR=green><EM>--</EM></FONT>
435    <FONT COLOR=green><EM>--  Constants for several characters from the Alternate Character Set</EM></FONT>
436    <FONT COLOR=green><EM>--  You must use this constants as indices into the ACS_Map array</EM></FONT>
437    <FONT COLOR=green><EM>--  to get the corresponding attributed character at runtime.</EM></FONT>
438    <FONT COLOR=green><EM>--</EM></FONT>
439    <FONT COLOR=red><A NAME="435_4">ACS_Upper_Left_Corner</A></FONT>    : <b>constant</b> Character := 'l';
440    <FONT COLOR=red><A NAME="436_4">ACS_Lower_Left_Corner</A></FONT>    : <b>constant</b> Character := 'm';
441    <FONT COLOR=red><A NAME="437_4">ACS_Upper_Right_Corner</A></FONT>   : <b>constant</b> Character := 'k';
442    <FONT COLOR=red><A NAME="438_4">ACS_Lower_Right_Corner</A></FONT>   : <b>constant</b> Character := 'j';
443    <FONT COLOR=red><A NAME="439_4">ACS_Left_Tee</A></FONT>             : <b>constant</b> Character := 't';
444    <FONT COLOR=red><A NAME="440_4">ACS_Right_Tee</A></FONT>            : <b>constant</b> Character := 'u';
445    <FONT COLOR=red><A NAME="441_4">ACS_Bottom_Tee</A></FONT>           : <b>constant</b> Character := 'v';
446    <FONT COLOR=red><A NAME="442_4">ACS_Top_Tee</A></FONT>              : <b>constant</b> Character := 'w';
447    <FONT COLOR=red><A NAME="443_4">ACS_Horizontal_Line</A></FONT>      : <b>constant</b> Character := 'q';
448    <FONT COLOR=red><A NAME="444_4">ACS_Vertical_Line</A></FONT>        : <b>constant</b> Character := 'x';
449    <FONT COLOR=red><A NAME="445_4">ACS_Plus_Symbol</A></FONT>          : <b>constant</b> Character := 'n';
450    <FONT COLOR=red><A NAME="446_4">ACS_Scan_Line_1</A></FONT>          : <b>constant</b> Character := 'o';
451    <FONT COLOR=red><A NAME="447_4">ACS_Scan_Line_9</A></FONT>          : <b>constant</b> Character := 's';
452    <FONT COLOR=red><A NAME="448_4">ACS_Diamond</A></FONT>              : <b>constant</b> Character := Character'Val (96);
453    <FONT COLOR=red><A NAME="449_4">ACS_Checker_Board</A></FONT>        : <b>constant</b> Character := 'a';
454    <FONT COLOR=red><A NAME="450_4">ACS_Degree</A></FONT>               : <b>constant</b> Character := 'f';
455    <FONT COLOR=red><A NAME="451_4">ACS_Plus_Minus</A></FONT>           : <b>constant</b> Character := 'g';
456    <FONT COLOR=red><A NAME="452_4">ACS_Bullet</A></FONT>               : <b>constant</b> Character := '~';
457    <FONT COLOR=red><A NAME="453_4">ACS_Left_Arrow</A></FONT>           : <b>constant</b> Character := ',';
458    <FONT COLOR=red><A NAME="454_4">ACS_Right_Arrow</A></FONT>          : <b>constant</b> Character := '+';
459    <FONT COLOR=red><A NAME="455_4">ACS_Down_Arrow</A></FONT>           : <b>constant</b> Character := '.';
460    <FONT COLOR=red><A NAME="456_4">ACS_Up_Arrow</A></FONT>             : <b>constant</b> Character := '-';
461    <FONT COLOR=red><A NAME="457_4">ACS_Board_Of_Squares</A></FONT>     : <b>constant</b> Character := 'h';
462    <FONT COLOR=red><A NAME="458_4">ACS_Lantern</A></FONT>              : <b>constant</b> Character := 'i';
463    <FONT COLOR=red><A NAME="459_4">ACS_Solid_Block</A></FONT>          : <b>constant</b> Character := '0';
464    <FONT COLOR=red><A NAME="460_4">ACS_Scan_Line_3</A></FONT>          : <b>constant</b> Character := 'p';
465    <FONT COLOR=red><A NAME="461_4">ACS_Scan_Line_7</A></FONT>          : <b>constant</b> Character := 'r';
466    <FONT COLOR=red><A NAME="462_4">ACS_Less_Or_Equal</A></FONT>        : <b>constant</b> Character := 'y';
467    <FONT COLOR=red><A NAME="463_4">ACS_Greater_Or_Equal</A></FONT>     : <b>constant</b> Character := 'z';
468    <FONT COLOR=red><A NAME="464_4">ACS_PI</A></FONT>                   : <b>constant</b> Character := '{';
469    <FONT COLOR=red><A NAME="465_4">ACS_Not_Equal</A></FONT>            : <b>constant</b> Character := '|';
470    ACS_Sterling             : <b>constant</b> Character := '}';
471
472    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
473    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></EM></FONT>
474    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
475    <FONT COLOR=green><EM>--  | Not implemented: newterm, set_term, delscreen</EM></FONT>
476
477    <FONT COLOR=green><EM>--  #1A NAME="AFU_1"#2|</EM></FONT>
478    <b>function</b> Standard_Window <b>return</b> Window;
479    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_initscr.3x.html">stdscr</A></EM></FONT>
480    <b>pragma</b> Inline (Standard_Window);
481
482    <FONT COLOR=green><EM>--  #1A NAME="AFU_2"#2|</EM></FONT>
483    <b>procedure</b> Init_Screen;
484
485    <FONT COLOR=green><EM>--  #1A NAME="AFU_3"#2|</EM></FONT>
486    <b>procedure</b> Init_Windows <b>renames</b> Init_Screen;
487    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_initscr.3x.html">initscr()</A></EM></FONT>
488    <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#481_14">Init_Screen</A>);
489    <b>pragma</b> Inline (Init_Windows);
490
491    <FONT COLOR=green><EM>--  #1A NAME="AFU_4"#2|</EM></FONT>
492    <b>procedure</b> End_Windows;
493    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_initscr.3x.html">endwin()</A></EM></FONT>
494    <b>procedure</b> End_Screen <b>renames</b> End_Windows;
495    <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#489_14">End_Windows</A>);
496    <b>pragma</b> Inline (End_Screen);
497
498    <FONT COLOR=green><EM>--  #1A NAME="AFU_5"#2|</EM></FONT>
499    <b>function</b> Is_End_Window <b>return</b> Boolean;
500    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_initscr.3x.html">isendwin()</A></EM></FONT>
501    <b>pragma</b> Inline (Is_End_Window);
502
503    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
504    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_move.3x.html">curs_move.3x</A></EM></FONT>
505    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
506
507    <FONT COLOR=green><EM>--  #1A NAME="AFU_6"#2|</EM></FONT>
508    <b>procedure</b> Move_Cursor (<FONT COLOR=red><A NAME="504_27">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
509                           <FONT COLOR=red><A NAME="505_27">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
510                           Column : <b>in</b> Column_Position);
511    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_move.3x.html">wmove()</A></EM></FONT>
512    <b>pragma</b> Inline (Move_Cursor);
513
514    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
515    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></EM></FONT>
516    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
517
518    <FONT COLOR=green><EM>--  #1A NAME="AFU_7"#2|</EM></FONT>
519    <b>procedure</b> Add (<FONT COLOR=red><A NAME="515_19">Win</A></FONT> :  <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window;
520                   Ch  :  <b>in</b> Attributed_Character);
521    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_addch.3x.html">waddch()</A></EM></FONT>
522
523    <b>procedure</b> Add (<FONT COLOR=red><A NAME="519_19">Win</A></FONT> :  <b>in</b> Window := Standard_Window;
524                   Ch  :  <b>in</b> Character);
525    <FONT COLOR=green><EM>--  Add a single character at the current logical cursor position to</EM></FONT>
526    <FONT COLOR=green><EM>--  the window. Use the current windows attributes.</EM></FONT>
527
528    <FONT COLOR=green><EM>--  #1A NAME="AFU_8"#2|</EM></FONT>
529    <b>procedure</b> Add
530      (<FONT COLOR=red><A NAME="526_7">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
531       <FONT COLOR=red><A NAME="527_7">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
532       <FONT COLOR=red><A NAME="528_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Column_Position</A>;
533       Ch     : <b>in</b> Attributed_Character);
534    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_addch.3x.html">mvwaddch()</A></EM></FONT>
535
536    <b>procedure</b> Add
537      (<FONT COLOR=red><A NAME="533_7">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
538       <FONT COLOR=red><A NAME="534_7">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
539       <FONT COLOR=red><A NAME="535_7">Column</A></FONT> : <b>in</b> Column_Position;
540       Ch     : <b>in</b> Character);
541    <FONT COLOR=green><EM>--  Move to the position and add a single character into the window</EM></FONT>
542    <FONT COLOR=green><EM>--  There are more Add routines, so the Inline pragma follows later</EM></FONT>
543
544    <FONT COLOR=green><EM>--  #1A NAME="AFU_9"#2|</EM></FONT>
545    <b>procedure</b> Add_With_Immediate_Echo
546      (<FONT COLOR=red><A NAME="542_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window;
547       Ch  : <b>in</b> Attributed_Character);
548    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_addch.3x.html">wechochar()</A></EM></FONT>
549
550    <b>procedure</b> Add_With_Immediate_Echo
551      (<FONT COLOR=red><A NAME="547_7">Win</A></FONT> : <b>in</b> Window := Standard_Window;
552       Ch  : <b>in</b> Character);
553    <FONT COLOR=green><EM>--  Add a character and do an immediate refresh of the screen.</EM></FONT>
554    <b>pragma</b> Inline (Add_With_Immediate_Echo);
555
556    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
557    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_window.3x.html">curs_window.3x</A></EM></FONT>
558    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
559
560    <FONT COLOR=green><EM>--  #1A NAME="AFU_10"#2|</EM></FONT>
561    <b>function</b> Create
562      (<FONT COLOR=red><A NAME="558_7">Number_Of_Lines</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
563       <FONT COLOR=red><A NAME="559_7">Number_Of_Columns</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>;
564       <FONT COLOR=red><A NAME="560_7">First_Line_Position</A></FONT>   : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
565       First_Column_Position : Column_Position) <b>return</b> Window;
566    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">newwin()</A></EM></FONT>
567    <b>pragma</b> Inline (Create);
568
569    <b>function</b> New_Window
570      (<FONT COLOR=red><A NAME="566_7">Number_Of_Lines</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
571       <FONT COLOR=red><A NAME="567_7">Number_Of_Columns</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>;
572       <FONT COLOR=red><A NAME="568_7">First_Line_Position</A></FONT>   : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
573       First_Column_Position : Column_Position) <b>return</b> Window
574      <b>renames</b> Create;
575    <b>pragma</b> Inline (New_Window);
576
577    <FONT COLOR=green><EM>--  #1A NAME="AFU_11"#2|</EM></FONT>
578    <b>procedure</b> Delete (Win : <b>in</b> <b>out</b> Window);
579    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">delwin()</A></EM></FONT>
580    <FONT COLOR=green><EM>--  Reset Win to Null_Window</EM></FONT>
581    <b>pragma</b> Inline (Delete);
582
583    <FONT COLOR=green><EM>--  #1A NAME="AFU_12"#2|</EM></FONT>
584    <b>function</b> Sub_Window
585      (<FONT COLOR=red><A NAME="581_7">Win</A></FONT>                   : <A HREF="terminal_interface-curses__ads.htm#62_12">Window</A> := Standard_Window;
586       <FONT COLOR=red><A NAME="582_7">Number_Of_Lines</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
587       <FONT COLOR=red><A NAME="583_7">Number_Of_Columns</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>;
588       <FONT COLOR=red><A NAME="584_7">First_Line_Position</A></FONT>   : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
589       First_Column_Position : Column_Position) <b>return</b> Window;
590    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">subwin()</A></EM></FONT>
591    <b>pragma</b> Inline (Sub_Window);
592
593    <FONT COLOR=green><EM>--  #1A NAME="AFU_13"#2|</EM></FONT>
594    <b>function</b> Derived_Window
595      (<FONT COLOR=red><A NAME="591_7">Win</A></FONT>                   : <A HREF="terminal_interface-curses__ads.htm#62_12">Window</A> := Standard_Window;
596       <FONT COLOR=red><A NAME="592_7">Number_Of_Lines</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
597       <FONT COLOR=red><A NAME="593_7">Number_Of_Columns</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>;
598       <FONT COLOR=red><A NAME="594_7">First_Line_Position</A></FONT>   : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
599       First_Column_Position : Column_Position) <b>return</b> Window;
600    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">derwin()</A></EM></FONT>
601    <b>pragma</b> Inline (Derived_Window);
602
603    <FONT COLOR=green><EM>--  #1A NAME="AFU_14"#2|</EM></FONT>
604    <b>function</b> Duplicate (Win : Window) <b>return</b> Window;
605    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">dupwin()</A></EM></FONT>
606    <b>pragma</b> Inline (Duplicate);
607
608    <FONT COLOR=green><EM>--  #1A NAME="AFU_15"#2|</EM></FONT>
609    <b>procedure</b> Move_Window (<FONT COLOR=red><A NAME="605_27">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>;
610                           <FONT COLOR=red><A NAME="606_27">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
611                           Column : <b>in</b> Column_Position);
612    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">mvwin()</A></EM></FONT>
613    <b>pragma</b> Inline (Move_Window);
614
615    <FONT COLOR=green><EM>--  #1A NAME="AFU_16"#2|</EM></FONT>
616    <b>procedure</b> Move_Derived_Window (<FONT COLOR=red><A NAME="612_35">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>;
617                                   <FONT COLOR=red><A NAME="613_35">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
618                                   Column : <b>in</b> Column_Position);
619    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">mvderwin()</A></EM></FONT>
620    <b>pragma</b> Inline (Move_Derived_Window);
621
622    <FONT COLOR=green><EM>--  #1A NAME="AFU_17"#2|</EM></FONT>
623    <b>procedure</b> Synchronize_Upwards (Win : <b>in</b> Window);
624    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">wsyncup()</A></EM></FONT>
625    <b>pragma</b> Import (C, Synchronize_Upwards, "wsyncup");
626
627    <FONT COLOR=green><EM>--  #1A NAME="AFU_18"#2|</EM></FONT>
628    <b>procedure</b> Synchronize_Downwards (Win : <b>in</b> Window);
629    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">wsyncdown()</A></EM></FONT>
630    <b>pragma</b> Import (C, Synchronize_Downwards, "wsyncdown");
631
632    <FONT COLOR=green><EM>--  #1A NAME="AFU_19"#2|</EM></FONT>
633    <b>procedure</b> Set_Synch_Mode (<FONT COLOR=red><A NAME="629_30">Win</A></FONT>  : <b>in</b> Window := Standard_Window;
634                              Mode : <b>in</b> Boolean := False);
635    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_window.3x.html">syncok()</A></EM></FONT>
636    <b>pragma</b> Inline (Set_Synch_Mode);
637
638    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
639    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></EM></FONT>
640    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
641
642    <FONT COLOR=green><EM>--  #1A NAME="AFU_20"#2|</EM></FONT>
643    <b>procedure</b> Add (<FONT COLOR=red><A NAME="639_19">Win</A></FONT> : <b>in</b> Window := Standard_Window;
644                   <FONT COLOR=red><A NAME="640_19">Str</A></FONT> : <b>in</b> String;
645                   Len : <b>in</b> Integer := -1);
646    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_addstr.3x.html">waddnstr()</A></EM></FONT>
647    <FONT COLOR=green><EM>--  AKA: waddstr()</EM></FONT>
648
649    <FONT COLOR=green><EM>--  #1A NAME="AFU_21"#2|</EM></FONT>
650    <b>procedure</b> Add (<FONT COLOR=red><A NAME="646_19">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
651                   <FONT COLOR=red><A NAME="647_19">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
652                   <FONT COLOR=red><A NAME="648_19">Column</A></FONT> : <b>in</b> Column_Position;
653                   <FONT COLOR=red><A NAME="649_19">Str</A></FONT>    : <b>in</b> String;
654                   Len    : <b>in</b> Integer := -1);
655    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_addstr.3x.html">mvwaddnstr()</A></EM></FONT>
656    <FONT COLOR=green><EM>--  AKA: mvwaddstr()</EM></FONT>
657
658    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
659    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></EM></FONT>
660    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
661
662    <FONT COLOR=green><EM>--  #1A NAME="AFU_22"#2|</EM></FONT>
663    <b>procedure</b> Add (<FONT COLOR=red><A NAME="659_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Window</A> := Standard_Window;
664                   <FONT COLOR=red><A NAME="660_19">Str</A></FONT> : <b>in</b> Attributed_String;
665                   Len : <b>in</b> Integer := -1);
666    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_addchstr.3x.html">waddchnstr()</A></EM></FONT>
667    <FONT COLOR=green><EM>--  AKA: waddchstr()</EM></FONT>
668
669    <FONT COLOR=green><EM>--  #1A NAME="AFU_23"#2|</EM></FONT>
670    <b>procedure</b> Add (<FONT COLOR=red><A NAME="666_19">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
671                   <FONT COLOR=red><A NAME="667_19">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
672                   <FONT COLOR=red><A NAME="668_19">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#374_9">Column_Position</A>;
673                   <FONT COLOR=red><A NAME="669_19">Str</A></FONT>    : <b>in</b> Attributed_String;
674                   Len    : <b>in</b> Integer := -1);
675    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_addchstr.3x.html">mvwaddchnstr()</A></EM></FONT>
676    <FONT COLOR=green><EM>--  AKA: mvwaddchstr()</EM></FONT>
677    <b>pragma</b> Inline (Add);
678
679    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
680    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_border.3x.html">curs_border.3x</A></EM></FONT>
681    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
682
683    <FONT COLOR=green><EM>--  #1A NAME="AFU_24"#2|</EM></FONT>
684    <b>procedure</b> Border
685      (<FONT COLOR=red><A NAME="681_7">Win</A></FONT>                       : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window;
686       <FONT COLOR=red><A NAME="682_7">Left_Side_Symbol</A></FONT>          : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>;
687       <FONT COLOR=red><A NAME="683_7">Right_Side_Symbol</A></FONT>         : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>;
688       <FONT COLOR=red><A NAME="684_7">Top_Side_Symbol</A></FONT>           : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>;
689       <FONT COLOR=red><A NAME="685_7">Bottom_Side_Symbol</A></FONT>        : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>;
690       <FONT COLOR=red><A NAME="686_7">Upper_Left_Corner_Symbol</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>;
691       <FONT COLOR=red><A NAME="687_7">Upper_Right_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>;
692       <FONT COLOR=red><A NAME="688_7">Lower_Left_Corner_Symbol</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>;
693       Lower_Right_Corner_Symbol : <b>in</b> Attributed_Character := Default_Character
694      );
695    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_border.3x.html">wborder()</A></EM></FONT>
696    <b>pragma</b> Inline (Border);
697
698    <FONT COLOR=green><EM>--  #1A NAME="AFU_25"#2|</EM></FONT>
699    <b>procedure</b> Box
700      (<FONT COLOR=red><A NAME="696_7">Win</A></FONT>               : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window;
701       <FONT COLOR=red><A NAME="697_7">Vertical_Symbol</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#369_4">Default_Character</A>;
702       Horizontal_Symbol : <b>in</b> Attributed_Character := Default_Character);
703    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_border.3x.html">box()</A></EM></FONT>
704    <b>pragma</b> Inline (Box);
705
706    <FONT COLOR=green><EM>--  #1A NAME="AFU_26"#2|</EM></FONT>
707    <b>procedure</b> Horizontal_Line
708      (<FONT COLOR=red><A NAME="704_7">Win</A></FONT>         : <b>in</b> Window := Standard_Window;
709       <FONT COLOR=red><A NAME="705_7">Line_Size</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Natural</A>;
710       Line_Symbol : <b>in</b> Attributed_Character := Default_Character);
711    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_border.3x.html">whline()</A></EM></FONT>
712    <b>pragma</b> Inline (Horizontal_Line);
713
714    <FONT COLOR=green><EM>--  #1A NAME="AFU_27"#2|</EM></FONT>
715    <b>procedure</b> Vertical_Line
716      (<FONT COLOR=red><A NAME="712_7">Win</A></FONT>         : <b>in</b> Window := Standard_Window;
717       <FONT COLOR=red><A NAME="713_7">Line_Size</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Natural</A>;
718       Line_Symbol : <b>in</b> Attributed_Character := Default_Character);
719    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_border.3x.html">wvline()</A></EM></FONT>
720    <b>pragma</b> Inline (Vertical_Line);
721
722    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
723    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></EM></FONT>
724    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
725
726    <FONT COLOR=green><EM>--  #1A NAME="AFU_28"#2|</EM></FONT>
727    <b>function</b> Get_Keystroke (Win : Window := Standard_Window)
728                            <b>return</b> Real_Key_Code;
729    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_getch.3x.html">wgetch()</A></EM></FONT>
730    <FONT COLOR=green><EM>--  Get a character from the keyboard and echo it - if enabled - to the</EM></FONT>
731    <FONT COLOR=green><EM>--  window.</EM></FONT>
732    <FONT COLOR=green><EM>--  If for any reason (i.e. a timeout) we couldn't get a character the</EM></FONT>
733    <FONT COLOR=green><EM>--  returned keycode is Key_None.</EM></FONT>
734    <b>pragma</b> Inline (Get_Keystroke);
735
736    <FONT COLOR=green><EM>--  #1A NAME="AFU_29"#2|</EM></FONT>
737    <b>procedure</b> Undo_Keystroke (Key : <b>in</b> Real_Key_Code);
738    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_getch.3x.html">ungetch()</A></EM></FONT>
739    <b>pragma</b> Inline (Undo_Keystroke);
740
741    <FONT COLOR=green><EM>--  #1A NAME="AFU_30"#2|</EM></FONT>
742    <b>function</b> Has_Key (Key : Special_Key_Code) <b>return</b> Boolean;
743    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_getch.3x.html">has_key()</A></EM></FONT>
744    <b>pragma</b> Inline (Has_Key);
745
746    <FONT COLOR=green><EM>--  |</EM></FONT>
747    <FONT COLOR=green><EM>--  | Some helper functions</EM></FONT>
748    <FONT COLOR=green><EM>--  |</EM></FONT>
749    <b>function</b> Is_Function_Key (Key : Special_Key_Code) <b>return</b> Boolean;
750    <FONT COLOR=green><EM>--  Return True if the Key is a function key (i.e. one of F0 .. F63)</EM></FONT>
751    <b>pragma</b> Inline (Is_Function_Key);
752
753    <b>subtype</b> Function_Key_Number <b>is</b> Integer <b>range</b> 0 .. 63;
754    <FONT COLOR=green><EM>--  (n)curses allows for 64 function keys.</EM></FONT>
755
756    <b>function</b> Function_Key (Key : Real_Key_Code) <b>return</b> Function_Key_Number;
757    <FONT COLOR=green><EM>--  Return the number of the function key. If the code is not a</EM></FONT>
758    <FONT COLOR=green><EM>--  function key, a CONSTRAINT_ERROR will be raised.</EM></FONT>
759    <b>pragma</b> Inline (Function_Key);
760
761    <b>function</b> Function_Key_Code (Key : Function_Key_Number) <b>return</b> Real_Key_Code;
762    <FONT COLOR=green><EM>--  Return the key code for a given function-key number.</EM></FONT>
763    <b>pragma</b> Inline (Function_Key_Code);
764
765    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
766    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></EM></FONT>
767    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
768
769    <FONT COLOR=green><EM>--  #1A NAME="AFU_31"#2|</EM></FONT>
770    <b>procedure</b> Switch_Character_Attribute
771      (<FONT COLOR=red><A NAME="767_7">Win</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Window</A> := Standard_Window;
772       <FONT COLOR=red><A NAME="768_7">Attr</A></FONT> : <b>in</b> Character_Attribute_Set := Normal_Video;
773       On   : <b>in</b> Boolean := True); <FONT COLOR=green><EM>--  if False we switch Off.</EM></FONT>
774    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_attr.3x.html">wattron()</A></EM></FONT>
775    <FONT COLOR=green><EM>--  AKA: wattroff()</EM></FONT>
776
777    <FONT COLOR=green><EM>--  #1A NAME="AFU_32"#2|</EM></FONT>
778    <b>procedure</b> Set_Character_Attributes
779      (<FONT COLOR=red><A NAME="775_7">Win</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Window</A> := Standard_Window;
780       <FONT COLOR=red><A NAME="776_7">Attr</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video;
781       Color : <b>in</b> Color_Pair := Color_Pair'First);
782    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_attr.3x.html">wattrset()</A></EM></FONT>
783    <b>pragma</b> Inline (Set_Character_Attributes);
784
785    <FONT COLOR=green><EM>--  #1A NAME="AFU_33"#2|</EM></FONT>
786    <b>function</b> Get_Character_Attribute
787      (Win : <b>in</b> Window := Standard_Window) <b>return</b> Character_Attribute_Set;
788    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT>
789
790    <FONT COLOR=green><EM>--  #1A NAME="AFU_34"#2|</EM></FONT>
791    <b>function</b> Get_Character_Attribute
792      (Win : <b>in</b> Window := Standard_Window) <b>return</b> Color_Pair;
793    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT>
794    <b>pragma</b> Inline (Get_Character_Attribute);
795
796    <FONT COLOR=green><EM>--  #1A NAME="AFU_35"#2|</EM></FONT>
797    <b>procedure</b> Set_Color (<FONT COLOR=red><A NAME="793_25">Win</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Window</A> := Standard_Window;
798                         Pair : <b>in</b> Color_Pair);
799    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_attr.3x.html">wcolor_set()</A></EM></FONT>
800    <b>pragma</b> Inline (Set_Color);
801
802    <FONT COLOR=green><EM>--  #1A NAME="AFU_36"#2|</EM></FONT>
803    <b>procedure</b> Change_Attributes
804      (<FONT COLOR=red><A NAME="800_7">Win</A></FONT>   : <b>in</b> Window := Standard_Window;
805       <FONT COLOR=red><A NAME="801_7">Count</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Integer</A> := -1;
806       <FONT COLOR=red><A NAME="802_7">Attr</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video;
807       Color : <b>in</b> Color_Pair := Color_Pair'First);
808    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_attr.3x.html">wchgat()</A></EM></FONT>
809
810    <FONT COLOR=green><EM>--  #1A NAME="AFU_37"#2|</EM></FONT>
811    <b>procedure</b> Change_Attributes
812      (<FONT COLOR=red><A NAME="808_7">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
813       <FONT COLOR=red><A NAME="809_7">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> := Line_Position'First;
814       <FONT COLOR=red><A NAME="810_7">Column</A></FONT> : <b>in</b> Column_Position := Column_Position'First;
815       <FONT COLOR=red><A NAME="811_7">Count</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#304_9">Integer</A> := -1;
816       <FONT COLOR=red><A NAME="812_7">Attr</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video;
817       Color  : <b>in</b> Color_Pair := Color_Pair'First);
818    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_attr.3x.html">mvwchgat()</A></EM></FONT>
819    <b>pragma</b> Inline (Change_Attributes);
820
821    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
822    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></EM></FONT>
823    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
824
825    <FONT COLOR=green><EM>--  #1A NAME="AFU_38"#2|</EM></FONT>
826    <b>procedure</b> Beep;
827    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_beep.3x.html">beep()</A></EM></FONT>
828    <b>pragma</b> Inline (Beep);
829
830    <FONT COLOR=green><EM>--  #1A NAME="AFU_39"#2|</EM></FONT>
831    <b>procedure</b> Flash_Screen;
832    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_beep.3x.html">flash()</A></EM></FONT>
833    <b>pragma</b> Inline (Flash_Screen);
834
835    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
836    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></EM></FONT>
837    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
838
839    <FONT COLOR=green><EM>--  | Not implemented : typeahead</EM></FONT>
840    <FONT COLOR=green><EM>--</EM></FONT>
841    <FONT COLOR=green><EM>--  #1A NAME="AFU_40"#2|</EM></FONT>
842    <b>procedure</b> Set_Cbreak_Mode (SwitchOn : <b>in</b> Boolean := True);
843    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">cbreak()</A></EM></FONT>
844    <FONT COLOR=green><EM>--  AKA: nocbreak()</EM></FONT>
845    <b>pragma</b> Inline (Set_Cbreak_Mode);
846
847    <FONT COLOR=green><EM>--  #1A NAME="AFU_41"#2|</EM></FONT>
848    <b>procedure</b> Set_Raw_Mode (SwitchOn : <b>in</b> Boolean := True);
849    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">raw()</A></EM></FONT>
850    <FONT COLOR=green><EM>--  AKA: noraw()</EM></FONT>
851    <b>pragma</b> Inline (Set_Raw_Mode);
852
853    <FONT COLOR=green><EM>--  #1A NAME="AFU_42"#2|</EM></FONT>
854    <b>procedure</b> Set_Echo_Mode (SwitchOn : <b>in</b> Boolean := True);
855    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">echo()</A></EM></FONT>
856    <FONT COLOR=green><EM>--  AKA: noecho()</EM></FONT>
857    <b>pragma</b> Inline (Set_Echo_Mode);
858
859    <FONT COLOR=green><EM>--  #1A NAME="AFU_43"#2|</EM></FONT>
860    <b>procedure</b> Set_Meta_Mode (<FONT COLOR=red><A NAME="856_29">Win</A></FONT>      : <b>in</b> Window := Standard_Window;
861                             SwitchOn : <b>in</b> Boolean := True);
862    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">meta()</A></EM></FONT>
863    <b>pragma</b> Inline (Set_Meta_Mode);
864
865    <FONT COLOR=green><EM>--  #1A NAME="AFU_44"#2|</EM></FONT>
866    <b>procedure</b> Set_KeyPad_Mode (<FONT COLOR=red><A NAME="862_31">Win</A></FONT>      : <b>in</b> Window := Standard_Window;
867                               SwitchOn : <b>in</b> Boolean := True);
868    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">keypad()</A></EM></FONT>
869    <b>pragma</b> Inline (Set_KeyPad_Mode);
870
871    <b>type</b> Half_Delay_Amount <b>is</b> <b>range</b> 1 .. 255;
872
873    <FONT COLOR=green><EM>--  #1A NAME="AFU_45"#2|</EM></FONT>
874    <b>procedure</b> Half_Delay (Amount : <b>in</b> Half_Delay_Amount);
875    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">halfdelay()</A></EM></FONT>
876    <b>pragma</b> Inline (Half_Delay);
877
878    <FONT COLOR=green><EM>--  #1A NAME="AFU_46"#2|</EM></FONT>
879    <b>procedure</b> Set_Flush_On_Interrupt_Mode
880      (<FONT COLOR=red><A NAME="876_7">Win</A></FONT>  : <b>in</b> Window := Standard_Window;
881       Mode : <b>in</b> Boolean := True);
882    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">intrflush()</A></EM></FONT>
883    <b>pragma</b> Inline (Set_Flush_On_Interrupt_Mode);
884
885    <FONT COLOR=green><EM>--  #1A NAME="AFU_47"#2|</EM></FONT>
886    <b>procedure</b> Set_Queue_Interrupt_Mode
887      (<FONT COLOR=red><A NAME="883_7">Win</A></FONT>   : <b>in</b> Window := Standard_Window;
888       Flush : <b>in</b> Boolean := True);
889    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">qiflush()</A></EM></FONT>
890    <FONT COLOR=green><EM>--  AKA: noqiflush()</EM></FONT>
891    <b>pragma</b> Inline (Set_Queue_Interrupt_Mode);
892
893    <FONT COLOR=green><EM>--  #1A NAME="AFU_48"#2|</EM></FONT>
894    <b>procedure</b> Set_NoDelay_Mode
895      (<FONT COLOR=red><A NAME="891_7">Win</A></FONT>  : <b>in</b> Window := Standard_Window;
896       Mode : <b>in</b> Boolean := False);
897    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">nodelay()</A></EM></FONT>
898    <b>pragma</b> Inline (Set_NoDelay_Mode);
899
900    <b>type</b> Timeout_Mode <b>is</b> (Blocking, Non_Blocking, Delayed);
901
902    <FONT COLOR=green><EM>--  #1A NAME="AFU_49"#2|</EM></FONT>
903    <b>procedure</b> Set_Timeout_Mode (<FONT COLOR=red><A NAME="899_32">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#895_9">Window</A> := Standard_Window;
904                                <FONT COLOR=red><A NAME="900_32">Mode</A></FONT>   : <b>in</b> Timeout_Mode;
905                                Amount : <b>in</b> Natural); <FONT COLOR=green><EM>--  in Milliseconds</EM></FONT>
906    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">wtimeout()</A></EM></FONT>
907    <FONT COLOR=green><EM>--  Instead of overloading the semantic of the sign of amount, we</EM></FONT>
908    <FONT COLOR=green><EM>--  introduce the Timeout_Mode parameter. This should improve</EM></FONT>
909    <FONT COLOR=green><EM>--  readability. For Blocking and Non_Blocking, the Amount is not</EM></FONT>
910    <FONT COLOR=green><EM>--  evaluated.</EM></FONT>
911    <FONT COLOR=green><EM>--  We don't inline this procedure.</EM></FONT>
912
913    <FONT COLOR=green><EM>--  #1A NAME="AFU_50"#2|</EM></FONT>
914    <b>procedure</b> Set_Escape_Timer_Mode
915      (<FONT COLOR=red><A NAME="911_7">Win</A></FONT>       : <b>in</b> Window := Standard_Window;
916       Timer_Off : <b>in</b> Boolean := False);
917    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inopts.3x.html">notimeout()</A></EM></FONT>
918    <b>pragma</b> Inline (Set_Escape_Timer_Mode);
919
920    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
921    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></EM></FONT>
922    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
923
924    <FONT COLOR=green><EM>--  #1A NAME="AFU_51"#2|</EM></FONT>
925    <b>procedure</b> Set_NL_Mode (SwitchOn : <b>in</b> Boolean := True);
926    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_outopts.3x.html">nl()</A></EM></FONT>
927    <FONT COLOR=green><EM>--  AKA: nonl()</EM></FONT>
928    <b>pragma</b> Inline (Set_NL_Mode);
929
930    <FONT COLOR=green><EM>--  #1A NAME="AFU_52"#2|</EM></FONT>
931    <b>procedure</b> Clear_On_Next_Update
932      (<FONT COLOR=red><A NAME="928_7">Win</A></FONT>      : <b>in</b> Window := Standard_Window;
933       Do_Clear : <b>in</b> Boolean := True);
934    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_outopts.3x.html">clearok()</A></EM></FONT>
935    <b>pragma</b> Inline (Clear_On_Next_Update);
936
937    <FONT COLOR=green><EM>--  #1A NAME="AFU_53"#2|</EM></FONT>
938    <b>procedure</b> Use_Insert_Delete_Line
939      (<FONT COLOR=red><A NAME="935_7">Win</A></FONT>    : <b>in</b> Window := Standard_Window;
940       Do_Idl : <b>in</b> Boolean := True);
941    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_outopts.3x.html">idlok()</A></EM></FONT>
942    <b>pragma</b> Inline (Use_Insert_Delete_Line);
943
944    <FONT COLOR=green><EM>--  #1A NAME="AFU_54"#2|</EM></FONT>
945    <b>procedure</b> Use_Insert_Delete_Character
946      (<FONT COLOR=red><A NAME="942_7">Win</A></FONT>    : <b>in</b> Window := Standard_Window;
947       Do_Idc : <b>in</b> Boolean := True);
948    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_outopts.3x.html">idcok()</A></EM></FONT>
949    <b>pragma</b> Inline (Use_Insert_Delete_Character);
950
951    <FONT COLOR=green><EM>--  #1A NAME="AFU_55"#2|</EM></FONT>
952    <b>procedure</b> Leave_Cursor_After_Update
953      (<FONT COLOR=red><A NAME="949_7">Win</A></FONT>      : <b>in</b> Window := Standard_Window;
954       Do_Leave : <b>in</b> Boolean := True);
955    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_outopts.3x.html">leaveok()</A></EM></FONT>
956    <b>pragma</b> Inline (Leave_Cursor_After_Update);
957
958    <FONT COLOR=green><EM>--  #1A NAME="AFU_56"#2|</EM></FONT>
959    <b>procedure</b> Immediate_Update_Mode
960      (<FONT COLOR=red><A NAME="956_7">Win</A></FONT>  : <b>in</b> Window := Standard_Window;
961       Mode : <b>in</b> Boolean := False);
962    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_outopts.3x.html">immedok()</A></EM></FONT>
963    <b>pragma</b> Inline (Immediate_Update_Mode);
964
965    <FONT COLOR=green><EM>--  #1A NAME="AFU_57"#2|</EM></FONT>
966    <b>procedure</b> Allow_Scrolling
967      (<FONT COLOR=red><A NAME="963_7">Win</A></FONT>  : <b>in</b> Window := Standard_Window;
968       Mode : <b>in</b> Boolean := False);
969    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_outopts.3x.html">scrollok()</A></EM></FONT>
970    <b>pragma</b> Inline (Allow_Scrolling);
971
972    <b>function</b> Scrolling_Allowed (Win : Window := Standard_Window) <b>return</b> Boolean;
973    <FONT COLOR=green><EM>--  There is no such function in the C interface.</EM></FONT>
974    <b>pragma</b> Inline (Scrolling_Allowed);
975
976    <FONT COLOR=green><EM>--  #1A NAME="AFU_58"#2|</EM></FONT>
977    <b>procedure</b> Set_Scroll_Region
978      (<FONT COLOR=red><A NAME="974_7">Win</A></FONT>         : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
979       <FONT COLOR=red><A NAME="975_7">Top_Line</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Line_Position</A>;
980       Bottom_Line : <b>in</b> Line_Position);
981    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_outopts.3x.html">wsetscrreg()</A></EM></FONT>
982    <b>pragma</b> Inline (Set_Scroll_Region);
983
984    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
985    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></EM></FONT>
986    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
987
988    <FONT COLOR=green><EM>--  #1A NAME="AFU_59"#2|</EM></FONT>
989    <b>procedure</b> Update_Screen;
990    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_refresh.3x.html">doupdate()</A></EM></FONT>
991    <b>pragma</b> Inline (Update_Screen);
992
993    <FONT COLOR=green><EM>--  #1A NAME="AFU_60"#2|</EM></FONT>
994    <b>procedure</b> Refresh (Win : <b>in</b> Window := Standard_Window);
995    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_refresh.3x.html">wrefresh()</A></EM></FONT>
996    <FONT COLOR=green><EM>--  There is an overloaded Refresh for Pads.</EM></FONT>
997    <FONT COLOR=green><EM>--  The Inline pragma appears there</EM></FONT>
998
999    <FONT COLOR=green><EM>--  #1A NAME="AFU_61"#2|</EM></FONT>
1000    <b>procedure</b> Refresh_Without_Update
1001      (Win : <b>in</b> Window := Standard_Window);
1002    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_refresh.3x.html">wnoutrefresh()</A></EM></FONT>
1003    <FONT COLOR=green><EM>--  There is an overloaded Refresh_Without_Update for Pads.</EM></FONT>
1004    <FONT COLOR=green><EM>--  The Inline pragma appears there</EM></FONT>
1005
1006    <FONT COLOR=green><EM>--  #1A NAME="AFU_62"#2|</EM></FONT>
1007    <b>procedure</b> Redraw (Win : <b>in</b> Window := Standard_Window);
1008    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_refresh.3x.html">redrawwin()</A></EM></FONT>
1009
1010    <FONT COLOR=green><EM>--  #1A NAME="AFU_63"#2|</EM></FONT>
1011    <b>procedure</b> Redraw (<FONT COLOR=red><A NAME="1007_22">Win</A></FONT>        : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1012                      <FONT COLOR=red><A NAME="1008_22">Begin_Line</A></FONT> : <b>in</b> Line_Position;
1013                      Line_Count : <b>in</b> Positive);
1014    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_refresh.3x.html">wredrawln()</A></EM></FONT>
1015    <b>pragma</b> Inline (Redraw);
1016
1017    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1018    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></EM></FONT>
1019    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1020
1021    <FONT COLOR=green><EM>--  #1A NAME="AFU_64"#2|</EM></FONT>
1022    <b>procedure</b> Erase (Win : <b>in</b> Window := Standard_Window);
1023    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_clear.3x.html">werase()</A></EM></FONT>
1024    <b>pragma</b> Inline (Erase);
1025
1026    <FONT COLOR=green><EM>--  #1A NAME="AFU_65"#2|</EM></FONT>
1027    <b>procedure</b> Clear
1028      (Win : <b>in</b> Window := Standard_Window);
1029    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_clear.3x.html">wclear()</A></EM></FONT>
1030    <b>pragma</b> Inline (Clear);
1031
1032    <FONT COLOR=green><EM>--  #1A NAME="AFU_66"#2|</EM></FONT>
1033    <b>procedure</b> Clear_To_End_Of_Screen
1034      (Win : <b>in</b> Window := Standard_Window);
1035    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_clear.3x.html">wclrtobot()</A></EM></FONT>
1036    <b>pragma</b> Inline (Clear_To_End_Of_Screen);
1037
1038    <FONT COLOR=green><EM>--  #1A NAME="AFU_67"#2|</EM></FONT>
1039    <b>procedure</b> Clear_To_End_Of_Line
1040      (Win : <b>in</b> Window := Standard_Window);
1041    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_clear.3x.html">wclrtoeol()</A></EM></FONT>
1042    <b>pragma</b> Inline (Clear_To_End_Of_Line);
1043
1044    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1045    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></EM></FONT>
1046    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1047
1048    <FONT COLOR=green><EM>--  #1A NAME="AFU_68"#2|</EM></FONT>
1049    <b>procedure</b> Set_Background
1050      (<FONT COLOR=red><A NAME="1046_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window;
1051       Ch  : <b>in</b> Attributed_Character);
1052    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdset()</A></EM></FONT>
1053    <b>pragma</b> Inline (Set_Background);
1054
1055    <FONT COLOR=green><EM>--  #1A NAME="AFU_69"#2|</EM></FONT>
1056    <b>procedure</b> Change_Background
1057      (<FONT COLOR=red><A NAME="1053_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window;
1058       Ch  : <b>in</b> Attributed_Character);
1059    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgd()</A></EM></FONT>
1060    <b>pragma</b> Inline (Change_Background);
1061
1062    <FONT COLOR=green><EM>--  #1A NAME="AFU_70"#2|</EM></FONT>
1063    <b>function</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Get_Background</A> (Win : Window := Standard_Window)
1064      <b>return</b> Attributed_Character;
1065    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdget()</A></EM></FONT>
1066    <b>pragma</b> Inline (Get_Background);
1067
1068    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1069    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></EM></FONT>
1070    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1071
1072    <FONT COLOR=green><EM>--  #1A NAME="AFU_71"#2|</EM></FONT>
1073    <b>procedure</b> Untouch (Win : <b>in</b> Window := Standard_Window);
1074    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_touch.3x.html">untouchwin()</A></EM></FONT>
1075    <b>pragma</b> Inline (Untouch);
1076
1077    <FONT COLOR=green><EM>--  #1A NAME="AFU_72"#2|</EM></FONT>
1078    <b>procedure</b> Touch (Win : <b>in</b> Window := Standard_Window);
1079    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_touch.3x.html">touchwin()</A></EM></FONT>
1080
1081    <FONT COLOR=green><EM>--  #1A NAME="AFU_73"#2|</EM></FONT>
1082    <b>procedure</b> Touch (<FONT COLOR=red><A NAME="1078_21">Win</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1083                     <FONT COLOR=red><A NAME="1079_21">Start</A></FONT> : <b>in</b> Line_Position;
1084                     Count : <b>in</b> Positive);
1085    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_touch.3x.html">touchline()</A></EM></FONT>
1086    <b>pragma</b> Inline (Touch);
1087
1088    <FONT COLOR=green><EM>--  #1A NAME="AFU_74"#2|</EM></FONT>
1089    <b>procedure</b> Change_Lines_Status (<FONT COLOR=red><A NAME="1085_35">Win</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1090                                   <FONT COLOR=red><A NAME="1086_35">Start</A></FONT> : <b>in</b> Line_Position;
1091                                   <FONT COLOR=red><A NAME="1087_35">Count</A></FONT> : <b>in</b> Positive;
1092                                   State : <b>in</b> Boolean);
1093    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_touch.3x.html">wtouchln()</A></EM></FONT>
1094    <b>pragma</b> Inline (Change_Lines_Status);
1095
1096    <FONT COLOR=green><EM>--  #1A NAME="AFU_75"#2|</EM></FONT>
1097    <b>function</b> Is_Touched (<FONT COLOR=red><A NAME="1093_25">Win</A></FONT>  : <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1098                         Line : Line_Position) <b>return</b> Boolean;
1099    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_touch.3x.html">is_linetouched()</A></EM></FONT>
1100
1101    <FONT COLOR=green><EM>--  #1A NAME="AFU_76"#2|</EM></FONT>
1102    <b>function</b> Is_Touched (Win : Window := Standard_Window) <b>return</b> Boolean;
1103    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_touch.3x.html">is_wintouched()</A></EM></FONT>
1104    <b>pragma</b> Inline (Is_Touched);
1105
1106    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1107    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></EM></FONT>
1108    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1109
1110    <FONT COLOR=green><EM>--  #1A NAME="AFU_77"#2|</EM></FONT>
1111    <b>procedure</b> Copy
1112      (<FONT COLOR=red><A NAME="1108_7">Source_Window</A></FONT>            : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>;
1113       <FONT COLOR=red><A NAME="1109_7">Destination_Window</A></FONT>       : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>;
1114       <FONT COLOR=red><A NAME="1110_7">Source_Top_Row</A></FONT>           : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1115       <FONT COLOR=red><A NAME="1111_7">Source_Left_Column</A></FONT>       : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>;
1116       <FONT COLOR=red><A NAME="1112_7">Destination_Top_Row</A></FONT>      : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1117       <FONT COLOR=red><A NAME="1113_7">Destination_Left_Column</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>;
1118       <FONT COLOR=red><A NAME="1114_7">Destination_Bottom_Row</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1119       <FONT COLOR=red><A NAME="1115_7">Destination_Right_Column</A></FONT> : <b>in</b> Column_Position;
1120       Non_Destructive_Mode     : <b>in</b> Boolean := True);
1121    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_overlay.3x.html">copywin()</A></EM></FONT>
1122    <b>pragma</b> Inline (Copy);
1123
1124    <FONT COLOR=green><EM>--  #1A NAME="AFU_78"#2|</EM></FONT>
1125    <b>procedure</b> Overwrite (<FONT COLOR=red><A NAME="1121_25">Source_Window</A></FONT>      : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>;
1126                         Destination_Window : <b>in</b> Window);
1127    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_overlay.3x.html">overwrite()</A></EM></FONT>
1128    <b>pragma</b> Inline (Overwrite);
1129
1130    <FONT COLOR=green><EM>--  #1A NAME="AFU_79"#2|</EM></FONT>
1131    <b>procedure</b> Overlay (<FONT COLOR=red><A NAME="1127_23">Source_Window</A></FONT>      : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Window</A>;
1132                       Destination_Window : <b>in</b> Window);
1133    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_overlay.3x.html">overlay()</A></EM></FONT>
1134    <b>pragma</b> Inline (Overlay);
1135
1136    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1137    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></EM></FONT>
1138    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1139
1140    <FONT COLOR=green><EM>--  #1A NAME="AFU_80"#2|</EM></FONT>
1141    <b>procedure</b> Insert_Delete_Lines
1142      (<FONT COLOR=red><A NAME="1138_7">Win</A></FONT>   : <b>in</b> Window  := Standard_Window;
1143       Lines : <b>in</b> Integer := 1); <FONT COLOR=green><EM>--  default is to insert one line above</EM></FONT>
1144    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_deleteln.3x.html">winsdelln()</A></EM></FONT>
1145    <b>pragma</b> Inline (Insert_Delete_Lines);
1146
1147    <FONT COLOR=green><EM>--  #1A NAME="AFU_81"#2|</EM></FONT>
1148    <b>procedure</b> Delete_Line (Win : <b>in</b> Window := Standard_Window);
1149    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_deleteln.3x.html">wdeleteln()</A></EM></FONT>
1150    <b>pragma</b> Inline (Delete_Line);
1151
1152    <FONT COLOR=green><EM>--  #1A NAME="AFU_82"#2|</EM></FONT>
1153    <b>procedure</b> Insert_Line (Win : <b>in</b> Window := Standard_Window);
1154    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_deleteln.3x.html">winsertln()</A></EM></FONT>
1155    <b>pragma</b> Inline (Insert_Line);
1156
1157    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1158    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></EM></FONT>
1159    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1160
1161    <FONT COLOR=green><EM>--  #1A NAME="AFU_83"#2|</EM></FONT>
1162    <b>procedure</b> Get_Size
1163      (<FONT COLOR=red><A NAME="1159_7">Win</A></FONT>               : <b>in</b> Window := Standard_Window;
1164       <FONT COLOR=red><A NAME="1160_7">Number_Of_Lines</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
1165       Number_Of_Columns : <b>out</b> Column_Count);
1166    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_getyx.3x.html">getmaxyx()</A></EM></FONT>
1167    <b>pragma</b> Inline (Get_Size);
1168
1169    <FONT COLOR=green><EM>--  #1A NAME="AFU_84"#2|</EM></FONT>
1170    <b>procedure</b> Get_Window_Position
1171      (<FONT COLOR=red><A NAME="1167_7">Win</A></FONT>             : <b>in</b> Window := Standard_Window;
1172       <FONT COLOR=red><A NAME="1168_7">Top_Left_Line</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1173       Top_Left_Column : <b>out</b> Column_Position);
1174    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_getyx.3x.html">getbegyx()</A></EM></FONT>
1175    <b>pragma</b> Inline (Get_Window_Position);
1176
1177    <FONT COLOR=green><EM>--  #1A NAME="AFU_85"#2|</EM></FONT>
1178    <b>procedure</b> Get_Cursor_Position
1179      (<FONT COLOR=red><A NAME="1175_7">Win</A></FONT>    : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1180       <FONT COLOR=red><A NAME="1176_7">Line</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1181       Column : <b>out</b> Column_Position);
1182    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_getyx.3x.html">getyx()</A></EM></FONT>
1183    <b>pragma</b> Inline (Get_Cursor_Position);
1184
1185    <FONT COLOR=green><EM>--  #1A NAME="AFU_86"#2|</EM></FONT>
1186    <b>procedure</b> Get_Origin_Relative_To_Parent
1187      (<FONT COLOR=red><A NAME="1183_7">Win</A></FONT>                : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>;
1188       <FONT COLOR=red><A NAME="1184_7">Top_Left_Line</A></FONT>      : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1189       <FONT COLOR=red><A NAME="1185_7">Top_Left_Column</A></FONT>    : <b>out</b> Column_Position;
1190       Is_Not_A_Subwindow : <b>out</b> Boolean);
1191    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_getyx.3x.html">getparyx()</A></EM></FONT>
1192    <FONT COLOR=green><EM>--  Instead of placing -1 in the coordinates as return, we use a boolean</EM></FONT>
1193    <FONT COLOR=green><EM>--  to return the info that the window has no parent.</EM></FONT>
1194    <b>pragma</b> Inline (Get_Origin_Relative_To_Parent);
1195
1196    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1197    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></EM></FONT>
1198    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1199
1200    <FONT COLOR=green><EM>--  #1A NAME="AFU_87"#2|</EM></FONT>
1201    <b>function</b> New_Pad (<FONT COLOR=red><A NAME="1197_22">Lines</A></FONT>   : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
1202                      Columns : Column_Count) <b>return</b> Window;
1203    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_pad.3x.html">newpad()</A></EM></FONT>
1204    <b>pragma</b> Inline (New_Pad);
1205
1206    <FONT COLOR=green><EM>--  #1A NAME="AFU_88"#2|</EM></FONT>
1207    <b>function</b> Sub_Pad
1208      (<FONT COLOR=red><A NAME="1204_7">Pad</A></FONT>                   : <A HREF="terminal_interface-curses__ads.htm#62_12">Window</A>;
1209       <FONT COLOR=red><A NAME="1205_7">Number_Of_Lines</A></FONT>       : <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
1210       <FONT COLOR=red><A NAME="1206_7">Number_Of_Columns</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Count</A>;
1211       <FONT COLOR=red><A NAME="1207_7">First_Line_Position</A></FONT>   : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1212       First_Column_Position : Column_Position) <b>return</b> Window;
1213    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_pad.3x.html">subpad()</A></EM></FONT>
1214    <b>pragma</b> Inline (Sub_Pad);
1215
1216    <FONT COLOR=green><EM>--  #1A NAME="AFU_89"#2|</EM></FONT>
1217    <b>procedure</b> Refresh
1218      (<FONT COLOR=red><A NAME="1214_7">Pad</A></FONT>                      : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>;
1219       <FONT COLOR=red><A NAME="1215_7">Source_Top_Row</A></FONT>           : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1220       <FONT COLOR=red><A NAME="1216_7">Source_Left_Column</A></FONT>       : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>;
1221       <FONT COLOR=red><A NAME="1217_7">Destination_Top_Row</A></FONT>      : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1222       <FONT COLOR=red><A NAME="1218_7">Destination_Left_Column</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>;
1223       <FONT COLOR=red><A NAME="1219_7">Destination_Bottom_Row</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1224       Destination_Right_Column : <b>in</b> Column_Position);
1225    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_pad.3x.html">prefresh()</A></EM></FONT>
1226    <b>pragma</b> Inline (Refresh);
1227
1228    <FONT COLOR=green><EM>--  #1A NAME="AFU_90"#2|</EM></FONT>
1229    <b>procedure</b> Refresh_Without_Update
1230      (<FONT COLOR=red><A NAME="1226_7">Pad</A></FONT>                      : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A>;
1231       <FONT COLOR=red><A NAME="1227_7">Source_Top_Row</A></FONT>           : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1232       <FONT COLOR=red><A NAME="1228_7">Source_Left_Column</A></FONT>       : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>;
1233       <FONT COLOR=red><A NAME="1229_7">Destination_Top_Row</A></FONT>      : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1234       <FONT COLOR=red><A NAME="1230_7">Destination_Left_Column</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>;
1235       <FONT COLOR=red><A NAME="1231_7">Destination_Bottom_Row</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1236       Destination_Right_Column : <b>in</b> Column_Position);
1237    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_pad.3x.html">pnoutrefresh()</A></EM></FONT>
1238    <b>pragma</b> Inline (Refresh_Without_Update);
1239
1240    <FONT COLOR=green><EM>--  #1A NAME="AFU_91"#2|</EM></FONT>
1241    <b>procedure</b> Add_Character_To_Pad_And_Echo_It
1242      (<FONT COLOR=red><A NAME="1238_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A>;
1243       Ch  : <b>in</b> Attributed_Character);
1244    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_pad.3x.html">pechochar()</A></EM></FONT>
1245
1246    <b>procedure</b> Add_Character_To_Pad_And_Echo_It
1247      (<FONT COLOR=red><A NAME="1243_7">Pad</A></FONT> : <b>in</b> Window;
1248       Ch  : <b>in</b> Character);
1249    <b>pragma</b> Inline (Add_Character_To_Pad_And_Echo_It);
1250
1251    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1252    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_scroll.3x.html">curs_scroll.3x</A></EM></FONT>
1253    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1254
1255    <FONT COLOR=green><EM>--  #1A NAME="AFU_92"#2|</EM></FONT>
1256    <b>procedure</b> Scroll (<FONT COLOR=red><A NAME="1252_22">Win</A></FONT>    : <b>in</b> Window  := Standard_Window;
1257                      Amount : <b>in</b> Integer := 1);
1258    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_scroll.3x.html">wscrl()</A></EM></FONT>
1259    <b>pragma</b> Inline (Scroll);
1260
1261    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1262    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_delch.3x.html">curs_delch.3x</A></EM></FONT>
1263    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1264
1265    <FONT COLOR=green><EM>--  #1A NAME="AFU_93"#2|</EM></FONT>
1266    <b>procedure</b> Delete_Character (Win : <b>in</b> Window := Standard_Window);
1267    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_delch.3x.html">wdelch()</A></EM></FONT>
1268
1269    <FONT COLOR=green><EM>--  #1A NAME="AFU_94"#2|</EM></FONT>
1270    <b>procedure</b> Delete_Character
1271      (<FONT COLOR=red><A NAME="1267_7">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1272       <FONT COLOR=red><A NAME="1268_7">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1273       Column : <b>in</b> Column_Position);
1274    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_delch.3x.html">mvwdelch()</A></EM></FONT>
1275    <b>pragma</b> Inline (Delete_Character);
1276
1277    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1278    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_inch.3x.html">curs_inch.3x</A></EM></FONT>
1279    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1280
1281    <FONT COLOR=green><EM>--  #1A NAME="AFU_95"#2|</EM></FONT>
1282    <b>function</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Peek</A> (Win : Window := Standard_Window)
1283      <b>return</b> Attributed_Character;
1284    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inch.3x.html">winch()</A></EM></FONT>
1285
1286    <FONT COLOR=green><EM>--  #1A NAME="AFU_96"#2|</EM></FONT>
1287    <b>function</b> Peek
1288      (<FONT COLOR=red><A NAME="1284_7">Win</A></FONT>    : <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1289       <FONT COLOR=red><A NAME="1285_7">Line</A></FONT>   : <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1290       Column : Column_Position) <b>return</b> Attributed_Character;
1291    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inch.3x.html">mvwinch()</A></EM></FONT>
1292    <FONT COLOR=green><EM>--  More Peek's follow, pragma Inline appears later.</EM></FONT>
1293
1294    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1295    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_winch.3x.html">curs_winch.3x</A></EM></FONT>
1296    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1297
1298    <FONT COLOR=green><EM>--  #1A NAME="AFU_97"#2|</EM></FONT>
1299    <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1295_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Window</A> := Standard_Window;
1300                      Ch  : <b>in</b> Attributed_Character);
1301    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_winch.3x.html">winsch()</A></EM></FONT>
1302
1303    <FONT COLOR=green><EM>--  #1A NAME="AFU_98"#2|</EM></FONT>
1304    <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1300_22">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1305                      <FONT COLOR=red><A NAME="1301_22">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1306                      <FONT COLOR=red><A NAME="1302_22">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#350_9">Column_Position</A>;
1307                      Ch     : <b>in</b> Attributed_Character);
1308    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_winch.3x.html">mvwinsch()</A></EM></FONT>
1309
1310    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1311    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_winch.3x.html">curs_winch.3x</A></EM></FONT>
1312    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1313
1314    <FONT COLOR=green><EM>--  #1A NAME="AFU_99"#2|</EM></FONT>
1315    <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1311_22">Win</A></FONT> : <b>in</b> Window := Standard_Window;
1316                      <FONT COLOR=red><A NAME="1312_22">Str</A></FONT> : <b>in</b> String;
1317                      Len : <b>in</b> Integer := -1);
1318    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_winch.3x.html">winsnstr()</A></EM></FONT>
1319    <FONT COLOR=green><EM>--  AKA: winsstr()</EM></FONT>
1320
1321    <FONT COLOR=green><EM>--  #1A NAME="AFU_100"#2|</EM></FONT>
1322    <b>procedure</b> Insert (<FONT COLOR=red><A NAME="1318_22">Win</A></FONT>    : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1323                      <FONT COLOR=red><A NAME="1319_22">Line</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1324                      <FONT COLOR=red><A NAME="1320_22">Column</A></FONT> : <b>in</b> Column_Position;
1325                      <FONT COLOR=red><A NAME="1321_22">Str</A></FONT>    : <b>in</b> String;
1326                      Len    : <b>in</b> Integer := -1);
1327    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_winch.3x.html">mvwinsnstr()</A></EM></FONT>
1328    <FONT COLOR=green><EM>--  AKA: mvwinsstr()</EM></FONT>
1329    <b>pragma</b> Inline (Insert);
1330
1331    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1332    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_instr.3x.html">curs_instr.3x</A></EM></FONT>
1333    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1334
1335    <FONT COLOR=green><EM>--  #1A NAME="AFU_101"#2|</EM></FONT>
1336    <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1332_20">Win</A></FONT> : <b>in</b>  Window := Standard_Window;
1337                    <FONT COLOR=red><A NAME="1333_20">Str</A></FONT> : <b>out</b> String;
1338                    Len : <b>in</b>  Integer := -1);
1339    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_instr.3x.html">winnstr()</A></EM></FONT>
1340    <FONT COLOR=green><EM>--  AKA: winstr()</EM></FONT>
1341
1342    <FONT COLOR=green><EM>--  #1A NAME="AFU_102"#2|</EM></FONT>
1343    <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1339_20">Win</A></FONT>    : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1344                    <FONT COLOR=red><A NAME="1340_20">Line</A></FONT>   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1345                    <FONT COLOR=red><A NAME="1341_20">Column</A></FONT> : <b>in</b>  Column_Position;
1346                    <FONT COLOR=red><A NAME="1342_20">Str</A></FONT>    : <b>out</b> String;
1347                    Len    : <b>in</b>  Integer := -1);
1348    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_instr.3x.html">mvwinnstr()</A></EM></FONT>
1349    <FONT COLOR=green><EM>--  AKA: mvwinstr()</EM></FONT>
1350
1351    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1352    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_inchstr.3x.html">curs_inchstr.3x</A></EM></FONT>
1353    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1354
1355    <FONT COLOR=green><EM>--  #1A NAME="AFU_103"#2|</EM></FONT>
1356    <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1352_20">Win</A></FONT> : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#374_9">Window</A> := Standard_Window;
1357                    <FONT COLOR=red><A NAME="1353_20">Str</A></FONT> : <b>out</b> Attributed_String;
1358                    Len : <b>in</b>  Integer := -1);
1359    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inchstr.3x.html">winchnstr()</A></EM></FONT>
1360    <FONT COLOR=green><EM>--  AKA: winchstr()</EM></FONT>
1361
1362    <FONT COLOR=green><EM>--  #1A NAME="AFU_104"#2|</EM></FONT>
1363    <b>procedure</b> Peek (<FONT COLOR=red><A NAME="1359_20">Win</A></FONT>    : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1364                    <FONT COLOR=red><A NAME="1360_20">Line</A></FONT>   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1365                    <FONT COLOR=red><A NAME="1361_20">Column</A></FONT> : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#374_9">Column_Position</A>;
1366                    <FONT COLOR=red><A NAME="1362_20">Str</A></FONT>    : <b>out</b> Attributed_String;
1367                    Len    : <b>in</b>  Integer := -1);
1368    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_inchstr.3x.html">mvwinchnstr()</A></EM></FONT>
1369    <FONT COLOR=green><EM>--  AKA: mvwinchstr()</EM></FONT>
1370    <FONT COLOR=green><EM>--  We don't inline the Peek procedures</EM></FONT>
1371
1372    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1373    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_getstr.3x.html">curs_getstr.3x</A></EM></FONT>
1374    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1375
1376    <FONT COLOR=green><EM>--  #1A NAME="AFU_105"#2|</EM></FONT>
1377    <b>procedure</b> Get (<FONT COLOR=red><A NAME="1373_19">Win</A></FONT> : <b>in</b>  Window := Standard_Window;
1378                   <FONT COLOR=red><A NAME="1374_19">Str</A></FONT> : <b>out</b> String;
1379                   Len : <b>in</b>  Integer := -1);
1380    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_getstr.3x.html">wgetnstr()</A></EM></FONT>
1381    <FONT COLOR=green><EM>--  AKA: wgetstr()</EM></FONT>
1382
1383    <b>procedure</b> Get (<FONT COLOR=red><A NAME="1379_19">Win</A></FONT>    : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#59_9">Window</A> := Standard_Window;
1384                   <FONT COLOR=red><A NAME="1380_19">Line</A></FONT>   : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1385                   <FONT COLOR=red><A NAME="1381_19">Column</A></FONT> : <b>in</b>  Column_Position;
1386                   <FONT COLOR=red><A NAME="1382_19">Str</A></FONT>    : <b>out</b> String;
1387                   Len    : <b>in</b>  Integer := -1);
1388    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_getstr.3x.html">wgetnstr()</A></EM></FONT>
1389    <FONT COLOR=green><EM>--  not specified in ncurses, should be: mvwgetnstr()</EM></FONT>
1390    <FONT COLOR=green><EM>--       and mvwgetstr() (which exists)</EM></FONT>
1391    <FONT COLOR=green><EM>--  Get is not inlined</EM></FONT>
1392
1393    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1394    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></EM></FONT>
1395    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1396
1397    <b>type</b> Soft_Label_Key_Format <b>is</b> (Three_Two_Three,
1398                                   Four_Four,
1399                                   PC_Style,              <FONT COLOR=green><EM>--  ncurses specific</EM></FONT>
1400         <FONT COLOR=red><A NAME="1396_9"> </A></FONT>                         PC_Style_With_Index);  <FONT COLOR=green><EM>--  "</EM></FONT>
1401    <b>type</b> <FONT COLOR=red><A NAME="1397_9">Label_Number</A></FONT> <b>is</b> <b>new</b> Positive <b>range</b> 1 .. 12;
1402    <b>type</b> Label_Justification <b>is</b> (Left, Centered, Right);
1403
1404    <FONT COLOR=green><EM>--  #1A NAME="AFU_106"#2|</EM></FONT>
1405    <b>procedure</b> Init_Soft_Label_Keys
1406      (Format : <b>in</b> Soft_Label_Key_Format := Three_Two_Three);
1407    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_init()</A></EM></FONT>
1408    <b>pragma</b> Inline (Init_Soft_Label_Keys);
1409
1410    <FONT COLOR=green><EM>--  #1A NAME="AFU_107"#2|</EM></FONT>
1411    <b>procedure</b> Set_Soft_Label_Key (<FONT COLOR=red><A NAME="1407_34">Label</A></FONT> : <b>in</b> Label_Number;
1412                                  <FONT COLOR=red><A NAME="1408_34">Text</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1397_9">String</A>;
1413                                  Fmt   : <b>in</b> Label_Justification := Left);
1414    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_set()</A></EM></FONT>
1415    <FONT COLOR=green><EM>--  We don't inline this procedure</EM></FONT>
1416
1417    <FONT COLOR=green><EM>--  #1A NAME="AFU_108"#2|</EM></FONT>
1418    <b>procedure</b> Refresh_Soft_Label_Keys;
1419    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_refresh()</A></EM></FONT>
1420    <b>pragma</b> Inline (Refresh_Soft_Label_Keys);
1421
1422    <FONT COLOR=green><EM>--  #1A NAME="AFU_109"#2|</EM></FONT>
1423    <b>procedure</b> Refresh_Soft_Label_Keys_Without_Update;
1424    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_noutrefresh()</A></EM></FONT>
1425    <b>pragma</b> Inline (Refresh_Soft_Label_Keys_Without_Update);
1426
1427    <FONT COLOR=green><EM>--  #1A NAME="AFU_110"#2|</EM></FONT>
1428    <b>procedure</b> Get_Soft_Label_Key (<FONT COLOR=red><A NAME="1424_34">Label</A></FONT> : <b>in</b> Label_Number;
1429                                  Text  : <b>out</b> String);
1430    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></EM></FONT>
1431
1432    <FONT COLOR=green><EM>--  #1A NAME="AFU_111"#2|</EM></FONT>
1433    <b>function</b> Get_Soft_Label_Key (Label : <b>in</b> Label_Number) <b>return</b> String;
1434    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></EM></FONT>
1435    <FONT COLOR=green><EM>--  Same as function</EM></FONT>
1436    <b>pragma</b> Inline (Get_Soft_Label_Key);
1437
1438    <FONT COLOR=green><EM>--  #1A NAME="AFU_112"#2|</EM></FONT>
1439    <b>procedure</b> Clear_Soft_Label_Keys;
1440    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_clear()</A></EM></FONT>
1441    <b>pragma</b> Inline (Clear_Soft_Label_Keys);
1442
1443    <FONT COLOR=green><EM>--  #1A NAME="AFU_113"#2|</EM></FONT>
1444    <b>procedure</b> Restore_Soft_Label_Keys;
1445    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_restore()</A></EM></FONT>
1446    <b>pragma</b> Inline (Restore_Soft_Label_Keys);
1447
1448    <FONT COLOR=green><EM>--  #1A NAME="AFU_114"#2|</EM></FONT>
1449    <b>procedure</b> Touch_Soft_Label_Keys;
1450    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_touch()</A></EM></FONT>
1451    <b>pragma</b> Inline (Touch_Soft_Label_Keys);
1452
1453    <FONT COLOR=green><EM>--  #1A NAME="AFU_115"#2|</EM></FONT>
1454    <b>procedure</b> Switch_Soft_Label_Key_Attributes
1455      (<FONT COLOR=red><A NAME="1451_7">Attr</A></FONT> : <b>in</b> Character_Attribute_Set;
1456       On   : <b>in</b> Boolean := True);
1457    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_attron()</A></EM></FONT>
1458    <FONT COLOR=green><EM>--  AKA: slk_attroff()</EM></FONT>
1459    <b>pragma</b> Inline (Switch_Soft_Label_Key_Attributes);
1460
1461    <FONT COLOR=green><EM>--  #1A NAME="AFU_116"#2|</EM></FONT>
1462    <b>procedure</b> Set_Soft_Label_Key_Attributes
1463      (<FONT COLOR=red><A NAME="1459_7">Attr</A></FONT>  : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#296_9">Character_Attribute_Set</A> := Normal_Video;
1464       Color : <b>in</b> Color_Pair := Color_Pair'First);
1465    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_attrset()</A></EM></FONT>
1466    <b>pragma</b> Inline (Set_Soft_Label_Key_Attributes);
1467
1468    <FONT COLOR=green><EM>--  #1A NAME="AFU_117"#2|</EM></FONT>
1469    <b>function</b> Get_Soft_Label_Key_Attributes <b>return</b> Character_Attribute_Set;
1470    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></EM></FONT>
1471
1472    <FONT COLOR=green><EM>--  #1A NAME="AFU_118"#2|</EM></FONT>
1473    <b>function</b> Get_Soft_Label_Key_Attributes <b>return</b> Color_Pair;
1474    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></EM></FONT>
1475    <b>pragma</b> Inline (Get_Soft_Label_Key_Attributes);
1476
1477    <FONT COLOR=green><EM>--  #1A NAME="AFU_119"#2|</EM></FONT>
1478    <b>procedure</b> Set_Soft_Label_Key_Color (Pair : <b>in</b> Color_Pair);
1479    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_slk.3x.html">slk_color()</A></EM></FONT>
1480    <b>pragma</b> Inline (Set_Soft_Label_Key_Color);
1481
1482    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1483    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/keyok.3x.html">keyok.3x</A></EM></FONT>
1484    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1485
1486    <FONT COLOR=green><EM>--  #1A NAME="AFU_120"#2|</EM></FONT>
1487    <b>procedure</b> Enable_Key (<FONT COLOR=red><A NAME="1483_26">Key</A></FONT>    : <b>in</b> Special_Key_Code;
1488                          Enable : <b>in</b> Boolean := True);
1489    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/keyok.3x.html">keyok()</A></EM></FONT>
1490    <b>pragma</b> Inline (Enable_Key);
1491
1492    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1493    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/define_key.3x.html">define_key.3x</A></EM></FONT>
1494    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1495
1496    <FONT COLOR=green><EM>--  #1A NAME="AFU_121"#2|</EM></FONT>
1497    <b>procedure</b> Define_Key (<FONT COLOR=red><A NAME="1493_26">Definition</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#76_12">String</A>;
1498                          Key        : <b>in</b> Special_Key_Code);
1499    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/define_key.3x.html">define_key()</A></EM></FONT>
1500    <b>pragma</b> Inline (Define_Key);
1501
1502    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1503    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_util.3x.html">curs_util.3x</A></EM></FONT>
1504    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1505
1506    <FONT COLOR=green><EM>--  | Not implemented : filter, use_env, putwin, getwin</EM></FONT>
1507    <FONT COLOR=green><EM>--</EM></FONT>
1508    <FONT COLOR=green><EM>--  #1A NAME="AFU_122"#2|</EM></FONT>
1509    <b>procedure</b> Key_Name (<FONT COLOR=red><A NAME="1505_24">Key</A></FONT>  : <b>in</b>  Real_Key_Code;
1510                        Name : <b>out</b> String);
1511    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></EM></FONT>
1512    <FONT COLOR=green><EM>--  The external name for a real keystroke.</EM></FONT>
1513
1514    <FONT COLOR=green><EM>--  #1A NAME="AFU_123"#2|</EM></FONT>
1515    <b>function</b> Key_Name (Key  : <b>in</b>  Real_Key_Code) <b>return</b> String;
1516    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></EM></FONT>
1517    <FONT COLOR=green><EM>--  Same as function</EM></FONT>
1518    <FONT COLOR=green><EM>--  We don't inline this routine</EM></FONT>
1519
1520    <FONT COLOR=green><EM>--  #1A NAME="AFU_124"#2|</EM></FONT>
1521    <b>procedure</b> Un_Control (<FONT COLOR=red><A NAME="1517_26">Ch</A></FONT>  : <b>in</b> Attributed_Character;
1522                          Str : <b>out</b> String);
1523    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></EM></FONT>
1524
1525    <FONT COLOR=green><EM>--  #1A NAME="AFU_125"#2|</EM></FONT>
1526    <b>function</b> Un_Control (Ch  : <b>in</b> Attributed_Character) <b>return</b> String;
1527    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></EM></FONT>
1528    <FONT COLOR=green><EM>--  Same as function</EM></FONT>
1529    <b>pragma</b> Inline (Un_Control);
1530
1531    <FONT COLOR=green><EM>--  #1A NAME="AFU_126"#2|</EM></FONT>
1532    <b>procedure</b> Delay_Output (Msecs : <b>in</b> Natural);
1533    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_util.3x.html">delay_output()</A></EM></FONT>
1534    <b>pragma</b> Inline (Delay_Output);
1535
1536    <FONT COLOR=green><EM>--  #1A NAME="AFU_127"#2|</EM></FONT>
1537    <b>procedure</b> Flush_Input;
1538    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_util.3x.html">flushinp()</A></EM></FONT>
1539    <b>pragma</b> Inline (Flush_Input);
1540
1541    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1542    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></EM></FONT>
1543    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1544
1545    <FONT COLOR=green><EM>--  #1A NAME="AFU_128"#2|</EM></FONT>
1546    <b>function</b> Baudrate <b>return</b> Natural;
1547    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">baudrate()</A></EM></FONT>
1548    <b>pragma</b> Inline (Baudrate);
1549
1550    <FONT COLOR=green><EM>--  #1A NAME="AFU_129"#2|</EM></FONT>
1551    <b>function</b> Erase_Character <b>return</b> Character;
1552    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">erasechar()</A></EM></FONT>
1553    <b>pragma</b> Inline (Erase_Character);
1554
1555    <FONT COLOR=green><EM>--  #1A NAME="AFU_130"#2|</EM></FONT>
1556    <b>function</b> Kill_Character <b>return</b> Character;
1557    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">killchar()</A></EM></FONT>
1558    <b>pragma</b> Inline (Kill_Character);
1559
1560    <FONT COLOR=green><EM>--  #1A NAME="AFU_131"#2|</EM></FONT>
1561    <b>function</b> Has_Insert_Character <b>return</b> Boolean;
1562    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">has_ic()</A></EM></FONT>
1563    <b>pragma</b> Inline (Has_Insert_Character);
1564
1565    <FONT COLOR=green><EM>--  #1A NAME="AFU_132"#2|</EM></FONT>
1566    <b>function</b> Has_Insert_Line <b>return</b> Boolean;
1567    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">has_il()</A></EM></FONT>
1568    <b>pragma</b> Inline (Has_Insert_Line);
1569
1570    <FONT COLOR=green><EM>--  #1A NAME="AFU_133"#2|</EM></FONT>
1571    <b>function</b> Supported_Attributes <b>return</b> Character_Attribute_Set;
1572    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">termattrs()</A></EM></FONT>
1573    <b>pragma</b> Inline (Supported_Attributes);
1574
1575    <FONT COLOR=green><EM>--  #1A NAME="AFU_134"#2|</EM></FONT>
1576    <b>procedure</b> Long_Name (Name : <b>out</b> String);
1577    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></EM></FONT>
1578
1579    <FONT COLOR=green><EM>--  #1A NAME="AFU_135"#2|</EM></FONT>
1580    <b>function</b> Long_Name <b>return</b> String;
1581    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></EM></FONT>
1582    <FONT COLOR=green><EM>--  Same as function</EM></FONT>
1583    <b>pragma</b> Inline (Long_Name);
1584
1585    <FONT COLOR=green><EM>--  #1A NAME="AFU_136"#2|</EM></FONT>
1586    <b>procedure</b> Terminal_Name (Name : <b>out</b> String);
1587    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></EM></FONT>
1588
1589    <FONT COLOR=green><EM>--  #1A NAME="AFU_137"#2|</EM></FONT>
1590    <b>function</b> Terminal_Name <b>return</b> String;
1591    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></EM></FONT>
1592    <FONT COLOR=green><EM>--  Same as function</EM></FONT>
1593    <b>pragma</b> Inline (Terminal_Name);
1594
1595    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1596    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_color.3x.html">curs_color.3x</A></EM></FONT>
1597    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1598
1599    <FONT COLOR=green><EM>--  #1A NAME="AFU_138"#2|</EM></FONT>
1600    <b>procedure</b> Start_Color;
1601    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_color.3x.html">start_color()</A></EM></FONT>
1602    <b>pragma</b> Import (C, Start_Color, "start_color");
1603
1604    <FONT COLOR=green><EM>--  #1A NAME="AFU_139"#2|</EM></FONT>
1605    <b>procedure</b> Init_Pair (<FONT COLOR=red><A NAME="1601_25">Pair</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Redefinable_Color_Pair</A>;
1606                         <FONT COLOR=red><A NAME="1602_25">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>;
1607                         Back : <b>in</b> Color_Number);
1608    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_color.3x.html">init_pair()</A></EM></FONT>
1609    <b>pragma</b> Inline (Init_Pair);
1610
1611    <FONT COLOR=green><EM>--  #1A NAME="AFU_140"#2|</EM></FONT>
1612    <b>procedure</b> Pair_Content (<FONT COLOR=red><A NAME="1608_28">Pair</A></FONT> : <b>in</b> Color_Pair;
1613                            <FONT COLOR=red><A NAME="1609_28">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#276_9">Color_Number</A>;
1614                            Back : <b>out</b> Color_Number);
1615    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_color.3x.html">pair_content()</A></EM></FONT>
1616    <b>pragma</b> Inline (Pair_Content);
1617
1618    <FONT COLOR=green><EM>--  #1A NAME="AFU_141"#2|</EM></FONT>
1619    <b>function</b> Has_Colors <b>return</b> Boolean;
1620    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_color.3x.html">has_colors()</A></EM></FONT>
1621    <b>pragma</b> Inline (Has_Colors);
1622
1623    <FONT COLOR=green><EM>--  #1A NAME="AFU_142"#2|</EM></FONT>
1624    <b>procedure</b> Init_Color (<FONT COLOR=red><A NAME="1620_26">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">Color_Number</A>;
1625                          <FONT COLOR=red><A NAME="1621_26">Red</A></FONT>   : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>;
1626                          <FONT COLOR=red><A NAME="1622_26">Green</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>;
1627                          Blue  : <b>in</b> RGB_Value);
1628    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_color.3x.html">init_color()</A></EM></FONT>
1629    <b>pragma</b> Inline (Init_Color);
1630
1631    <FONT COLOR=green><EM>--  #1A NAME="AFU_143"#2|</EM></FONT>
1632    <b>function</b> Can_Change_Color <b>return</b> Boolean;
1633    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_color.3x.html">can_change_color()</A></EM></FONT>
1634    <b>pragma</b> Inline (Can_Change_Color);
1635
1636    <FONT COLOR=green><EM>--  #1A NAME="AFU_144"#2|</EM></FONT>
1637    <b>procedure</b> Color_Content (<FONT COLOR=red><A NAME="1633_29">Color</A></FONT> : <b>in</b>  <A HREF="terminal_interface-curses__ads.htm#292_9">Color_Number</A>;
1638                             <FONT COLOR=red><A NAME="1634_29">Red</A></FONT>   : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>;
1639                             <FONT COLOR=red><A NAME="1635_29">Green</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#292_9">RGB_Value</A>;
1640                             Blue  : <b>out</b> RGB_Value);
1641    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_color.3x.html">color_content()</A></EM></FONT>
1642    <b>pragma</b> Inline (Color_Content);
1643
1644    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1645    <FONT COLOR=green><EM>--  | Man page <A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></EM></FONT>
1646    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1647
1648    <FONT COLOR=green><EM>--  | Not implemented: getsyx, setsyx</EM></FONT>
1649    <FONT COLOR=green><EM>--</EM></FONT>
1650    <b>type</b> Curses_Mode <b>is</b> (Curses, Shell);
1651
1652    <FONT COLOR=green><EM>--  #1A NAME="AFU_145"#2|</EM></FONT>
1653    <b>procedure</b> Save_Curses_Mode (Mode : <b>in</b> Curses_Mode);
1654    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_kernel.3x.html">def_prog_mode()</A></EM></FONT>
1655    <FONT COLOR=green><EM>--  AKA: def_shell_mode()</EM></FONT>
1656    <b>pragma</b> Inline (Save_Curses_Mode);
1657
1658    <FONT COLOR=green><EM>--  #1A NAME="AFU_146"#2|</EM></FONT>
1659    <b>procedure</b> Reset_Curses_Mode (Mode : <b>in</b> Curses_Mode);
1660    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_kernel.3x.html">reset_prog_mode()</A></EM></FONT>
1661    <FONT COLOR=green><EM>--  AKA: reset_shell_mode()</EM></FONT>
1662    <b>pragma</b> Inline (Reset_Curses_Mode);
1663
1664    <FONT COLOR=green><EM>--  #1A NAME="AFU_147"#2|</EM></FONT>
1665    <b>procedure</b> Save_Terminal_State;
1666    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_kernel.3x.html">savetty()</A></EM></FONT>
1667    <b>pragma</b> Inline (Save_Terminal_State);
1668
1669    <FONT COLOR=green><EM>--  #1A NAME="AFU_148"#2|</EM></FONT>
1670    <b>procedure</b> Reset_Terminal_State;
1671    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_kernel.3x.html">resetty();</A></EM></FONT>
1672    <b>pragma</b> Inline (Reset_Terminal_State);
1673
1674    <b>type</b> Stdscr_Init_Proc <b>is</b> <b>access</b>
1675       <b>function</b> (<FONT COLOR=red><A NAME="1671_17">Win</A></FONT>     : <A HREF="terminal_interface-curses__ads.htm#64_12">Window</A>;
1676                 Columns :<A HREF="terminal_interface-curses__ads.htm#1669_9"> </A>Column_Count) <b>return</b> Integer;
1677    <b>pragma</b> Convention (C, Stdscr_Init_Proc);
1678    <FONT COLOR=green><EM>--  N.B.: the return value is actually ignored, but it seems to be</EM></FONT>
1679    <FONT COLOR=green><EM>--        a good practice to return 0 if you think all went fine</EM></FONT>
1680    <FONT COLOR=green><EM>--        and -1 otherwise.</EM></FONT>
1681
1682    <FONT COLOR=green><EM>--  #1A NAME="AFU_149"#2|</EM></FONT>
1683    <b>procedure</b> Rip_Off_Lines (<FONT COLOR=red><A NAME="1679_29">Lines</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#1669_9">Integer</A>;
1684                             Proc  : <b>in</b> Stdscr_Init_Proc);
1685    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_kernel.3x.html">ripoffline()</A></EM></FONT>
1686    <FONT COLOR=green><EM>--  N.B.: to be more precise, this uses a ncurses specific enhancement of</EM></FONT>
1687    <FONT COLOR=green><EM>--        ripoffline(), in which the Lines argument absolute value is the</EM></FONT>
1688    <FONT COLOR=green><EM>--        number of lines to be ripped of. The official ripoffline() only</EM></FONT>
1689    <FONT COLOR=green><EM>--        uses the sign of Lines to rip of a single line from bottom or top.</EM></FONT>
1690    <b>pragma</b> Inline (Rip_Off_Lines);
1691
1692    <b>type</b> Cursor_Visibility <b>is</b> (Invisible, Normal, Very_Visible);
1693
1694    <FONT COLOR=green><EM>--  #1A NAME="AFU_150"#2|</EM></FONT>
1695    <b>procedure</b> Set_Cursor_Visibility (Visibility : <b>in</b> <b>out</b> Cursor_Visibility);
1696    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_kernel.3x.html">curs_set()</A></EM></FONT>
1697    <b>pragma</b> Inline (Set_Cursor_Visibility);
1698
1699    <FONT COLOR=green><EM>--  #1A NAME="AFU_151"#2|</EM></FONT>
1700    <b>procedure</b> Nap_Milli_Seconds (Ms : <b>in</b> Natural);
1701    <FONT COLOR=green><EM>--  AKA: <A HREF="../man/curs_kernel.3x.html">napms()</A></EM></FONT>
1702    <b>pragma</b> Inline (Nap_Milli_Seconds);
1703
1704    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1705    <FONT COLOR=green><EM>--  | Some useful helpers.</EM></FONT>
1706    <FONT COLOR=green><EM>--  |=====================================================================</EM></FONT>
1707    <b>type</b> Transform_Direction <b>is</b> (From_Screen, To_Screen);
1708    <b>procedure</b> Transform_Coordinates
1709      (<FONT COLOR=red><A NAME="1705_7">W</A></FONT>      : <b>in</b> Window := Standard_Window;
1710       <FONT COLOR=red><A NAME="1706_7">Line</A></FONT>   : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
1711       <FONT COLOR=red><A NAME="1707_7">Column</A></FONT> : <b>in</b> <b>out</b> Column_Position;
1712       Dir    : <b>in</b> Transform_Direction := From_Screen);
1713    <FONT COLOR=green><EM>--  This procedure transforms screen coordinates into coordinates relative</EM></FONT>
1714    <FONT COLOR=green><EM>--  to the window and vice versa, depending on the Dir parameter.</EM></FONT>
1715    <FONT COLOR=green><EM>--  Screen coordinates are the position informations on the physical device.</EM></FONT>
1716    <FONT COLOR=green><EM>--  An Curses_Exception will be raised if Line and Column are not in the</EM></FONT>
1717    <FONT COLOR=green><EM>--  Window or if you pass the Null_Window as argument.</EM></FONT>
1718    <FONT COLOR=green><EM>--  We don't inline this procedure</EM></FONT>
1719
1720 <b>private</b>
1721    <b>type</b> Window <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
1722    Null_Window : <b>constant</b> Window := 0;
1723
1724    <FONT COLOR=green><EM>--  The next constants are generated and may be different on your</EM></FONT>
1725    <FONT COLOR=green><EM>--  architecture.</EM></FONT>
1726    <FONT COLOR=green><EM>--</EM></FONT>
1727    <FONT COLOR=red><A NAME="1723_4">Offset_maxy</A></FONT>    : <b>constant</b> Natural :=  2; <FONT COLOR=green><EM>--  short</EM></FONT>
1728    <FONT COLOR=red><A NAME="1724_4">Offset_maxx</A></FONT>    : <b>constant</b> Natural :=  3; <FONT COLOR=green><EM>--  short</EM></FONT>
1729    <FONT COLOR=red><A NAME="1725_4">Offset_begy</A></FONT>    : <b>constant</b> Natural :=  4; <FONT COLOR=green><EM>--  short</EM></FONT>
1730    <FONT COLOR=red><A NAME="1726_4">Offset_begx</A></FONT>    : <b>constant</b> Natural :=  5; <FONT COLOR=green><EM>--  short</EM></FONT>
1731    <FONT COLOR=red><A NAME="1727_4">Offset_cury</A></FONT>    : <b>constant</b> Natural :=  0; <FONT COLOR=green><EM>--  short</EM></FONT>
1732    <FONT COLOR=red><A NAME="1728_4">Offset_curx</A></FONT>    : <b>constant</b> Natural :=  1; <FONT COLOR=green><EM>--  short</EM></FONT>
1733    <FONT COLOR=red><A NAME="1729_4">Offset_yoffset</A></FONT> : <b>constant</b> Natural := 36; <FONT COLOR=green><EM>--  short</EM></FONT>
1734    <FONT COLOR=red><A NAME="1730_4">Offset_pary</A></FONT>    : <b>constant</b> Natural := 13; <FONT COLOR=green><EM>--  int</EM></FONT>
1735    <FONT COLOR=red><A NAME="1731_4">Offset_parx</A></FONT>    : <b>constant</b> Natural := 12; <FONT COLOR=green><EM>--  int</EM></FONT>
1736    <FONT COLOR=red><A NAME="1732_4">Offset_scroll</A></FONT>  : <b>constant</b> Natural := 27; <FONT COLOR=green><EM>--  char</EM></FONT>
1737    <FONT COLOR=red><A NAME="1733_4">Sizeof_bool</A></FONT>    : <b>constant</b> Natural :=  1; <FONT COLOR=green><EM>--  bool</EM></FONT>
1738    Offset_XY      : <b>constant</b> Natural :=  1; <FONT COLOR=green><EM>--  int</EM></FONT>
1739
1740    <b>type</b> Curses_Bool <b>is</b> <b>mod</b> 2 ** <A HREF="terminal_interface-curses__ads.htm#1735_9">Interfaces</A>.C.char'Size;
1741    Curses_Bool_False : <b>constant</b> Curses_Bool := 0;
1742
1743 <b>end</b> Terminal_Interface.Curses;
1744 </PRE></BODY></HTML>