1<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"> 2<html> 3<head> 4<title>terminal_interface-curses.ads</title> 5<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> 6<style type="text/css"> 7*.comment { 8 color: green; 9} 10*.symbol { 11 color: red; 12} 13</style> 14</head> 15<body> 16<hr><div style="text-align:center"><h1> File : terminal_interface-curses.ads </h1></div><hr> 17<pre> 18<span class="comment"><em>------------------------------------------------------------------------------</em></span> 19<span class="comment"><em>-- --</em></span> 20<span class="comment"><em>-- <strong>GNAT</strong> ncurses Binding --</em></span> 21<span class="comment"><em>-- --</em></span> 22<span class="comment"><em>-- Terminal_Interface.Curses --</em></span> 23<span class="comment"><em>-- --</em></span> 24<span class="comment"><em>-- S P E C --</em></span> 25<span class="comment"><em>-- --</em></span> 26<span class="comment"><em>------------------------------------------------------------------------------</em></span> 27<span class="comment"><em>-- Copyright 2020,2024 Thomas E. Dickey --</em></span> 28<span class="comment"><em>-- Copyright 1998-2011,2014 Free Software Foundation, Inc. --</em></span> 29<span class="comment"><em>-- --</em></span> 30<span class="comment"><em>-- Permission is hereby granted, free of charge, to any person obtaining a --</em></span> 31<span class="comment"><em>-- copy of this software and associated documentation files (the --</em></span> 32<span class="comment"><em>-- "Software"), to deal in the Software without restriction, including --</em></span> 33<span class="comment"><em>-- without limitation the rights to use, copy, modify, merge, publish, --</em></span> 34<span class="comment"><em>-- distribute, distribute with modifications, sublicense, and/or sell --</em></span> 35<span class="comment"><em>-- copies of the Software, and to permit persons to whom the Software is --</em></span> 36<span class="comment"><em>-- furnished to do so, subject to the following conditions: --</em></span> 37<span class="comment"><em>-- --</em></span> 38<span class="comment"><em>-- The above copyright notice and this permission notice shall be included --</em></span> 39<span class="comment"><em>-- in all copies or substantial portions of the Software. --</em></span> 40<span class="comment"><em>-- --</em></span> 41<span class="comment"><em>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</em></span> 42<span class="comment"><em>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</em></span> 43<span class="comment"><em>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</em></span> 44<span class="comment"><em>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</em></span> 45<span class="comment"><em>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</em></span> 46<span class="comment"><em>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</em></span> 47<span class="comment"><em>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</em></span> 48<span class="comment"><em>-- --</em></span> 49<span class="comment"><em>-- Except as contained in this notice, the name(s) of the above copyright --</em></span> 50<span class="comment"><em>-- holders shall not be used in advertising or otherwise to promote the --</em></span> 51<span class="comment"><em>-- sale, use or other dealings in this Software without prior written --</em></span> 52<span class="comment"><em>-- authorization. --</em></span> 53<span class="comment"><em>------------------------------------------------------------------------------</em></span> 54<span class="comment"><em>-- Author: Juergen Pfeifer, 1996</em></span> 55<span class="comment"><em>-- Version Control:</em></span> 56<span class="comment"><em>-- @Revision: 1.49 @</em></span> 57<span class="comment"><em>-- @Date: 2024/01/19 16:51:30 @</em></span> 58<span class="comment"><em>-- Binding Version 01.00</em></span> 59<span class="comment"><em>------------------------------------------------------------------------------</em></span> 60<b>with</b> System.Storage_Elements; 61<b>with</b> <a href="interfac__ads.htm#ref_38_9">Interfaces</a>.C; <span class="comment"><em>-- We need this for some assertions.</em></span> 62 63<b>with</b> <a href="terminal_interface__ads.htm#ref_43_9">Terminal_Interface</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>; 64 65<b>package</b> <a href="terminal_interface__ads.htm#ref_43_9">Terminal_Interface</a>.<span class="symbol"><a name="ref_48_28" href="terminal_interface-curses__adb.htm#ref_51_33">Curses</a></span> <b>is</b> 66 <b>pragma</b> Preelaborate (<a href="terminal_interface__ads.htm#ref_43_9">Terminal_Interface</a>.<a href="terminal_interface-curses__ads.htm#ref_48_28">Curses</a>); 67 <b>pragma</b> Linker_Options ("-lncurses" & <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_9_4">DFT_ARG_SUFFIX</a>); 68 69 <span class="symbol"><a name="ref_52_4">Major_Version</a></span> : <b>constant</b> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_21_4">NCURSES_VERSION_MAJOR</a>; 70 <span class="symbol"><a name="ref_53_4">Minor_Version</a></span> : <b>constant</b> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_22_4">NCURSES_VERSION_MINOR</a>; 71 NC_Version : String <b>renames</b> <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_23_4">Version</a>; 72 73 <b>type</b> <span class="symbol"><a name="ref_56_9">Window</a></span> <b>is</b> <b>private</b>; 74 <span class="symbol"><a name="ref_57_4">Null_Window</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 75 76 <b>type</b> <span class="symbol"><a name="ref_59_9">Line_Position</a></span> <b>is</b> <b>new</b> Integer; <span class="comment"><em>-- line coordinate</em></span> 77 <b>type</b> <span class="symbol"><a name="ref_60_9">Column_Position</a></span> <b>is</b> <b>new</b> Integer; <span class="comment"><em>-- column coordinate</em></span> 78 79 <b>subtype</b> <span class="symbol"><a name="ref_62_12">Line_Count</a></span> <b>is</b> <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a> <b>range</b> 1 .. <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>'Last; 80 <span class="comment"><em>-- Type to count lines. We do not allow null windows, so must be positive</em></span> 81 <b>subtype</b> <span class="symbol"><a name="ref_64_12">Column_Count</a></span> <b>is</b> <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a> <b>range</b> 1 .. <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>'Last; 82 <span class="comment"><em>-- Type to count columns. We do not allow null windows, so must be positive</em></span> 83 84 <b>type</b> <span class="symbol"><a name="ref_67_9">Key_Code</a></span> <b>is</b> <b>new</b> Integer; 85 <span class="comment"><em>-- That is anything including real characters, special keys and logical</em></span> 86 <span class="comment"><em>-- request codes.</em></span> 87 88 <span class="comment"><em>-- FIXME: The "-1" should be Curses_Err</em></span> 89 <b>subtype</b> <span class="symbol"><a name="ref_72_12">Real_Key_Code</a></span> <b>is</b> <a href="terminal_interface-curses__ads.htm#ref_67_9">Key_Code</a> <b>range</b> -1 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_99_4">KEY_MAX</a>; 90 <span class="comment"><em>-- This are the codes that potentially represent a real keystroke.</em></span> 91 <span class="comment"><em>-- Not all codes may be possible on a specific terminal. To check the</em></span> 92 <span class="comment"><em>-- availability of a special key, the Has_Key function is provided.</em></span> 93 94 <b>subtype</b> <span class="symbol"><a name="ref_77_12">Special_Key_Code</a></span> <b>is</b> <a href="terminal_interface-curses__ads.htm#ref_72_12">Real_Key_Code</a> 95 <b>range</b> <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>. <a href="terminal_interface-curses_constants__ads.htm#ref_98_4">KEY_MIN</a> - 1 .. <a href="terminal_interface-curses__ads.htm#ref_72_12">Real_Key_Code</a>'Last; 96 <span class="comment"><em>-- Type for a function- or special key number</em></span> 97 98 <b>subtype</b> <span class="symbol"><a name="ref_81_12">Normal_Key_Code</a></span> <b>is</b> <a href="terminal_interface-curses__ads.htm#ref_72_12">Real_Key_Code</a> <b>range</b> 99 Character'Pos (Character'First) .. Character'Pos (Character'Last); 100 <span class="comment"><em>-- This are the codes for regular (incl. non-graphical) characters.</em></span> 101 102 <span class="comment"><em>-- For those who like to use the original key names we produce them were</em></span> 103 <span class="comment"><em>-- they differ from the original.</em></span> 104 105 <span class="comment"><em>-- Constants for function- and special keys</em></span> 106 <span class="symbol"><a name="ref_89_4">Key_None</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 107 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_98_4">KEY_MIN</a> - 1; 108 <span class="symbol"><a name="ref_91_4">Key_Min</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 109 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_98_4">KEY_MIN</a>; 110 <span class="symbol"><a name="ref_93_4">Key_Break</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 111 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_104_4">KEY_BREAK</a>; 112 <span class="symbol"><a name="ref_95_4">KEY_DOWN</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 113 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_105_4">KEY_DOWN</a>; 114 Key_Cursor_Down : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_95_4">KEY_DOWN</a>; 115 <span class="symbol"><a name="ref_98_4">KEY_UP</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 116 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_106_4">KEY_UP</a>; 117 Key_Cursor_Up : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_98_4">KEY_UP</a>; 118 <span class="symbol"><a name="ref_101_4">KEY_LEFT</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 119 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_107_4">KEY_LEFT</a>; 120 Key_Cursor_Left : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_101_4">KEY_LEFT</a>; 121 <span class="symbol"><a name="ref_104_4">KEY_RIGHT</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 122 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_108_4">KEY_RIGHT</a>; 123 Key_Cursor_Right : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_104_4">KEY_RIGHT</a>; 124 <span class="symbol"><a name="ref_107_4">Key_Home</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 125 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_109_4">KEY_HOME</a>; 126 <span class="symbol"><a name="ref_109_4">Key_Backspace</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 127 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_110_4">KEY_BACKSPACE</a>; 128 <span class="symbol"><a name="ref_111_4">Key_F0</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 129 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_111_4">KEY_F0</a>; 130 <span class="symbol"><a name="ref_113_4">Key_F1</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 131 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_112_4">KEY_F1</a>; 132 <span class="symbol"><a name="ref_115_4">Key_F2</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 133 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_113_4">KEY_F2</a>; 134 <span class="symbol"><a name="ref_117_4">Key_F3</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 135 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_114_4">KEY_F3</a>; 136 <span class="symbol"><a name="ref_119_4">Key_F4</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 137 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_115_4">KEY_F4</a>; 138 <span class="symbol"><a name="ref_121_4">Key_F5</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 139 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_116_4">KEY_F5</a>; 140 <span class="symbol"><a name="ref_123_4">Key_F6</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 141 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_117_4">KEY_F6</a>; 142 <span class="symbol"><a name="ref_125_4">Key_F7</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 143 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_118_4">KEY_F7</a>; 144 <span class="symbol"><a name="ref_127_4">Key_F8</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 145 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_119_4">KEY_F8</a>; 146 <span class="symbol"><a name="ref_129_4">Key_F9</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 147 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_120_4">KEY_F9</a>; 148 <span class="symbol"><a name="ref_131_4">Key_F10</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 149 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_121_4">KEY_F10</a>; 150 <span class="symbol"><a name="ref_133_4">Key_F11</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 151 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_122_4">KEY_F11</a>; 152 <span class="symbol"><a name="ref_135_4">Key_F12</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 153 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_123_4">KEY_F12</a>; 154 <span class="symbol"><a name="ref_137_4">Key_F13</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 155 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_124_4">KEY_F13</a>; 156 <span class="symbol"><a name="ref_139_4">Key_F14</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 157 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_125_4">KEY_F14</a>; 158 <span class="symbol"><a name="ref_141_4">Key_F15</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 159 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_126_4">KEY_F15</a>; 160 <span class="symbol"><a name="ref_143_4">Key_F16</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 161 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_127_4">KEY_F16</a>; 162 <span class="symbol"><a name="ref_145_4">Key_F17</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 163 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_128_4">KEY_F17</a>; 164 <span class="symbol"><a name="ref_147_4">Key_F18</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 165 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_129_4">KEY_F18</a>; 166 <span class="symbol"><a name="ref_149_4">Key_F19</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 167 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_130_4">KEY_F19</a>; 168 <span class="symbol"><a name="ref_151_4">Key_F20</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 169 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_131_4">KEY_F20</a>; 170 <span class="symbol"><a name="ref_153_4">Key_F21</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 171 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_132_4">KEY_F21</a>; 172 <span class="symbol"><a name="ref_155_4">Key_F22</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 173 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_133_4">KEY_F22</a>; 174 <span class="symbol"><a name="ref_157_4">Key_F23</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 175 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_134_4">KEY_F23</a>; 176 <span class="symbol"><a name="ref_159_4">Key_F24</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 177 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_135_4">KEY_F24</a>; 178 <span class="symbol"><a name="ref_161_4">KEY_DL</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 179 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_136_4">KEY_DL</a>; 180 Key_Delete_Line : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_161_4">KEY_DL</a>; 181 <span class="symbol"><a name="ref_164_4">KEY_IL</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 182 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_137_4">KEY_IL</a>; 183 Key_Insert_Line : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_164_4">KEY_IL</a>; 184 <span class="symbol"><a name="ref_167_4">KEY_DC</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 185 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_138_4">KEY_DC</a>; 186 Key_Delete_Char : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_167_4">KEY_DC</a>; 187 <span class="symbol"><a name="ref_170_4">KEY_IC</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 188 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_139_4">KEY_IC</a>; 189 Key_Insert_Char : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_170_4">KEY_IC</a>; 190 <span class="symbol"><a name="ref_173_4">KEY_EIC</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 191 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_140_4">KEY_EIC</a>; 192 Key_Exit_Insert_Mode : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_173_4">KEY_EIC</a>; 193 <span class="symbol"><a name="ref_176_4">KEY_CLEAR</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 194 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_141_4">KEY_CLEAR</a>; 195 Key_Clear_Screen : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_176_4">KEY_CLEAR</a>; 196 <span class="symbol"><a name="ref_179_4">KEY_EOS</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 197 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_142_4">KEY_EOS</a>; 198 Key_Clear_End_Of_Screen : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_179_4">KEY_EOS</a>; 199 <span class="symbol"><a name="ref_182_4">KEY_EOL</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 200 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_143_4">KEY_EOL</a>; 201 Key_Clear_End_Of_Line : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_182_4">KEY_EOL</a>; 202 <span class="symbol"><a name="ref_185_4">KEY_SF</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 203 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_144_4">KEY_SF</a>; 204 Key_Scroll_1_Forward : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_185_4">KEY_SF</a>; 205 <span class="symbol"><a name="ref_188_4">KEY_SR</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 206 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_145_4">KEY_SR</a>; 207 Key_Scroll_1_Backward : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_188_4">KEY_SR</a>; 208 <span class="symbol"><a name="ref_191_4">KEY_NPAGE</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 209 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_146_4">KEY_NPAGE</a>; 210 Key_Next_Page : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_191_4">KEY_NPAGE</a>; 211 <span class="symbol"><a name="ref_194_4">KEY_PPAGE</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 212 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_147_4">KEY_PPAGE</a>; 213 Key_Previous_Page : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_194_4">KEY_PPAGE</a>; 214 <span class="symbol"><a name="ref_197_4">KEY_STAB</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 215 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_148_4">KEY_STAB</a>; 216 Key_Set_Tab : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_197_4">KEY_STAB</a>; 217 <span class="symbol"><a name="ref_200_4">KEY_CTAB</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 218 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_149_4">KEY_CTAB</a>; 219 Key_Clear_Tab : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_200_4">KEY_CTAB</a>; 220 <span class="symbol"><a name="ref_203_4">KEY_CATAB</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 221 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_150_4">KEY_CATAB</a>; 222 Key_Clear_All_Tabs : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_203_4">KEY_CATAB</a>; 223 <span class="symbol"><a name="ref_206_4">KEY_ENTER</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 224 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_151_4">KEY_ENTER</a>; 225 Key_Enter_Or_Send : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_206_4">KEY_ENTER</a>; 226 <span class="symbol"><a name="ref_209_4">KEY_SRESET</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 227 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_152_4">KEY_SRESET</a>; 228 Key_Soft_Reset : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_209_4">KEY_SRESET</a>; 229 <span class="symbol"><a name="ref_212_4">Key_Reset</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 230 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_153_4">KEY_RESET</a>; 231 <span class="symbol"><a name="ref_214_4">Key_Print</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 232 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_154_4">KEY_PRINT</a>; 233 <span class="symbol"><a name="ref_216_4">KEY_LL</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 234 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_155_4">KEY_LL</a>; 235 Key_Bottom : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_216_4">KEY_LL</a>; 236 <span class="symbol"><a name="ref_219_4">KEY_A1</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 237 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_156_4">KEY_A1</a>; 238 Key_Upper_Left_Of_Keypad : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_219_4">KEY_A1</a>; 239 <span class="symbol"><a name="ref_222_4">KEY_A3</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 240 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_157_4">KEY_A3</a>; 241 Key_Upper_Right_Of_Keypad : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_222_4">KEY_A3</a>; 242 <span class="symbol"><a name="ref_225_4">KEY_B2</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 243 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_158_4">KEY_B2</a>; 244 Key_Center_Of_Keypad : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_225_4">KEY_B2</a>; 245 <span class="symbol"><a name="ref_228_4">KEY_C1</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 246 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_159_4">KEY_C1</a>; 247 Key_Lower_Left_Of_Keypad : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_228_4">KEY_C1</a>; 248 <span class="symbol"><a name="ref_231_4">KEY_C3</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 249 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_160_4">KEY_C3</a>; 250 Key_Lower_Right_Of_Keypad : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_231_4">KEY_C3</a>; 251 <span class="symbol"><a name="ref_234_4">KEY_BTAB</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 252 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_161_4">KEY_BTAB</a>; 253 Key_Back_Tab : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_234_4">KEY_BTAB</a>; 254 <span class="symbol"><a name="ref_237_4">KEY_BEG</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 255 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_162_4">KEY_BEG</a>; 256 Key_Beginning : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_237_4">KEY_BEG</a>; 257 <span class="symbol"><a name="ref_240_4">Key_Cancel</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 258 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_163_4">KEY_CANCEL</a>; 259 <span class="symbol"><a name="ref_242_4">Key_Close</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 260 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_164_4">KEY_CLOSE</a>; 261 <span class="symbol"><a name="ref_244_4">Key_Command</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 262 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_165_4">KEY_COMMAND</a>; 263 <span class="symbol"><a name="ref_246_4">Key_Copy</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 264 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_166_4">KEY_COPY</a>; 265 <span class="symbol"><a name="ref_248_4">Key_Create</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 266 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_167_4">KEY_CREATE</a>; 267 <span class="symbol"><a name="ref_250_4">Key_End</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 268 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_168_4">KEY_END</a>; 269 <span class="symbol"><a name="ref_252_4">Key_Exit</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 270 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_169_4">KEY_EXIT</a>; 271 <span class="symbol"><a name="ref_254_4">Key_Find</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 272 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_170_4">KEY_FIND</a>; 273 <span class="symbol"><a name="ref_256_4">Key_Help</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 274 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_171_4">KEY_HELP</a>; 275 <span class="symbol"><a name="ref_258_4">Key_Mark</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 276 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_172_4">KEY_MARK</a>; 277 <span class="symbol"><a name="ref_260_4">Key_Message</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 278 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_173_4">KEY_MESSAGE</a>; 279 <span class="symbol"><a name="ref_262_4">Key_Move</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 280 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_174_4">KEY_MOVE</a>; 281 <span class="symbol"><a name="ref_264_4">Key_Next</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 282 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_175_4">KEY_NEXT</a>; 283 <span class="symbol"><a name="ref_266_4">Key_Open</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 284 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_176_4">KEY_OPEN</a>; 285 <span class="symbol"><a name="ref_268_4">Key_Options</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 286 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_177_4">KEY_OPTIONS</a>; 287 <span class="symbol"><a name="ref_270_4">Key_Previous</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 288 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_178_4">KEY_PREVIOUS</a>; 289 <span class="symbol"><a name="ref_272_4">Key_Redo</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 290 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_179_4">KEY_REDO</a>; 291 <span class="symbol"><a name="ref_274_4">Key_Reference</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 292 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_180_4">KEY_REFERENCE</a>; 293 <span class="symbol"><a name="ref_276_4">Key_Refresh</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 294 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_181_4">KEY_REFRESH</a>; 295 <span class="symbol"><a name="ref_278_4">Key_Replace</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 296 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_182_4">KEY_REPLACE</a>; 297 <span class="symbol"><a name="ref_280_4">Key_Restart</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 298 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_183_4">KEY_RESTART</a>; 299 <span class="symbol"><a name="ref_282_4">Key_Resume</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 300 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_184_4">KEY_RESUME</a>; 301 <span class="symbol"><a name="ref_284_4">Key_Save</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 302 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_185_4">KEY_SAVE</a>; 303 <span class="symbol"><a name="ref_286_4">KEY_SBEG</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 304 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_186_4">KEY_SBEG</a>; 305 Key_Shift_Begin : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_286_4">KEY_SBEG</a>; 306 <span class="symbol"><a name="ref_289_4">KEY_SCANCEL</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 307 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_187_4">KEY_SCANCEL</a>; 308 Key_Shift_Cancel : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_289_4">KEY_SCANCEL</a>; 309 <span class="symbol"><a name="ref_292_4">KEY_SCOMMAND</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 310 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_188_4">KEY_SCOMMAND</a>; 311 Key_Shift_Command : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_292_4">KEY_SCOMMAND</a>; 312 <span class="symbol"><a name="ref_295_4">KEY_SCOPY</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 313 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_189_4">KEY_SCOPY</a>; 314 Key_Shift_Copy : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_295_4">KEY_SCOPY</a>; 315 <span class="symbol"><a name="ref_298_4">KEY_SCREATE</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 316 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_190_4">KEY_SCREATE</a>; 317 Key_Shift_Create : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_298_4">KEY_SCREATE</a>; 318 <span class="symbol"><a name="ref_301_4">KEY_SDC</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 319 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_191_4">KEY_SDC</a>; 320 Key_Shift_Delete_Char : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_301_4">KEY_SDC</a>; 321 <span class="symbol"><a name="ref_304_4">KEY_SDL</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 322 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_192_4">KEY_SDL</a>; 323 Key_Shift_Delete_Line : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_304_4">KEY_SDL</a>; 324 <span class="symbol"><a name="ref_307_4">Key_Select</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 325 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_193_4">KEY_SELECT</a>; 326 <span class="symbol"><a name="ref_309_4">KEY_SEND</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 327 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_194_4">KEY_SEND</a>; 328 Key_Shift_End : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_309_4">KEY_SEND</a>; 329 <span class="symbol"><a name="ref_312_4">KEY_SEOL</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 330 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_195_4">KEY_SEOL</a>; 331 Key_Shift_Clear_End_Of_Line : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_312_4">KEY_SEOL</a>; 332 <span class="symbol"><a name="ref_315_4">KEY_SEXIT</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 333 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_196_4">KEY_SEXIT</a>; 334 Key_Shift_Exit : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_315_4">KEY_SEXIT</a>; 335 <span class="symbol"><a name="ref_318_4">KEY_SFIND</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 336 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_197_4">KEY_SFIND</a>; 337 Key_Shift_Find : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_318_4">KEY_SFIND</a>; 338 <span class="symbol"><a name="ref_321_4">KEY_SHELP</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 339 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_198_4">KEY_SHELP</a>; 340 Key_Shift_Help : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_321_4">KEY_SHELP</a>; 341 <span class="symbol"><a name="ref_324_4">KEY_SHOME</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 342 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_199_4">KEY_SHOME</a>; 343 Key_Shift_Home : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_324_4">KEY_SHOME</a>; 344 <span class="symbol"><a name="ref_327_4">KEY_SIC</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 345 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_200_4">KEY_SIC</a>; 346 Key_Shift_Insert_Char : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_327_4">KEY_SIC</a>; 347 <span class="symbol"><a name="ref_330_4">KEY_SLEFT</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 348 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_201_4">KEY_SLEFT</a>; 349 Key_Shift_Cursor_Left : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_330_4">KEY_SLEFT</a>; 350 <span class="symbol"><a name="ref_333_4">KEY_SMESSAGE</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 351 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_202_4">KEY_SMESSAGE</a>; 352 Key_Shift_Message : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_333_4">KEY_SMESSAGE</a>; 353 <span class="symbol"><a name="ref_336_4">KEY_SMOVE</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 354 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_203_4">KEY_SMOVE</a>; 355 Key_Shift_Move : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_336_4">KEY_SMOVE</a>; 356 <span class="symbol"><a name="ref_339_4">KEY_SNEXT</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 357 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_204_4">KEY_SNEXT</a>; 358 Key_Shift_Next_Page : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_339_4">KEY_SNEXT</a>; 359 <span class="symbol"><a name="ref_342_4">KEY_SOPTIONS</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 360 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_205_4">KEY_SOPTIONS</a>; 361 Key_Shift_Options : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_342_4">KEY_SOPTIONS</a>; 362 <span class="symbol"><a name="ref_345_4">KEY_SPREVIOUS</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 363 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_206_4">KEY_SPREVIOUS</a>; 364 Key_Shift_Previous_Page : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_345_4">KEY_SPREVIOUS</a>; 365 <span class="symbol"><a name="ref_348_4">KEY_SPRINT</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 366 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_207_4">KEY_SPRINT</a>; 367 Key_Shift_Print : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_348_4">KEY_SPRINT</a>; 368 <span class="symbol"><a name="ref_351_4">KEY_SREDO</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 369 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_208_4">KEY_SREDO</a>; 370 Key_Shift_Redo : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_351_4">KEY_SREDO</a>; 371 <span class="symbol"><a name="ref_354_4">KEY_SREPLACE</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 372 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_209_4">KEY_SREPLACE</a>; 373 Key_Shift_Replace : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_354_4">KEY_SREPLACE</a>; 374 <span class="symbol"><a name="ref_357_4">KEY_SRIGHT</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 375 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_210_4">KEY_SRIGHT</a>; 376 Key_Shift_Cursor_Right : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_357_4">KEY_SRIGHT</a>; 377 <span class="symbol"><a name="ref_360_4">KEY_SRSUME</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 378 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_211_4">KEY_SRSUME</a>; 379 Key_Shift_Resume : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_360_4">KEY_SRSUME</a>; 380 <span class="symbol"><a name="ref_363_4">KEY_SSAVE</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 381 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_212_4">KEY_SSAVE</a>; 382 Key_Shift_Save : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_363_4">KEY_SSAVE</a>; 383 <span class="symbol"><a name="ref_366_4">KEY_SSUSPEND</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 384 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_213_4">KEY_SSUSPEND</a>; 385 Key_Shift_Suspend : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_366_4">KEY_SSUSPEND</a>; 386 <span class="symbol"><a name="ref_369_4">KEY_SUNDO</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 387 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_214_4">KEY_SUNDO</a>; 388 Key_Shift_Undo : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_369_4">KEY_SUNDO</a>; 389 <span class="symbol"><a name="ref_372_4">Key_Suspend</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 390 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_215_4">KEY_SUSPEND</a>; 391 <span class="symbol"><a name="ref_374_4">Key_Undo</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 392 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_216_4">KEY_UNDO</a>; 393 <span class="symbol"><a name="ref_376_4">Key_Mouse</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 394 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_217_4">KEY_MOUSE</a>; 395 <span class="symbol"><a name="ref_378_4">Key_Resize</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 396 := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_218_4">KEY_RESIZE</a>; 397 <span class="symbol"><a name="ref_380_4">Key_Max</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a> 398 := <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a>'Last; 399 400 <b>subtype</b> <span class="symbol"><a name="ref_383_12">User_Key_Code</a></span> <b>is</b> <a href="terminal_interface-curses__ads.htm#ref_67_9">Key_Code</a> 401 <b>range</b> (<a href="terminal_interface-curses__ads.htm#ref_380_4">Key_Max</a> + 129) .. <a href="terminal_interface-curses__ads.htm#ref_67_9">Key_Code</a>'Last; 402 <span class="comment"><em>-- This is reserved for user defined key codes. The range between Key_Max</em></span> 403 <span class="comment"><em>-- and the first user code is reserved for subsystems like menu and forms.</em></span> 404 405 <span class="comment"><em>--------------------------------------------------------------------------</em></span> 406 407 <b>type</b> <span class="symbol"><a name="ref_390_9">Color_Number</a></span> <b>is</b> <b>range</b> -1 .. Integer (<a href="interfac__ads.htm#ref_38_9">Interfaces</a>.C.short'Last); 408 <b>for</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a>'Size <b>use</b> <a href="interfac__ads.htm#ref_38_9">Interfaces</a>.C.short'Size; 409 <span class="comment"><em>-- (n)curses uses a short for the color index</em></span> 410 <span class="comment"><em>-- The model is, that a Color_Number is an index into an array of</em></span> 411 <span class="comment"><em>-- (potentially) definable colors. Some of those indices are</em></span> 412 <span class="comment"><em>-- predefined (see below), although they may not really exist.</em></span> 413 414 <span class="symbol"><a name="ref_397_4">Black</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_69_4">COLOR_BLACK</a>; 415 <span class="symbol"><a name="ref_398_4">Red</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_70_4">COLOR_RED</a>; 416 <span class="symbol"><a name="ref_399_4">Green</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_71_4">COLOR_GREEN</a>; 417 <span class="symbol"><a name="ref_400_4">Yellow</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_72_4">COLOR_YELLOW</a>; 418 <span class="symbol"><a name="ref_401_4">Blue</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_73_4">COLOR_BLUE</a>; 419 <span class="symbol"><a name="ref_402_4">Magenta</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_74_4">COLOR_MAGENTA</a>; 420 <span class="symbol"><a name="ref_403_4">Cyan</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_75_4">COLOR_CYAN</a>; 421 <span class="symbol"><a name="ref_404_4">White</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_76_4">COLOR_WHITE</a>; 422 423 <b>type</b> <span class="symbol"><a name="ref_406_9">RGB_Value</a></span> <b>is</b> <b>range</b> 0 .. Integer (<a href="interfac__ads.htm#ref_38_9">Interfaces</a>.C.short'Last); 424 <b>for</b> <a href="terminal_interface-curses__ads.htm#ref_406_9">RGB_Value</a>'Size <b>use</b> <a href="interfac__ads.htm#ref_38_9">Interfaces</a>.C.short'Size; 425 <span class="comment"><em>-- Some system may allow to redefine a color by setting RGB values.</em></span> 426 427 <b>type</b> <span class="symbol"><a name="ref_410_9">Color_Pair</a></span> <b>is</b> <b>range</b> 0 .. 255; 428 <b>for</b> <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>'Size <b>use</b> 8; 429 <b>subtype</b> <span class="symbol"><a name="ref_412_12">Redefinable_Color_Pair</a></span> <b>is</b> <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a> <b>range</b> 1 .. 255; 430 <span class="comment"><em>-- (n)curses reserves 1 Byte for the color-pair number. Color Pair 0</em></span> 431 <span class="comment"><em>-- is fixed (Black & White). A color pair is simply a combination of</em></span> 432 <span class="comment"><em>-- two colors described by Color_Numbers, one for the foreground and</em></span> 433 <span class="comment"><em>-- the other for the background</em></span> 434 435 <b>type</b> <span class="symbol"><a name="ref_418_9">Character_Attribute_Set</a></span> <b>is</b> 436 <b>record</b> 437 <span class="symbol"><a name="ref_420_10">Stand_Out</a></span> : Boolean; 438 <span class="symbol"><a name="ref_421_10">Under_Line</a></span> : Boolean; 439 <span class="symbol"><a name="ref_422_10">Reverse_Video</a></span> : Boolean; 440 <span class="symbol"><a name="ref_423_10">Blink</a></span> : Boolean; 441 <span class="symbol"><a name="ref_424_10">Dim_Character</a></span> : Boolean; 442 <span class="symbol"><a name="ref_425_10">Bold_Character</a></span> : Boolean; 443 <span class="symbol"><a name="ref_426_10">Protected_Character</a></span> : Boolean; 444 <span class="symbol"><a name="ref_427_10">Invisible_Character</a></span> : Boolean; 445 <span class="symbol"><a name="ref_428_10">Alternate_Character_Set</a></span> : Boolean; 446 <span class="symbol"><a name="ref_429_10">Horizontal</a></span> : Boolean; 447 <span class="symbol"><a name="ref_430_10">Left</a></span> : Boolean; 448 <span class="symbol"><a name="ref_431_10">Low</a></span> : Boolean; 449 <span class="symbol"><a name="ref_432_10">Right</a></span> : Boolean; 450 <span class="symbol"><a name="ref_433_10">Top</a></span> : Boolean; 451 <span class="symbol"><a name="ref_434_10">Vertical</a></span> : Boolean; 452 <b>end</b> <b>record</b>; 453 454 <b>for</b> <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a> <b>use</b> 455 <b>record</b> 456 <a href="terminal_interface-curses__ads.htm#ref_420_10">Stand_Out</a> <b>at</b> 0 <b>range</b> 457 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_35_4">A_STANDOUT_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 458 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_36_4">A_STANDOUT_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 459 <a href="terminal_interface-curses__ads.htm#ref_421_10">Under_Line</a> <b>at</b> 0 <b>range</b> 460 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_37_4">A_UNDERLINE_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 461 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_38_4">A_UNDERLINE_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 462 <a href="terminal_interface-curses__ads.htm#ref_422_10">Reverse_Video</a> <b>at</b> 0 <b>range</b> 463 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_39_4">A_REVERSE_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 464 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_40_4">A_REVERSE_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 465 <a href="terminal_interface-curses__ads.htm#ref_423_10">Blink</a> <b>at</b> 0 <b>range</b> 466 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_41_4">A_BLINK_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 467 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_42_4">A_BLINK_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 468 <a href="terminal_interface-curses__ads.htm#ref_424_10">Dim_Character</a> <b>at</b> 0 <b>range</b> 469 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_43_4">A_DIM_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 470 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_44_4">A_DIM_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 471 <a href="terminal_interface-curses__ads.htm#ref_425_10">Bold_Character</a> <b>at</b> 0 <b>range</b> 472 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_45_4">A_BOLD_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 473 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_46_4">A_BOLD_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 474 <a href="terminal_interface-curses__ads.htm#ref_426_10">Protected_Character</a> <b>at</b> 0 <b>range</b> 475 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_47_4">A_PROTECT_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 476 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_48_4">A_PROTECT_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 477 <a href="terminal_interface-curses__ads.htm#ref_427_10">Invisible_Character</a> <b>at</b> 0 <b>range</b> 478 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_49_4">A_INVIS_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 479 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_50_4">A_INVIS_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 480 <a href="terminal_interface-curses__ads.htm#ref_428_10">Alternate_Character_Set</a> <b>at</b> 0 <b>range</b> 481 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_51_4">A_ALTCHARSET_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 482 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_52_4">A_ALTCHARSET_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 483 <a href="terminal_interface-curses__ads.htm#ref_429_10">Horizontal</a> <b>at</b> 0 <b>range</b> 484 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_53_4">A_HORIZONTAL_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 485 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_54_4">A_HORIZONTAL_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 486 <a href="terminal_interface-curses__ads.htm#ref_430_10">Left</a> <b>at</b> 0 <b>range</b> 487 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_55_4">A_LEFT_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 488 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_56_4">A_LEFT_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 489 <a href="terminal_interface-curses__ads.htm#ref_431_10">Low</a> <b>at</b> 0 <b>range</b> 490 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_57_4">A_LOW_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 491 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_58_4">A_LOW_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 492 <a href="terminal_interface-curses__ads.htm#ref_432_10">Right</a> <b>at</b> 0 <b>range</b> 493 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_59_4">A_RIGHT_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 494 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_60_4">A_RIGHT_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 495 <a href="terminal_interface-curses__ads.htm#ref_433_10">Top</a> <b>at</b> 0 <b>range</b> 496 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_61_4">A_TOP_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 497 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_62_4">A_TOP_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 498 <a href="terminal_interface-curses__ads.htm#ref_434_10">Vertical</a> <b>at</b> 0 <b>range</b> 499 <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_63_4">A_VERTICAL_First</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 500 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_64_4">A_VERTICAL_Last</a> - <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a>; 501 <b>end</b> <b>record</b>; 502 503 <span class="symbol"><a name="ref_486_4">Normal_Video</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a> := (<b>others</b> => False); 504 505 <b>type</b> <span class="symbol"><a name="ref_488_9">Attributed_Character</a></span> <b>is</b> 506 <b>record</b> 507 <span class="symbol"><a name="ref_490_10">Attr</a></span> : <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a>; 508 <span class="symbol"><a name="ref_491_10">Color</a></span> : <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>; 509 <span class="symbol"><a name="ref_492_10">Ch</a></span> : Character; 510 <b>end</b> <b>record</b>; 511 <b>pragma</b> Convention (C_Pass_By_Copy, <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>); 512 <span class="comment"><em>-- This is the counterpart for the chtype in C.</em></span> 513 514 <b>for</b> <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> <b>use</b> 515 <b>record</b> 516 <a href="terminal_interface-curses__ads.htm#ref_492_10">Ch</a> <b>at</b> 0 <b>range</b> <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_29_4">A_CHARTEXT_First</a> 517 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_30_4">A_CHARTEXT_Last</a>; 518 <a href="terminal_interface-curses__ads.htm#ref_491_10">Color</a> <b>at</b> 0 <b>range</b> <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_31_4">A_COLOR_First</a> 519 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_32_4">A_COLOR_Last</a>; 520 <b>pragma</b> Warnings (Off); 521 <a href="terminal_interface-curses__ads.htm#ref_490_10">Attr</a> <b>at</b> 0 <b>range</b> <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_33_4">Attr_First</a> 522 .. <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_34_4">Attr_Last</a>; 523 <b>pragma</b> Warnings (On); 524 <b>end</b> <b>record</b>; 525 <b>for</b> <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>'Size <b>use</b> <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_65_4">chtype_Size</a>; 526 527 <span class="symbol"><a name="ref_510_4">Default_Character</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> 528 := (<a href="terminal_interface-curses__ads.htm#ref_492_10">Ch</a> => Character'First, 529 <a href="terminal_interface-curses__ads.htm#ref_491_10">Color</a> => <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>'First, 530 <a href="terminal_interface-curses__ads.htm#ref_490_10">Attr</a> => (<b>others</b> => False)); <span class="comment"><em>-- preelaboratable Normal_Video</em></span> 531 532 <b>type</b> Attributed_String <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>; 533 <b>pragma</b> Convention (C, Attributed_String); 534 <span class="comment"><em>-- In this binding we allow strings of attributed characters.</em></span> 535 536 <span class="comment"><em>------------------</em></span> 537 <span class="comment"><em>-- Exceptions --</em></span> 538 <span class="comment"><em>------------------</em></span> 539 <span class="symbol"><a name="ref_522_4">Curses_Exception</a></span> : <b>exception</b>; 540 <span class="symbol"><a name="ref_523_4">Wrong_Curses_Version</a></span> : <b>exception</b>; 541 542 <span class="comment"><em>-- Those exceptions are raised by the ETI (Extended Terminal Interface)</em></span> 543 <span class="comment"><em>-- subpackets for Menu and Forms handling.</em></span> 544 <span class="comment"><em>--</em></span> 545 <span class="symbol"><a name="ref_528_4">Eti_System_Error</a></span> : <b>exception</b>; 546 <span class="symbol"><a name="ref_529_4">Eti_Bad_Argument</a></span> : <b>exception</b>; 547 <span class="symbol"><a name="ref_530_4">Eti_Posted</a></span> : <b>exception</b>; 548 <span class="symbol"><a name="ref_531_4">Eti_Connected</a></span> : <b>exception</b>; 549 <span class="symbol"><a name="ref_532_4">Eti_Bad_State</a></span> : <b>exception</b>; 550 <span class="symbol"><a name="ref_533_4">Eti_No_Room</a></span> : <b>exception</b>; 551 <span class="symbol"><a name="ref_534_4">Eti_Not_Posted</a></span> : <b>exception</b>; 552 <span class="symbol"><a name="ref_535_4">Eti_Unknown_Command</a></span> : <b>exception</b>; 553 <span class="symbol"><a name="ref_536_4">Eti_No_Match</a></span> : <b>exception</b>; 554 <span class="symbol"><a name="ref_537_4">Eti_Not_Selectable</a></span> : <b>exception</b>; 555 <span class="symbol"><a name="ref_538_4">Eti_Not_Connected</a></span> : <b>exception</b>; 556 <span class="symbol"><a name="ref_539_4">Eti_Request_Denied</a></span> : <b>exception</b>; 557 <span class="symbol"><a name="ref_540_4">Eti_Invalid_Field</a></span> : <b>exception</b>; 558 <span class="symbol"><a name="ref_541_4">Eti_Current</a></span> : <b>exception</b>; 559 560 <span class="comment"><em>--------------------------------------------------------------------------</em></span> 561 <span class="comment"><em>-- External C variables</em></span> 562 <span class="comment"><em>-- Conceptually even in C this are kind of constants, but they are</em></span> 563 <span class="comment"><em>-- initialized and sometimes changed by the library routines at runtime</em></span> 564 <span class="comment"><em>-- depending on the type of terminal. I believe the best way to model</em></span> 565 <span class="comment"><em>-- this is to use functions.</em></span> 566 <span class="comment"><em>--------------------------------------------------------------------------</em></span> 567 568 <b>function</b> <span class="symbol"><a name="ref_551_13" href="terminal_interface-curses__adb.htm#ref_2355_13">Lines</a></span> <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_62_12">Line_Count</a>; 569 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_551_13">Lines</a>); 570 571 <b>function</b> <span class="symbol"><a name="ref_554_13" href="terminal_interface-curses__adb.htm#ref_2363_13">Columns</a></span> <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>; 572 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_554_13">Columns</a>); 573 574 <b>function</b> <span class="symbol"><a name="ref_557_13" href="terminal_interface-curses__adb.htm#ref_2371_13">Tab_Size</a></span> <b>return</b> Natural; 575 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_557_13">Tab_Size</a>); 576 577 <b>function</b> <span class="symbol"><a name="ref_560_13" href="terminal_interface-curses__adb.htm#ref_2380_13">Number_Of_Colors</a></span> <b>return</b> Natural; 578 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_560_13">Number_Of_Colors</a>); 579 580 <b>function</b> <span class="symbol"><a name="ref_563_13" href="terminal_interface-curses__adb.htm#ref_2388_13">Number_Of_Color_Pairs</a></span> <b>return</b> Natural; 581 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_563_13">Number_Of_Color_Pairs</a>); 582 583 <b>subtype</b> <span class="symbol"><a name="ref_566_12">ACS_Index</a></span> <b>is</b> Character <b>range</b> 584 Character'Val (0) .. Character'Val (127); 585 <b>function</b> <span class="symbol"><a name="ref_568_13">ACS_Map</a></span> (<span class="symbol"><a name="ref_568_22">Index</a></span> : <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>; 586 <b>pragma</b> Import (C, ACS_Map, "acs_map_as_function"); 587 588 <span class="comment"><em>-- Constants for several characters from the Alternate Character Set</em></span> 589 <span class="comment"><em>-- You must use these constants as indices into the ACS_Map function</em></span> 590 <span class="comment"><em>-- to get the corresponding attributed character at runtime</em></span> 591 <span class="symbol"><a name="ref_574_4">ACS_Upper_Left_Corner</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 592 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_222_4">ACS_ULCORNER</a>); 593 <span class="symbol"><a name="ref_576_4">ACS_Lower_Left_Corner</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 594 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_223_4">ACS_LLCORNER</a>); 595 <span class="symbol"><a name="ref_578_4">ACS_Upper_Right_Corner</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 596 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_224_4">ACS_URCORNER</a>); 597 <span class="symbol"><a name="ref_580_4">ACS_Lower_Right_Corner</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 598 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_225_4">ACS_LRCORNER</a>); 599 <span class="symbol"><a name="ref_582_4">ACS_Left_Tee</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 600 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_226_4">ACS_LTEE</a>); 601 <span class="symbol"><a name="ref_584_4">ACS_Right_Tee</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 602 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_227_4">ACS_RTEE</a>); 603 <span class="symbol"><a name="ref_586_4">ACS_Bottom_Tee</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 604 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_228_4">ACS_BTEE</a>); 605 <span class="symbol"><a name="ref_588_4">ACS_Top_Tee</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 606 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_229_4">ACS_TTEE</a>); 607 <span class="symbol"><a name="ref_590_4">ACS_Horizontal_Line</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 608 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_230_4">ACS_HLINE</a>); 609 <span class="symbol"><a name="ref_592_4">ACS_Vertical_Line</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 610 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_231_4">ACS_VLINE</a>); 611 <span class="symbol"><a name="ref_594_4">ACS_Plus_Symbol</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 612 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_232_4">ACS_PLUS</a>); 613 <span class="symbol"><a name="ref_596_4">ACS_Scan_Line_1</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 614 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_233_4">ACS_S1</a>); 615 <span class="symbol"><a name="ref_598_4">ACS_Scan_Line_9</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 616 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_234_4">ACS_S9</a>); 617 <span class="symbol"><a name="ref_600_4">ACS_Diamond</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 618 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_235_4">ACS_DIAMOND</a>); 619 <span class="symbol"><a name="ref_602_4">ACS_Checker_Board</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 620 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_236_4">ACS_CKBOARD</a>); 621 <span class="symbol"><a name="ref_604_4">ACS_Degree</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 622 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_237_4">ACS_DEGREE</a>); 623 <span class="symbol"><a name="ref_606_4">ACS_Plus_Minus</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 624 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_238_4">ACS_PLMINUS</a>); 625 <span class="symbol"><a name="ref_608_4">ACS_Bullet</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 626 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_239_4">ACS_BULLET</a>); 627 <span class="symbol"><a name="ref_610_4">ACS_Left_Arrow</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 628 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_240_4">ACS_LARROW</a>); 629 <span class="symbol"><a name="ref_612_4">ACS_Right_Arrow</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 630 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_241_4">ACS_RARROW</a>); 631 <span class="symbol"><a name="ref_614_4">ACS_Down_Arrow</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 632 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_242_4">ACS_DARROW</a>); 633 <span class="symbol"><a name="ref_616_4">ACS_Up_Arrow</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 634 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_243_4">ACS_UARROW</a>); 635 <span class="symbol"><a name="ref_618_4">ACS_Board_Of_Squares</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 636 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_244_4">ACS_BOARD</a>); 637 <span class="symbol"><a name="ref_620_4">ACS_Lantern</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 638 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_245_4">ACS_LANTERN</a>); 639 <span class="symbol"><a name="ref_622_4">ACS_Solid_Block</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 640 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_246_4">ACS_BLOCK</a>); 641 <span class="symbol"><a name="ref_624_4">ACS_Scan_Line_3</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 642 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_247_4">ACS_S3</a>); 643 <span class="symbol"><a name="ref_626_4">ACS_Scan_Line_7</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 644 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_248_4">ACS_S7</a>); 645 <span class="symbol"><a name="ref_628_4">ACS_Less_Or_Equal</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 646 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_249_4">ACS_LEQUAL</a>); 647 <span class="symbol"><a name="ref_630_4">ACS_Greater_Or_Equal</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 648 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_250_4">ACS_GEQUAL</a>); 649 <span class="symbol"><a name="ref_632_4">ACS_PI</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 650 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_251_4">ACS_PI</a>); 651 <span class="symbol"><a name="ref_634_4">ACS_Not_Equal</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 652 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_252_4">ACS_NEQUAL</a>); 653 <span class="symbol"><a name="ref_636_4">ACS_Sterling</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_566_12">ACS_Index</a> 654 := Character'Val (<a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_253_4">ACS_STERLING</a>); 655 656 <span class="comment"><em>-- |=====================================================================</em></span> 657 <span class="comment"><em>-- | Man page <A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></em></span> 658 <span class="comment"><em>-- |=====================================================================</em></span> 659 <span class="comment"><em>-- | Not implemented: newterm, set_term, delscreen</em></span> 660 661 <span class="comment"><em>-- <A NAME="AFU_1">|</A></em></span> 662 <b>function</b> <span class="symbol"><a name="ref_645_13">Standard_Window</a></span> <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 663 <span class="comment"><em>-- AKA: <A HREF="../man/curs_initscr.3x.html">stdscr</A></em></span> 664 <b>pragma</b> Import (C, Standard_Window, "stdscr_as_function"); 665 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 666 667 <span class="comment"><em>-- <A NAME="AFU_2">|</A></em></span> 668 <b>function</b> <span class="symbol"><a name="ref_651_13">Current_Window</a></span> <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 669 <span class="comment"><em>-- AKA: <A HREF="../man/curs_initscr.3x.html">curscr</A></em></span> 670 <b>pragma</b> Import (C, Current_Window, "curscr_as_function"); 671 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_651_13">Current_Window</a>); 672 673 <span class="comment"><em>-- <A NAME="AFU_3">|</A></em></span> 674 <b>procedure</b> <span class="symbol"><a name="ref_657_14" href="terminal_interface-curses__adb.htm#ref_98_14">Init_Screen</a></span>; 675 676 <span class="comment"><em>-- <A NAME="AFU_4">|</A></em></span> 677 <b>procedure</b> <span class="symbol"><a name="ref_660_14">Init_Windows</a></span> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_657_14">Init_Screen</a>; 678 <span class="comment"><em>-- AKA: <A HREF="../man/curs_initscr.3x.html">initscr()</A></em></span> 679 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_657_14">Init_Screen</a>); 680 <span class="comment"><em>-- pragma Inline (Init_Windows);</em></span> 681 682 <span class="comment"><em>-- <A NAME="AFU_5">|</A></em></span> 683 <b>procedure</b> <span class="symbol"><a name="ref_666_14" href="terminal_interface-curses__adb.htm#ref_111_14">End_Windows</a></span>; 684 <span class="comment"><em>-- AKA: <A HREF="../man/curs_initscr.3x.html">endwin()</A></em></span> 685 <b>procedure</b> <span class="symbol"><a name="ref_668_14">End_Screen</a></span> <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_666_14">End_Windows</a>; 686 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_666_14">End_Windows</a>); 687 <span class="comment"><em>-- pragma Inline (End_Screen);</em></span> 688 689 <span class="comment"><em>-- <A NAME="AFU_6">|</A></em></span> 690 <b>function</b> <span class="symbol"><a name="ref_673_13" href="terminal_interface-curses__adb.htm#ref_121_13">Is_End_Window</a></span> <b>return</b> Boolean; 691 <span class="comment"><em>-- AKA: <A HREF="../man/curs_initscr.3x.html">isendwin()</A></em></span> 692 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_673_13">Is_End_Window</a>); 693 694 <span class="comment"><em>-- |=====================================================================</em></span> 695 <span class="comment"><em>-- | Man page <A HREF="../man/curs_move.3x.html">curs_move.3x</A></em></span> 696 <span class="comment"><em>-- |=====================================================================</em></span> 697 698 <span class="comment"><em>-- <A NAME="AFU_7">|</A></em></span> 699 <b>procedure</b> <span class="symbol"><a name="ref_682_14" href="terminal_interface-curses__adb.htm#ref_133_14">Move_Cursor</a></span> (<span class="symbol"><a name="ref_682_27" href="terminal_interface-curses__adb.htm#ref_133_27">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 700 <span class="symbol"><a name="ref_683_27" href="terminal_interface-curses__adb.htm#ref_134_27">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 701 <span class="symbol"><a name="ref_684_27" href="terminal_interface-curses__adb.htm#ref_135_27">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>); 702 <span class="comment"><em>-- AKA: <A HREF="../man/curs_move.3x.html">wmove()</A></em></span> 703 <span class="comment"><em>-- AKA: move()</em></span> 704 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_682_14">Move_Cursor</a>); 705 706 <span class="comment"><em>-- |=====================================================================</em></span> 707 <span class="comment"><em>-- | Man page <A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></em></span> 708 <span class="comment"><em>-- |=====================================================================</em></span> 709 710 <span class="comment"><em>-- <A NAME="AFU_8">|</A></em></span> 711 <b>procedure</b> <span class="symbol"><a name="ref_694_14" href="terminal_interface-curses__adb.htm#ref_148_14">Add</a></span> (<span class="symbol"><a name="ref_694_19" href="terminal_interface-curses__adb.htm#ref_148_19">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 712 <span class="symbol"><a name="ref_695_19" href="terminal_interface-curses__adb.htm#ref_149_19">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>); 713 <span class="comment"><em>-- AKA: <A HREF="../man/curs_addch.3x.html">waddch()</A></em></span> 714 <span class="comment"><em>-- AKA: addch()</em></span> 715 716 <b>procedure</b> <span class="symbol"><a name="ref_699_14" href="terminal_interface-curses__adb.htm#ref_160_14">Add</a></span> (<span class="symbol"><a name="ref_699_19" href="terminal_interface-curses__adb.htm#ref_160_19">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 717 <span class="symbol"><a name="ref_700_19" href="terminal_interface-curses__adb.htm#ref_161_19">Ch</a></span> : Character); 718 <span class="comment"><em>-- Add a single character at the current logical cursor position to</em></span> 719 <span class="comment"><em>-- the window. Use the current windows attributes.</em></span> 720 721 <span class="comment"><em>-- <A NAME="AFU_9">|</A></em></span> 722 <b>procedure</b> <span class="symbol"><a name="ref_705_14" href="terminal_interface-curses__adb.htm#ref_170_14">Add</a></span> 723 (<span class="symbol"><a name="ref_706_7" href="terminal_interface-curses__adb.htm#ref_171_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 724 <span class="symbol"><a name="ref_707_7" href="terminal_interface-curses__adb.htm#ref_172_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 725 <span class="symbol"><a name="ref_708_7" href="terminal_interface-curses__adb.htm#ref_173_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 726 <span class="symbol"><a name="ref_709_7" href="terminal_interface-curses__adb.htm#ref_174_7">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>); 727 <span class="comment"><em>-- AKA: <A HREF="../man/curs_addch.3x.html">mvwaddch()</A></em></span> 728 <span class="comment"><em>-- AKA: mvaddch()</em></span> 729 730 <b>procedure</b> <span class="symbol"><a name="ref_713_14" href="terminal_interface-curses__adb.htm#ref_190_14">Add</a></span> 731 (<span class="symbol"><a name="ref_714_7" href="terminal_interface-curses__adb.htm#ref_191_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 732 <span class="symbol"><a name="ref_715_7" href="terminal_interface-curses__adb.htm#ref_192_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 733 <span class="symbol"><a name="ref_716_7" href="terminal_interface-curses__adb.htm#ref_193_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 734 <span class="symbol"><a name="ref_717_7" href="terminal_interface-curses__adb.htm#ref_194_7">Ch</a></span> : Character); 735 <span class="comment"><em>-- Move to the position and add a single character into the window</em></span> 736 <span class="comment"><em>-- There are more Add routines, so the Inline pragma follows later</em></span> 737 738 <span class="comment"><em>-- <A NAME="AFU_10">|</A></em></span> 739 <b>procedure</b> <span class="symbol"><a name="ref_722_14" href="terminal_interface-curses__adb.htm#ref_205_14">Add_With_Immediate_Echo</a></span> 740 (<span class="symbol"><a name="ref_723_7" href="terminal_interface-curses__adb.htm#ref_206_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 741 <span class="symbol"><a name="ref_724_7" href="terminal_interface-curses__adb.htm#ref_207_7">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>); 742 <span class="comment"><em>-- AKA: <A HREF="../man/curs_addch.3x.html">wechochar()</A></em></span> 743 <span class="comment"><em>-- AKA: echochar()</em></span> 744 745 <b>procedure</b> <span class="symbol"><a name="ref_728_14" href="terminal_interface-curses__adb.htm#ref_218_14">Add_With_Immediate_Echo</a></span> 746 (<span class="symbol"><a name="ref_729_7" href="terminal_interface-curses__adb.htm#ref_219_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 747 <span class="symbol"><a name="ref_730_7" href="terminal_interface-curses__adb.htm#ref_220_7">Ch</a></span> : Character); 748 <span class="comment"><em>-- Add a character and do an immediate refresh of the screen.</em></span> 749 <b>pragma</b> Inline (Add_With_Immediate_Echo); 750 751 <span class="comment"><em>-- |=====================================================================</em></span> 752 <span class="comment"><em>-- | Man page <A HREF="../man/curs_window.3x.html">curs_window.3x</A></em></span> 753 <span class="comment"><em>-- |=====================================================================</em></span> 754 <span class="comment"><em>-- Not Implemented: wcursyncup</em></span> 755 756 <span class="comment"><em>-- <A NAME="AFU_11">|</A></em></span> 757 <b>function</b> <span class="symbol"><a name="ref_740_13" href="terminal_interface-curses__adb.htm#ref_230_13">Create</a></span> 758 (<span class="symbol"><a name="ref_741_7" href="terminal_interface-curses__adb.htm#ref_230_21">Number_Of_Lines</a></span> : <a href="terminal_interface-curses__ads.htm#ref_62_12">Line_Count</a>; 759 <span class="symbol"><a name="ref_742_7" href="terminal_interface-curses__adb.htm#ref_231_21">Number_Of_Columns</a></span> : <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>; 760 <span class="symbol"><a name="ref_743_7" href="terminal_interface-curses__adb.htm#ref_232_21">First_Line_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 761 <span class="symbol"><a name="ref_744_7" href="terminal_interface-curses__adb.htm#ref_233_21">First_Column_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 762 <span class="comment"><em>-- Not Implemented: Default Number_Of_Lines, Number_Of_Columns</em></span> 763 <span class="comment"><em>-- the C version lets them be 0, see the man page.</em></span> 764 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">newwin()</A></em></span> 765 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_740_13">Create</a>); 766 767 <b>function</b> New_Window 768 (<span class="symbol"><a name="ref_751_7">Number_Of_Lines</a></span> : <a href="terminal_interface-curses__ads.htm#ref_62_12">Line_Count</a>; 769 <span class="symbol"><a name="ref_752_7">Number_Of_Columns</a></span> : <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>; 770 <span class="symbol"><a name="ref_753_7">First_Line_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 771 <span class="symbol"><a name="ref_754_7">First_Column_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> 772 <b>renames</b> <a href="terminal_interface-curses__ads.htm#ref_740_13">Create</a>; 773 <span class="comment"><em>-- pragma Inline (New_Window);</em></span> 774 775 <span class="comment"><em>-- <A NAME="AFU_12">|</A></em></span> 776 <b>procedure</b> <span class="symbol"><a name="ref_759_14" href="terminal_interface-curses__adb.htm#ref_253_14">Delete</a></span> (<span class="symbol"><a name="ref_759_22" href="terminal_interface-curses__adb.htm#ref_253_22">Win</a></span> : <b>in</b> <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>); 777 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">delwin()</A></em></span> 778 <span class="comment"><em>-- Reset Win to Null_Window</em></span> 779 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_759_14">Delete</a>); 780 781 <span class="comment"><em>-- <A NAME="AFU_13">|</A></em></span> 782 <b>function</b> <span class="symbol"><a name="ref_765_13" href="terminal_interface-curses__adb.htm#ref_264_13">Sub_Window</a></span> 783 (<span class="symbol"><a name="ref_766_7" href="terminal_interface-curses__adb.htm#ref_265_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 784 <span class="symbol"><a name="ref_767_7" href="terminal_interface-curses__adb.htm#ref_266_7">Number_Of_Lines</a></span> : <a href="terminal_interface-curses__ads.htm#ref_62_12">Line_Count</a>; 785 <span class="symbol"><a name="ref_768_7" href="terminal_interface-curses__adb.htm#ref_267_7">Number_Of_Columns</a></span> : <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>; 786 <span class="symbol"><a name="ref_769_7" href="terminal_interface-curses__adb.htm#ref_268_7">First_Line_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 787 <span class="symbol"><a name="ref_770_7" href="terminal_interface-curses__adb.htm#ref_269_7">First_Column_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 788 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">subwin()</A></em></span> 789 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_765_13">Sub_Window</a>); 790 791 <span class="comment"><em>-- <A NAME="AFU_14">|</A></em></span> 792 <b>function</b> <span class="symbol"><a name="ref_775_13" href="terminal_interface-curses__adb.htm#ref_292_13">Derived_Window</a></span> 793 (<span class="symbol"><a name="ref_776_7" href="terminal_interface-curses__adb.htm#ref_293_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 794 <span class="symbol"><a name="ref_777_7" href="terminal_interface-curses__adb.htm#ref_294_7">Number_Of_Lines</a></span> : <a href="terminal_interface-curses__ads.htm#ref_62_12">Line_Count</a>; 795 <span class="symbol"><a name="ref_778_7" href="terminal_interface-curses__adb.htm#ref_295_7">Number_Of_Columns</a></span> : <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>; 796 <span class="symbol"><a name="ref_779_7" href="terminal_interface-curses__adb.htm#ref_296_7">First_Line_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 797 <span class="symbol"><a name="ref_780_7" href="terminal_interface-curses__adb.htm#ref_297_7">First_Column_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 798 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">derwin()</A></em></span> 799 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_775_13">Derived_Window</a>); 800 801 <span class="comment"><em>-- <A NAME="AFU_15">|</A></em></span> 802 <b>function</b> <span class="symbol"><a name="ref_785_13" href="terminal_interface-curses__adb.htm#ref_320_13">Duplicate</a></span> (<span class="symbol"><a name="ref_785_24" href="terminal_interface-curses__adb.htm#ref_320_24">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 803 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">dupwin()</A></em></span> 804 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_785_13">Duplicate</a>); 805 806 <span class="comment"><em>-- <A NAME="AFU_16">|</A></em></span> 807 <b>procedure</b> <span class="symbol"><a name="ref_790_14" href="terminal_interface-curses__adb.htm#ref_333_14">Move_Window</a></span> (<span class="symbol"><a name="ref_790_27" href="terminal_interface-curses__adb.htm#ref_333_27">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 808 <span class="symbol"><a name="ref_791_27" href="terminal_interface-curses__adb.htm#ref_334_27">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 809 <span class="symbol"><a name="ref_792_27" href="terminal_interface-curses__adb.htm#ref_335_27">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>); 810 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">mvwin()</A></em></span> 811 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_790_14">Move_Window</a>); 812 813 <span class="comment"><em>-- <A NAME="AFU_17">|</A></em></span> 814 <b>procedure</b> <span class="symbol"><a name="ref_797_14" href="terminal_interface-curses__adb.htm#ref_347_14">Move_Derived_Window</a></span> (<span class="symbol"><a name="ref_797_35" href="terminal_interface-curses__adb.htm#ref_347_35">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 815 <span class="symbol"><a name="ref_798_35" href="terminal_interface-curses__adb.htm#ref_348_35">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 816 <span class="symbol"><a name="ref_799_35" href="terminal_interface-curses__adb.htm#ref_349_35">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>); 817 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">mvderwin()</A></em></span> 818 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_797_14">Move_Derived_Window</a>); 819 820 <span class="comment"><em>-- <A NAME="AFU_18">|</A></em></span> 821 <b>procedure</b> <span class="symbol"><a name="ref_804_14">Synchronize_Upwards</a></span> (<span class="symbol"><a name="ref_804_35">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>); 822 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncup()</A></em></span> 823 <b>pragma</b> Import (C, Synchronize_Upwards, "wsyncup"); 824 825 <span class="comment"><em>-- <A NAME="AFU_19">|</A></em></span> 826 <b>procedure</b> <span class="symbol"><a name="ref_809_14">Synchronize_Downwards</a></span> (<span class="symbol"><a name="ref_809_37">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>); 827 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncdown()</A></em></span> 828 <b>pragma</b> Import (C, Synchronize_Downwards, "wsyncdown"); 829 830 <span class="comment"><em>-- <A NAME="AFU_20">|</A></em></span> 831 <b>procedure</b> <span class="symbol"><a name="ref_814_14" href="terminal_interface-curses__adb.htm#ref_361_14">Set_Synch_Mode</a></span> (<span class="symbol"><a name="ref_814_30" href="terminal_interface-curses__adb.htm#ref_361_30">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 832 <span class="symbol"><a name="ref_815_30" href="terminal_interface-curses__adb.htm#ref_362_30">Mode</a></span> : Boolean := False); 833 <span class="comment"><em>-- AKA: <A HREF="../man/curs_window.3x.html">syncok()</A></em></span> 834 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_814_14">Set_Synch_Mode</a>); 835 836 <span class="comment"><em>-- |=====================================================================</em></span> 837 <span class="comment"><em>-- | Man page <A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></em></span> 838 <span class="comment"><em>-- |=====================================================================</em></span> 839 840 <span class="comment"><em>-- <A NAME="AFU_21">|</A></em></span> 841 <b>procedure</b> <span class="symbol"><a name="ref_824_14" href="terminal_interface-curses__adb.htm#ref_373_14">Add</a></span> (<span class="symbol"><a name="ref_824_19" href="terminal_interface-curses__adb.htm#ref_373_19">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 842 <span class="symbol"><a name="ref_825_19" href="terminal_interface-curses__adb.htm#ref_374_19">Str</a></span> : String; 843 <span class="symbol"><a name="ref_826_19" href="terminal_interface-curses__adb.htm#ref_375_19">Len</a></span> : Integer := -1); 844 <span class="comment"><em>-- AKA: <A HREF="../man/curs_addstr.3x.html">waddnstr()</A></em></span> 845 <span class="comment"><em>-- AKA: waddstr()</em></span> 846 <span class="comment"><em>-- AKA: addnstr()</em></span> 847 <span class="comment"><em>-- AKA: addstr()</em></span> 848 849 <span class="comment"><em>-- <A NAME="AFU_22">|</A></em></span> 850 <b>procedure</b> <span class="symbol"><a name="ref_833_14" href="terminal_interface-curses__adb.htm#ref_391_14">Add</a></span> (<span class="symbol"><a name="ref_833_19" href="terminal_interface-curses__adb.htm#ref_392_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 851 <span class="symbol"><a name="ref_834_19" href="terminal_interface-curses__adb.htm#ref_393_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 852 <span class="symbol"><a name="ref_835_19" href="terminal_interface-curses__adb.htm#ref_394_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 853 <span class="symbol"><a name="ref_836_19" href="terminal_interface-curses__adb.htm#ref_395_7">Str</a></span> : String; 854 <span class="symbol"><a name="ref_837_19" href="terminal_interface-curses__adb.htm#ref_396_7">Len</a></span> : Integer := -1); 855 <span class="comment"><em>-- AKA: <A HREF="../man/curs_addstr.3x.html">mvwaddnstr()</A></em></span> 856 <span class="comment"><em>-- AKA: mvwaddstr()</em></span> 857 <span class="comment"><em>-- AKA: mvaddnstr()</em></span> 858 <span class="comment"><em>-- AKA: mvaddstr()</em></span> 859 860 <span class="comment"><em>-- |=====================================================================</em></span> 861 <span class="comment"><em>-- | Man page <A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></em></span> 862 <span class="comment"><em>-- |=====================================================================</em></span> 863 864 <span class="comment"><em>-- <A NAME="AFU_23">|</A></em></span> 865 <b>procedure</b> <span class="symbol"><a name="ref_848_14" href="terminal_interface-curses__adb.htm#ref_403_14">Add</a></span> (<span class="symbol"><a name="ref_848_19" href="terminal_interface-curses__adb.htm#ref_404_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 866 <span class="symbol"><a name="ref_849_19" href="terminal_interface-curses__adb.htm#ref_405_7">Str</a></span> : Attributed_String; 867 <span class="symbol"><a name="ref_850_19" href="terminal_interface-curses__adb.htm#ref_406_7">Len</a></span> : Integer := -1); 868 <span class="comment"><em>-- AKA: <A HREF="../man/curs_addchstr.3x.html">waddchnstr()</A></em></span> 869 <span class="comment"><em>-- AKA: waddchstr()</em></span> 870 <span class="comment"><em>-- AKA: addchnstr()</em></span> 871 <span class="comment"><em>-- AKA: addchstr()</em></span> 872 873 <span class="comment"><em>-- <A NAME="AFU_24">|</A></em></span> 874 <b>procedure</b> <span class="symbol"><a name="ref_857_14" href="terminal_interface-curses__adb.htm#ref_427_14">Add</a></span> (<span class="symbol"><a name="ref_857_19" href="terminal_interface-curses__adb.htm#ref_428_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 875 <span class="symbol"><a name="ref_858_19" href="terminal_interface-curses__adb.htm#ref_429_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 876 <span class="symbol"><a name="ref_859_19" href="terminal_interface-curses__adb.htm#ref_430_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 877 <span class="symbol"><a name="ref_860_19" href="terminal_interface-curses__adb.htm#ref_431_7">Str</a></span> : Attributed_String; 878 <span class="symbol"><a name="ref_861_19" href="terminal_interface-curses__adb.htm#ref_432_7">Len</a></span> : Integer := -1); 879 <span class="comment"><em>-- AKA: <A HREF="../man/curs_addchstr.3x.html">mvwaddchnstr()</A></em></span> 880 <span class="comment"><em>-- AKA: mvwaddchstr()</em></span> 881 <span class="comment"><em>-- AKA: mvaddchnstr()</em></span> 882 <span class="comment"><em>-- AKA: mvaddchstr()</em></span> 883 <b>pragma</b> Inline (Add); 884 885 <span class="comment"><em>-- |=====================================================================</em></span> 886 <span class="comment"><em>-- | Man page <A HREF="../man/curs_border.3x.html">curs_border.3x</A></em></span> 887 <span class="comment"><em>-- |=====================================================================</em></span> 888 <span class="comment"><em>-- | Not implemented: mvhline, mvwhline, mvvline, mvwvline</em></span> 889 <span class="comment"><em>-- | use Move_Cursor then Horizontal_Line or Vertical_Line</em></span> 890 891 <span class="comment"><em>-- <A NAME="AFU_25">|</A></em></span> 892 <b>procedure</b> <span class="symbol"><a name="ref_875_14" href="terminal_interface-curses__adb.htm#ref_439_14">Border</a></span> 893 (<span class="symbol"><a name="ref_876_7" href="terminal_interface-curses__adb.htm#ref_440_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 894 <span class="symbol"><a name="ref_877_7" href="terminal_interface-curses__adb.htm#ref_441_7">Left_Side_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>; 895 <span class="symbol"><a name="ref_878_7" href="terminal_interface-curses__adb.htm#ref_442_7">Right_Side_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>; 896 <span class="symbol"><a name="ref_879_7" href="terminal_interface-curses__adb.htm#ref_443_7">Top_Side_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>; 897 <span class="symbol"><a name="ref_880_7" href="terminal_interface-curses__adb.htm#ref_444_7">Bottom_Side_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>; 898 <span class="symbol"><a name="ref_881_7" href="terminal_interface-curses__adb.htm#ref_445_7">Upper_Left_Corner_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>; 899 <span class="symbol"><a name="ref_882_7" href="terminal_interface-curses__adb.htm#ref_446_7">Upper_Right_Corner_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>; 900 <span class="symbol"><a name="ref_883_7" href="terminal_interface-curses__adb.htm#ref_447_7">Lower_Left_Corner_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>; 901 <span class="symbol"><a name="ref_884_7" href="terminal_interface-curses__adb.htm#ref_448_7">Lower_Right_Corner_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a> 902 ); 903 <span class="comment"><em>-- AKA: <A HREF="../man/curs_border.3x.html">wborder()</A></em></span> 904 <span class="comment"><em>-- AKA: border()</em></span> 905 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_875_14">Border</a>); 906 907 <span class="comment"><em>-- <A NAME="AFU_26">|</A></em></span> 908 <b>procedure</b> <span class="symbol"><a name="ref_891_14" href="terminal_interface-curses__adb.htm#ref_475_14">Box</a></span> 909 (<span class="symbol"><a name="ref_892_7" href="terminal_interface-curses__adb.htm#ref_476_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 910 <span class="symbol"><a name="ref_893_7" href="terminal_interface-curses__adb.htm#ref_477_7">Vertical_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>; 911 <span class="symbol"><a name="ref_894_7" href="terminal_interface-curses__adb.htm#ref_478_7">Horizontal_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>); 912 <span class="comment"><em>-- AKA: <A HREF="../man/curs_border.3x.html">box()</A></em></span> 913 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_891_14">Box</a>); 914 915 <span class="comment"><em>-- <A NAME="AFU_27">|</A></em></span> 916 <b>procedure</b> <span class="symbol"><a name="ref_899_14" href="terminal_interface-curses__adb.htm#ref_486_14">Horizontal_Line</a></span> 917 (<span class="symbol"><a name="ref_900_7" href="terminal_interface-curses__adb.htm#ref_487_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 918 <span class="symbol"><a name="ref_901_7" href="terminal_interface-curses__adb.htm#ref_488_7">Line_Size</a></span> : Natural; 919 <span class="symbol"><a name="ref_902_7" href="terminal_interface-curses__adb.htm#ref_489_7">Line_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>); 920 <span class="comment"><em>-- AKA: <A HREF="../man/curs_border.3x.html">whline()</A></em></span> 921 <span class="comment"><em>-- AKA: hline()</em></span> 922 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_899_14">Horizontal_Line</a>); 923 924 <span class="comment"><em>-- <A NAME="AFU_28">|</A></em></span> 925 <b>procedure</b> <span class="symbol"><a name="ref_908_14" href="terminal_interface-curses__adb.htm#ref_504_14">Vertical_Line</a></span> 926 (<span class="symbol"><a name="ref_909_7" href="terminal_interface-curses__adb.htm#ref_505_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 927 <span class="symbol"><a name="ref_910_7" href="terminal_interface-curses__adb.htm#ref_506_7">Line_Size</a></span> : Natural; 928 <span class="symbol"><a name="ref_911_7" href="terminal_interface-curses__adb.htm#ref_507_7">Line_Symbol</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a> := <a href="terminal_interface-curses__ads.htm#ref_510_4">Default_Character</a>); 929 <span class="comment"><em>-- AKA: <A HREF="../man/curs_border.3x.html">wvline()</A></em></span> 930 <span class="comment"><em>-- AKA: vline()</em></span> 931 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_908_14">Vertical_Line</a>); 932 933 <span class="comment"><em>-- |=====================================================================</em></span> 934 <span class="comment"><em>-- | Man page <A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></em></span> 935 <span class="comment"><em>-- |=====================================================================</em></span> 936 <span class="comment"><em>-- Not implemented: mvgetch, mvwgetch</em></span> 937 938 <span class="comment"><em>-- <A NAME="AFU_29">|</A></em></span> 939 <b>function</b> <span class="symbol"><a name="ref_922_13" href="terminal_interface-curses__adb.htm#ref_523_13">Get_Keystroke</a></span> (<span class="symbol"><a name="ref_922_28" href="terminal_interface-curses__adb.htm#ref_523_28">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>) 940 <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_72_12">Real_Key_Code</a>; 941 <span class="comment"><em>-- AKA: <A HREF="../man/curs_getch.3x.html">wgetch()</A></em></span> 942 <span class="comment"><em>-- AKA: getch()</em></span> 943 <span class="comment"><em>-- Get a character from the keyboard and echo it - if enabled - to the</em></span> 944 <span class="comment"><em>-- window.</em></span> 945 <span class="comment"><em>-- If for any reason (i.e. a timeout) we could not get a character the</em></span> 946 <span class="comment"><em>-- returned keycode is Key_None.</em></span> 947 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_922_13">Get_Keystroke</a>); 948 949 <span class="comment"><em>-- <A NAME="AFU_30">|</A></em></span> 950 <b>procedure</b> <span class="symbol"><a name="ref_933_14" href="terminal_interface-curses__adb.htm#ref_538_14">Undo_Keystroke</a></span> (<span class="symbol"><a name="ref_933_30" href="terminal_interface-curses__adb.htm#ref_538_30">Key</a></span> : <a href="terminal_interface-curses__ads.htm#ref_72_12">Real_Key_Code</a>); 951 <span class="comment"><em>-- AKA: <A HREF="../man/curs_getch.3x.html">ungetch()</A></em></span> 952 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_933_14">Undo_Keystroke</a>); 953 954 <span class="comment"><em>-- <A NAME="AFU_31">|</A></em></span> 955 <b>function</b> <span class="symbol"><a name="ref_938_13" href="terminal_interface-curses__adb.htm#ref_548_13">Has_Key</a></span> (<span class="symbol"><a name="ref_938_22" href="terminal_interface-curses__adb.htm#ref_548_22">Key</a></span> : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a>) <b>return</b> Boolean; 956 <span class="comment"><em>-- AKA: <A HREF="../man/curs_getch.3x.html">has_key()</A></em></span> 957 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_938_13">Has_Key</a>); 958 959 <span class="comment"><em>-- |</em></span> 960 <span class="comment"><em>-- | Some helper functions</em></span> 961 <span class="comment"><em>-- |</em></span> 962 <b>function</b> <span class="symbol"><a name="ref_945_13" href="terminal_interface-curses__adb.htm#ref_560_13">Is_Function_Key</a></span> (<span class="symbol"><a name="ref_945_30" href="terminal_interface-curses__adb.htm#ref_560_30">Key</a></span> : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a>) <b>return</b> Boolean; 963 <span class="comment"><em>-- Return True if the Key is a function key (i.e. one of F0 .. F63)</em></span> 964 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_945_13">Is_Function_Key</a>); 965 966 <b>subtype</b> <span class="symbol"><a name="ref_949_12">Function_Key_Number</a></span> <b>is</b> Integer <b>range</b> 0 .. 63; 967 <span class="comment"><em>-- (n)curses allows for 64 function keys.</em></span> 968 969 <b>function</b> <span class="symbol"><a name="ref_952_13" href="terminal_interface-curses__adb.htm#ref_572_13">Function_Key</a></span> (<span class="symbol"><a name="ref_952_27" href="terminal_interface-curses__adb.htm#ref_572_27">Key</a></span> : <a href="terminal_interface-curses__ads.htm#ref_72_12">Real_Key_Code</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_949_12">Function_Key_Number</a>; 970 <span class="comment"><em>-- Return the number of the function key. If the code is not a</em></span> 971 <span class="comment"><em>-- function key, a CONSTRAINT_ERROR will be raised.</em></span> 972 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_952_13">Function_Key</a>); 973 974 <b>function</b> <span class="symbol"><a name="ref_957_13" href="terminal_interface-curses__adb.htm#ref_583_13">Function_Key_Code</a></span> (<span class="symbol"><a name="ref_957_32" href="terminal_interface-curses__adb.htm#ref_583_32">Key</a></span> : <a href="terminal_interface-curses__ads.htm#ref_949_12">Function_Key_Number</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_72_12">Real_Key_Code</a>; 975 <span class="comment"><em>-- Return the key code for a given function-key number.</em></span> 976 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_957_13">Function_Key_Code</a>); 977 978 <span class="comment"><em>-- |=====================================================================</em></span> 979 <span class="comment"><em>-- | Man page <A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></em></span> 980 <span class="comment"><em>-- |=====================================================================</em></span> 981 <span class="comment"><em>-- | Not implemented attr_off, wattr_off,</em></span> 982 <span class="comment"><em>-- | attr_on, wattr_on, attr_set, wattr_set</em></span> 983 984 <span class="comment"><em>-- PAIR_NUMBER</em></span> 985 <span class="comment"><em>-- PAIR_NUMBER(c) is the same as c.Color</em></span> 986 987 <span class="comment"><em>-- <A NAME="AFU_32">|</A></em></span> 988 <b>procedure</b> <span class="symbol"><a name="ref_971_14" href="terminal_interface-curses__adb.htm#ref_589_14">Standout</a></span> (<span class="symbol"><a name="ref_971_24" href="terminal_interface-curses__adb.htm#ref_589_24">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 989 <span class="symbol"><a name="ref_972_24" href="terminal_interface-curses__adb.htm#ref_590_24">On</a></span> : Boolean := True); 990 <span class="comment"><em>-- AKA: wstandout()</em></span> 991 <span class="comment"><em>-- AKA: wstandend()</em></span> 992 993 <span class="comment"><em>-- <A NAME="AFU_33">|</A></em></span> 994 <b>procedure</b> <span class="symbol"><a name="ref_977_14" href="terminal_interface-curses__adb.htm#ref_609_14">Switch_Character_Attribute</a></span> 995 (<span class="symbol"><a name="ref_978_7" href="terminal_interface-curses__adb.htm#ref_610_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 996 <span class="symbol"><a name="ref_979_7" href="terminal_interface-curses__adb.htm#ref_611_7">Attr</a></span> : <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a> := <a href="terminal_interface-curses__ads.htm#ref_486_4">Normal_Video</a>; 997 <span class="symbol"><a name="ref_980_7" href="terminal_interface-curses__adb.htm#ref_612_7">On</a></span> : Boolean := True); <span class="comment"><em>-- if False we switch Off.</em></span> 998 <span class="comment"><em>-- Switches those Attributes set to true in the list.</em></span> 999 <span class="comment"><em>-- AKA: <A HREF="../man/curs_attr.3x.html">wattron()</A></em></span> 1000 <span class="comment"><em>-- AKA: wattroff()</em></span> 1001 <span class="comment"><em>-- AKA: attron()</em></span> 1002 <span class="comment"><em>-- AKA: attroff()</em></span> 1003 1004 <span class="comment"><em>-- <A NAME="AFU_34">|</A></em></span> 1005 <b>procedure</b> <span class="symbol"><a name="ref_988_14" href="terminal_interface-curses__adb.htm#ref_637_14">Set_Character_Attributes</a></span> 1006 (<span class="symbol"><a name="ref_989_7" href="terminal_interface-curses__adb.htm#ref_638_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1007 <span class="symbol"><a name="ref_990_7" href="terminal_interface-curses__adb.htm#ref_639_7">Attr</a></span> : <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a> := <a href="terminal_interface-curses__ads.htm#ref_486_4">Normal_Video</a>; 1008 <span class="symbol"><a name="ref_991_7" href="terminal_interface-curses__adb.htm#ref_640_7">Color</a></span> : <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a> := <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>'First); 1009 <span class="comment"><em>-- AKA: <A HREF="../man/curs_attr.3x.html">wattrset()</A></em></span> 1010 <span class="comment"><em>-- AKA: attrset()</em></span> 1011 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_988_14">Set_Character_Attributes</a>); 1012 1013 <span class="comment"><em>-- <A NAME="AFU_35">|</A></em></span> 1014 <b>function</b> <span class="symbol"><a name="ref_997_13" href="terminal_interface-curses__adb.htm#ref_654_13">Get_Character_Attribute</a></span> 1015 (<span class="symbol"><a name="ref_998_7" href="terminal_interface-curses__adb.htm#ref_654_38">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a>; 1016 <span class="comment"><em>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></em></span> 1017 <span class="comment"><em>-- AKA: attr_get()</em></span> 1018 1019 <span class="comment"><em>-- <A NAME="AFU_36">|</A></em></span> 1020 <b>function</b> <span class="symbol"><a name="ref_1003_13" href="terminal_interface-curses__adb.htm#ref_675_13">Get_Character_Attribute</a></span> 1021 (<span class="symbol"><a name="ref_1004_7" href="terminal_interface-curses__adb.htm#ref_675_38">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>; 1022 <span class="comment"><em>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></em></span> 1023 <b>pragma</b> Inline (Get_Character_Attribute); 1024 1025 <span class="comment"><em>-- <A NAME="AFU_37">|</A></em></span> 1026 <b>procedure</b> <span class="symbol"><a name="ref_1009_14" href="terminal_interface-curses__adb.htm#ref_696_14">Set_Color</a></span> (<span class="symbol"><a name="ref_1009_25" href="terminal_interface-curses__adb.htm#ref_696_25">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1027 <span class="symbol"><a name="ref_1010_25" href="terminal_interface-curses__adb.htm#ref_697_25">Pair</a></span> : <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>); 1028 <span class="comment"><em>-- AKA: <A HREF="../man/curs_attr.3x.html">wcolor_set()</A></em></span> 1029 <span class="comment"><em>-- AKA: color_set()</em></span> 1030 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1009_14">Set_Color</a>); 1031 1032 <span class="comment"><em>-- <A NAME="AFU_38">|</A></em></span> 1033 <b>procedure</b> <span class="symbol"><a name="ref_1016_14" href="terminal_interface-curses__adb.htm#ref_712_14">Change_Attributes</a></span> 1034 (<span class="symbol"><a name="ref_1017_7" href="terminal_interface-curses__adb.htm#ref_713_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1035 <span class="symbol"><a name="ref_1018_7" href="terminal_interface-curses__adb.htm#ref_714_7">Count</a></span> : Integer := -1; 1036 <span class="symbol"><a name="ref_1019_7" href="terminal_interface-curses__adb.htm#ref_715_7">Attr</a></span> : <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a> := <a href="terminal_interface-curses__ads.htm#ref_486_4">Normal_Video</a>; 1037 <span class="symbol"><a name="ref_1020_7" href="terminal_interface-curses__adb.htm#ref_716_7">Color</a></span> : <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a> := <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>'First); 1038 <span class="comment"><em>-- AKA: <A HREF="../man/curs_attr.3x.html">wchgat()</A></em></span> 1039 <span class="comment"><em>-- AKA: chgat()</em></span> 1040 1041 <span class="comment"><em>-- <A NAME="AFU_39">|</A></em></span> 1042 <b>procedure</b> <span class="symbol"><a name="ref_1025_14" href="terminal_interface-curses__adb.htm#ref_737_14">Change_Attributes</a></span> 1043 (<span class="symbol"><a name="ref_1026_7" href="terminal_interface-curses__adb.htm#ref_738_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1044 <span class="symbol"><a name="ref_1027_7" href="terminal_interface-curses__adb.htm#ref_739_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a> := <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>'First; 1045 <span class="symbol"><a name="ref_1028_7" href="terminal_interface-curses__adb.htm#ref_740_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a> := <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>'First; 1046 <span class="symbol"><a name="ref_1029_7" href="terminal_interface-curses__adb.htm#ref_741_7">Count</a></span> : Integer := -1; 1047 <span class="symbol"><a name="ref_1030_7" href="terminal_interface-curses__adb.htm#ref_742_7">Attr</a></span> : <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a> := <a href="terminal_interface-curses__ads.htm#ref_486_4">Normal_Video</a>; 1048 <span class="symbol"><a name="ref_1031_7" href="terminal_interface-curses__adb.htm#ref_743_7">Color</a></span> : <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a> := <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>'First); 1049 <span class="comment"><em>-- AKA: <A HREF="../man/curs_attr.3x.html">mvwchgat()</A></em></span> 1050 <span class="comment"><em>-- AKA: mvchgat()</em></span> 1051 <b>pragma</b> Inline (Change_Attributes); 1052 1053 <span class="comment"><em>-- |=====================================================================</em></span> 1054 <span class="comment"><em>-- | Man page <A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></em></span> 1055 <span class="comment"><em>-- |=====================================================================</em></span> 1056 1057 <span class="comment"><em>-- <A NAME="AFU_40">|</A></em></span> 1058 <b>procedure</b> <span class="symbol"><a name="ref_1041_14" href="terminal_interface-curses__adb.htm#ref_750_14">Beep</a></span>; 1059 <span class="comment"><em>-- AKA: <A HREF="../man/curs_beep.3x.html">beep()</A></em></span> 1060 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1041_14">Beep</a>); 1061 1062 <span class="comment"><em>-- <A NAME="AFU_41">|</A></em></span> 1063 <b>procedure</b> <span class="symbol"><a name="ref_1046_14" href="terminal_interface-curses__adb.htm#ref_760_14">Flash_Screen</a></span>; 1064 <span class="comment"><em>-- AKA: <A HREF="../man/curs_beep.3x.html">flash()</A></em></span> 1065 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1046_14">Flash_Screen</a>); 1066 1067 <span class="comment"><em>-- |=====================================================================</em></span> 1068 <span class="comment"><em>-- | Man page <A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></em></span> 1069 <span class="comment"><em>-- |=====================================================================</em></span> 1070 1071 <span class="comment"><em>-- | Not implemented : typeahead</em></span> 1072 <span class="comment"><em>--</em></span> 1073 <span class="comment"><em>-- <A NAME="AFU_42">|</A></em></span> 1074 <b>procedure</b> <span class="symbol"><a name="ref_1057_14" href="terminal_interface-curses__adb.htm#ref_770_14">Set_Cbreak_Mode</a></span> (<span class="symbol"><a name="ref_1057_31" href="terminal_interface-curses__adb.htm#ref_770_31">SwitchOn</a></span> : Boolean := True); 1075 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">cbreak()</A></em></span> 1076 <span class="comment"><em>-- AKA: nocbreak()</em></span> 1077 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1057_14">Set_Cbreak_Mode</a>); 1078 1079 <span class="comment"><em>-- <A NAME="AFU_43">|</A></em></span> 1080 <b>procedure</b> <span class="symbol"><a name="ref_1063_14" href="terminal_interface-curses__adb.htm#ref_789_14">Set_Raw_Mode</a></span> (<span class="symbol"><a name="ref_1063_28" href="terminal_interface-curses__adb.htm#ref_789_28">SwitchOn</a></span> : Boolean := True); 1081 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">raw()</A></em></span> 1082 <span class="comment"><em>-- AKA: noraw()</em></span> 1083 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1063_14">Set_Raw_Mode</a>); 1084 1085 <span class="comment"><em>-- <A NAME="AFU_44">|</A></em></span> 1086 <b>procedure</b> <span class="symbol"><a name="ref_1069_14" href="terminal_interface-curses__adb.htm#ref_808_14">Set_Echo_Mode</a></span> (<span class="symbol"><a name="ref_1069_29" href="terminal_interface-curses__adb.htm#ref_808_29">SwitchOn</a></span> : Boolean := True); 1087 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">echo()</A></em></span> 1088 <span class="comment"><em>-- AKA: noecho()</em></span> 1089 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1069_14">Set_Echo_Mode</a>); 1090 1091 <span class="comment"><em>-- <A NAME="AFU_45">|</A></em></span> 1092 <b>procedure</b> <span class="symbol"><a name="ref_1075_14" href="terminal_interface-curses__adb.htm#ref_827_14">Set_Meta_Mode</a></span> (<span class="symbol"><a name="ref_1075_29" href="terminal_interface-curses__adb.htm#ref_827_29">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1093 <span class="symbol"><a name="ref_1076_29" href="terminal_interface-curses__adb.htm#ref_828_29">SwitchOn</a></span> : Boolean := True); 1094 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">meta()</A></em></span> 1095 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1075_14">Set_Meta_Mode</a>); 1096 1097 <span class="comment"><em>-- <A NAME="AFU_46">|</A></em></span> 1098 <b>procedure</b> <span class="symbol"><a name="ref_1081_14" href="terminal_interface-curses__adb.htm#ref_838_14">Set_KeyPad_Mode</a></span> (<span class="symbol"><a name="ref_1081_31" href="terminal_interface-curses__adb.htm#ref_838_31">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1099 <span class="symbol"><a name="ref_1082_31" href="terminal_interface-curses__adb.htm#ref_839_31">SwitchOn</a></span> : Boolean := True); 1100 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">keypad()</A></em></span> 1101 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1081_14">Set_KeyPad_Mode</a>); 1102 1103 <b>function</b> <span class="symbol"><a name="ref_1086_13" href="terminal_interface-curses__adb.htm#ref_849_13">Get_KeyPad_Mode</a></span> (<span class="symbol"><a name="ref_1086_30" href="terminal_interface-curses__adb.htm#ref_849_30">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>) 1104 <b>return</b> Boolean; 1105 <span class="comment"><em>-- This has no pendant in C. There you've to look into the WINDOWS</em></span> 1106 <span class="comment"><em>-- structure to get the value. Bad practice, not repeated in Ada.</em></span> 1107 1108 <b>type</b> <span class="symbol"><a name="ref_1091_9">Half_Delay_Amount</a></span> <b>is</b> <b>range</b> 1 .. 255; 1109 1110 <span class="comment"><em>-- <A NAME="AFU_47">|</A></em></span> 1111 <b>procedure</b> <span class="symbol"><a name="ref_1094_14" href="terminal_interface-curses__adb.htm#ref_858_14">Half_Delay</a></span> (<span class="symbol"><a name="ref_1094_26" href="terminal_interface-curses__adb.htm#ref_858_26">Amount</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1091_9">Half_Delay_Amount</a>); 1112 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">halfdelay()</A></em></span> 1113 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1094_14">Half_Delay</a>); 1114 1115 <span class="comment"><em>-- <A NAME="AFU_48">|</A></em></span> 1116 <b>procedure</b> <span class="symbol"><a name="ref_1099_14" href="terminal_interface-curses__adb.htm#ref_868_14">Set_Flush_On_Interrupt_Mode</a></span> 1117 (<span class="symbol"><a name="ref_1100_7" href="terminal_interface-curses__adb.htm#ref_869_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1118 <span class="symbol"><a name="ref_1101_7" href="terminal_interface-curses__adb.htm#ref_870_7">Mode</a></span> : Boolean := True); 1119 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">intrflush()</A></em></span> 1120 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1099_14">Set_Flush_On_Interrupt_Mode</a>); 1121 1122 <span class="comment"><em>-- <A NAME="AFU_49">|</A></em></span> 1123 <b>procedure</b> <span class="symbol"><a name="ref_1106_14" href="terminal_interface-curses__adb.htm#ref_880_14">Set_Queue_Interrupt_Mode</a></span> 1124 (<span class="symbol"><a name="ref_1107_7" href="terminal_interface-curses__adb.htm#ref_881_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1125 <span class="symbol"><a name="ref_1108_7" href="terminal_interface-curses__adb.htm#ref_882_7">Flush</a></span> : Boolean := True); 1126 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">qiflush()</A></em></span> 1127 <span class="comment"><em>-- AKA: noqiflush()</em></span> 1128 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1106_14">Set_Queue_Interrupt_Mode</a>); 1129 1130 <span class="comment"><em>-- <A NAME="AFU_50">|</A></em></span> 1131 <b>procedure</b> <span class="symbol"><a name="ref_1114_14" href="terminal_interface-curses__adb.htm#ref_899_14">Set_NoDelay_Mode</a></span> 1132 (<span class="symbol"><a name="ref_1115_7" href="terminal_interface-curses__adb.htm#ref_900_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1133 <span class="symbol"><a name="ref_1116_7" href="terminal_interface-curses__adb.htm#ref_901_7">Mode</a></span> : Boolean := False); 1134 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">nodelay()</A></em></span> 1135 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1114_14">Set_NoDelay_Mode</a>); 1136 1137 <b>type</b> <span class="symbol"><a name="ref_1120_9">Timeout_Mode</a></span> <b>is</b> (<span class="symbol"><a name="ref_1120_26">Blocking</a></span>, <span class="symbol"><a name="ref_1120_36">Non_Blocking</a></span>, <span class="symbol"><a name="ref_1120_50">Delayed</a></span>); 1138 1139 <span class="comment"><em>-- <A NAME="AFU_51">|</A></em></span> 1140 <b>procedure</b> <span class="symbol"><a name="ref_1123_14" href="terminal_interface-curses__adb.htm#ref_911_14">Set_Timeout_Mode</a></span> (<span class="symbol"><a name="ref_1123_32" href="terminal_interface-curses__adb.htm#ref_911_32">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1141 <span class="symbol"><a name="ref_1124_32" href="terminal_interface-curses__adb.htm#ref_912_32">Mode</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1120_9">Timeout_Mode</a>; 1142 <span class="symbol"><a name="ref_1125_32" href="terminal_interface-curses__adb.htm#ref_913_32">Amount</a></span> : Natural); <span class="comment"><em>-- in Milliseconds</em></span> 1143 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">wtimeout()</A></em></span> 1144 <span class="comment"><em>-- AKA: timeout()</em></span> 1145 <span class="comment"><em>-- Instead of overloading the semantic of the sign of amount, we</em></span> 1146 <span class="comment"><em>-- introduce the Timeout_Mode parameter. This should improve</em></span> 1147 <span class="comment"><em>-- readability. For Blocking and Non_Blocking, the Amount is not</em></span> 1148 <span class="comment"><em>-- evaluated.</em></span> 1149 <span class="comment"><em>-- We do not inline this procedure.</em></span> 1150 1151 <span class="comment"><em>-- <A NAME="AFU_52">|</A></em></span> 1152 <b>procedure</b> <span class="symbol"><a name="ref_1135_14" href="terminal_interface-curses__adb.htm#ref_932_14">Set_Escape_Timer_Mode</a></span> 1153 (<span class="symbol"><a name="ref_1136_7" href="terminal_interface-curses__adb.htm#ref_933_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1154 <span class="symbol"><a name="ref_1137_7" href="terminal_interface-curses__adb.htm#ref_934_7">Timer_Off</a></span> : Boolean := False); 1155 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inopts.3x.html">notimeout()</A></em></span> 1156 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1135_14">Set_Escape_Timer_Mode</a>); 1157 1158 <span class="comment"><em>-- |=====================================================================</em></span> 1159 <span class="comment"><em>-- | Man page <A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></em></span> 1160 <span class="comment"><em>-- |=====================================================================</em></span> 1161 1162 <span class="comment"><em>-- <A NAME="AFU_53">|</A></em></span> 1163 <b>procedure</b> <span class="symbol"><a name="ref_1146_14" href="terminal_interface-curses__adb.htm#ref_947_14">Set_NL_Mode</a></span> (<span class="symbol"><a name="ref_1146_27" href="terminal_interface-curses__adb.htm#ref_947_27">SwitchOn</a></span> : Boolean := True); 1164 <span class="comment"><em>-- AKA: <A HREF="../man/curs_outopts.3x.html">nl()</A></em></span> 1165 <span class="comment"><em>-- AKA: nonl()</em></span> 1166 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1146_14">Set_NL_Mode</a>); 1167 1168 <span class="comment"><em>-- <A NAME="AFU_54">|</A></em></span> 1169 <b>procedure</b> <span class="symbol"><a name="ref_1152_14" href="terminal_interface-curses__adb.htm#ref_966_14">Clear_On_Next_Update</a></span> 1170 (<span class="symbol"><a name="ref_1153_7" href="terminal_interface-curses__adb.htm#ref_967_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1171 <span class="symbol"><a name="ref_1154_7" href="terminal_interface-curses__adb.htm#ref_968_7">Do_Clear</a></span> : Boolean := True); 1172 <span class="comment"><em>-- AKA: <A HREF="../man/curs_outopts.3x.html">clearok()</A></em></span> 1173 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1152_14">Clear_On_Next_Update</a>); 1174 1175 <span class="comment"><em>-- <A NAME="AFU_55">|</A></em></span> 1176 <b>procedure</b> <span class="symbol"><a name="ref_1159_14" href="terminal_interface-curses__adb.htm#ref_978_14">Use_Insert_Delete_Line</a></span> 1177 (<span class="symbol"><a name="ref_1160_7" href="terminal_interface-curses__adb.htm#ref_979_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1178 <span class="symbol"><a name="ref_1161_7" href="terminal_interface-curses__adb.htm#ref_980_7">Do_Idl</a></span> : Boolean := True); 1179 <span class="comment"><em>-- AKA: <A HREF="../man/curs_outopts.3x.html">idlok()</A></em></span> 1180 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1159_14">Use_Insert_Delete_Line</a>); 1181 1182 <span class="comment"><em>-- <A NAME="AFU_56">|</A></em></span> 1183 <b>procedure</b> <span class="symbol"><a name="ref_1166_14" href="terminal_interface-curses__adb.htm#ref_990_14">Use_Insert_Delete_Character</a></span> 1184 (<span class="symbol"><a name="ref_1167_7" href="terminal_interface-curses__adb.htm#ref_991_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1185 <span class="symbol"><a name="ref_1168_7" href="terminal_interface-curses__adb.htm#ref_992_7">Do_Idc</a></span> : Boolean := True); 1186 <span class="comment"><em>-- AKA: <A HREF="../man/curs_outopts.3x.html">idcok()</A></em></span> 1187 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1166_14">Use_Insert_Delete_Character</a>); 1188 1189 <span class="comment"><em>-- <A NAME="AFU_57">|</A></em></span> 1190 <b>procedure</b> <span class="symbol"><a name="ref_1173_14" href="terminal_interface-curses__adb.htm#ref_1000_14">Leave_Cursor_After_Update</a></span> 1191 (<span class="symbol"><a name="ref_1174_7" href="terminal_interface-curses__adb.htm#ref_1001_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1192 <span class="symbol"><a name="ref_1175_7" href="terminal_interface-curses__adb.htm#ref_1002_7">Do_Leave</a></span> : Boolean := True); 1193 <span class="comment"><em>-- AKA: <A HREF="../man/curs_outopts.3x.html">leaveok()</A></em></span> 1194 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1173_14">Leave_Cursor_After_Update</a>); 1195 1196 <span class="comment"><em>-- <A NAME="AFU_58">|</A></em></span> 1197 <b>procedure</b> <span class="symbol"><a name="ref_1180_14" href="terminal_interface-curses__adb.htm#ref_1012_14">Immediate_Update_Mode</a></span> 1198 (<span class="symbol"><a name="ref_1181_7" href="terminal_interface-curses__adb.htm#ref_1013_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1199 <span class="symbol"><a name="ref_1182_7" href="terminal_interface-curses__adb.htm#ref_1014_7">Mode</a></span> : Boolean := False); 1200 <span class="comment"><em>-- AKA: <A HREF="../man/curs_outopts.3x.html">immedok()</A></em></span> 1201 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1180_14">Immediate_Update_Mode</a>); 1202 1203 <span class="comment"><em>-- <A NAME="AFU_59">|</A></em></span> 1204 <b>procedure</b> <span class="symbol"><a name="ref_1187_14" href="terminal_interface-curses__adb.htm#ref_1022_14">Allow_Scrolling</a></span> 1205 (<span class="symbol"><a name="ref_1188_7" href="terminal_interface-curses__adb.htm#ref_1023_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1206 <span class="symbol"><a name="ref_1189_7" href="terminal_interface-curses__adb.htm#ref_1024_7">Mode</a></span> : Boolean := False); 1207 <span class="comment"><em>-- AKA: <A HREF="../man/curs_outopts.3x.html">scrollok()</A></em></span> 1208 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1187_14">Allow_Scrolling</a>); 1209 1210 <b>function</b> <span class="symbol"><a name="ref_1193_13" href="terminal_interface-curses__adb.htm#ref_1034_13">Scrolling_Allowed</a></span> (<span class="symbol"><a name="ref_1193_32" href="terminal_interface-curses__adb.htm#ref_1034_32">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>) <b>return</b> Boolean; 1211 <span class="comment"><em>-- There is no such function in the C interface.</em></span> 1212 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1193_13">Scrolling_Allowed</a>); 1213 1214 <span class="comment"><em>-- <A NAME="AFU_60">|</A></em></span> 1215 <b>procedure</b> <span class="symbol"><a name="ref_1198_14" href="terminal_interface-curses__adb.htm#ref_1043_14">Set_Scroll_Region</a></span> 1216 (<span class="symbol"><a name="ref_1199_7" href="terminal_interface-curses__adb.htm#ref_1044_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1217 <span class="symbol"><a name="ref_1200_7" href="terminal_interface-curses__adb.htm#ref_1045_7">Top_Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1218 <span class="symbol"><a name="ref_1201_7" href="terminal_interface-curses__adb.htm#ref_1046_7">Bottom_Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>); 1219 <span class="comment"><em>-- AKA: <A HREF="../man/curs_outopts.3x.html">wsetscrreg()</A></em></span> 1220 <span class="comment"><em>-- AKA: setscrreg()</em></span> 1221 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1198_14">Set_Scroll_Region</a>); 1222 1223 <span class="comment"><em>-- |=====================================================================</em></span> 1224 <span class="comment"><em>-- | Man page <A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></em></span> 1225 <span class="comment"><em>-- |=====================================================================</em></span> 1226 1227 <span class="comment"><em>-- <A NAME="AFU_61">|</A></em></span> 1228 <b>procedure</b> <span class="symbol"><a name="ref_1211_14" href="terminal_interface-curses__adb.htm#ref_1060_14">Update_Screen</a></span>; 1229 <span class="comment"><em>-- AKA: <A HREF="../man/curs_refresh.3x.html">doupdate()</A></em></span> 1230 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1211_14">Update_Screen</a>); 1231 1232 <span class="comment"><em>-- <A NAME="AFU_62">|</A></em></span> 1233 <b>procedure</b> <span class="symbol"><a name="ref_1216_14" href="terminal_interface-curses__adb.htm#ref_1070_14">Refresh</a></span> (<span class="symbol"><a name="ref_1216_23" href="terminal_interface-curses__adb.htm#ref_1070_23">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1234 <span class="comment"><em>-- AKA: <A HREF="../man/curs_refresh.3x.html">wrefresh()</A></em></span> 1235 <span class="comment"><em>-- There is an overloaded Refresh for Pads.</em></span> 1236 <span class="comment"><em>-- The Inline pragma appears there</em></span> 1237 <span class="comment"><em>-- AKA: refresh()</em></span> 1238 1239 <span class="comment"><em>-- <A NAME="AFU_63">|</A></em></span> 1240 <b>procedure</b> <span class="symbol"><a name="ref_1223_14" href="terminal_interface-curses__adb.htm#ref_1080_14">Refresh_Without_Update</a></span> 1241 (<span class="symbol"><a name="ref_1224_7" href="terminal_interface-curses__adb.htm#ref_1081_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1242 <span class="comment"><em>-- AKA: <A HREF="../man/curs_refresh.3x.html">wnoutrefresh()</A></em></span> 1243 <span class="comment"><em>-- There is an overloaded Refresh_Without_Update for Pads.</em></span> 1244 <span class="comment"><em>-- The Inline pragma appears there</em></span> 1245 1246 <span class="comment"><em>-- <A NAME="AFU_64">|</A></em></span> 1247 <b>procedure</b> <span class="symbol"><a name="ref_1230_14" href="terminal_interface-curses__adb.htm#ref_1091_14">Redraw</a></span> (<span class="symbol"><a name="ref_1230_22" href="terminal_interface-curses__adb.htm#ref_1091_22">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1248 <span class="comment"><em>-- AKA: <A HREF="../man/curs_refresh.3x.html">redrawwin()</A></em></span> 1249 1250 <span class="comment"><em>-- <A NAME="AFU_65">|</A></em></span> 1251 <b>procedure</b> <span class="symbol"><a name="ref_1234_14" href="terminal_interface-curses__adb.htm#ref_1101_14">Redraw</a></span> (<span class="symbol"><a name="ref_1234_22" href="terminal_interface-curses__adb.htm#ref_1102_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1252 <span class="symbol"><a name="ref_1235_22" href="terminal_interface-curses__adb.htm#ref_1103_7">Begin_Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1253 <span class="symbol"><a name="ref_1236_22" href="terminal_interface-curses__adb.htm#ref_1104_7">Line_Count</a></span> : Positive); 1254 <span class="comment"><em>-- AKA: <A HREF="../man/curs_refresh.3x.html">wredrawln()</A></em></span> 1255 <b>pragma</b> Inline (Redraw); 1256 1257 <span class="comment"><em>-- |=====================================================================</em></span> 1258 <span class="comment"><em>-- | Man page <A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></em></span> 1259 <span class="comment"><em>-- |=====================================================================</em></span> 1260 1261 <span class="comment"><em>-- <A NAME="AFU_66">|</A></em></span> 1262 <b>procedure</b> <span class="symbol"><a name="ref_1245_14" href="terminal_interface-curses__adb.htm#ref_1119_14">Erase</a></span> (<span class="symbol"><a name="ref_1245_21" href="terminal_interface-curses__adb.htm#ref_1119_21">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1263 <span class="comment"><em>-- AKA: <A HREF="../man/curs_clear.3x.html">werase()</A></em></span> 1264 <span class="comment"><em>-- AKA: erase()</em></span> 1265 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1245_14">Erase</a>); 1266 1267 <span class="comment"><em>-- <A NAME="AFU_67">|</A></em></span> 1268 <b>procedure</b> <span class="symbol"><a name="ref_1251_14" href="terminal_interface-curses__adb.htm#ref_1129_14">Clear</a></span> 1269 (<span class="symbol"><a name="ref_1252_7" href="terminal_interface-curses__adb.htm#ref_1129_21">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1270 <span class="comment"><em>-- AKA: <A HREF="../man/curs_clear.3x.html">wclear()</A></em></span> 1271 <span class="comment"><em>-- AKA: clear()</em></span> 1272 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1251_14">Clear</a>); 1273 1274 <span class="comment"><em>-- <A NAME="AFU_68">|</A></em></span> 1275 <b>procedure</b> <span class="symbol"><a name="ref_1258_14" href="terminal_interface-curses__adb.htm#ref_1139_14">Clear_To_End_Of_Screen</a></span> 1276 (<span class="symbol"><a name="ref_1259_7" href="terminal_interface-curses__adb.htm#ref_1139_38">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1277 <span class="comment"><em>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtobot()</A></em></span> 1278 <span class="comment"><em>-- AKA: clrtobot()</em></span> 1279 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1258_14">Clear_To_End_Of_Screen</a>); 1280 1281 <span class="comment"><em>-- <A NAME="AFU_69">|</A></em></span> 1282 <b>procedure</b> <span class="symbol"><a name="ref_1265_14" href="terminal_interface-curses__adb.htm#ref_1149_14">Clear_To_End_Of_Line</a></span> 1283 (<span class="symbol"><a name="ref_1266_7" href="terminal_interface-curses__adb.htm#ref_1149_36">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1284 <span class="comment"><em>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtoeol()</A></em></span> 1285 <span class="comment"><em>-- AKA: clrtoeol()</em></span> 1286 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1265_14">Clear_To_End_Of_Line</a>); 1287 1288 <span class="comment"><em>-- |=====================================================================</em></span> 1289 <span class="comment"><em>-- | Man page <A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></em></span> 1290 <span class="comment"><em>-- |=====================================================================</em></span> 1291 1292 <span class="comment"><em>-- <A NAME="AFU_70">|</A></em></span> 1293 <span class="comment"><em>-- TODO: we could have Set_Background(Window; Character_Attribute_Set)</em></span> 1294 <span class="comment"><em>-- because in C it is common to see bkgdset(A_BOLD) or</em></span> 1295 <span class="comment"><em>-- bkgdset(COLOR_PAIR(n))</em></span> 1296 <b>procedure</b> <span class="symbol"><a name="ref_1279_14" href="terminal_interface-curses__adb.htm#ref_1159_14">Set_Background</a></span> 1297 (<span class="symbol"><a name="ref_1280_7" href="terminal_interface-curses__adb.htm#ref_1160_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1298 <span class="symbol"><a name="ref_1281_7" href="terminal_interface-curses__adb.htm#ref_1161_7">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>); 1299 <span class="comment"><em>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdset()</A></em></span> 1300 <span class="comment"><em>-- AKA: bkgdset()</em></span> 1301 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1279_14">Set_Background</a>); 1302 1303 <span class="comment"><em>-- <A NAME="AFU_71">|</A></em></span> 1304 <b>procedure</b> <span class="symbol"><a name="ref_1287_14" href="terminal_interface-curses__adb.htm#ref_1169_14">Change_Background</a></span> 1305 (<span class="symbol"><a name="ref_1288_7" href="terminal_interface-curses__adb.htm#ref_1170_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1306 <span class="symbol"><a name="ref_1289_7" href="terminal_interface-curses__adb.htm#ref_1171_7">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>); 1307 <span class="comment"><em>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgd()</A></em></span> 1308 <span class="comment"><em>-- AKA: bkgd()</em></span> 1309 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1287_14">Change_Background</a>); 1310 1311 <span class="comment"><em>-- <A NAME="AFU_72">|</A></em></span> 1312 <span class="comment"><em>-- ? wbkgdget is not listed in curs_bkgd, getbkgd is thpough.</em></span> 1313 <b>function</b> <span class="symbol"><a name="ref_1296_13" href="terminal_interface-curses__adb.htm#ref_1182_13">Get_Background</a></span> (<span class="symbol"><a name="ref_1296_29" href="terminal_interface-curses__adb.htm#ref_1182_29">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>) 1314 <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>; 1315 <span class="comment"><em>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdget()</A></em></span> 1316 <span class="comment"><em>-- AKA: bkgdget()</em></span> 1317 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1296_13">Get_Background</a>); 1318 1319 <span class="comment"><em>-- |=====================================================================</em></span> 1320 <span class="comment"><em>-- | Man page <A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></em></span> 1321 <span class="comment"><em>-- |=====================================================================</em></span> 1322 1323 <span class="comment"><em>-- <A NAME="AFU_73">|</A></em></span> 1324 <b>procedure</b> <span class="symbol"><a name="ref_1307_14" href="terminal_interface-curses__adb.htm#ref_1219_14">Untouch</a></span> (<span class="symbol"><a name="ref_1307_23" href="terminal_interface-curses__adb.htm#ref_1219_23">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1325 <span class="comment"><em>-- AKA: <A HREF="../man/curs_touch.3x.html">untouchwin()</A></em></span> 1326 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1307_14">Untouch</a>); 1327 1328 <span class="comment"><em>-- <A NAME="AFU_74">|</A></em></span> 1329 <b>procedure</b> <span class="symbol"><a name="ref_1312_14" href="terminal_interface-curses__adb.htm#ref_1209_14">Touch</a></span> (<span class="symbol"><a name="ref_1312_21" href="terminal_interface-curses__adb.htm#ref_1209_21">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1330 <span class="comment"><em>-- AKA: <A HREF="../man/curs_touch.3x.html">touchwin()</A></em></span> 1331 1332 <span class="comment"><em>-- <A NAME="AFU_75">|</A></em></span> 1333 <b>procedure</b> <span class="symbol"><a name="ref_1316_14" href="terminal_interface-curses__adb.htm#ref_1229_14">Touch</a></span> (<span class="symbol"><a name="ref_1316_21" href="terminal_interface-curses__adb.htm#ref_1229_21">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1334 <span class="symbol"><a name="ref_1317_21" href="terminal_interface-curses__adb.htm#ref_1230_21">Start</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1335 <span class="symbol"><a name="ref_1318_21" href="terminal_interface-curses__adb.htm#ref_1231_21">Count</a></span> : Positive); 1336 <span class="comment"><em>-- AKA: <A HREF="../man/curs_touch.3x.html">touchline()</A></em></span> 1337 <b>pragma</b> Inline (Touch); 1338 1339 <span class="comment"><em>-- <A NAME="AFU_76">|</A></em></span> 1340 <b>procedure</b> <span class="symbol"><a name="ref_1323_14" href="terminal_interface-curses__adb.htm#ref_1191_14">Change_Lines_Status</a></span> (<span class="symbol"><a name="ref_1323_35" href="terminal_interface-curses__adb.htm#ref_1191_35">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1341 <span class="symbol"><a name="ref_1324_35" href="terminal_interface-curses__adb.htm#ref_1192_35">Start</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1342 <span class="symbol"><a name="ref_1325_35" href="terminal_interface-curses__adb.htm#ref_1193_35">Count</a></span> : Positive; 1343 <span class="symbol"><a name="ref_1326_35" href="terminal_interface-curses__adb.htm#ref_1194_35">State</a></span> : Boolean); 1344 <span class="comment"><em>-- AKA: <A HREF="../man/curs_touch.3x.html">wtouchln()</A></em></span> 1345 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1323_14">Change_Lines_Status</a>); 1346 1347 <span class="comment"><em>-- <A NAME="AFU_77">|</A></em></span> 1348 <b>function</b> <span class="symbol"><a name="ref_1331_13" href="terminal_interface-curses__adb.htm#ref_1237_13">Is_Touched</a></span> (<span class="symbol"><a name="ref_1331_25" href="terminal_interface-curses__adb.htm#ref_1238_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1349 <span class="symbol"><a name="ref_1332_25" href="terminal_interface-curses__adb.htm#ref_1239_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>) <b>return</b> Boolean; 1350 <span class="comment"><em>-- AKA: <A HREF="../man/curs_touch.3x.html">is_linetouched()</A></em></span> 1351 1352 <span class="comment"><em>-- <A NAME="AFU_78">|</A></em></span> 1353 <b>function</b> <span class="symbol"><a name="ref_1336_13" href="terminal_interface-curses__adb.htm#ref_1251_13">Is_Touched</a></span> (<span class="symbol"><a name="ref_1336_25" href="terminal_interface-curses__adb.htm#ref_1252_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>) <b>return</b> Boolean; 1354 <span class="comment"><em>-- AKA: <A HREF="../man/curs_touch.3x.html">is_wintouched()</A></em></span> 1355 <b>pragma</b> Inline (Is_Touched); 1356 1357 <span class="comment"><em>-- |=====================================================================</em></span> 1358 <span class="comment"><em>-- | Man page <A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></em></span> 1359 <span class="comment"><em>-- |=====================================================================</em></span> 1360 1361 <span class="comment"><em>-- <A NAME="AFU_79">|</A></em></span> 1362 <b>procedure</b> <span class="symbol"><a name="ref_1345_14" href="terminal_interface-curses__adb.htm#ref_1264_14">Copy</a></span> 1363 (<span class="symbol"><a name="ref_1346_7" href="terminal_interface-curses__adb.htm#ref_1265_7">Source_Window</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1364 <span class="symbol"><a name="ref_1347_7" href="terminal_interface-curses__adb.htm#ref_1266_7">Destination_Window</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1365 <span class="symbol"><a name="ref_1348_7" href="terminal_interface-curses__adb.htm#ref_1267_7">Source_Top_Row</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1366 <span class="symbol"><a name="ref_1349_7" href="terminal_interface-curses__adb.htm#ref_1268_7">Source_Left_Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1367 <span class="symbol"><a name="ref_1350_7" href="terminal_interface-curses__adb.htm#ref_1269_7">Destination_Top_Row</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1368 <span class="symbol"><a name="ref_1351_7" href="terminal_interface-curses__adb.htm#ref_1270_7">Destination_Left_Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1369 <span class="symbol"><a name="ref_1352_7" href="terminal_interface-curses__adb.htm#ref_1271_7">Destination_Bottom_Row</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1370 <span class="symbol"><a name="ref_1353_7" href="terminal_interface-curses__adb.htm#ref_1272_7">Destination_Right_Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1371 <span class="symbol"><a name="ref_1354_7" href="terminal_interface-curses__adb.htm#ref_1273_7">Non_Destructive_Mode</a></span> : Boolean := True); 1372 <span class="comment"><em>-- AKA: <A HREF="../man/curs_overlay.3x.html">copywin()</A></em></span> 1373 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1345_14">Copy</a>); 1374 1375 <span class="comment"><em>-- <A NAME="AFU_80">|</A></em></span> 1376 <b>procedure</b> <span class="symbol"><a name="ref_1359_14" href="terminal_interface-curses__adb.htm#ref_1301_14">Overwrite</a></span> (<span class="symbol"><a name="ref_1359_25" href="terminal_interface-curses__adb.htm#ref_1302_7">Source_Window</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1377 <span class="symbol"><a name="ref_1360_25" href="terminal_interface-curses__adb.htm#ref_1303_7">Destination_Window</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>); 1378 <span class="comment"><em>-- AKA: <A HREF="../man/curs_overlay.3x.html">overwrite()</A></em></span> 1379 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1359_14">Overwrite</a>); 1380 1381 <span class="comment"><em>-- <A NAME="AFU_81">|</A></em></span> 1382 <b>procedure</b> <span class="symbol"><a name="ref_1365_14" href="terminal_interface-curses__adb.htm#ref_1313_14">Overlay</a></span> (<span class="symbol"><a name="ref_1365_23" href="terminal_interface-curses__adb.htm#ref_1314_7">Source_Window</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1383 <span class="symbol"><a name="ref_1366_23" href="terminal_interface-curses__adb.htm#ref_1315_7">Destination_Window</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>); 1384 <span class="comment"><em>-- AKA: <A HREF="../man/curs_overlay.3x.html">overlay()</A></em></span> 1385 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1365_14">Overlay</a>); 1386 1387 <span class="comment"><em>-- |=====================================================================</em></span> 1388 <span class="comment"><em>-- | Man page <A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></em></span> 1389 <span class="comment"><em>-- |=====================================================================</em></span> 1390 1391 <span class="comment"><em>-- <A NAME="AFU_82">|</A></em></span> 1392 <b>procedure</b> <span class="symbol"><a name="ref_1375_14" href="terminal_interface-curses__adb.htm#ref_1326_14">Insert_Delete_Lines</a></span> 1393 (<span class="symbol"><a name="ref_1376_7" href="terminal_interface-curses__adb.htm#ref_1327_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1394 <span class="symbol"><a name="ref_1377_7" href="terminal_interface-curses__adb.htm#ref_1328_7">Lines</a></span> : Integer := 1); <span class="comment"><em>-- default is to insert one line above</em></span> 1395 <span class="comment"><em>-- AKA: <A HREF="../man/curs_deleteln.3x.html">winsdelln()</A></em></span> 1396 <span class="comment"><em>-- AKA: insdelln()</em></span> 1397 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1375_14">Insert_Delete_Lines</a>); 1398 1399 <span class="comment"><em>-- <A NAME="AFU_83">|</A></em></span> 1400 <b>procedure</b> <span class="symbol"><a name="ref_1383_14" href="terminal_interface-curses__adb.htm#ref_1338_14">Delete_Line</a></span> (<span class="symbol"><a name="ref_1383_27" href="terminal_interface-curses__adb.htm#ref_1338_27">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1401 <span class="comment"><em>-- AKA: <A HREF="../man/curs_deleteln.3x.html">wdeleteln()</A></em></span> 1402 <span class="comment"><em>-- AKA: deleteln()</em></span> 1403 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1383_14">Delete_Line</a>); 1404 1405 <span class="comment"><em>-- <A NAME="AFU_84">|</A></em></span> 1406 <b>procedure</b> <span class="symbol"><a name="ref_1389_14" href="terminal_interface-curses__adb.htm#ref_1344_14">Insert_Line</a></span> (<span class="symbol"><a name="ref_1389_27" href="terminal_interface-curses__adb.htm#ref_1344_27">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1407 <span class="comment"><em>-- AKA: <A HREF="../man/curs_deleteln.3x.html">winsertln()</A></em></span> 1408 <span class="comment"><em>-- AKA: insertln()</em></span> 1409 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1389_14">Insert_Line</a>); 1410 1411 <span class="comment"><em>-- |=====================================================================</em></span> 1412 <span class="comment"><em>-- | Man page <A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></em></span> 1413 <span class="comment"><em>-- |=====================================================================</em></span> 1414 1415 <span class="comment"><em>-- <A NAME="AFU_85">|</A></em></span> 1416 <b>procedure</b> <span class="symbol"><a name="ref_1399_14" href="terminal_interface-curses__adb.htm#ref_1351_14">Get_Size</a></span> 1417 (<span class="symbol"><a name="ref_1400_7" href="terminal_interface-curses__adb.htm#ref_1352_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1418 <span class="symbol"><a name="ref_1401_7" href="terminal_interface-curses__adb.htm#ref_1353_7">Number_Of_Lines</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_62_12">Line_Count</a>; 1419 <span class="symbol"><a name="ref_1402_7" href="terminal_interface-curses__adb.htm#ref_1354_7">Number_Of_Columns</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>); 1420 <span class="comment"><em>-- AKA: <A HREF="../man/curs_getyx.3x.html">getmaxyx()</A></em></span> 1421 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1399_14">Get_Size</a>); 1422 1423 <span class="comment"><em>-- <A NAME="AFU_86">|</A></em></span> 1424 <b>procedure</b> <span class="symbol"><a name="ref_1407_14" href="terminal_interface-curses__adb.htm#ref_1369_14">Get_Window_Position</a></span> 1425 (<span class="symbol"><a name="ref_1408_7" href="terminal_interface-curses__adb.htm#ref_1370_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1426 <span class="symbol"><a name="ref_1409_7" href="terminal_interface-curses__adb.htm#ref_1371_7">Top_Left_Line</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1427 <span class="symbol"><a name="ref_1410_7" href="terminal_interface-curses__adb.htm#ref_1372_7">Top_Left_Column</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>); 1428 <span class="comment"><em>-- AKA: <A HREF="../man/curs_getyx.3x.html">getbegyx()</A></em></span> 1429 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1407_14">Get_Window_Position</a>); 1430 1431 <span class="comment"><em>-- <A NAME="AFU_87">|</A></em></span> 1432 <b>procedure</b> <span class="symbol"><a name="ref_1415_14" href="terminal_interface-curses__adb.htm#ref_1387_14">Get_Cursor_Position</a></span> 1433 (<span class="symbol"><a name="ref_1416_7" href="terminal_interface-curses__adb.htm#ref_1388_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1434 <span class="symbol"><a name="ref_1417_7" href="terminal_interface-curses__adb.htm#ref_1389_7">Line</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1435 <span class="symbol"><a name="ref_1418_7" href="terminal_interface-curses__adb.htm#ref_1390_7">Column</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>); 1436 <span class="comment"><em>-- AKA: <A HREF="../man/curs_getyx.3x.html">getyx()</A></em></span> 1437 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1415_14">Get_Cursor_Position</a>); 1438 1439 <span class="comment"><em>-- <A NAME="AFU_88">|</A></em></span> 1440 <b>procedure</b> <span class="symbol"><a name="ref_1423_14" href="terminal_interface-curses__adb.htm#ref_1405_14">Get_Origin_Relative_To_Parent</a></span> 1441 (<span class="symbol"><a name="ref_1424_7" href="terminal_interface-curses__adb.htm#ref_1406_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1442 <span class="symbol"><a name="ref_1425_7" href="terminal_interface-curses__adb.htm#ref_1407_7">Top_Left_Line</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1443 <span class="symbol"><a name="ref_1426_7" href="terminal_interface-curses__adb.htm#ref_1408_7">Top_Left_Column</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1444 <span class="symbol"><a name="ref_1427_7" href="terminal_interface-curses__adb.htm#ref_1409_7">Is_Not_A_Subwindow</a></span> : <b>out</b> Boolean); 1445 <span class="comment"><em>-- AKA: <A HREF="../man/curs_getyx.3x.html">getparyx()</A></em></span> 1446 <span class="comment"><em>-- Instead of placing -1 in the coordinates as return, we use a Boolean</em></span> 1447 <span class="comment"><em>-- to return the info that the window has no parent.</em></span> 1448 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1423_14">Get_Origin_Relative_To_Parent</a>); 1449 1450 <span class="comment"><em>-- |=====================================================================</em></span> 1451 <span class="comment"><em>-- | Man page <A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></em></span> 1452 <span class="comment"><em>-- |=====================================================================</em></span> 1453 1454 <span class="comment"><em>-- <A NAME="AFU_89">|</A></em></span> 1455 <b>function</b> <span class="symbol"><a name="ref_1438_13" href="terminal_interface-curses__adb.htm#ref_1431_13">New_Pad</a></span> (<span class="symbol"><a name="ref_1438_22" href="terminal_interface-curses__adb.htm#ref_1431_22">Lines</a></span> : <a href="terminal_interface-curses__ads.htm#ref_62_12">Line_Count</a>; 1456 <span class="symbol"><a name="ref_1439_22" href="terminal_interface-curses__adb.htm#ref_1432_22">Columns</a></span> : <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1457 <span class="comment"><em>-- AKA: <A HREF="../man/curs_pad.3x.html">newpad()</A></em></span> 1458 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1438_13">New_Pad</a>); 1459 1460 <span class="comment"><em>-- <A NAME="AFU_90">|</A></em></span> 1461 <b>function</b> <span class="symbol"><a name="ref_1444_13" href="terminal_interface-curses__adb.htm#ref_1446_13">Sub_Pad</a></span> 1462 (<span class="symbol"><a name="ref_1445_7" href="terminal_interface-curses__adb.htm#ref_1447_7">Pad</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1463 <span class="symbol"><a name="ref_1446_7" href="terminal_interface-curses__adb.htm#ref_1448_7">Number_Of_Lines</a></span> : <a href="terminal_interface-curses__ads.htm#ref_62_12">Line_Count</a>; 1464 <span class="symbol"><a name="ref_1447_7" href="terminal_interface-curses__adb.htm#ref_1449_7">Number_Of_Columns</a></span> : <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>; 1465 <span class="symbol"><a name="ref_1448_7" href="terminal_interface-curses__adb.htm#ref_1450_7">First_Line_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1466 <span class="symbol"><a name="ref_1449_7" href="terminal_interface-curses__adb.htm#ref_1451_7">First_Column_Position</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1467 <span class="comment"><em>-- AKA: <A HREF="../man/curs_pad.3x.html">subpad()</A></em></span> 1468 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1444_13">Sub_Pad</a>); 1469 1470 <span class="comment"><em>-- <A NAME="AFU_91">|</A></em></span> 1471 <b>procedure</b> <span class="symbol"><a name="ref_1454_14" href="terminal_interface-curses__adb.htm#ref_1474_14">Refresh</a></span> 1472 (<span class="symbol"><a name="ref_1455_7" href="terminal_interface-curses__adb.htm#ref_1475_7">Pad</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1473 <span class="symbol"><a name="ref_1456_7" href="terminal_interface-curses__adb.htm#ref_1476_7">Source_Top_Row</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1474 <span class="symbol"><a name="ref_1457_7" href="terminal_interface-curses__adb.htm#ref_1477_7">Source_Left_Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1475 <span class="symbol"><a name="ref_1458_7" href="terminal_interface-curses__adb.htm#ref_1478_7">Destination_Top_Row</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1476 <span class="symbol"><a name="ref_1459_7" href="terminal_interface-curses__adb.htm#ref_1479_7">Destination_Left_Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1477 <span class="symbol"><a name="ref_1460_7" href="terminal_interface-curses__adb.htm#ref_1480_7">Destination_Bottom_Row</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1478 <span class="symbol"><a name="ref_1461_7" href="terminal_interface-curses__adb.htm#ref_1481_7">Destination_Right_Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>); 1479 <span class="comment"><em>-- AKA: <A HREF="../man/curs_pad.3x.html">prefresh()</A></em></span> 1480 <b>pragma</b> Inline (Refresh); 1481 1482 <span class="comment"><em>-- <A NAME="AFU_92">|</A></em></span> 1483 <b>procedure</b> <span class="symbol"><a name="ref_1466_14" href="terminal_interface-curses__adb.htm#ref_1505_14">Refresh_Without_Update</a></span> 1484 (<span class="symbol"><a name="ref_1467_7" href="terminal_interface-curses__adb.htm#ref_1506_7">Pad</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1485 <span class="symbol"><a name="ref_1468_7" href="terminal_interface-curses__adb.htm#ref_1507_7">Source_Top_Row</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1486 <span class="symbol"><a name="ref_1469_7" href="terminal_interface-curses__adb.htm#ref_1508_7">Source_Left_Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1487 <span class="symbol"><a name="ref_1470_7" href="terminal_interface-curses__adb.htm#ref_1509_7">Destination_Top_Row</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1488 <span class="symbol"><a name="ref_1471_7" href="terminal_interface-curses__adb.htm#ref_1510_7">Destination_Left_Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1489 <span class="symbol"><a name="ref_1472_7" href="terminal_interface-curses__adb.htm#ref_1511_7">Destination_Bottom_Row</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1490 <span class="symbol"><a name="ref_1473_7" href="terminal_interface-curses__adb.htm#ref_1512_7">Destination_Right_Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>); 1491 <span class="comment"><em>-- AKA: <A HREF="../man/curs_pad.3x.html">pnoutrefresh()</A></em></span> 1492 <b>pragma</b> Inline (Refresh_Without_Update); 1493 1494 <span class="comment"><em>-- <A NAME="AFU_93">|</A></em></span> 1495 <b>procedure</b> <span class="symbol"><a name="ref_1478_14" href="terminal_interface-curses__adb.htm#ref_1536_14">Add_Character_To_Pad_And_Echo_It</a></span> 1496 (<span class="symbol"><a name="ref_1479_7" href="terminal_interface-curses__adb.htm#ref_1537_7">Pad</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1497 <span class="symbol"><a name="ref_1480_7" href="terminal_interface-curses__adb.htm#ref_1538_7">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>); 1498 <span class="comment"><em>-- AKA: <A HREF="../man/curs_pad.3x.html">pechochar()</A></em></span> 1499 1500 <b>procedure</b> <span class="symbol"><a name="ref_1483_14" href="terminal_interface-curses__adb.htm#ref_1549_14">Add_Character_To_Pad_And_Echo_It</a></span> 1501 (<span class="symbol"><a name="ref_1484_7" href="terminal_interface-curses__adb.htm#ref_1550_7">Pad</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1502 <span class="symbol"><a name="ref_1485_7" href="terminal_interface-curses__adb.htm#ref_1551_7">Ch</a></span> : Character); 1503 <b>pragma</b> Inline (Add_Character_To_Pad_And_Echo_It); 1504 1505 <span class="comment"><em>-- |=====================================================================</em></span> 1506 <span class="comment"><em>-- | Man page <A HREF="../man/curs_scroll.3x.html">curs_scroll.3x</A></em></span> 1507 <span class="comment"><em>-- |=====================================================================</em></span> 1508 1509 <span class="comment"><em>-- <A NAME="AFU_94">|</A></em></span> 1510 <b>procedure</b> <span class="symbol"><a name="ref_1493_14" href="terminal_interface-curses__adb.htm#ref_1561_14">Scroll</a></span> (<span class="symbol"><a name="ref_1493_22" href="terminal_interface-curses__adb.htm#ref_1561_22">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1511 <span class="symbol"><a name="ref_1494_22" href="terminal_interface-curses__adb.htm#ref_1562_22">Amount</a></span> : Integer := 1); 1512 <span class="comment"><em>-- AKA: <A HREF="../man/curs_scroll.3x.html">wscrl()</A></em></span> 1513 <span class="comment"><em>-- AKA: scroll()</em></span> 1514 <span class="comment"><em>-- AKA: scrl()</em></span> 1515 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1493_14">Scroll</a>); 1516 1517 <span class="comment"><em>-- |=====================================================================</em></span> 1518 <span class="comment"><em>-- | Man page <A HREF="../man/curs_delch.3x.html">curs_delch.3x</A></em></span> 1519 <span class="comment"><em>-- |=====================================================================</em></span> 1520 1521 <span class="comment"><em>-- <A NAME="AFU_95">|</A></em></span> 1522 <b>procedure</b> <span class="symbol"><a name="ref_1505_14" href="terminal_interface-curses__adb.htm#ref_1574_14">Delete_Character</a></span> (<span class="symbol"><a name="ref_1505_32" href="terminal_interface-curses__adb.htm#ref_1574_32">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>); 1523 <span class="comment"><em>-- AKA: <A HREF="../man/curs_delch.3x.html">wdelch()</A></em></span> 1524 <span class="comment"><em>-- AKA: delch()</em></span> 1525 1526 <span class="comment"><em>-- <A NAME="AFU_96">|</A></em></span> 1527 <b>procedure</b> <span class="symbol"><a name="ref_1510_14" href="terminal_interface-curses__adb.htm#ref_1584_14">Delete_Character</a></span> 1528 (<span class="symbol"><a name="ref_1511_7" href="terminal_interface-curses__adb.htm#ref_1585_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1529 <span class="symbol"><a name="ref_1512_7" href="terminal_interface-curses__adb.htm#ref_1586_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1530 <span class="symbol"><a name="ref_1513_7" href="terminal_interface-curses__adb.htm#ref_1587_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>); 1531 <span class="comment"><em>-- AKA: <A HREF="../man/curs_delch.3x.html">mvwdelch()</A></em></span> 1532 <span class="comment"><em>-- AKA: mvdelch()</em></span> 1533 <b>pragma</b> Inline (Delete_Character); 1534 1535 <span class="comment"><em>-- |=====================================================================</em></span> 1536 <span class="comment"><em>-- | Man page <A HREF="../man/curs_inch.3x.html">curs_inch.3x</A></em></span> 1537 <span class="comment"><em>-- |=====================================================================</em></span> 1538 1539 <span class="comment"><em>-- <A NAME="AFU_97">|</A></em></span> 1540 <b>function</b> <span class="symbol"><a name="ref_1523_13" href="terminal_interface-curses__adb.htm#ref_1599_13">Peek</a></span> (<span class="symbol"><a name="ref_1523_19" href="terminal_interface-curses__adb.htm#ref_1599_19">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>) 1541 <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>; 1542 <span class="comment"><em>-- AKA: inch()</em></span> 1543 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inch.3x.html">winch()</A></em></span> 1544 1545 <span class="comment"><em>-- <A NAME="AFU_98">|</A></em></span> 1546 <b>function</b> <span class="symbol"><a name="ref_1529_13" href="terminal_interface-curses__adb.htm#ref_1608_13">Peek</a></span> 1547 (<span class="symbol"><a name="ref_1530_7" href="terminal_interface-curses__adb.htm#ref_1609_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1548 <span class="symbol"><a name="ref_1531_7" href="terminal_interface-curses__adb.htm#ref_1610_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1549 <span class="symbol"><a name="ref_1532_7" href="terminal_interface-curses__adb.htm#ref_1611_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>) <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>; 1550 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inch.3x.html">mvwinch()</A></em></span> 1551 <span class="comment"><em>-- AKA: mvinch()</em></span> 1552 <span class="comment"><em>-- More Peek's follow, pragma Inline appears later.</em></span> 1553 1554 <span class="comment"><em>-- |=====================================================================</em></span> 1555 <span class="comment"><em>-- | Man page <A HREF="../man/curs_insch.3x.html">curs_insch.3x</A></em></span> 1556 <span class="comment"><em>-- |=====================================================================</em></span> 1557 1558 <span class="comment"><em>-- <A NAME="AFU_99">|</A></em></span> 1559 <b>procedure</b> <span class="symbol"><a name="ref_1542_14" href="terminal_interface-curses__adb.htm#ref_1621_14">Insert</a></span> (<span class="symbol"><a name="ref_1542_22" href="terminal_interface-curses__adb.htm#ref_1621_22">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1560 <span class="symbol"><a name="ref_1543_22" href="terminal_interface-curses__adb.htm#ref_1622_22">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>); 1561 <span class="comment"><em>-- AKA: <A HREF="../man/curs_insch.3x.html">winsch()</A></em></span> 1562 <span class="comment"><em>-- AKA: insch()</em></span> 1563 1564 <span class="comment"><em>-- <A NAME="AFU_100">|</A></em></span> 1565 <b>procedure</b> <span class="symbol"><a name="ref_1548_14" href="terminal_interface-curses__adb.htm#ref_1632_14">Insert</a></span> (<span class="symbol"><a name="ref_1548_22" href="terminal_interface-curses__adb.htm#ref_1633_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1566 <span class="symbol"><a name="ref_1549_22" href="terminal_interface-curses__adb.htm#ref_1634_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1567 <span class="symbol"><a name="ref_1550_22" href="terminal_interface-curses__adb.htm#ref_1635_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1568 <span class="symbol"><a name="ref_1551_22" href="terminal_interface-curses__adb.htm#ref_1636_7">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>); 1569 <span class="comment"><em>-- AKA: <A HREF="../man/curs_insch.3x.html">mvwinsch()</A></em></span> 1570 <span class="comment"><em>-- AKA: mvinsch()</em></span> 1571 1572 <span class="comment"><em>-- |=====================================================================</em></span> 1573 <span class="comment"><em>-- | Man page <A HREF="../man/curs_insstr.3x.html">curs_insstr.3x</A></em></span> 1574 <span class="comment"><em>-- |=====================================================================</em></span> 1575 1576 <span class="comment"><em>-- <A NAME="AFU_101">|</A></em></span> 1577 <b>procedure</b> <span class="symbol"><a name="ref_1560_14" href="terminal_interface-curses__adb.htm#ref_1653_14">Insert</a></span> (<span class="symbol"><a name="ref_1560_22" href="terminal_interface-curses__adb.htm#ref_1653_22">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1578 <span class="symbol"><a name="ref_1561_22" href="terminal_interface-curses__adb.htm#ref_1654_22">Str</a></span> : String; 1579 <span class="symbol"><a name="ref_1562_22" href="terminal_interface-curses__adb.htm#ref_1655_22">Len</a></span> : Integer := -1); 1580 <span class="comment"><em>-- AKA: <A HREF="../man/curs_insstr.3x.html">winsnstr()</A></em></span> 1581 <span class="comment"><em>-- AKA: winsstr()</em></span> 1582 <span class="comment"><em>-- AKA: insnstr()</em></span> 1583 <span class="comment"><em>-- AKA: insstr()</em></span> 1584 1585 <span class="comment"><em>-- <A NAME="AFU_102">|</A></em></span> 1586 <b>procedure</b> <span class="symbol"><a name="ref_1569_14" href="terminal_interface-curses__adb.htm#ref_1671_14">Insert</a></span> (<span class="symbol"><a name="ref_1569_22" href="terminal_interface-curses__adb.htm#ref_1672_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1587 <span class="symbol"><a name="ref_1570_22" href="terminal_interface-curses__adb.htm#ref_1673_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1588 <span class="symbol"><a name="ref_1571_22" href="terminal_interface-curses__adb.htm#ref_1674_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1589 <span class="symbol"><a name="ref_1572_22" href="terminal_interface-curses__adb.htm#ref_1675_7">Str</a></span> : String; 1590 <span class="symbol"><a name="ref_1573_22" href="terminal_interface-curses__adb.htm#ref_1676_7">Len</a></span> : Integer := -1); 1591 <span class="comment"><em>-- AKA: <A HREF="../man/curs_insstr.3x.html">mvwinsnstr()</A></em></span> 1592 <span class="comment"><em>-- AKA: mvwinsstr()</em></span> 1593 <span class="comment"><em>-- AKA: mvinsnstr()</em></span> 1594 <span class="comment"><em>-- AKA: mvinsstr()</em></span> 1595 <b>pragma</b> Inline (Insert); 1596 1597 <span class="comment"><em>-- |=====================================================================</em></span> 1598 <span class="comment"><em>-- | Man page <A HREF="../man/curs_instr.3x.html">curs_instr.3x</A></em></span> 1599 <span class="comment"><em>-- |=====================================================================</em></span> 1600 1601 <span class="comment"><em>-- <A NAME="AFU_103">|</A></em></span> 1602 <b>procedure</b> <span class="symbol"><a name="ref_1585_14" href="terminal_interface-curses__adb.htm#ref_1696_14">Peek</a></span> (<span class="symbol"><a name="ref_1585_20" href="terminal_interface-curses__adb.htm#ref_1696_20">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1603 <span class="symbol"><a name="ref_1586_20" href="terminal_interface-curses__adb.htm#ref_1697_20">Str</a></span> : <b>out</b> String; 1604 <span class="symbol"><a name="ref_1587_20" href="terminal_interface-curses__adb.htm#ref_1698_20">Len</a></span> : Integer := -1); 1605 <span class="comment"><em>-- AKA: <A HREF="../man/curs_instr.3x.html">winnstr()</A></em></span> 1606 <span class="comment"><em>-- AKA: winstr()</em></span> 1607 <span class="comment"><em>-- AKA: innstr()</em></span> 1608 <span class="comment"><em>-- AKA: instr()</em></span> 1609 1610 <span class="comment"><em>-- <A NAME="AFU_104">|</A></em></span> 1611 <b>procedure</b> <span class="symbol"><a name="ref_1594_14" href="terminal_interface-curses__adb.htm#ref_1725_14">Peek</a></span> (<span class="symbol"><a name="ref_1594_20" href="terminal_interface-curses__adb.htm#ref_1726_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1612 <span class="symbol"><a name="ref_1595_20" href="terminal_interface-curses__adb.htm#ref_1727_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1613 <span class="symbol"><a name="ref_1596_20" href="terminal_interface-curses__adb.htm#ref_1728_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1614 <span class="symbol"><a name="ref_1597_20" href="terminal_interface-curses__adb.htm#ref_1729_7">Str</a></span> : <b>out</b> String; 1615 <span class="symbol"><a name="ref_1598_20" href="terminal_interface-curses__adb.htm#ref_1730_7">Len</a></span> : Integer := -1); 1616 <span class="comment"><em>-- AKA: <A HREF="../man/curs_instr.3x.html">mvwinnstr()</A></em></span> 1617 <span class="comment"><em>-- AKA: mvwinstr()</em></span> 1618 <span class="comment"><em>-- AKA: mvinnstr()</em></span> 1619 <span class="comment"><em>-- AKA: mvinstr()</em></span> 1620 1621 <span class="comment"><em>-- |=====================================================================</em></span> 1622 <span class="comment"><em>-- | Man page <A HREF="../man/curs_inchstr.3x.html">curs_inchstr.3x</A></em></span> 1623 <span class="comment"><em>-- |=====================================================================</em></span> 1624 1625 <span class="comment"><em>-- <A NAME="AFU_105">|</A></em></span> 1626 <b>procedure</b> <span class="symbol"><a name="ref_1609_14" href="terminal_interface-curses__adb.htm#ref_1737_14">Peek</a></span> (<span class="symbol"><a name="ref_1609_20" href="terminal_interface-curses__adb.htm#ref_1738_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1627 <span class="symbol"><a name="ref_1610_20" href="terminal_interface-curses__adb.htm#ref_1739_7">Str</a></span> : <b>out</b> Attributed_String; 1628 <span class="symbol"><a name="ref_1611_20" href="terminal_interface-curses__adb.htm#ref_1740_7">Len</a></span> : Integer := -1); 1629 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inchstr.3x.html">winchnstr()</A></em></span> 1630 <span class="comment"><em>-- AKA: winchstr()</em></span> 1631 <span class="comment"><em>-- AKA: inchnstr()</em></span> 1632 <span class="comment"><em>-- AKA: inchstr()</em></span> 1633 1634 <span class="comment"><em>-- <A NAME="AFU_106">|</A></em></span> 1635 <b>procedure</b> <span class="symbol"><a name="ref_1618_14" href="terminal_interface-curses__adb.htm#ref_1774_14">Peek</a></span> (<span class="symbol"><a name="ref_1618_20" href="terminal_interface-curses__adb.htm#ref_1775_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1636 <span class="symbol"><a name="ref_1619_20" href="terminal_interface-curses__adb.htm#ref_1776_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1637 <span class="symbol"><a name="ref_1620_20" href="terminal_interface-curses__adb.htm#ref_1777_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1638 <span class="symbol"><a name="ref_1621_20" href="terminal_interface-curses__adb.htm#ref_1778_7">Str</a></span> : <b>out</b> Attributed_String; 1639 <span class="symbol"><a name="ref_1622_20" href="terminal_interface-curses__adb.htm#ref_1779_7">Len</a></span> : Integer := -1); 1640 <span class="comment"><em>-- AKA: <A HREF="../man/curs_inchstr.3x.html">mvwinchnstr()</A></em></span> 1641 <span class="comment"><em>-- AKA: mvwinchstr()</em></span> 1642 <span class="comment"><em>-- AKA: mvinchnstr()</em></span> 1643 <span class="comment"><em>-- AKA: mvinchstr()</em></span> 1644 <span class="comment"><em>-- We do not inline the Peek procedures</em></span> 1645 1646 <span class="comment"><em>-- |=====================================================================</em></span> 1647 <span class="comment"><em>-- | Man page <A HREF="../man/curs_getstr.3x.html">curs_getstr.3x</A></em></span> 1648 <span class="comment"><em>-- |=====================================================================</em></span> 1649 1650 <span class="comment"><em>-- <A NAME="AFU_107">|</A></em></span> 1651 <b>procedure</b> <span class="symbol"><a name="ref_1634_14" href="terminal_interface-curses__adb.htm#ref_1786_14">Get</a></span> (<span class="symbol"><a name="ref_1634_19" href="terminal_interface-curses__adb.htm#ref_1786_19">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1652 <span class="symbol"><a name="ref_1635_19" href="terminal_interface-curses__adb.htm#ref_1787_19">Str</a></span> : <b>out</b> String; 1653 <span class="symbol"><a name="ref_1636_19" href="terminal_interface-curses__adb.htm#ref_1788_19">Len</a></span> : Integer := -1); 1654 <span class="comment"><em>-- AKA: <A HREF="../man/curs_getstr.3x.html">wgetnstr()</A></em></span> 1655 <span class="comment"><em>-- AKA: wgetstr()</em></span> 1656 <span class="comment"><em>-- AKA: getnstr()</em></span> 1657 <span class="comment"><em>-- AKA: getstr()</em></span> 1658 <span class="comment"><em>-- actually getstr is not supported because that results in buffer</em></span> 1659 <span class="comment"><em>-- overflows.</em></span> 1660 1661 <span class="comment"><em>-- <A NAME="AFU_108">|</A></em></span> 1662 <b>procedure</b> <span class="symbol"><a name="ref_1645_14" href="terminal_interface-curses__adb.htm#ref_1815_14">Get</a></span> (<span class="symbol"><a name="ref_1645_19" href="terminal_interface-curses__adb.htm#ref_1816_7">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 1663 <span class="symbol"><a name="ref_1646_19" href="terminal_interface-curses__adb.htm#ref_1817_7">Line</a></span> : <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 1664 <span class="symbol"><a name="ref_1647_19" href="terminal_interface-curses__adb.htm#ref_1818_7">Column</a></span> : <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 1665 <span class="symbol"><a name="ref_1648_19" href="terminal_interface-curses__adb.htm#ref_1819_7">Str</a></span> : <b>out</b> String; 1666 <span class="symbol"><a name="ref_1649_19" href="terminal_interface-curses__adb.htm#ref_1820_7">Len</a></span> : Integer := -1); 1667 <span class="comment"><em>-- AKA: <A HREF="../man/curs_getstr.3x.html">mvwgetnstr()</A></em></span> 1668 <span class="comment"><em>-- AKA: mvwgetstr()</em></span> 1669 <span class="comment"><em>-- AKA: mvgetnstr()</em></span> 1670 <span class="comment"><em>-- AKA: mvgetstr()</em></span> 1671 <span class="comment"><em>-- Get is not inlined</em></span> 1672 1673 <span class="comment"><em>-- |=====================================================================</em></span> 1674 <span class="comment"><em>-- | Man page <A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></em></span> 1675 <span class="comment"><em>-- |=====================================================================</em></span> 1676 1677 <span class="comment"><em>-- Not Implemented: slk_attr_on, slk_attr_off, slk_attr_set</em></span> 1678 1679 <b>type</b> <span class="symbol"><a name="ref_1662_9">Soft_Label_Key_Format</a></span> <b>is</b> (<span class="symbol"><a name="ref_1662_35">Three_Two_Three</a></span>, 1680 <span class="symbol"><a name="ref_1663_35">Four_Four</a></span>, 1681 <span class="symbol"><a name="ref_1664_35">PC_Style</a></span>, <span class="comment"><em>-- ncurses specific</em></span> 1682 <span class="symbol"><a name="ref_1665_35">PC_Style_With_Index</a></span>); <span class="comment"><em>-- "</em></span> 1683 <b>type</b> <span class="symbol"><a name="ref_1666_9">Label_Number</a></span> <b>is</b> <b>new</b> Positive <b>range</b> 1 .. 12; 1684 <b>type</b> <span class="symbol"><a name="ref_1667_9">Label_Justification</a></span> <b>is</b> (<span class="symbol"><a name="ref_1667_33">Left</a></span>, <span class="symbol"><a name="ref_1667_39">Centered</a></span>, <span class="symbol"><a name="ref_1667_49">Right</a></span>); 1685 1686 <span class="comment"><em>-- <A NAME="AFU_109">|</A></em></span> 1687 <b>procedure</b> <span class="symbol"><a name="ref_1670_14" href="terminal_interface-curses__adb.htm#ref_1827_14">Init_Soft_Label_Keys</a></span> 1688 (<span class="symbol"><a name="ref_1671_7" href="terminal_interface-curses__adb.htm#ref_1828_7">Format</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1662_9">Soft_Label_Key_Format</a> := <a href="terminal_interface-curses__ads.htm#ref_1662_35">Three_Two_Three</a>); 1689 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_init()</A></em></span> 1690 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1670_14">Init_Soft_Label_Keys</a>); 1691 1692 <span class="comment"><em>-- <A NAME="AFU_110">|</A></em></span> 1693 <b>procedure</b> <span class="symbol"><a name="ref_1676_14" href="terminal_interface-curses__adb.htm#ref_1838_14">Set_Soft_Label_Key</a></span> (<span class="symbol"><a name="ref_1676_34" href="terminal_interface-curses__adb.htm#ref_1838_34">Label</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1666_9">Label_Number</a>; 1694 <span class="symbol"><a name="ref_1677_34" href="terminal_interface-curses__adb.htm#ref_1839_34">Text</a></span> : String; 1695 <span class="symbol"><a name="ref_1678_34" href="terminal_interface-curses__adb.htm#ref_1840_34">Fmt</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1667_9">Label_Justification</a> := <a href="terminal_interface-curses__ads.htm#ref_1667_33">Left</a>); 1696 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_set()</A></em></span> 1697 <span class="comment"><em>-- We do not inline this procedure</em></span> 1698 1699 <span class="comment"><em>-- <A NAME="AFU_111">|</A></em></span> 1700 <b>procedure</b> <span class="symbol"><a name="ref_1683_14" href="terminal_interface-curses__adb.htm#ref_1858_14">Refresh_Soft_Label_Keys</a></span>; 1701 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_refresh()</A></em></span> 1702 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1683_14">Refresh_Soft_Label_Keys</a>); 1703 1704 <span class="comment"><em>-- <A NAME="AFU_112">|</A></em></span> 1705 <b>procedure</b> <span class="symbol"><a name="ref_1688_14" href="terminal_interface-curses__adb.htm#ref_1868_14">Refresh_Soft_Label_Keys_Without_Update</a></span>; 1706 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_noutrefresh()</A></em></span> 1707 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1688_14">Refresh_Soft_Label_Keys_Without_Update</a>); 1708 1709 <span class="comment"><em>-- <A NAME="AFU_113">|</A></em></span> 1710 <b>procedure</b> <span class="symbol"><a name="ref_1693_14" href="terminal_interface-curses__adb.htm#ref_1878_14">Get_Soft_Label_Key</a></span> (<span class="symbol"><a name="ref_1693_34" href="terminal_interface-curses__adb.htm#ref_1878_34">Label</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1666_9">Label_Number</a>; 1711 <span class="symbol"><a name="ref_1694_34" href="terminal_interface-curses__adb.htm#ref_1879_34">Text</a></span> : <b>out</b> String); 1712 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></em></span> 1713 1714 <span class="comment"><em>-- <A NAME="AFU_114">|</A></em></span> 1715 <b>function</b> <span class="symbol"><a name="ref_1698_13" href="terminal_interface-curses__adb.htm#ref_1887_13">Get_Soft_Label_Key</a></span> (<span class="symbol"><a name="ref_1698_33" href="terminal_interface-curses__adb.htm#ref_1887_33">Label</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1666_9">Label_Number</a>) <b>return</b> String; 1716 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></em></span> 1717 <span class="comment"><em>-- Same as function</em></span> 1718 <b>pragma</b> Inline (Get_Soft_Label_Key); 1719 1720 <span class="comment"><em>-- <A NAME="AFU_115">|</A></em></span> 1721 <b>procedure</b> <span class="symbol"><a name="ref_1704_14" href="terminal_interface-curses__adb.htm#ref_1895_14">Clear_Soft_Label_Keys</a></span>; 1722 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_clear()</A></em></span> 1723 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1704_14">Clear_Soft_Label_Keys</a>); 1724 1725 <span class="comment"><em>-- <A NAME="AFU_116">|</A></em></span> 1726 <b>procedure</b> <span class="symbol"><a name="ref_1709_14" href="terminal_interface-curses__adb.htm#ref_1905_14">Restore_Soft_Label_Keys</a></span>; 1727 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_restore()</A></em></span> 1728 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1709_14">Restore_Soft_Label_Keys</a>); 1729 1730 <span class="comment"><em>-- <A NAME="AFU_117">|</A></em></span> 1731 <b>procedure</b> <span class="symbol"><a name="ref_1714_14" href="terminal_interface-curses__adb.htm#ref_1915_14">Touch_Soft_Label_Keys</a></span>; 1732 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_touch()</A></em></span> 1733 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1714_14">Touch_Soft_Label_Keys</a>); 1734 1735 <span class="comment"><em>-- <A NAME="AFU_118">|</A></em></span> 1736 <b>procedure</b> <span class="symbol"><a name="ref_1719_14" href="terminal_interface-curses__adb.htm#ref_1925_14">Switch_Soft_Label_Key_Attributes</a></span> 1737 (<span class="symbol"><a name="ref_1720_7" href="terminal_interface-curses__adb.htm#ref_1926_7">Attr</a></span> : <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a>; 1738 <span class="symbol"><a name="ref_1721_7" href="terminal_interface-curses__adb.htm#ref_1927_7">On</a></span> : Boolean := True); 1739 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attron()</A></em></span> 1740 <span class="comment"><em>-- AKA: slk_attroff()</em></span> 1741 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1719_14">Switch_Soft_Label_Key_Attributes</a>); 1742 1743 <span class="comment"><em>-- <A NAME="AFU_119">|</A></em></span> 1744 <b>procedure</b> <span class="symbol"><a name="ref_1727_14" href="terminal_interface-curses__adb.htm#ref_1949_14">Set_Soft_Label_Key_Attributes</a></span> 1745 (<span class="symbol"><a name="ref_1728_7" href="terminal_interface-curses__adb.htm#ref_1950_7">Attr</a></span> : <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a> := <a href="terminal_interface-curses__ads.htm#ref_486_4">Normal_Video</a>; 1746 <span class="symbol"><a name="ref_1729_7" href="terminal_interface-curses__adb.htm#ref_1951_7">Color</a></span> : <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a> := <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>'First); 1747 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attrset()</A></em></span> 1748 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1727_14">Set_Soft_Label_Key_Attributes</a>); 1749 1750 <span class="comment"><em>-- <A NAME="AFU_120">|</A></em></span> 1751 <b>function</b> <span class="symbol"><a name="ref_1734_13" href="terminal_interface-curses__adb.htm#ref_1965_13">Get_Soft_Label_Key_Attributes</a></span> <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a>; 1752 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></em></span> 1753 1754 <span class="comment"><em>-- <A NAME="AFU_121">|</A></em></span> 1755 <b>function</b> <span class="symbol"><a name="ref_1738_13" href="terminal_interface-curses__adb.htm#ref_1975_13">Get_Soft_Label_Key_Attributes</a></span> <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>; 1756 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></em></span> 1757 <b>pragma</b> Inline (Get_Soft_Label_Key_Attributes); 1758 1759 <span class="comment"><em>-- <A NAME="AFU_122">|</A></em></span> 1760 <b>procedure</b> <span class="symbol"><a name="ref_1743_14" href="terminal_interface-curses__adb.htm#ref_1985_14">Set_Soft_Label_Key_Color</a></span> (<span class="symbol"><a name="ref_1743_40" href="terminal_interface-curses__adb.htm#ref_1985_40">Pair</a></span> : <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>); 1761 <span class="comment"><em>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_color()</A></em></span> 1762 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1743_14">Set_Soft_Label_Key_Color</a>); 1763 1764 <span class="comment"><em>-- |=====================================================================</em></span> 1765 <span class="comment"><em>-- | Man page <A HREF="../man/keybound.3x.html">keybound.3x</A></em></span> 1766 <span class="comment"><em>-- |=====================================================================</em></span> 1767 <span class="comment"><em>-- Not Implemented: keybound</em></span> 1768 1769 <span class="comment"><em>-- |=====================================================================</em></span> 1770 <span class="comment"><em>-- | Man page <A HREF="../man/keyok.3x.html">keyok.3x</A></em></span> 1771 <span class="comment"><em>-- |=====================================================================</em></span> 1772 1773 <span class="comment"><em>-- <A NAME="AFU_123">|</A></em></span> 1774 <b>procedure</b> <span class="symbol"><a name="ref_1757_14" href="terminal_interface-curses__adb.htm#ref_1996_14">Enable_Key</a></span> (<span class="symbol"><a name="ref_1757_26" href="terminal_interface-curses__adb.htm#ref_1996_26">Key</a></span> : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a>; 1775 <span class="symbol"><a name="ref_1758_26" href="terminal_interface-curses__adb.htm#ref_1997_26">Enable</a></span> : Boolean := True); 1776 <span class="comment"><em>-- AKA: <A HREF="../man/keyok.3x.html">keyok()</A></em></span> 1777 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1757_14">Enable_Key</a>); 1778 1779 <span class="comment"><em>-- |=====================================================================</em></span> 1780 <span class="comment"><em>-- | Man page <A HREF="../man/define_key.3x.html">define_key.3x</A></em></span> 1781 <span class="comment"><em>-- |=====================================================================</em></span> 1782 1783 <span class="comment"><em>-- <A NAME="AFU_124">|</A></em></span> 1784 <b>procedure</b> <span class="symbol"><a name="ref_1767_14" href="terminal_interface-curses__adb.htm#ref_2010_14">Define_Key</a></span> (<span class="symbol"><a name="ref_1767_26" href="terminal_interface-curses__adb.htm#ref_2010_26">Definition</a></span> : String; 1785 <span class="symbol"><a name="ref_1768_26" href="terminal_interface-curses__adb.htm#ref_2011_26">Key</a></span> : <a href="terminal_interface-curses__ads.htm#ref_77_12">Special_Key_Code</a>); 1786 <span class="comment"><em>-- AKA: <A HREF="../man/define_key.3x.html">define_key()</A></em></span> 1787 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1767_14">Define_Key</a>); 1788 1789 <span class="comment"><em>-- |=====================================================================</em></span> 1790 <span class="comment"><em>-- | Man page <A HREF="../man/curs_util.3x.html">curs_util.3x</A></em></span> 1791 <span class="comment"><em>-- |=====================================================================</em></span> 1792 1793 <span class="comment"><em>-- | Not implemented : filter, use_env</em></span> 1794 <span class="comment"><em>-- | putwin, getwin are in the child package PutWin</em></span> 1795 <span class="comment"><em>--</em></span> 1796 1797 <span class="comment"><em>-- <A NAME="AFU_125">|</A></em></span> 1798 <b>procedure</b> <span class="symbol"><a name="ref_1781_14" href="terminal_interface-curses__adb.htm#ref_90_14">Key_Name</a></span> (<span class="symbol"><a name="ref_1781_24" href="terminal_interface-curses__adb.htm#ref_90_24">Key</a></span> : <a href="terminal_interface-curses__ads.htm#ref_72_12">Real_Key_Code</a>; 1799 <span class="symbol"><a name="ref_1782_24" href="terminal_interface-curses__adb.htm#ref_91_24">Name</a></span> : <b>out</b> String); 1800 <span class="comment"><em>-- AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></em></span> 1801 <span class="comment"><em>-- The external name for a real keystroke.</em></span> 1802 1803 <span class="comment"><em>-- <A NAME="AFU_126">|</A></em></span> 1804 <b>function</b> <span class="symbol"><a name="ref_1787_13" href="terminal_interface-curses__adb.htm#ref_62_13">Key_Name</a></span> (<span class="symbol"><a name="ref_1787_23" href="terminal_interface-curses__adb.htm#ref_62_23">Key</a></span> : <a href="terminal_interface-curses__ads.htm#ref_72_12">Real_Key_Code</a>) <b>return</b> String; 1805 <span class="comment"><em>-- AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></em></span> 1806 <span class="comment"><em>-- Same as function</em></span> 1807 <span class="comment"><em>-- We do not inline this routine</em></span> 1808 1809 <span class="comment"><em>-- <A NAME="AFU_127">|</A></em></span> 1810 <b>procedure</b> <span class="symbol"><a name="ref_1793_14" href="terminal_interface-curses__adb.htm#ref_2026_14">Un_Control</a></span> (<span class="symbol"><a name="ref_1793_26" href="terminal_interface-curses__adb.htm#ref_2026_26">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>; 1811 <span class="symbol"><a name="ref_1794_26" href="terminal_interface-curses__adb.htm#ref_2027_26">Str</a></span> : <b>out</b> String); 1812 <span class="comment"><em>-- AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></em></span> 1813 1814 <span class="comment"><em>-- <A NAME="AFU_128">|</A></em></span> 1815 <b>function</b> <span class="symbol"><a name="ref_1798_13" href="terminal_interface-curses__adb.htm#ref_2035_13">Un_Control</a></span> (<span class="symbol"><a name="ref_1798_25" href="terminal_interface-curses__adb.htm#ref_2035_25">Ch</a></span> : <a href="terminal_interface-curses__ads.htm#ref_488_9">Attributed_Character</a>) <b>return</b> String; 1816 <span class="comment"><em>-- AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></em></span> 1817 <span class="comment"><em>-- Same as function</em></span> 1818 <b>pragma</b> Inline (Un_Control); 1819 1820 <span class="comment"><em>-- <A NAME="AFU_129">|</A></em></span> 1821 <b>procedure</b> <span class="symbol"><a name="ref_1804_14" href="terminal_interface-curses__adb.htm#ref_2043_14">Delay_Output</a></span> (<span class="symbol"><a name="ref_1804_28" href="terminal_interface-curses__adb.htm#ref_2043_28">Msecs</a></span> : Natural); 1822 <span class="comment"><em>-- AKA: <A HREF="../man/curs_util.3x.html">delay_output()</A></em></span> 1823 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1804_14">Delay_Output</a>); 1824 1825 <span class="comment"><em>-- <A NAME="AFU_130">|</A></em></span> 1826 <b>procedure</b> <span class="symbol"><a name="ref_1809_14" href="terminal_interface-curses__adb.htm#ref_2053_14">Flush_Input</a></span>; 1827 <span class="comment"><em>-- AKA: <A HREF="../man/curs_util.3x.html">flushinp()</A></em></span> 1828 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1809_14">Flush_Input</a>); 1829 1830 <span class="comment"><em>-- |=====================================================================</em></span> 1831 <span class="comment"><em>-- | Man page <A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></em></span> 1832 <span class="comment"><em>-- |=====================================================================</em></span> 1833 1834 <span class="comment"><em>-- <A NAME="AFU_131">|</A></em></span> 1835 <b>function</b> <span class="symbol"><a name="ref_1818_13" href="terminal_interface-curses__adb.htm#ref_2063_13">Baudrate</a></span> <b>return</b> Natural; 1836 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">baudrate()</A></em></span> 1837 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1818_13">Baudrate</a>); 1838 1839 <span class="comment"><em>-- <A NAME="AFU_132">|</A></em></span> 1840 <b>function</b> <span class="symbol"><a name="ref_1823_13" href="terminal_interface-curses__adb.htm#ref_2071_13">Erase_Character</a></span> <b>return</b> Character; 1841 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">erasechar()</A></em></span> 1842 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1823_13">Erase_Character</a>); 1843 1844 <span class="comment"><em>-- <A NAME="AFU_133">|</A></em></span> 1845 <b>function</b> <span class="symbol"><a name="ref_1828_13" href="terminal_interface-curses__adb.htm#ref_2079_13">Kill_Character</a></span> <b>return</b> Character; 1846 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">killchar()</A></em></span> 1847 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1828_13">Kill_Character</a>); 1848 1849 <span class="comment"><em>-- <A NAME="AFU_134">|</A></em></span> 1850 <b>function</b> <span class="symbol"><a name="ref_1833_13" href="terminal_interface-curses__adb.htm#ref_2087_13">Has_Insert_Character</a></span> <b>return</b> Boolean; 1851 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">has_ic()</A></em></span> 1852 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1833_13">Has_Insert_Character</a>); 1853 1854 <span class="comment"><em>-- <A NAME="AFU_135">|</A></em></span> 1855 <b>function</b> <span class="symbol"><a name="ref_1838_13" href="terminal_interface-curses__adb.htm#ref_2099_13">Has_Insert_Line</a></span> <b>return</b> Boolean; 1856 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">has_il()</A></em></span> 1857 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1838_13">Has_Insert_Line</a>); 1858 1859 <span class="comment"><em>-- <A NAME="AFU_136">|</A></em></span> 1860 <b>function</b> <span class="symbol"><a name="ref_1843_13" href="terminal_interface-curses__adb.htm#ref_2111_13">Supported_Attributes</a></span> <b>return</b> <a href="terminal_interface-curses__ads.htm#ref_418_9">Character_Attribute_Set</a>; 1861 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termattrs()</A></em></span> 1862 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1843_13">Supported_Attributes</a>); 1863 1864 <span class="comment"><em>-- <A NAME="AFU_137">|</A></em></span> 1865 <b>procedure</b> <span class="symbol"><a name="ref_1848_14" href="terminal_interface-curses__adb.htm#ref_2121_14">Long_Name</a></span> (<span class="symbol"><a name="ref_1848_25" href="terminal_interface-curses__adb.htm#ref_2121_25">Name</a></span> : <b>out</b> String); 1866 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></em></span> 1867 1868 <span class="comment"><em>-- <A NAME="AFU_138">|</A></em></span> 1869 <b>function</b> <span class="symbol"><a name="ref_1852_13" href="terminal_interface-curses__adb.htm#ref_2129_13">Long_Name</a></span> <b>return</b> String; 1870 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></em></span> 1871 <span class="comment"><em>-- Same as function</em></span> 1872 <b>pragma</b> Inline (Long_Name); 1873 1874 <span class="comment"><em>-- <A NAME="AFU_139">|</A></em></span> 1875 <b>procedure</b> <span class="symbol"><a name="ref_1858_14" href="terminal_interface-curses__adb.htm#ref_2137_14">Terminal_Name</a></span> (<span class="symbol"><a name="ref_1858_29" href="terminal_interface-curses__adb.htm#ref_2137_29">Name</a></span> : <b>out</b> String); 1876 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></em></span> 1877 1878 <span class="comment"><em>-- <A NAME="AFU_140">|</A></em></span> 1879 <b>function</b> <span class="symbol"><a name="ref_1862_13" href="terminal_interface-curses__adb.htm#ref_2145_13">Terminal_Name</a></span> <b>return</b> String; 1880 <span class="comment"><em>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></em></span> 1881 <span class="comment"><em>-- Same as function</em></span> 1882 <b>pragma</b> Inline (Terminal_Name); 1883 1884 <span class="comment"><em>-- |=====================================================================</em></span> 1885 <span class="comment"><em>-- | Man page <A HREF="../man/curs_color.3x.html">curs_color.3x</A></em></span> 1886 <span class="comment"><em>-- |=====================================================================</em></span> 1887 1888 <span class="comment"><em>-- COLOR_PAIR</em></span> 1889 <span class="comment"><em>-- COLOR_PAIR(n) in C is the same as</em></span> 1890 <span class="comment"><em>-- Attributed_Character(Ch => Nul, Color => n, Attr => Normal_Video)</em></span> 1891 <span class="comment"><em>-- In C you often see something like c = c | COLOR_PAIR(n);</em></span> 1892 <span class="comment"><em>-- This is equivalent to c.Color := n;</em></span> 1893 1894 <span class="comment"><em>-- <A NAME="AFU_141">|</A></em></span> 1895 <b>procedure</b> <span class="symbol"><a name="ref_1878_14">Start_Color</a></span>; 1896 <span class="comment"><em>-- AKA: <A HREF="../man/curs_color.3x.html">start_color()</A></em></span> 1897 <b>pragma</b> Import (C, Start_Color, "start_color"); 1898 1899 <span class="comment"><em>-- <A NAME="AFU_142">|</A></em></span> 1900 <b>procedure</b> <span class="symbol"><a name="ref_1883_14" href="terminal_interface-curses__adb.htm#ref_2153_14">Init_Pair</a></span> (<span class="symbol"><a name="ref_1883_25" href="terminal_interface-curses__adb.htm#ref_2153_25">Pair</a></span> : <a href="terminal_interface-curses__ads.htm#ref_412_12">Redefinable_Color_Pair</a>; 1901 <span class="symbol"><a name="ref_1884_25" href="terminal_interface-curses__adb.htm#ref_2154_25">Fore</a></span> : <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a>; 1902 <span class="symbol"><a name="ref_1885_25" href="terminal_interface-curses__adb.htm#ref_2155_25">Back</a></span> : <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a>); 1903 <span class="comment"><em>-- AKA: <A HREF="../man/curs_color.3x.html">init_pair()</A></em></span> 1904 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1883_14">Init_Pair</a>); 1905 1906 <span class="comment"><em>-- <A NAME="AFU_143">|</A></em></span> 1907 <b>procedure</b> <span class="symbol"><a name="ref_1890_14" href="terminal_interface-curses__adb.htm#ref_2177_14">Pair_Content</a></span> (<span class="symbol"><a name="ref_1890_28" href="terminal_interface-curses__adb.htm#ref_2177_28">Pair</a></span> : <a href="terminal_interface-curses__ads.htm#ref_410_9">Color_Pair</a>; 1908 <span class="symbol"><a name="ref_1891_28" href="terminal_interface-curses__adb.htm#ref_2178_28">Fore</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a>; 1909 <span class="symbol"><a name="ref_1892_28" href="terminal_interface-curses__adb.htm#ref_2179_28">Back</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a>); 1910 <span class="comment"><em>-- AKA: <A HREF="../man/curs_color.3x.html">pair_content()</A></em></span> 1911 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1890_14">Pair_Content</a>); 1912 1913 <span class="comment"><em>-- <A NAME="AFU_144">|</A></em></span> 1914 <b>function</b> <span class="symbol"><a name="ref_1897_13" href="terminal_interface-curses__adb.htm#ref_2197_13">Has_Colors</a></span> <b>return</b> Boolean; 1915 <span class="comment"><em>-- AKA: <A HREF="../man/curs_color.3x.html">has_colors()</A></em></span> 1916 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1897_13">Has_Colors</a>); 1917 1918 <span class="comment"><em>-- <A NAME="AFU_145">|</A></em></span> 1919 <b>procedure</b> <span class="symbol"><a name="ref_1902_14" href="terminal_interface-curses__adb.htm#ref_2209_14">Init_Color</a></span> (<span class="symbol"><a name="ref_1902_26" href="terminal_interface-curses__adb.htm#ref_2209_26">Color</a></span> : <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a>; 1920 <span class="symbol"><a name="ref_1903_26" href="terminal_interface-curses__adb.htm#ref_2210_26">Red</a></span> : <a href="terminal_interface-curses__ads.htm#ref_406_9">RGB_Value</a>; 1921 <span class="symbol"><a name="ref_1904_26" href="terminal_interface-curses__adb.htm#ref_2211_26">Green</a></span> : <a href="terminal_interface-curses__ads.htm#ref_406_9">RGB_Value</a>; 1922 <span class="symbol"><a name="ref_1905_26" href="terminal_interface-curses__adb.htm#ref_2212_26">Blue</a></span> : <a href="terminal_interface-curses__ads.htm#ref_406_9">RGB_Value</a>); 1923 <span class="comment"><em>-- AKA: <A HREF="../man/curs_color.3x.html">init_color()</A></em></span> 1924 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1902_14">Init_Color</a>); 1925 1926 <span class="comment"><em>-- <A NAME="AFU_146">|</A></em></span> 1927 <b>function</b> <span class="symbol"><a name="ref_1910_13" href="terminal_interface-curses__adb.htm#ref_2227_13">Can_Change_Color</a></span> <b>return</b> Boolean; 1928 <span class="comment"><em>-- AKA: <A HREF="../man/curs_color.3x.html">can_change_color()</A></em></span> 1929 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1910_13">Can_Change_Color</a>); 1930 1931 <span class="comment"><em>-- <A NAME="AFU_147">|</A></em></span> 1932 <b>procedure</b> <span class="symbol"><a name="ref_1915_14" href="terminal_interface-curses__adb.htm#ref_2239_14">Color_Content</a></span> (<span class="symbol"><a name="ref_1915_29" href="terminal_interface-curses__adb.htm#ref_2239_29">Color</a></span> : <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a>; 1933 <span class="symbol"><a name="ref_1916_29" href="terminal_interface-curses__adb.htm#ref_2240_29">Red</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_406_9">RGB_Value</a>; 1934 <span class="symbol"><a name="ref_1917_29" href="terminal_interface-curses__adb.htm#ref_2241_29">Green</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_406_9">RGB_Value</a>; 1935 <span class="symbol"><a name="ref_1918_29" href="terminal_interface-curses__adb.htm#ref_2242_29">Blue</a></span> : <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_406_9">RGB_Value</a>); 1936 <span class="comment"><em>-- AKA: <A HREF="../man/curs_color.3x.html">color_content()</A></em></span> 1937 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1915_14">Color_Content</a>); 1938 1939 <span class="comment"><em>-- |=====================================================================</em></span> 1940 <span class="comment"><em>-- | Man page <A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></em></span> 1941 <span class="comment"><em>-- |=====================================================================</em></span> 1942 <span class="comment"><em>-- | Not implemented: getsyx, setsyx</em></span> 1943 <span class="comment"><em>--</em></span> 1944 <b>type</b> <span class="symbol"><a name="ref_1927_9">Curses_Mode</a></span> <b>is</b> (<span class="symbol"><a name="ref_1927_25">Curses</a></span>, <span class="symbol"><a name="ref_1927_33">Shell</a></span>); 1945 1946 <span class="comment"><em>-- <A NAME="AFU_148">|</A></em></span> 1947 <b>procedure</b> <span class="symbol"><a name="ref_1930_14" href="terminal_interface-curses__adb.htm#ref_2264_14">Save_Curses_Mode</a></span> (<span class="symbol"><a name="ref_1930_32" href="terminal_interface-curses__adb.htm#ref_2264_32">Mode</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1927_9">Curses_Mode</a>); 1948 <span class="comment"><em>-- AKA: <A HREF="../man/curs_kernel.3x.html">def_prog_mode()</A></em></span> 1949 <span class="comment"><em>-- AKA: def_shell_mode()</em></span> 1950 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1930_14">Save_Curses_Mode</a>); 1951 1952 <span class="comment"><em>-- <A NAME="AFU_149">|</A></em></span> 1953 <b>procedure</b> <span class="symbol"><a name="ref_1936_14" href="terminal_interface-curses__adb.htm#ref_2282_14">Reset_Curses_Mode</a></span> (<span class="symbol"><a name="ref_1936_33" href="terminal_interface-curses__adb.htm#ref_2282_33">Mode</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1927_9">Curses_Mode</a>); 1954 <span class="comment"><em>-- AKA: <A HREF="../man/curs_kernel.3x.html">reset_prog_mode()</A></em></span> 1955 <span class="comment"><em>-- AKA: reset_shell_mode()</em></span> 1956 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1936_14">Reset_Curses_Mode</a>); 1957 1958 <span class="comment"><em>-- <A NAME="AFU_150">|</A></em></span> 1959 <b>procedure</b> <span class="symbol"><a name="ref_1942_14" href="terminal_interface-curses__adb.htm#ref_2300_14">Save_Terminal_State</a></span>; 1960 <span class="comment"><em>-- AKA: <A HREF="../man/curs_kernel.3x.html">savetty()</A></em></span> 1961 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1942_14">Save_Terminal_State</a>); 1962 1963 <span class="comment"><em>-- <A NAME="AFU_151">|</A></em></span> 1964 <b>procedure</b> <span class="symbol"><a name="ref_1947_14" href="terminal_interface-curses__adb.htm#ref_2310_14">Reset_Terminal_State</a></span>; 1965 <span class="comment"><em>-- AKA: <A HREF="../man/curs_kernel.3x.html">resetty();</A></em></span> 1966 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1947_14">Reset_Terminal_State</a>); 1967 1968 <b>type</b> <span class="symbol"><a name="ref_1951_9">Stdscr_Init_Proc</a></span> <b>is</b> <b>access</b> 1969 <b>function</b> (<span class="symbol"><a name="ref_1952_17">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a>; 1970 <span class="symbol"><a name="ref_1953_17">Columns</a></span> : <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>) <b>return</b> Integer; 1971 <b>pragma</b> Convention (C, <a href="terminal_interface-curses__ads.htm#ref_1951_9">Stdscr_Init_Proc</a>); 1972 <span class="comment"><em>-- N.B.: the return value is actually ignored, but it seems to be</em></span> 1973 <span class="comment"><em>-- a good practice to return 0 if you think all went fine</em></span> 1974 <span class="comment"><em>-- and -1 otherwise.</em></span> 1975 1976 <span class="comment"><em>-- <A NAME="AFU_152">|</A></em></span> 1977 <b>procedure</b> <span class="symbol"><a name="ref_1960_14" href="terminal_interface-curses__adb.htm#ref_2320_14">Rip_Off_Lines</a></span> (<span class="symbol"><a name="ref_1960_29" href="terminal_interface-curses__adb.htm#ref_2320_29">Lines</a></span> : Integer; 1978 <span class="symbol"><a name="ref_1961_29" href="terminal_interface-curses__adb.htm#ref_2321_29">Proc</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1951_9">Stdscr_Init_Proc</a>); 1979 <span class="comment"><em>-- AKA: <A HREF="../man/curs_kernel.3x.html">ripoffline()</A></em></span> 1980 <span class="comment"><em>-- N.B.: to be more precise, this uses a ncurses specific enhancement of</em></span> 1981 <span class="comment"><em>-- ripoffline(), in which the Lines argument absolute value is the</em></span> 1982 <span class="comment"><em>-- number of lines to be ripped of. The official ripoffline() only</em></span> 1983 <span class="comment"><em>-- uses the sign of Lines to remove a single line from bottom or top.</em></span> 1984 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1960_14">Rip_Off_Lines</a>); 1985 1986 <b>type</b> <span class="symbol"><a name="ref_1969_9">Cursor_Visibility</a></span> <b>is</b> (<span class="symbol"><a name="ref_1969_31">Invisible</a></span>, <span class="symbol"><a name="ref_1969_42">Normal</a></span>, <span class="symbol"><a name="ref_1969_50">Very_Visible</a></span>); 1987 1988 <span class="comment"><em>-- <A NAME="AFU_153">|</A></em></span> 1989 <b>procedure</b> <span class="symbol"><a name="ref_1972_14" href="terminal_interface-curses__adb.htm#ref_2332_14">Set_Cursor_Visibility</a></span> (<span class="symbol"><a name="ref_1972_37" href="terminal_interface-curses__adb.htm#ref_2332_37">Visibility</a></span> : <b>in</b> <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_1969_9">Cursor_Visibility</a>); 1990 <span class="comment"><em>-- AKA: <A HREF="../man/curs_kernel.3x.html">curs_set()</A></em></span> 1991 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1972_14">Set_Cursor_Visibility</a>); 1992 1993 <span class="comment"><em>-- <A NAME="AFU_154">|</A></em></span> 1994 <b>procedure</b> <span class="symbol"><a name="ref_1977_14" href="terminal_interface-curses__adb.htm#ref_2345_14">Nap_Milli_Seconds</a></span> (<span class="symbol"><a name="ref_1977_33" href="terminal_interface-curses__adb.htm#ref_2345_33">Ms</a></span> : Natural); 1995 <span class="comment"><em>-- AKA: <A HREF="../man/curs_kernel.3x.html">napms()</A></em></span> 1996 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_1977_14">Nap_Milli_Seconds</a>); 1997 1998 <span class="comment"><em>-- |=====================================================================</em></span> 1999 <span class="comment"><em>-- | Some useful helpers.</em></span> 2000 <span class="comment"><em>-- |=====================================================================</em></span> 2001 <b>type</b> <span class="symbol"><a name="ref_1984_9">Transform_Direction</a></span> <b>is</b> (<span class="symbol"><a name="ref_1984_33">From_Screen</a></span>, <span class="symbol"><a name="ref_1984_46">To_Screen</a></span>); 2002 <b>procedure</b> <span class="symbol"><a name="ref_1985_14" href="terminal_interface-curses__adb.htm#ref_2396_14">Transform_Coordinates</a></span> 2003 (<span class="symbol"><a name="ref_1986_7" href="terminal_interface-curses__adb.htm#ref_2397_7">W</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 2004 <span class="symbol"><a name="ref_1987_7" href="terminal_interface-curses__adb.htm#ref_2398_7">Line</a></span> : <b>in</b> <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_59_9">Line_Position</a>; 2005 <span class="symbol"><a name="ref_1988_7" href="terminal_interface-curses__adb.htm#ref_2399_7">Column</a></span> : <b>in</b> <b>out</b> <a href="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</a>; 2006 <span class="symbol"><a name="ref_1989_7" href="terminal_interface-curses__adb.htm#ref_2400_7">Dir</a></span> : <a href="terminal_interface-curses__ads.htm#ref_1984_9">Transform_Direction</a> := <a href="terminal_interface-curses__ads.htm#ref_1984_33">From_Screen</a>); 2007 <span class="comment"><em>-- This procedure transforms screen coordinates into coordinates relative</em></span> 2008 <span class="comment"><em>-- to the window and vice versa, depending on the Dir parameter.</em></span> 2009 <span class="comment"><em>-- Screen coordinates are the position information for the physical device.</em></span> 2010 <span class="comment"><em>-- An Curses_Exception will be raised if Line and Column are not in the</em></span> 2011 <span class="comment"><em>-- Window or if you pass the Null_Window as argument.</em></span> 2012 <span class="comment"><em>-- We do not inline this procedure</em></span> 2013 2014 <span class="comment"><em>-- |=====================================================================</em></span> 2015 <span class="comment"><em>-- | Man page <A HREF="../man/default_colors.3x.html">default_colors.3x</A></em></span> 2016 <span class="comment"><em>-- |=====================================================================</em></span> 2017 2018 <span class="symbol"><a name="ref_2001_4">Default_Color</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := -1; 2019 2020 <span class="comment"><em>-- <A NAME="AFU_155">|</A></em></span> 2021 <b>procedure</b> <span class="symbol"><a name="ref_2004_14" href="terminal_interface-curses__adb.htm#ref_2425_14">Use_Default_Colors</a></span>; 2022 <span class="comment"><em>-- AKA: <A HREF="../man/default_colors.3x.html">use_default_colors()</A></em></span> 2023 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_2004_14">Use_Default_Colors</a>); 2024 2025 <span class="comment"><em>-- <A NAME="AFU_156">|</A></em></span> 2026 <b>procedure</b> <span class="symbol"><a name="ref_2009_14" href="terminal_interface-curses__adb.htm#ref_2435_14">Assume_Default_Colors</a></span> (<span class="symbol"><a name="ref_2009_37" href="terminal_interface-curses__adb.htm#ref_2435_37">Fore</a></span> : <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses__ads.htm#ref_2001_4">Default_Color</a>; 2027 <span class="symbol"><a name="ref_2010_37" href="terminal_interface-curses__adb.htm#ref_2436_37">Back</a></span> : <a href="terminal_interface-curses__ads.htm#ref_390_9">Color_Number</a> := <a href="terminal_interface-curses__ads.htm#ref_2001_4">Default_Color</a>); 2028 <span class="comment"><em>-- AKA: <A HREF="../man/default_colors.3x.html">assume_default_colors()</A></em></span> 2029 <b>pragma</b> Inline (<a href="terminal_interface-curses__ads.htm#ref_2009_14">Assume_Default_Colors</a>); 2030 2031 <span class="comment"><em>-- |=====================================================================</em></span> 2032 <span class="comment"><em>-- | Man page <A HREF="../man/curs_extend.3x.html">curs_extend.3x</A></em></span> 2033 <span class="comment"><em>-- |=====================================================================</em></span> 2034 2035 <span class="comment"><em>-- <A NAME="AFU_157">|</A></em></span> 2036 <b>function</b> <span class="symbol"><a name="ref_2019_13" href="terminal_interface-curses__adb.htm#ref_2450_13">Curses_Version</a></span> <b>return</b> String; 2037 <span class="comment"><em>-- AKA: <A HREF="../man/curs_extend.3x.html">curses_version()</A></em></span> 2038 2039 <span class="comment"><em>-- <A NAME="AFU_158">|</A></em></span> 2040 <span class="comment"><em>-- The returnvalue is the previous setting of the flag</em></span> 2041 <b>function</b> <span class="symbol"><a name="ref_2024_13" href="terminal_interface-curses__adb.htm#ref_2473_13">Use_Extended_Names</a></span> (<span class="symbol"><a name="ref_2024_33" href="terminal_interface-curses__adb.htm#ref_2473_33">Enable</a></span> : Boolean) <b>return</b> Boolean; 2042 <span class="comment"><em>-- AKA: <A HREF="../man/curs_extend.3x.html">use_extended_names()</A></em></span> 2043 2044 <span class="comment"><em>-- |=====================================================================</em></span> 2045 <span class="comment"><em>-- | Man page <A HREF="../man/curs_trace.3x.html">curs_trace.3x</A></em></span> 2046 <span class="comment"><em>-- |=====================================================================</em></span> 2047 2048 <span class="comment"><em>-- <A NAME="AFU_159">|</A></em></span> 2049 <b>procedure</b> <span class="symbol"><a name="ref_2032_14" href="terminal_interface-curses__adb.htm#ref_2459_14">Curses_Free_All</a></span>; 2050 <span class="comment"><em>-- AKA: <A HREF="../man/curs_trace.3x.html">_nc_freeall()</A></em></span> 2051 2052 <span class="comment"><em>-- |=====================================================================</em></span> 2053 <span class="comment"><em>-- | Man page <A HREF="../man/curs_scr_dump.3x.html">curs_scr_dump.3x</A></em></span> 2054 <span class="comment"><em>-- |=====================================================================</em></span> 2055 2056 <span class="comment"><em>-- <A NAME="AFU_160">|</A></em></span> 2057 <b>procedure</b> <span class="symbol"><a name="ref_2040_14" href="terminal_interface-curses__adb.htm#ref_2488_14">Screen_Dump_To_File</a></span> (<span class="symbol"><a name="ref_2040_35" href="terminal_interface-curses__adb.htm#ref_2488_35">Filename</a></span> : String); 2058 <span class="comment"><em>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_dump()</A></em></span> 2059 2060 <span class="comment"><em>-- <A NAME="AFU_161">|</A></em></span> 2061 <b>procedure</b> <span class="symbol"><a name="ref_2044_14" href="terminal_interface-curses__adb.htm#ref_2501_14">Screen_Restore_From_File</a></span> (<span class="symbol"><a name="ref_2044_40" href="terminal_interface-curses__adb.htm#ref_2501_40">Filename</a></span> : String); 2062 <span class="comment"><em>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_restore()</A></em></span> 2063 2064 <span class="comment"><em>-- <A NAME="AFU_162">|</A></em></span> 2065 <b>procedure</b> <span class="symbol"><a name="ref_2048_14" href="terminal_interface-curses__adb.htm#ref_2514_14">Screen_Init_From_File</a></span> (<span class="symbol"><a name="ref_2048_37" href="terminal_interface-curses__adb.htm#ref_2514_37">Filename</a></span> : String); 2066 <span class="comment"><em>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_init()</A></em></span> 2067 2068 <span class="comment"><em>-- <A NAME="AFU_163">|</A></em></span> 2069 <b>procedure</b> <span class="symbol"><a name="ref_2052_14" href="terminal_interface-curses__adb.htm#ref_2527_14">Screen_Set_File</a></span> (<span class="symbol"><a name="ref_2052_31" href="terminal_interface-curses__adb.htm#ref_2527_31">Filename</a></span> : String); 2070 <span class="comment"><em>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_set()</A></em></span> 2071 2072 <span class="comment"><em>-- |=====================================================================</em></span> 2073 <span class="comment"><em>-- | Man page <A HREF="../man/curs_print.3x.html">curs_print.3x</A></em></span> 2074 <span class="comment"><em>-- |=====================================================================</em></span> 2075 <span class="comment"><em>-- Not implemented: mcprint</em></span> 2076 2077 <span class="comment"><em>-- |=====================================================================</em></span> 2078 <span class="comment"><em>-- | Man page <A HREF="../man/curs_printw.3x.html">curs_printw.3x</A></em></span> 2079 <span class="comment"><em>-- |=====================================================================</em></span> 2080 <span class="comment"><em>-- Not implemented: printw, wprintw, mvprintw, mvwprintw, vwprintw,</em></span> 2081 <span class="comment"><em>-- vw_printw</em></span> 2082 <span class="comment"><em>-- Please use the Ada style Text_IO child packages for formatted</em></span> 2083 <span class="comment"><em>-- printing. It does not make a lot of sense to map the printf style</em></span> 2084 <span class="comment"><em>-- C functions to Ada.</em></span> 2085 2086 <span class="comment"><em>-- |=====================================================================</em></span> 2087 <span class="comment"><em>-- | Man page <A HREF="../man/curs_scanw.3x.html">curs_scanw.3x</A></em></span> 2088 <span class="comment"><em>-- |=====================================================================</em></span> 2089 <span class="comment"><em>-- Not implemented: scanw, wscanw, mvscanw, mvwscanw, vwscanw, vw_scanw</em></span> 2090 2091 <span class="comment"><em>-- |=====================================================================</em></span> 2092 <span class="comment"><em>-- | Man page <A HREF="../man/resizeterm.3x.html">resizeterm.3x</A></em></span> 2093 <span class="comment"><em>-- |=====================================================================</em></span> 2094 <span class="comment"><em>-- Not Implemented: resizeterm</em></span> 2095 2096 <span class="comment"><em>-- |=====================================================================</em></span> 2097 <span class="comment"><em>-- | Man page <A HREF="../man/wresize.3x.html">wresize.3x</A></em></span> 2098 <span class="comment"><em>-- |=====================================================================</em></span> 2099 2100 <span class="comment"><em>-- <A NAME="AFU_164">|</A></em></span> 2101 <b>procedure</b> <span class="symbol"><a name="ref_2084_14" href="terminal_interface-curses__adb.htm#ref_2540_14">Resize</a></span> (<span class="symbol"><a name="ref_2084_22" href="terminal_interface-curses__adb.htm#ref_2540_22">Win</a></span> : <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := <a href="terminal_interface-curses__ads.htm#ref_645_13">Standard_Window</a>; 2102 <span class="symbol"><a name="ref_2085_22" href="terminal_interface-curses__adb.htm#ref_2541_22">Number_Of_Lines</a></span> : <a href="terminal_interface-curses__ads.htm#ref_62_12">Line_Count</a>; 2103 <span class="symbol"><a name="ref_2086_22" href="terminal_interface-curses__adb.htm#ref_2542_22">Number_Of_Columns</a></span> : <a href="terminal_interface-curses__ads.htm#ref_64_12">Column_Count</a>); 2104 <span class="comment"><em>-- AKA: <A HREF="../man/wresize.3x.html">wresize()</A></em></span> 2105 2106<b>private</b> 2107 <b>type</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; 2108 <a href="terminal_interface-curses__ads.htm#ref_57_4">Null_Window</a> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_56_9">Window</a> := 0; 2109 2110 <span class="comment"><em>-- The next constants are generated and may be different on your</em></span> 2111 <span class="comment"><em>-- architecture.</em></span> 2112 <span class="comment"><em>--</em></span> 2113 2114 <span class="symbol"><a name="ref_2097_4">Sizeof_Bool</a></span> : <b>constant</b> := <a href="terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants</a>.<a href="terminal_interface-curses_constants__ads.htm#ref_11_4">Sizeof_Bool</a>; 2115 2116 <b>type</b> <span class="symbol"><a name="ref_2099_9">Curses_Bool</a></span> <b>is</b> <b>mod</b> 2 ** <a href="terminal_interface-curses__ads.htm#ref_2097_4">Sizeof_Bool</a>; 2117 2118 <span class="symbol"><a name="ref_2101_4">Curses_Bool_False</a></span> : <b>constant</b> <a href="terminal_interface-curses__ads.htm#ref_2099_9">Curses_Bool</a> := 0; 2119 2120<b>end</b> <a href="terminal_interface__ads.htm#ref_43_9">Terminal_Interface</a>.<a href="terminal_interface-curses__ads.htm#ref_48_28">Curses</a>; 2121</pre></body></html> 2122