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