1<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> 2<HTML><HEAD><TITLE>terminal_interface-curses.ads</TITLE></HEAD> 3<BODY> 4<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses.ads </H1></DIV><HR> 5<PRE> 6<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> 7<FONT COLOR=green><EM>-- --</EM></FONT> 8<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> 9<FONT COLOR=green><EM>-- --</EM></FONT> 10<FONT COLOR=green><EM>-- Terminal_Interface.Curses --</EM></FONT> 11<FONT COLOR=green><EM>-- --</EM></FONT> 12<FONT COLOR=green><EM>-- S P E C --</EM></FONT> 13<FONT COLOR=green><EM>-- --</EM></FONT> 14<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> 15<FONT COLOR=green><EM>-- Copyright (c) 1998-2006,2007 Free Software Foundation, Inc. --</EM></FONT> 16<FONT COLOR=green><EM>-- --</EM></FONT> 17<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> 18<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> 19<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> 20<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> 21<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> 22<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> 23<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> 24<FONT COLOR=green><EM>-- --</EM></FONT> 25<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> 26<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> 27<FONT COLOR=green><EM>-- --</EM></FONT> 28<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> 29<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> 30<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> 31<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> 32<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> 33<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> 34<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> 35<FONT COLOR=green><EM>-- --</EM></FONT> 36<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> 37<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> 38<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> 39<FONT COLOR=green><EM>-- authorization. --</EM></FONT> 40<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> 41<FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT> 42<FONT COLOR=green><EM>-- Version Control:</EM></FONT> 43<FONT COLOR=green><EM>-- @Revision: 1.41 @</EM></FONT> 44<FONT COLOR=green><EM>-- @Date: 2007/05/05 20:33:52 @</EM></FONT> 45<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> 46<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> 47<FONT COLOR=green><EM>-- curses binding.</EM></FONT> 48<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> 49<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> 50<FONT COLOR=green><EM>-- |</EM></FONT> 51<b>with</b> System.Storage_Elements; 52<b>with</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C; <FONT COLOR=green><EM>-- We need this for some assertions.</EM></FONT> 53 54<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<FONT COLOR=red><A NAME="ref_49_28" HREF="terminal_interface-curses__adb.htm#ref_50_33">Curses</A></FONT> <b>is</b> 55 <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>); 56 <b>pragma</b> Linker_Options ("-lncursesw"); 57 58 <FONT COLOR=red><A NAME="ref_53_4">NC_Major_Version</A></FONT> : <b>constant</b> := 5; <FONT COLOR=green><EM>-- Major version of the library</EM></FONT> 59 <FONT COLOR=red><A NAME="ref_54_4">NC_Minor_Version</A></FONT> : <b>constant</b> := 6; <FONT COLOR=green><EM>-- Minor version of the library</EM></FONT> 60 <FONT COLOR=red><A NAME="ref_55_4">NC_Version</A></FONT> : <b>constant</b> String := "5.6"; <FONT COLOR=green><EM>-- Version of library</EM></FONT> 61 62 <b>type</b> <FONT COLOR=red><A NAME="ref_57_9">Window</A></FONT> <b>is</b> <b>private</b>; 63 <FONT COLOR=red><A NAME="ref_58_4">Null_Window</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 64 65 <b>type</b> <FONT COLOR=red><A NAME="ref_60_9">Line_Position</A></FONT> <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>-- line coordinate</EM></FONT> 66 <b>type</b> <FONT COLOR=red><A NAME="ref_61_9">Column_Position</A></FONT> <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>-- column coordinate</EM></FONT> 67 68 <b>subtype</b> <FONT COLOR=red><A NAME="ref_63_12">Line_Count</A></FONT> <b>is</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A> <b>range</b> 1 .. <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>'Last; 69 <FONT COLOR=green><EM>-- Type to count lines. We do not allow null windows, so must be positive</EM></FONT> 70 <b>subtype</b> <FONT COLOR=red><A NAME="ref_65_12">Column_Count</A></FONT> <b>is</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A> <b>range</b> 1 .. <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>'Last; 71 <FONT COLOR=green><EM>-- Type to count columns. We do not allow null windows, so must be positive</EM></FONT> 72 73 <b>type</b> <FONT COLOR=red><A NAME="ref_68_9">Key_Code</A></FONT> <b>is</b> <b>new</b> Integer; 74 <FONT COLOR=green><EM>-- That is anything including real characters, special keys and logical</EM></FONT> 75 <FONT COLOR=green><EM>-- request codes.</EM></FONT> 76 77 <FONT COLOR=green><EM>-- FIXME: The "-1" should be Curses_Err</EM></FONT> 78 <b>subtype</b> <FONT COLOR=red><A NAME="ref_73_12">Real_Key_Code</A></FONT> <b>is</b> <A HREF="terminal_interface-curses__ads.htm#ref_68_9">Key_Code</A> <b>range</b> -1 .. 8#777#; 79 <FONT COLOR=green><EM>-- This are the codes that potentially represent a real keystroke.</EM></FONT> 80 <FONT COLOR=green><EM>-- Not all codes may be possible on a specific terminal. To check the</EM></FONT> 81 <FONT COLOR=green><EM>-- availability of a special key, the Has_Key function is provided.</EM></FONT> 82 83 <b>subtype</b> <FONT COLOR=red><A NAME="ref_78_12">Special_Key_Code</A></FONT> <b>is</b> <A HREF="terminal_interface-curses__ads.htm#ref_73_12">Real_Key_Code</A> 84 <b>range</b> 8#400# .. <A HREF="terminal_interface-curses__ads.htm#ref_73_12">Real_Key_Code</A>'Last; 85 <FONT COLOR=green><EM>-- Type for a function- or special key number</EM></FONT> 86 87 <b>subtype</b> <FONT COLOR=red><A NAME="ref_82_12">Normal_Key_Code</A></FONT> <b>is</b> <A HREF="terminal_interface-curses__ads.htm#ref_73_12">Real_Key_Code</A> <b>range</b> 88 Character'Pos (Character'First) .. Character'Pos (Character'Last); 89 <FONT COLOR=green><EM>-- This are the codes for regular (incl. non-graphical) characters.</EM></FONT> 90 91 <FONT COLOR=green><EM>-- Constants for function- and special keys</EM></FONT> 92 <FONT COLOR=green><EM>--</EM></FONT> 93 <FONT COLOR=red><A NAME="ref_88_4">Key_None</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#400#; 94 <FONT COLOR=red><A NAME="ref_89_4">Key_Code_Yes</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#400#; 95 <FONT COLOR=red><A NAME="ref_90_4">Key_Min</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#401#; 96 <FONT COLOR=red><A NAME="ref_91_4">Key_Break</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#401#; 97 <FONT COLOR=red><A NAME="ref_92_4">Key_Cursor_Down</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#402#; 98 <FONT COLOR=red><A NAME="ref_93_4">Key_Cursor_Up</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#403#; 99 <FONT COLOR=red><A NAME="ref_94_4">Key_Cursor_Left</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#404#; 100 <FONT COLOR=red><A NAME="ref_95_4">Key_Cursor_Right</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#405#; 101 <FONT COLOR=red><A NAME="ref_96_4">Key_Home</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#406#; 102 <FONT COLOR=red><A NAME="ref_97_4">Key_Backspace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#407#; 103 <FONT COLOR=red><A NAME="ref_98_4">Key_F0</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#410#; 104 <FONT COLOR=red><A NAME="ref_99_4">Key_F1</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#411#; 105 <FONT COLOR=red><A NAME="ref_100_4">Key_F2</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#412#; 106 <FONT COLOR=red><A NAME="ref_101_4">Key_F3</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#413#; 107 <FONT COLOR=red><A NAME="ref_102_4">Key_F4</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#414#; 108 <FONT COLOR=red><A NAME="ref_103_4">Key_F5</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#415#; 109 <FONT COLOR=red><A NAME="ref_104_4">Key_F6</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#416#; 110 <FONT COLOR=red><A NAME="ref_105_4">Key_F7</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#417#; 111 <FONT COLOR=red><A NAME="ref_106_4">Key_F8</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#420#; 112 <FONT COLOR=red><A NAME="ref_107_4">Key_F9</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#421#; 113 <FONT COLOR=red><A NAME="ref_108_4">Key_F10</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#422#; 114 <FONT COLOR=red><A NAME="ref_109_4">Key_F11</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#423#; 115 <FONT COLOR=red><A NAME="ref_110_4">Key_F12</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#424#; 116 <FONT COLOR=red><A NAME="ref_111_4">Key_F13</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#425#; 117 <FONT COLOR=red><A NAME="ref_112_4">Key_F14</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#426#; 118 <FONT COLOR=red><A NAME="ref_113_4">Key_F15</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#427#; 119 <FONT COLOR=red><A NAME="ref_114_4">Key_F16</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#430#; 120 <FONT COLOR=red><A NAME="ref_115_4">Key_F17</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#431#; 121 <FONT COLOR=red><A NAME="ref_116_4">Key_F18</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#432#; 122 <FONT COLOR=red><A NAME="ref_117_4">Key_F19</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#433#; 123 <FONT COLOR=red><A NAME="ref_118_4">Key_F20</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#434#; 124 <FONT COLOR=red><A NAME="ref_119_4">Key_F21</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#435#; 125 <FONT COLOR=red><A NAME="ref_120_4">Key_F22</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#436#; 126 <FONT COLOR=red><A NAME="ref_121_4">Key_F23</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#437#; 127 <FONT COLOR=red><A NAME="ref_122_4">Key_F24</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#440#; 128 <FONT COLOR=red><A NAME="ref_123_4">Key_Delete_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#510#; 129 <FONT COLOR=red><A NAME="ref_124_4">Key_Insert_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#511#; 130 <FONT COLOR=red><A NAME="ref_125_4">Key_Delete_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#512#; 131 <FONT COLOR=red><A NAME="ref_126_4">Key_Insert_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#513#; 132 <FONT COLOR=red><A NAME="ref_127_4">Key_Exit_Insert_Mode</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#514#; 133 <FONT COLOR=red><A NAME="ref_128_4">Key_Clear_Screen</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#515#; 134 <FONT COLOR=red><A NAME="ref_129_4">Key_Clear_End_Of_Screen</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#516#; 135 <FONT COLOR=red><A NAME="ref_130_4">Key_Clear_End_Of_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#517#; 136 <FONT COLOR=red><A NAME="ref_131_4">Key_Scroll_1_Forward</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#520#; 137 <FONT COLOR=red><A NAME="ref_132_4">Key_Scroll_1_Backward</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#521#; 138 <FONT COLOR=red><A NAME="ref_133_4">Key_Next_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#522#; 139 <FONT COLOR=red><A NAME="ref_134_4">Key_Previous_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#523#; 140 <FONT COLOR=red><A NAME="ref_135_4">Key_Set_Tab</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#524#; 141 <FONT COLOR=red><A NAME="ref_136_4">Key_Clear_Tab</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#525#; 142 <FONT COLOR=red><A NAME="ref_137_4">Key_Clear_All_Tabs</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#526#; 143 <FONT COLOR=red><A NAME="ref_138_4">Key_Enter_Or_Send</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#527#; 144 <FONT COLOR=red><A NAME="ref_139_4">Key_Soft_Reset</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#530#; 145 <FONT COLOR=red><A NAME="ref_140_4">Key_Reset</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#531#; 146 <FONT COLOR=red><A NAME="ref_141_4">Key_Print</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#532#; 147 <FONT COLOR=red><A NAME="ref_142_4">Key_Bottom</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#533#; 148 <FONT COLOR=red><A NAME="ref_143_4">Key_Upper_Left_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#534#; 149 <FONT COLOR=red><A NAME="ref_144_4">Key_Upper_Right_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#535#; 150 <FONT COLOR=red><A NAME="ref_145_4">Key_Center_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#536#; 151 <FONT COLOR=red><A NAME="ref_146_4">Key_Lower_Left_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#537#; 152 <FONT COLOR=red><A NAME="ref_147_4">Key_Lower_Right_Of_Keypad</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#540#; 153 <FONT COLOR=red><A NAME="ref_148_4">Key_Back_Tab</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#541#; 154 <FONT COLOR=red><A NAME="ref_149_4">Key_Beginning</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#542#; 155 <FONT COLOR=red><A NAME="ref_150_4">Key_Cancel</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#543#; 156 <FONT COLOR=red><A NAME="ref_151_4">Key_Close</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#544#; 157 <FONT COLOR=red><A NAME="ref_152_4">Key_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#545#; 158 <FONT COLOR=red><A NAME="ref_153_4">Key_Copy</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#546#; 159 <FONT COLOR=red><A NAME="ref_154_4">Key_Create</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#547#; 160 <FONT COLOR=red><A NAME="ref_155_4">Key_End</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#550#; 161 <FONT COLOR=red><A NAME="ref_156_4">Key_Exit</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#551#; 162 <FONT COLOR=red><A NAME="ref_157_4">Key_Find</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#552#; 163 <FONT COLOR=red><A NAME="ref_158_4">Key_Help</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#553#; 164 <FONT COLOR=red><A NAME="ref_159_4">Key_Mark</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#554#; 165 <FONT COLOR=red><A NAME="ref_160_4">Key_Message</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#555#; 166 <FONT COLOR=red><A NAME="ref_161_4">Key_Move</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#556#; 167 <FONT COLOR=red><A NAME="ref_162_4">Key_Next</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#557#; 168 <FONT COLOR=red><A NAME="ref_163_4">Key_Open</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#560#; 169 <FONT COLOR=red><A NAME="ref_164_4">Key_Options</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#561#; 170 <FONT COLOR=red><A NAME="ref_165_4">Key_Previous</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#562#; 171 <FONT COLOR=red><A NAME="ref_166_4">Key_Redo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#563#; 172 <FONT COLOR=red><A NAME="ref_167_4">Key_Reference</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#564#; 173 <FONT COLOR=red><A NAME="ref_168_4">Key_Refresh</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#565#; 174 <FONT COLOR=red><A NAME="ref_169_4">Key_Replace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#566#; 175 <FONT COLOR=red><A NAME="ref_170_4">Key_Restart</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#567#; 176 <FONT COLOR=red><A NAME="ref_171_4">Key_Resume</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#570#; 177 <FONT COLOR=red><A NAME="ref_172_4">Key_Save</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#571#; 178 <FONT COLOR=red><A NAME="ref_173_4">Key_Shift_Begin</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#572#; 179 <FONT COLOR=red><A NAME="ref_174_4">Key_Shift_Cancel</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#573#; 180 <FONT COLOR=red><A NAME="ref_175_4">Key_Shift_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#574#; 181 <FONT COLOR=red><A NAME="ref_176_4">Key_Shift_Copy</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#575#; 182 <FONT COLOR=red><A NAME="ref_177_4">Key_Shift_Create</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#576#; 183 <FONT COLOR=red><A NAME="ref_178_4">Key_Shift_Delete_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#577#; 184 <FONT COLOR=red><A NAME="ref_179_4">Key_Shift_Delete_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#600#; 185 <FONT COLOR=red><A NAME="ref_180_4">Key_Select</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#601#; 186 <FONT COLOR=red><A NAME="ref_181_4">Key_Shift_End</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#602#; 187 <FONT COLOR=red><A NAME="ref_182_4">Key_Shift_Clear_End_Of_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#603#; 188 <FONT COLOR=red><A NAME="ref_183_4">Key_Shift_Exit</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#604#; 189 <FONT COLOR=red><A NAME="ref_184_4">Key_Shift_Find</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#605#; 190 <FONT COLOR=red><A NAME="ref_185_4">Key_Shift_Help</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#606#; 191 <FONT COLOR=red><A NAME="ref_186_4">Key_Shift_Home</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#607#; 192 <FONT COLOR=red><A NAME="ref_187_4">Key_Shift_Insert_Char</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#610#; 193 <FONT COLOR=red><A NAME="ref_188_4">Key_Shift_Cursor_Left</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#611#; 194 <FONT COLOR=red><A NAME="ref_189_4">Key_Shift_Message</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#612#; 195 <FONT COLOR=red><A NAME="ref_190_4">Key_Shift_Move</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#613#; 196 <FONT COLOR=red><A NAME="ref_191_4">Key_Shift_Next_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#614#; 197 <FONT COLOR=red><A NAME="ref_192_4">Key_Shift_Options</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#615#; 198 <FONT COLOR=red><A NAME="ref_193_4">Key_Shift_Previous_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#616#; 199 <FONT COLOR=red><A NAME="ref_194_4">Key_Shift_Print</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#617#; 200 <FONT COLOR=red><A NAME="ref_195_4">Key_Shift_Redo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#620#; 201 <FONT COLOR=red><A NAME="ref_196_4">Key_Shift_Replace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#621#; 202 <FONT COLOR=red><A NAME="ref_197_4">Key_Shift_Cursor_Right</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#622#; 203 <FONT COLOR=red><A NAME="ref_198_4">Key_Shift_Resume</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#623#; 204 <FONT COLOR=red><A NAME="ref_199_4">Key_Shift_Save</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#624#; 205 <FONT COLOR=red><A NAME="ref_200_4">Key_Shift_Suspend</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#625#; 206 <FONT COLOR=red><A NAME="ref_201_4">Key_Shift_Undo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#626#; 207 <FONT COLOR=red><A NAME="ref_202_4">Key_Suspend</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#627#; 208 <FONT COLOR=red><A NAME="ref_203_4">Key_Undo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#630#; 209 <FONT COLOR=red><A NAME="ref_204_4">Key_Mouse</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#631#; 210 <FONT COLOR=red><A NAME="ref_205_4">Key_Resize</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#632#; 211 212 <FONT COLOR=red><A NAME="ref_207_4">Key_Max</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> 213 := <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A>'Last; 214 215 <b>subtype</b> <FONT COLOR=red><A NAME="ref_210_12">User_Key_Code</A></FONT> <b>is</b> <A HREF="terminal_interface-curses__ads.htm#ref_68_9">Key_Code</A> 216 <b>range</b> (<A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 129) .. <A HREF="terminal_interface-curses__ads.htm#ref_68_9">Key_Code</A>'Last; 217 <FONT COLOR=green><EM>-- This is reserved for user defined key codes. The range between Key_Max</EM></FONT> 218 <FONT COLOR=green><EM>-- and the first user code is reserved for subsystems like menu and forms.</EM></FONT> 219 220 <FONT COLOR=green><EM>-- For those who like to use the original key names we produce them were</EM></FONT> 221 <FONT COLOR=green><EM>-- they differ from the original. Please note that they may differ in</EM></FONT> 222 <FONT COLOR=green><EM>-- lower/upper case.</EM></FONT> 223 KEY_DOWN : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_92_4">Key_Cursor_Down</A>; 224 KEY_UP : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_93_4">Key_Cursor_Up</A>; 225 KEY_LEFT : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_94_4">Key_Cursor_Left</A>; 226 KEY_RIGHT : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_95_4">Key_Cursor_Right</A>; 227 KEY_DL : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_123_4">Key_Delete_Line</A>; 228 KEY_IL : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_124_4">Key_Insert_Line</A>; 229 KEY_DC : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_125_4">Key_Delete_Char</A>; 230 KEY_IC : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_126_4">Key_Insert_Char</A>; 231 KEY_EIC : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_127_4">Key_Exit_Insert_Mode</A>; 232 KEY_CLEAR : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_128_4">Key_Clear_Screen</A>; 233 KEY_EOS : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_129_4">Key_Clear_End_Of_Screen</A>; 234 KEY_EOL : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_130_4">Key_Clear_End_Of_Line</A>; 235 KEY_SF : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_131_4">Key_Scroll_1_Forward</A>; 236 KEY_SR : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_132_4">Key_Scroll_1_Backward</A>; 237 KEY_NPAGE : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_133_4">Key_Next_Page</A>; 238 KEY_PPAGE : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_134_4">Key_Previous_Page</A>; 239 KEY_STAB : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_135_4">Key_Set_Tab</A>; 240 KEY_CTAB : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_136_4">Key_Clear_Tab</A>; 241 KEY_CATAB : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_137_4">Key_Clear_All_Tabs</A>; 242 KEY_ENTER : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_138_4">Key_Enter_Or_Send</A>; 243 KEY_SRESET : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_139_4">Key_Soft_Reset</A>; 244 KEY_LL : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_142_4">Key_Bottom</A>; 245 KEY_A1 : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_143_4">Key_Upper_Left_Of_Keypad</A>; 246 KEY_A3 : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_144_4">Key_Upper_Right_Of_Keypad</A>; 247 KEY_B2 : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_145_4">Key_Center_Of_Keypad</A>; 248 KEY_C1 : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_146_4">Key_Lower_Left_Of_Keypad</A>; 249 KEY_C3 : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_147_4">Key_Lower_Right_Of_Keypad</A>; 250 KEY_BTAB : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_148_4">Key_Back_Tab</A>; 251 KEY_BEG : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_149_4">Key_Beginning</A>; 252 KEY_SBEG : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_173_4">Key_Shift_Begin</A>; 253 KEY_SCANCEL : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_174_4">Key_Shift_Cancel</A>; 254 KEY_SCOMMAND : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_175_4">Key_Shift_Command</A>; 255 KEY_SCOPY : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_176_4">Key_Shift_Copy</A>; 256 KEY_SCREATE : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_177_4">Key_Shift_Create</A>; 257 KEY_SDC : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_178_4">Key_Shift_Delete_Char</A>; 258 KEY_SDL : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_179_4">Key_Shift_Delete_Line</A>; 259 KEY_SEND : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_181_4">Key_Shift_End</A>; 260 KEY_SEOL : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_182_4">Key_Shift_Clear_End_Of_Line</A>; 261 KEY_SEXIT : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_183_4">Key_Shift_Exit</A>; 262 KEY_SFIND : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_184_4">Key_Shift_Find</A>; 263 KEY_SHELP : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_185_4">Key_Shift_Help</A>; 264 KEY_SHOME : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_186_4">Key_Shift_Home</A>; 265 KEY_SIC : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_187_4">Key_Shift_Insert_Char</A>; 266 KEY_SLEFT : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_188_4">Key_Shift_Cursor_Left</A>; 267 KEY_SMESSAGE : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_189_4">Key_Shift_Message</A>; 268 KEY_SMOVE : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_190_4">Key_Shift_Move</A>; 269 KEY_SNEXT : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_191_4">Key_Shift_Next_Page</A>; 270 KEY_SOPTIONS : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_192_4">Key_Shift_Options</A>; 271 KEY_SPREVIOUS : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_193_4">Key_Shift_Previous_Page</A>; 272 KEY_SPRINT : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_194_4">Key_Shift_Print</A>; 273 KEY_SREDO : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_195_4">Key_Shift_Redo</A>; 274 KEY_SREPLACE : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_196_4">Key_Shift_Replace</A>; 275 KEY_SRIGHT : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_197_4">Key_Shift_Cursor_Right</A>; 276 KEY_SRSUME : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_198_4">Key_Shift_Resume</A>; 277 KEY_SSAVE : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_199_4">Key_Shift_Save</A>; 278 KEY_SSUSPEND : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_200_4">Key_Shift_Suspend</A>; 279 KEY_SUNDO : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_201_4">Key_Shift_Undo</A>; 280 281<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> 282 283 <b>type</b> <FONT COLOR=red><A NAME="ref_278_9">Color_Number</A></FONT> <b>is</b> <b>range</b> -1 .. Integer (<A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.short'Last); 284 <b>for</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A>'Size <b>use</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.short'Size; 285 <FONT COLOR=green><EM>-- (n)curses uses a short for the color index</EM></FONT> 286 <FONT COLOR=green><EM>-- The model is, that a Color_Number is an index into an array of</EM></FONT> 287 <FONT COLOR=green><EM>-- (potentially) definable colors. Some of those indices are</EM></FONT> 288 <FONT COLOR=green><EM>-- predefined (see below), although they may not really exist.</EM></FONT> 289 290 <FONT COLOR=red><A NAME="ref_285_4">Default_Color</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := -1; 291 <FONT COLOR=red><A NAME="ref_286_4">Black</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 0; 292 <FONT COLOR=red><A NAME="ref_287_4">Red</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 1; 293 <FONT COLOR=red><A NAME="ref_288_4">Green</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 2; 294 <FONT COLOR=red><A NAME="ref_289_4">Yellow</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 3; 295 <FONT COLOR=red><A NAME="ref_290_4">Blue</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 4; 296 <FONT COLOR=red><A NAME="ref_291_4">Magenta</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 5; 297 <FONT COLOR=red><A NAME="ref_292_4">Cyan</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 6; 298 <FONT COLOR=red><A NAME="ref_293_4">White</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 7; 299 300 <b>type</b> <FONT COLOR=red><A NAME="ref_295_9">RGB_Value</A></FONT> <b>is</b> <b>range</b> 0 .. Integer (<A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.short'Last); 301 <b>for</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>'Size <b>use</b> <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.short'Size; 302 <FONT COLOR=green><EM>-- Some system may allow to redefine a color by setting RGB values.</EM></FONT> 303 304 <b>type</b> <FONT COLOR=red><A NAME="ref_299_9">Color_Pair</A></FONT> <b>is</b> <b>range</b> 0 .. 255; 305 <b>for</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'Size <b>use</b> 8; 306 <b>subtype</b> <FONT COLOR=red><A NAME="ref_301_12">Redefinable_Color_Pair</A></FONT> <b>is</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> <b>range</b> 1 .. 255; 307 <FONT COLOR=green><EM>-- (n)curses reserves 1 Byte for the color-pair number. Color Pair 0</EM></FONT> 308 <FONT COLOR=green><EM>-- is fixed (Black & White). A color pair is simply a combination of</EM></FONT> 309 <FONT COLOR=green><EM>-- two colors described by Color_Numbers, one for the foreground and</EM></FONT> 310 <FONT COLOR=green><EM>-- the other for the background</EM></FONT> 311 312 <b>type</b> <FONT COLOR=red><A NAME="ref_307_9">Character_Attribute_Set</A></FONT> <b>is</b> 313 <b>record</b> 314 <FONT COLOR=red><A NAME="ref_309_10">Stand_Out</A></FONT> : Boolean; 315 <FONT COLOR=red><A NAME="ref_310_10">Under_Line</A></FONT> : Boolean; 316 <FONT COLOR=red><A NAME="ref_311_10">Reverse_Video</A></FONT> : Boolean; 317 <FONT COLOR=red><A NAME="ref_312_10">Blink</A></FONT> : Boolean; 318 <FONT COLOR=red><A NAME="ref_313_10">Dim_Character</A></FONT> : Boolean; 319 <FONT COLOR=red><A NAME="ref_314_10">Bold_Character</A></FONT> : Boolean; 320 <FONT COLOR=red><A NAME="ref_315_10">Alternate_Character_Set</A></FONT> : Boolean; 321 <FONT COLOR=red><A NAME="ref_316_10">Invisible_Character</A></FONT> : Boolean; 322 <FONT COLOR=red><A NAME="ref_317_10">Protected_Character</A></FONT> : Boolean; 323 <FONT COLOR=red><A NAME="ref_318_10">Horizontal</A></FONT> : Boolean; 324 <FONT COLOR=red><A NAME="ref_319_10">Left</A></FONT> : Boolean; 325 <FONT COLOR=red><A NAME="ref_320_10">Low</A></FONT> : Boolean; 326 <FONT COLOR=red><A NAME="ref_321_10">Right</A></FONT> : Boolean; 327 <FONT COLOR=red><A NAME="ref_322_10">Top</A></FONT> : Boolean; 328 <FONT COLOR=red><A NAME="ref_323_10">Vertical</A></FONT> : Boolean; 329 <b>end</b> <b>record</b>; 330 <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>); 331 332 <b>for</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> <b>use</b> 333 <b>record</b> 334 <A HREF="terminal_interface-curses__ads.htm#ref_309_10">Stand_Out</A> <b>at</b> 0 <b>range</b> 0 .. 0; 335 <A HREF="terminal_interface-curses__ads.htm#ref_310_10">Under_Line</A> <b>at</b> 0 <b>range</b> 1 .. 1; 336 <A HREF="terminal_interface-curses__ads.htm#ref_311_10">Reverse_Video</A> <b>at</b> 0 <b>range</b> 2 .. 2; 337 <A HREF="terminal_interface-curses__ads.htm#ref_312_10">Blink</A> <b>at</b> 0 <b>range</b> 3 .. 3; 338 <A HREF="terminal_interface-curses__ads.htm#ref_313_10">Dim_Character</A> <b>at</b> 0 <b>range</b> 4 .. 4; 339 <A HREF="terminal_interface-curses__ads.htm#ref_314_10">Bold_Character</A> <b>at</b> 0 <b>range</b> 5 .. 5; 340 <A HREF="terminal_interface-curses__ads.htm#ref_315_10">Alternate_Character_Set</A> <b>at</b> 0 <b>range</b> 6 .. 6; 341 <A HREF="terminal_interface-curses__ads.htm#ref_316_10">Invisible_Character</A> <b>at</b> 0 <b>range</b> 7 .. 7; 342 <A HREF="terminal_interface-curses__ads.htm#ref_317_10">Protected_Character</A> <b>at</b> 0 <b>range</b> 8 .. 8; 343 <A HREF="terminal_interface-curses__ads.htm#ref_318_10">Horizontal</A> <b>at</b> 0 <b>range</b> 9 .. 9; 344 <A HREF="terminal_interface-curses__ads.htm#ref_319_10">Left</A> <b>at</b> 0 <b>range</b> 10 .. 10; 345 <A HREF="terminal_interface-curses__ads.htm#ref_320_10">Low</A> <b>at</b> 0 <b>range</b> 11 .. 11; 346 <A HREF="terminal_interface-curses__ads.htm#ref_321_10">Right</A> <b>at</b> 0 <b>range</b> 12 .. 12; 347 <A HREF="terminal_interface-curses__ads.htm#ref_322_10">Top</A> <b>at</b> 0 <b>range</b> 13 .. 13; 348 <A HREF="terminal_interface-curses__ads.htm#ref_323_10">Vertical</A> <b>at</b> 0 <b>range</b> 14 .. 14; 349 <b>end</b> <b>record</b>; 350 <b>for</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>'Size <b>use</b> 16; 351 <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> 352 <FONT COLOR=green><EM>-- different on your system.</EM></FONT> 353 <FONT COLOR=green><EM>-- (n)curses uses all but the lowest 16 Bits for Attributes.</EM></FONT> 354 355 <FONT COLOR=red><A NAME="ref_350_4">Normal_Video</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := (<b>others</b> => False); 356 357 <b>type</b> <FONT COLOR=red><A NAME="ref_352_9">Attributed_Character</A></FONT> <b>is</b> 358 <b>record</b> 359 <FONT COLOR=red><A NAME="ref_354_10">Attr</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>; 360 <FONT COLOR=red><A NAME="ref_355_10">Color</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>; 361 <FONT COLOR=red><A NAME="ref_356_10">Ch</A></FONT> : Character; 362 <b>end</b> <b>record</b>; 363 <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>); 364 <FONT COLOR=green><EM>-- This is the counterpart for the chtype in C.</EM></FONT> 365 366 <b>for</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> <b>use</b> 367 <b>record</b> 368 <A HREF="terminal_interface-curses__ads.htm#ref_356_10">Ch</A> <b>at</b> 0 <b>range</b> 0 .. 7; 369 <A HREF="terminal_interface-curses__ads.htm#ref_355_10">Color</A> <b>at</b> 0 <b>range</b> 8 .. 15; 370 <A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A> <b>at</b> 0 <b>range</b> 16 .. 31; 371 <b>end</b> <b>record</b>; 372 <b>for</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>'Size <b>use</b> 32; 373 <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> 374 <FONT COLOR=green><EM>-- different on your system.</EM></FONT> 375 376 <FONT COLOR=red><A NAME="ref_371_4">Default_Character</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> 377 := (<A HREF="terminal_interface-curses__ads.htm#ref_356_10">Ch</A> => Character'First, 378 <A HREF="terminal_interface-curses__ads.htm#ref_355_10">Color</A> => <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First, 379 <A HREF="terminal_interface-curses__ads.htm#ref_354_10">Attr</A> => (<b>others</b> => False)); <FONT COLOR=green><EM>-- preelaboratable Normal_Video</EM></FONT> 380 381 <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_352_9">Attributed_Character</A>; 382 <b>pragma</b> Pack (Attributed_String); 383 <FONT COLOR=green><EM>-- In this binding we allow strings of attributed characters.</EM></FONT> 384 385 <FONT COLOR=green><EM>------------------</EM></FONT> 386 <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> 387 <FONT COLOR=green><EM>------------------</EM></FONT> 388 <FONT COLOR=red><A NAME="ref_383_4">Curses_Exception</A></FONT> : <b>exception</b>; 389 <FONT COLOR=red><A NAME="ref_384_4">Wrong_Curses_Version</A></FONT> : <b>exception</b>; 390 391 <FONT COLOR=green><EM>-- Those exceptions are raised by the ETI (Extended Terminal Interface)</EM></FONT> 392 <FONT COLOR=green><EM>-- subpackets for Menu and Forms handling.</EM></FONT> 393 <FONT COLOR=green><EM>--</EM></FONT> 394 <FONT COLOR=red><A NAME="ref_389_4">Eti_System_Error</A></FONT> : <b>exception</b>; 395 <FONT COLOR=red><A NAME="ref_390_4">Eti_Bad_Argument</A></FONT> : <b>exception</b>; 396 <FONT COLOR=red><A NAME="ref_391_4">Eti_Posted</A></FONT> : <b>exception</b>; 397 <FONT COLOR=red><A NAME="ref_392_4">Eti_Connected</A></FONT> : <b>exception</b>; 398 <FONT COLOR=red><A NAME="ref_393_4">Eti_Bad_State</A></FONT> : <b>exception</b>; 399 <FONT COLOR=red><A NAME="ref_394_4">Eti_No_Room</A></FONT> : <b>exception</b>; 400 <FONT COLOR=red><A NAME="ref_395_4">Eti_Not_Posted</A></FONT> : <b>exception</b>; 401 <FONT COLOR=red><A NAME="ref_396_4">Eti_Unknown_Command</A></FONT> : <b>exception</b>; 402 <FONT COLOR=red><A NAME="ref_397_4">Eti_No_Match</A></FONT> : <b>exception</b>; 403 <FONT COLOR=red><A NAME="ref_398_4">Eti_Not_Selectable</A></FONT> : <b>exception</b>; 404 <FONT COLOR=red><A NAME="ref_399_4">Eti_Not_Connected</A></FONT> : <b>exception</b>; 405 <FONT COLOR=red><A NAME="ref_400_4">Eti_Request_Denied</A></FONT> : <b>exception</b>; 406 <FONT COLOR=red><A NAME="ref_401_4">Eti_Invalid_Field</A></FONT> : <b>exception</b>; 407 <FONT COLOR=red><A NAME="ref_402_4">Eti_Current</A></FONT> : <b>exception</b>; 408 409 <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT> 410 <FONT COLOR=green><EM>-- External C variables</EM></FONT> 411 <FONT COLOR=green><EM>-- Conceptually even in C this are kind of constants, but they are</EM></FONT> 412 <FONT COLOR=green><EM>-- initialized and sometimes changed by the library routines at runtime</EM></FONT> 413 <FONT COLOR=green><EM>-- depending on the type of terminal. I believe the best way to model</EM></FONT> 414 <FONT COLOR=green><EM>-- this is to use functions.</EM></FONT> 415 <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT> 416 417 <b>function</b> <FONT COLOR=red><A NAME="ref_412_13" HREF="terminal_interface-curses__adb.htm#ref_2355_13">Lines</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 418 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_412_13">Lines</A>); 419 420 <b>function</b> <FONT COLOR=red><A NAME="ref_415_13" HREF="terminal_interface-curses__adb.htm#ref_2363_13">Columns</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>; 421 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_415_13">Columns</A>); 422 423 <b>function</b> <FONT COLOR=red><A NAME="ref_418_13" HREF="terminal_interface-curses__adb.htm#ref_2371_13">Tab_Size</A></FONT> <b>return</b> Natural; 424 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_418_13">Tab_Size</A>); 425 426 <b>function</b> <FONT COLOR=red><A NAME="ref_421_13" HREF="terminal_interface-curses__adb.htm#ref_2379_13">Number_Of_Colors</A></FONT> <b>return</b> Natural; 427 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_421_13">Number_Of_Colors</A>); 428 429 <b>function</b> <FONT COLOR=red><A NAME="ref_424_13" HREF="terminal_interface-curses__adb.htm#ref_2387_13">Number_Of_Color_Pairs</A></FONT> <b>return</b> Natural; 430 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_424_13">Number_Of_Color_Pairs</A>); 431 432 <b>type</b> C_ACS_Map <b>is</b> <b>array</b> (Character'Val (0) .. Character'Val (127)) 433 <b>of</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>; 434 <FONT COLOR=red><A NAME="ref_429_4">ACS_Map</A></FONT> : C_ACS_Map; 435 <b>pragma</b> Import (C, <A HREF="terminal_interface-curses__ads.htm#ref_429_4">ACS_Map</A>, "acs_map"); 436 <FONT COLOR=green><EM>--</EM></FONT> 437 <FONT COLOR=green><EM>--</EM></FONT> 438 <FONT COLOR=green><EM>-- Constants for several characters from the Alternate Character Set</EM></FONT> 439 <FONT COLOR=green><EM>-- You must use these constants as indices into the ACS_Map array</EM></FONT> 440 <FONT COLOR=green><EM>-- to get the corresponding attributed character at runtime.</EM></FONT> 441 <FONT COLOR=green><EM>--</EM></FONT> 442 <FONT COLOR=red><A NAME="ref_437_4">ACS_Upper_Left_Corner</A></FONT> : <b>constant</b> Character := 'l'; 443 <FONT COLOR=red><A NAME="ref_438_4">ACS_Lower_Left_Corner</A></FONT> : <b>constant</b> Character := 'm'; 444 <FONT COLOR=red><A NAME="ref_439_4">ACS_Upper_Right_Corner</A></FONT> : <b>constant</b> Character := 'k'; 445 <FONT COLOR=red><A NAME="ref_440_4">ACS_Lower_Right_Corner</A></FONT> : <b>constant</b> Character := 'j'; 446 <FONT COLOR=red><A NAME="ref_441_4">ACS_Left_Tee</A></FONT> : <b>constant</b> Character := 't'; 447 <FONT COLOR=red><A NAME="ref_442_4">ACS_Right_Tee</A></FONT> : <b>constant</b> Character := 'u'; 448 <FONT COLOR=red><A NAME="ref_443_4">ACS_Bottom_Tee</A></FONT> : <b>constant</b> Character := 'v'; 449 <FONT COLOR=red><A NAME="ref_444_4">ACS_Top_Tee</A></FONT> : <b>constant</b> Character := 'w'; 450 <FONT COLOR=red><A NAME="ref_445_4">ACS_Horizontal_Line</A></FONT> : <b>constant</b> Character := 'q'; 451 <FONT COLOR=red><A NAME="ref_446_4">ACS_Vertical_Line</A></FONT> : <b>constant</b> Character := 'x'; 452 <FONT COLOR=red><A NAME="ref_447_4">ACS_Plus_Symbol</A></FONT> : <b>constant</b> Character := 'n'; 453 <FONT COLOR=red><A NAME="ref_448_4">ACS_Scan_Line_1</A></FONT> : <b>constant</b> Character := 'o'; 454 <FONT COLOR=red><A NAME="ref_449_4">ACS_Scan_Line_9</A></FONT> : <b>constant</b> Character := 's'; 455 <FONT COLOR=red><A NAME="ref_450_4">ACS_Diamond</A></FONT> : <b>constant</b> Character := Character'Val (96); 456 <FONT COLOR=red><A NAME="ref_451_4">ACS_Checker_Board</A></FONT> : <b>constant</b> Character := 'a'; 457 <FONT COLOR=red><A NAME="ref_452_4">ACS_Degree</A></FONT> : <b>constant</b> Character := 'f'; 458 <FONT COLOR=red><A NAME="ref_453_4">ACS_Plus_Minus</A></FONT> : <b>constant</b> Character := 'g'; 459 <FONT COLOR=red><A NAME="ref_454_4">ACS_Bullet</A></FONT> : <b>constant</b> Character := '~'; 460 <FONT COLOR=red><A NAME="ref_455_4">ACS_Left_Arrow</A></FONT> : <b>constant</b> Character := ','; 461 <FONT COLOR=red><A NAME="ref_456_4">ACS_Right_Arrow</A></FONT> : <b>constant</b> Character := '+'; 462 <FONT COLOR=red><A NAME="ref_457_4">ACS_Down_Arrow</A></FONT> : <b>constant</b> Character := '.'; 463 <FONT COLOR=red><A NAME="ref_458_4">ACS_Up_Arrow</A></FONT> : <b>constant</b> Character := '-'; 464 <FONT COLOR=red><A NAME="ref_459_4">ACS_Board_Of_Squares</A></FONT> : <b>constant</b> Character := 'h'; 465 <FONT COLOR=red><A NAME="ref_460_4">ACS_Lantern</A></FONT> : <b>constant</b> Character := 'i'; 466 <FONT COLOR=red><A NAME="ref_461_4">ACS_Solid_Block</A></FONT> : <b>constant</b> Character := '0'; 467 <FONT COLOR=red><A NAME="ref_462_4">ACS_Scan_Line_3</A></FONT> : <b>constant</b> Character := 'p'; 468 <FONT COLOR=red><A NAME="ref_463_4">ACS_Scan_Line_7</A></FONT> : <b>constant</b> Character := 'r'; 469 <FONT COLOR=red><A NAME="ref_464_4">ACS_Less_Or_Equal</A></FONT> : <b>constant</b> Character := 'y'; 470 <FONT COLOR=red><A NAME="ref_465_4">ACS_Greater_Or_Equal</A></FONT> : <b>constant</b> Character := 'z'; 471 <FONT COLOR=red><A NAME="ref_466_4">ACS_PI</A></FONT> : <b>constant</b> Character := '{'; 472 <FONT COLOR=red><A NAME="ref_467_4">ACS_Not_Equal</A></FONT> : <b>constant</b> Character := '|'; 473 <FONT COLOR=red><A NAME="ref_468_4">ACS_Sterling</A></FONT> : <b>constant</b> Character := '}'; 474 475 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 476 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_initscr.3x.html">curs_initscr.3x</A></EM></FONT> 477 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 478 <FONT COLOR=green><EM>-- | Not implemented: newterm, set_term, delscreen</EM></FONT> 479 480 <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> 481 <b>function</b> <FONT COLOR=red><A NAME="ref_476_13" HREF="terminal_interface-curses__adb.htm#ref_2339_13">Standard_Window</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 482 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_initscr.3x.html">stdscr</A></EM></FONT> 483 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 484 485 <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> 486 <b>function</b> <FONT COLOR=red><A NAME="ref_481_13" HREF="terminal_interface-curses__adb.htm#ref_2347_13">Current_Window</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 487 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_initscr.3x.html">curscr</A></EM></FONT> 488 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_481_13">Current_Window</A>); 489 490 <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> 491 <b>procedure</b> <FONT COLOR=red><A NAME="ref_486_14" HREF="terminal_interface-curses__adb.htm#ref_98_14">Init_Screen</A></FONT>; 492 493 <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> 494 <b>procedure</b> <FONT COLOR=red><A NAME="ref_489_14">Init_Windows</A></FONT> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_486_14">Init_Screen</A>; 495 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_initscr.3x.html">initscr()</A></EM></FONT> 496 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_486_14">Init_Screen</A>); 497 <FONT COLOR=green><EM>-- pragma Inline (Init_Windows);</EM></FONT> 498 499 <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> 500 <b>procedure</b> <FONT COLOR=red><A NAME="ref_495_14" HREF="terminal_interface-curses__adb.htm#ref_111_14">End_Windows</A></FONT>; 501 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_initscr.3x.html">endwin()</A></EM></FONT> 502 <b>procedure</b> <FONT COLOR=red><A NAME="ref_497_14">End_Screen</A></FONT> <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_495_14">End_Windows</A>; 503 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_495_14">End_Windows</A>); 504 <FONT COLOR=green><EM>-- pragma Inline (End_Screen);</EM></FONT> 505 506 <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> 507 <b>function</b> <FONT COLOR=red><A NAME="ref_502_13" HREF="terminal_interface-curses__adb.htm#ref_121_13">Is_End_Window</A></FONT> <b>return</b> Boolean; 508 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_initscr.3x.html">isendwin()</A></EM></FONT> 509 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_502_13">Is_End_Window</A>); 510 511 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 512 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_move.3x.html">curs_move.3x</A></EM></FONT> 513 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 514 515 <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> 516 <b>procedure</b> <FONT COLOR=red><A NAME="ref_511_14" HREF="terminal_interface-curses__adb.htm#ref_133_14">Move_Cursor</A></FONT> (<FONT COLOR=red><A NAME="ref_511_27" HREF="terminal_interface-curses__adb.htm#ref_133_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 517 <FONT COLOR=red><A NAME="ref_512_27" HREF="terminal_interface-curses__adb.htm#ref_134_27">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 518 <FONT COLOR=red><A NAME="ref_513_27" HREF="terminal_interface-curses__adb.htm#ref_135_27">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>); 519 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_move.3x.html">wmove()</A></EM></FONT> 520 <FONT COLOR=green><EM>-- AKA: move()</EM></FONT> 521 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_511_14">Move_Cursor</A>); 522 523 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 524 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_addch.3x.html">curs_addch.3x</A></EM></FONT> 525 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 526 527 <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> 528 <b>procedure</b> <FONT COLOR=red><A NAME="ref_523_14" HREF="terminal_interface-curses__adb.htm#ref_148_14">Add</A></FONT> (<FONT COLOR=red><A NAME="ref_523_19" HREF="terminal_interface-curses__adb.htm#ref_148_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 529 <FONT COLOR=red><A NAME="ref_524_19" HREF="terminal_interface-curses__adb.htm#ref_149_19">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>); 530 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_addch.3x.html">waddch()</A></EM></FONT> 531 <FONT COLOR=green><EM>-- AKA: addch()</EM></FONT> 532 533 <b>procedure</b> <FONT COLOR=red><A NAME="ref_528_14" HREF="terminal_interface-curses__adb.htm#ref_160_14">Add</A></FONT> (<FONT COLOR=red><A NAME="ref_528_19" HREF="terminal_interface-curses__adb.htm#ref_160_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 534 <FONT COLOR=red><A NAME="ref_529_19" HREF="terminal_interface-curses__adb.htm#ref_161_19">Ch</A></FONT> : <b>in</b> Character); 535 <FONT COLOR=green><EM>-- Add a single character at the current logical cursor position to</EM></FONT> 536 <FONT COLOR=green><EM>-- the window. Use the current windows attributes.</EM></FONT> 537 538 <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> 539 <b>procedure</b> <FONT COLOR=red><A NAME="ref_534_14" HREF="terminal_interface-curses__adb.htm#ref_170_14">Add</A></FONT> 540 (<FONT COLOR=red><A NAME="ref_535_7" HREF="terminal_interface-curses__adb.htm#ref_171_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 541 <FONT COLOR=red><A NAME="ref_536_7" HREF="terminal_interface-curses__adb.htm#ref_172_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 542 <FONT COLOR=red><A NAME="ref_537_7" HREF="terminal_interface-curses__adb.htm#ref_173_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 543 <FONT COLOR=red><A NAME="ref_538_7" HREF="terminal_interface-curses__adb.htm#ref_174_7">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>); 544 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_addch.3x.html">mvwaddch()</A></EM></FONT> 545 <FONT COLOR=green><EM>-- AKA: mvaddch()</EM></FONT> 546 547 <b>procedure</b> <FONT COLOR=red><A NAME="ref_542_14" HREF="terminal_interface-curses__adb.htm#ref_189_14">Add</A></FONT> 548 (<FONT COLOR=red><A NAME="ref_543_7" HREF="terminal_interface-curses__adb.htm#ref_190_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 549 <FONT COLOR=red><A NAME="ref_544_7" HREF="terminal_interface-curses__adb.htm#ref_191_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 550 <FONT COLOR=red><A NAME="ref_545_7" HREF="terminal_interface-curses__adb.htm#ref_192_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 551 <FONT COLOR=red><A NAME="ref_546_7" HREF="terminal_interface-curses__adb.htm#ref_193_7">Ch</A></FONT> : <b>in</b> Character); 552 <FONT COLOR=green><EM>-- Move to the position and add a single character into the window</EM></FONT> 553 <FONT COLOR=green><EM>-- There are more Add routines, so the Inline pragma follows later</EM></FONT> 554 555 <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> 556 <b>procedure</b> <FONT COLOR=red><A NAME="ref_551_14" HREF="terminal_interface-curses__adb.htm#ref_204_14">Add_With_Immediate_Echo</A></FONT> 557 (<FONT COLOR=red><A NAME="ref_552_7" HREF="terminal_interface-curses__adb.htm#ref_205_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 558 <FONT COLOR=red><A NAME="ref_553_7" HREF="terminal_interface-curses__adb.htm#ref_206_7">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>); 559 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_addch.3x.html">wechochar()</A></EM></FONT> 560 <FONT COLOR=green><EM>-- AKA: echochar()</EM></FONT> 561 562 <b>procedure</b> <FONT COLOR=red><A NAME="ref_557_14" HREF="terminal_interface-curses__adb.htm#ref_217_14">Add_With_Immediate_Echo</A></FONT> 563 (<FONT COLOR=red><A NAME="ref_558_7" HREF="terminal_interface-curses__adb.htm#ref_218_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 564 <FONT COLOR=red><A NAME="ref_559_7" HREF="terminal_interface-curses__adb.htm#ref_219_7">Ch</A></FONT> : <b>in</b> Character); 565 <FONT COLOR=green><EM>-- Add a character and do an immediate refresh of the screen.</EM></FONT> 566 <b>pragma</b> Inline (Add_With_Immediate_Echo); 567 568 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 569 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_window.3x.html">curs_window.3x</A></EM></FONT> 570 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 571 <FONT COLOR=green><EM>-- Not Implemented: wcursyncup</EM></FONT> 572 573 <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> 574 <b>function</b> <FONT COLOR=red><A NAME="ref_569_13" HREF="terminal_interface-curses__adb.htm#ref_229_13">Create</A></FONT> 575 (<FONT COLOR=red><A NAME="ref_570_7" HREF="terminal_interface-curses__adb.htm#ref_229_21">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 576 <FONT COLOR=red><A NAME="ref_571_7" HREF="terminal_interface-curses__adb.htm#ref_230_21">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>; 577 <FONT COLOR=red><A NAME="ref_572_7" HREF="terminal_interface-curses__adb.htm#ref_231_21">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 578 <FONT COLOR=red><A NAME="ref_573_7" HREF="terminal_interface-curses__adb.htm#ref_232_21">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 579 <FONT COLOR=green><EM>-- Not Implemented: Default Number_Of_Lines, Number_Of_Columns</EM></FONT> 580 <FONT COLOR=green><EM>-- the C version lets them be 0, see the man page.</EM></FONT> 581 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">newwin()</A></EM></FONT> 582 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_569_13">Create</A>); 583 584 <b>function</b> New_Window 585 (<FONT COLOR=red><A NAME="ref_580_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 586 <FONT COLOR=red><A NAME="ref_581_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>; 587 <FONT COLOR=red><A NAME="ref_582_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 588 <FONT COLOR=red><A NAME="ref_583_7">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> 589 <b>renames</b> <A HREF="terminal_interface-curses__ads.htm#ref_569_13">Create</A>; 590 <FONT COLOR=green><EM>-- pragma Inline (New_Window);</EM></FONT> 591 592 <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> 593 <b>procedure</b> <FONT COLOR=red><A NAME="ref_588_14" HREF="terminal_interface-curses__adb.htm#ref_252_14">Delete</A></FONT> (<FONT COLOR=red><A NAME="ref_588_22" HREF="terminal_interface-curses__adb.htm#ref_252_22">Win</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>); 594 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">delwin()</A></EM></FONT> 595 <FONT COLOR=green><EM>-- Reset Win to Null_Window</EM></FONT> 596 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_588_14">Delete</A>); 597 598 <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> 599 <b>function</b> <FONT COLOR=red><A NAME="ref_594_13" HREF="terminal_interface-curses__adb.htm#ref_263_13">Sub_Window</A></FONT> 600 (<FONT COLOR=red><A NAME="ref_595_7" HREF="terminal_interface-curses__adb.htm#ref_264_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 601 <FONT COLOR=red><A NAME="ref_596_7" HREF="terminal_interface-curses__adb.htm#ref_265_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 602 <FONT COLOR=red><A NAME="ref_597_7" HREF="terminal_interface-curses__adb.htm#ref_266_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>; 603 <FONT COLOR=red><A NAME="ref_598_7" HREF="terminal_interface-curses__adb.htm#ref_267_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 604 <FONT COLOR=red><A NAME="ref_599_7" HREF="terminal_interface-curses__adb.htm#ref_268_7">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 605 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">subwin()</A></EM></FONT> 606 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_594_13">Sub_Window</A>); 607 608 <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> 609 <b>function</b> <FONT COLOR=red><A NAME="ref_604_13" HREF="terminal_interface-curses__adb.htm#ref_291_13">Derived_Window</A></FONT> 610 (<FONT COLOR=red><A NAME="ref_605_7" HREF="terminal_interface-curses__adb.htm#ref_292_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 611 <FONT COLOR=red><A NAME="ref_606_7" HREF="terminal_interface-curses__adb.htm#ref_293_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 612 <FONT COLOR=red><A NAME="ref_607_7" HREF="terminal_interface-curses__adb.htm#ref_294_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>; 613 <FONT COLOR=red><A NAME="ref_608_7" HREF="terminal_interface-curses__adb.htm#ref_295_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 614 <FONT COLOR=red><A NAME="ref_609_7" HREF="terminal_interface-curses__adb.htm#ref_296_7">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 615 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">derwin()</A></EM></FONT> 616 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_604_13">Derived_Window</A>); 617 618 <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> 619 <b>function</b> <FONT COLOR=red><A NAME="ref_614_13" HREF="terminal_interface-curses__adb.htm#ref_319_13">Duplicate</A></FONT> (<FONT COLOR=red><A NAME="ref_614_24" HREF="terminal_interface-curses__adb.htm#ref_319_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 620 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">dupwin()</A></EM></FONT> 621 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_614_13">Duplicate</A>); 622 623 <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> 624 <b>procedure</b> <FONT COLOR=red><A NAME="ref_619_14" HREF="terminal_interface-curses__adb.htm#ref_332_14">Move_Window</A></FONT> (<FONT COLOR=red><A NAME="ref_619_27" HREF="terminal_interface-curses__adb.htm#ref_332_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 625 <FONT COLOR=red><A NAME="ref_620_27" HREF="terminal_interface-curses__adb.htm#ref_333_27">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 626 <FONT COLOR=red><A NAME="ref_621_27" HREF="terminal_interface-curses__adb.htm#ref_334_27">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>); 627 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">mvwin()</A></EM></FONT> 628 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_619_14">Move_Window</A>); 629 630 <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> 631 <b>procedure</b> <FONT COLOR=red><A NAME="ref_626_14" HREF="terminal_interface-curses__adb.htm#ref_346_14">Move_Derived_Window</A></FONT> (<FONT COLOR=red><A NAME="ref_626_35" HREF="terminal_interface-curses__adb.htm#ref_346_35">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 632 <FONT COLOR=red><A NAME="ref_627_35" HREF="terminal_interface-curses__adb.htm#ref_347_35">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 633 <FONT COLOR=red><A NAME="ref_628_35" HREF="terminal_interface-curses__adb.htm#ref_348_35">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>); 634 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">mvderwin()</A></EM></FONT> 635 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_626_14">Move_Derived_Window</A>); 636 637 <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> 638 <b>procedure</b> <FONT COLOR=red><A NAME="ref_633_14">Synchronize_Upwards</A></FONT> (<FONT COLOR=red><A NAME="ref_633_35" HREF="terminal_interface-curses__ads.htm#ref_633_14">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>); 639 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">wsyncup()</A></EM></FONT> 640 <b>pragma</b> Import (C, Synchronize_Upwards, "wsyncup"); 641 642 <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> 643 <b>procedure</b> <FONT COLOR=red><A NAME="ref_638_14">Synchronize_Downwards</A></FONT> (<FONT COLOR=red><A NAME="ref_638_37" HREF="terminal_interface-curses__ads.htm#ref_638_14">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>); 644 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">wsyncdown()</A></EM></FONT> 645 <b>pragma</b> Import (C, Synchronize_Downwards, "wsyncdown"); 646 647 <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> 648 <b>procedure</b> <FONT COLOR=red><A NAME="ref_643_14" HREF="terminal_interface-curses__adb.htm#ref_360_14">Set_Synch_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_643_30" HREF="terminal_interface-curses__adb.htm#ref_360_30">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 649 <FONT COLOR=red><A NAME="ref_644_30" HREF="terminal_interface-curses__adb.htm#ref_361_30">Mode</A></FONT> : <b>in</b> Boolean := False); 650 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_window.3x.html">syncok()</A></EM></FONT> 651 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_643_14">Set_Synch_Mode</A>); 652 653 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 654 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_addstr.3x.html">curs_addstr.3x</A></EM></FONT> 655 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 656 657 <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> 658 <b>procedure</b> <FONT COLOR=red><A NAME="ref_653_14" HREF="terminal_interface-curses__adb.htm#ref_372_14">Add</A></FONT> (<FONT COLOR=red><A NAME="ref_653_19" HREF="terminal_interface-curses__adb.htm#ref_372_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 659 <FONT COLOR=red><A NAME="ref_654_19" HREF="terminal_interface-curses__adb.htm#ref_373_19">Str</A></FONT> : <b>in</b> String; 660 <FONT COLOR=red><A NAME="ref_655_19" HREF="terminal_interface-curses__adb.htm#ref_374_19">Len</A></FONT> : <b>in</b> Integer := -1); 661 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_addstr.3x.html">waddnstr()</A></EM></FONT> 662 <FONT COLOR=green><EM>-- AKA: waddstr()</EM></FONT> 663 <FONT COLOR=green><EM>-- AKA: addnstr()</EM></FONT> 664 <FONT COLOR=green><EM>-- AKA: addstr()</EM></FONT> 665 666 <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> 667 <b>procedure</b> <FONT COLOR=red><A NAME="ref_662_14" HREF="terminal_interface-curses__adb.htm#ref_390_14">Add</A></FONT> (<FONT COLOR=red><A NAME="ref_662_19" HREF="terminal_interface-curses__adb.htm#ref_391_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 668 <FONT COLOR=red><A NAME="ref_663_19" HREF="terminal_interface-curses__adb.htm#ref_392_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 669 <FONT COLOR=red><A NAME="ref_664_19" HREF="terminal_interface-curses__adb.htm#ref_393_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 670 <FONT COLOR=red><A NAME="ref_665_19" HREF="terminal_interface-curses__adb.htm#ref_394_7">Str</A></FONT> : <b>in</b> String; 671 <FONT COLOR=red><A NAME="ref_666_19" HREF="terminal_interface-curses__adb.htm#ref_395_7">Len</A></FONT> : <b>in</b> Integer := -1); 672 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_addstr.3x.html">mvwaddnstr()</A></EM></FONT> 673 <FONT COLOR=green><EM>-- AKA: mvwaddstr()</EM></FONT> 674 <FONT COLOR=green><EM>-- AKA: mvaddnstr()</EM></FONT> 675 <FONT COLOR=green><EM>-- AKA: mvaddstr()</EM></FONT> 676 677 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 678 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_addchstr.3x.html">curs_addchstr.3x</A></EM></FONT> 679 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 680 681 <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> 682 <b>procedure</b> <FONT COLOR=red><A NAME="ref_677_14" HREF="terminal_interface-curses__adb.htm#ref_402_14">Add</A></FONT> (<FONT COLOR=red><A NAME="ref_677_19" HREF="terminal_interface-curses__adb.htm#ref_403_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 683 <FONT COLOR=red><A NAME="ref_678_19" HREF="terminal_interface-curses__adb.htm#ref_404_7">Str</A></FONT> : <b>in</b> Attributed_String; 684 <FONT COLOR=red><A NAME="ref_679_19" HREF="terminal_interface-curses__adb.htm#ref_405_7">Len</A></FONT> : <b>in</b> Integer := -1); 685 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_addchstr.3x.html">waddchnstr()</A></EM></FONT> 686 <FONT COLOR=green><EM>-- AKA: waddchstr()</EM></FONT> 687 <FONT COLOR=green><EM>-- AKA: addchnstr()</EM></FONT> 688 <FONT COLOR=green><EM>-- AKA: addchstr()</EM></FONT> 689 690 <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> 691 <b>procedure</b> <FONT COLOR=red><A NAME="ref_686_14" HREF="terminal_interface-curses__adb.htm#ref_425_14">Add</A></FONT> (<FONT COLOR=red><A NAME="ref_686_19" HREF="terminal_interface-curses__adb.htm#ref_426_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 692 <FONT COLOR=red><A NAME="ref_687_19" HREF="terminal_interface-curses__adb.htm#ref_427_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 693 <FONT COLOR=red><A NAME="ref_688_19" HREF="terminal_interface-curses__adb.htm#ref_428_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 694 <FONT COLOR=red><A NAME="ref_689_19" HREF="terminal_interface-curses__adb.htm#ref_429_7">Str</A></FONT> : <b>in</b> Attributed_String; 695 <FONT COLOR=red><A NAME="ref_690_19" HREF="terminal_interface-curses__adb.htm#ref_430_7">Len</A></FONT> : <b>in</b> Integer := -1); 696 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_addchstr.3x.html">mvwaddchnstr()</A></EM></FONT> 697 <FONT COLOR=green><EM>-- AKA: mvwaddchstr()</EM></FONT> 698 <FONT COLOR=green><EM>-- AKA: mvaddchnstr()</EM></FONT> 699 <FONT COLOR=green><EM>-- AKA: mvaddchstr()</EM></FONT> 700 <b>pragma</b> Inline (Add); 701 702 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 703 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_border.3x.html">curs_border.3x</A></EM></FONT> 704 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 705 <FONT COLOR=green><EM>-- | Not implemented: mvhline, mvwhline, mvvline, mvwvline</EM></FONT> 706 <FONT COLOR=green><EM>-- | use Move_Cursor then Horizontal_Line or Vertical_Line</EM></FONT> 707 708 <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> 709 <b>procedure</b> <FONT COLOR=red><A NAME="ref_704_14" HREF="terminal_interface-curses__adb.htm#ref_437_14">Border</A></FONT> 710 (<FONT COLOR=red><A NAME="ref_705_7" HREF="terminal_interface-curses__adb.htm#ref_438_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 711 <FONT COLOR=red><A NAME="ref_706_7" HREF="terminal_interface-curses__adb.htm#ref_439_7">Left_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>; 712 <FONT COLOR=red><A NAME="ref_707_7" HREF="terminal_interface-curses__adb.htm#ref_440_7">Right_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>; 713 <FONT COLOR=red><A NAME="ref_708_7" HREF="terminal_interface-curses__adb.htm#ref_441_7">Top_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>; 714 <FONT COLOR=red><A NAME="ref_709_7" HREF="terminal_interface-curses__adb.htm#ref_442_7">Bottom_Side_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>; 715 <FONT COLOR=red><A NAME="ref_710_7" HREF="terminal_interface-curses__adb.htm#ref_443_7">Upper_Left_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>; 716 <FONT COLOR=red><A NAME="ref_711_7" HREF="terminal_interface-curses__adb.htm#ref_444_7">Upper_Right_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>; 717 <FONT COLOR=red><A NAME="ref_712_7" HREF="terminal_interface-curses__adb.htm#ref_445_7">Lower_Left_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>; 718 <FONT COLOR=red><A NAME="ref_713_7" HREF="terminal_interface-curses__adb.htm#ref_446_7">Lower_Right_Corner_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A> 719 ); 720 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_border.3x.html">wborder()</A></EM></FONT> 721 <FONT COLOR=green><EM>-- AKA: border()</EM></FONT> 722 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_704_14">Border</A>); 723 724 <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> 725 <b>procedure</b> <FONT COLOR=red><A NAME="ref_720_14" HREF="terminal_interface-curses__adb.htm#ref_474_14">Box</A></FONT> 726 (<FONT COLOR=red><A NAME="ref_721_7" HREF="terminal_interface-curses__adb.htm#ref_475_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 727 <FONT COLOR=red><A NAME="ref_722_7" HREF="terminal_interface-curses__adb.htm#ref_476_7">Vertical_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>; 728 <FONT COLOR=red><A NAME="ref_723_7" HREF="terminal_interface-curses__adb.htm#ref_477_7">Horizontal_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>); 729 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_border.3x.html">box()</A></EM></FONT> 730 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_720_14">Box</A>); 731 732 <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> 733 <b>procedure</b> <FONT COLOR=red><A NAME="ref_728_14" HREF="terminal_interface-curses__adb.htm#ref_485_14">Horizontal_Line</A></FONT> 734 (<FONT COLOR=red><A NAME="ref_729_7" HREF="terminal_interface-curses__adb.htm#ref_486_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 735 <FONT COLOR=red><A NAME="ref_730_7" HREF="terminal_interface-curses__adb.htm#ref_487_7">Line_Size</A></FONT> : <b>in</b> Natural; 736 <FONT COLOR=red><A NAME="ref_731_7" HREF="terminal_interface-curses__adb.htm#ref_488_7">Line_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>); 737 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_border.3x.html">whline()</A></EM></FONT> 738 <FONT COLOR=green><EM>-- AKA: hline()</EM></FONT> 739 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_728_14">Horizontal_Line</A>); 740 741 <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> 742 <b>procedure</b> <FONT COLOR=red><A NAME="ref_737_14" HREF="terminal_interface-curses__adb.htm#ref_502_14">Vertical_Line</A></FONT> 743 (<FONT COLOR=red><A NAME="ref_738_7" HREF="terminal_interface-curses__adb.htm#ref_503_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 744 <FONT COLOR=red><A NAME="ref_739_7" HREF="terminal_interface-curses__adb.htm#ref_504_7">Line_Size</A></FONT> : <b>in</b> Natural; 745 <FONT COLOR=red><A NAME="ref_740_7" HREF="terminal_interface-curses__adb.htm#ref_505_7">Line_Symbol</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A> := <A HREF="terminal_interface-curses__ads.htm#ref_371_4">Default_Character</A>); 746 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_border.3x.html">wvline()</A></EM></FONT> 747 <FONT COLOR=green><EM>-- AKA: vline()</EM></FONT> 748 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_737_14">Vertical_Line</A>); 749 750 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 751 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_getch.3x.html">curs_getch.3x</A></EM></FONT> 752 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 753 <FONT COLOR=green><EM>-- Not implemented: mvgetch, mvwgetch</EM></FONT> 754 755 <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> 756 <b>function</b> <FONT COLOR=red><A NAME="ref_751_13" HREF="terminal_interface-curses__adb.htm#ref_520_13">Get_Keystroke</A></FONT> (<FONT COLOR=red><A NAME="ref_751_28" HREF="terminal_interface-curses__adb.htm#ref_520_28">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>) 757 <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_73_12">Real_Key_Code</A>; 758 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_getch.3x.html">wgetch()</A></EM></FONT> 759 <FONT COLOR=green><EM>-- AKA: getch()</EM></FONT> 760 <FONT COLOR=green><EM>-- Get a character from the keyboard and echo it - if enabled - to the</EM></FONT> 761 <FONT COLOR=green><EM>-- window.</EM></FONT> 762 <FONT COLOR=green><EM>-- If for any reason (i.e. a timeout) we couldn't get a character the</EM></FONT> 763 <FONT COLOR=green><EM>-- returned keycode is Key_None.</EM></FONT> 764 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_751_13">Get_Keystroke</A>); 765 766 <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> 767 <b>procedure</b> <FONT COLOR=red><A NAME="ref_762_14" HREF="terminal_interface-curses__adb.htm#ref_535_14">Undo_Keystroke</A></FONT> (<FONT COLOR=red><A NAME="ref_762_30" HREF="terminal_interface-curses__adb.htm#ref_535_30">Key</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_73_12">Real_Key_Code</A>); 768 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_getch.3x.html">ungetch()</A></EM></FONT> 769 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_762_14">Undo_Keystroke</A>); 770 771 <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> 772 <b>function</b> <FONT COLOR=red><A NAME="ref_767_13" HREF="terminal_interface-curses__adb.htm#ref_545_13">Has_Key</A></FONT> (<FONT COLOR=red><A NAME="ref_767_22" HREF="terminal_interface-curses__adb.htm#ref_545_22">Key</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A>) <b>return</b> Boolean; 773 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_getch.3x.html">has_key()</A></EM></FONT> 774 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_767_13">Has_Key</A>); 775 776 <FONT COLOR=green><EM>-- |</EM></FONT> 777 <FONT COLOR=green><EM>-- | Some helper functions</EM></FONT> 778 <FONT COLOR=green><EM>-- |</EM></FONT> 779 <b>function</b> <FONT COLOR=red><A NAME="ref_774_13" HREF="terminal_interface-curses__adb.htm#ref_557_13">Is_Function_Key</A></FONT> (<FONT COLOR=red><A NAME="ref_774_30" HREF="terminal_interface-curses__adb.htm#ref_557_30">Key</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A>) <b>return</b> Boolean; 780 <FONT COLOR=green><EM>-- Return True if the Key is a function key (i.e. one of F0 .. F63)</EM></FONT> 781 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_774_13">Is_Function_Key</A>); 782 783 <b>subtype</b> <FONT COLOR=red><A NAME="ref_778_12">Function_Key_Number</A></FONT> <b>is</b> Integer <b>range</b> 0 .. 63; 784 <FONT COLOR=green><EM>-- (n)curses allows for 64 function keys.</EM></FONT> 785 786 <b>function</b> <FONT COLOR=red><A NAME="ref_781_13" HREF="terminal_interface-curses__adb.htm#ref_569_13">Function_Key</A></FONT> (<FONT COLOR=red><A NAME="ref_781_27" HREF="terminal_interface-curses__adb.htm#ref_569_27">Key</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_73_12">Real_Key_Code</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_778_12">Function_Key_Number</A>; 787 <FONT COLOR=green><EM>-- Return the number of the function key. If the code is not a</EM></FONT> 788 <FONT COLOR=green><EM>-- function key, a CONSTRAINT_ERROR will be raised.</EM></FONT> 789 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_781_13">Function_Key</A>); 790 791 <b>function</b> <FONT COLOR=red><A NAME="ref_786_13" HREF="terminal_interface-curses__adb.htm#ref_580_13">Function_Key_Code</A></FONT> (<FONT COLOR=red><A NAME="ref_786_32" HREF="terminal_interface-curses__adb.htm#ref_580_32">Key</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_778_12">Function_Key_Number</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_73_12">Real_Key_Code</A>; 792 <FONT COLOR=green><EM>-- Return the key code for a given function-key number.</EM></FONT> 793 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_786_13">Function_Key_Code</A>); 794 795 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 796 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_attr.3x.html">curs_attr.3x</A></EM></FONT> 797 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 798 <FONT COLOR=green><EM>-- | Not implemented attr_off, wattr_off,</EM></FONT> 799 <FONT COLOR=green><EM>-- | attr_on, wattr_on, attr_set, wattr_set</EM></FONT> 800 801 <FONT COLOR=green><EM>-- PAIR_NUMBER</EM></FONT> 802 <FONT COLOR=green><EM>-- PAIR_NUMBER(c) is the same as c.Color</EM></FONT> 803 804 <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> 805 <b>procedure</b> <FONT COLOR=red><A NAME="ref_800_14" HREF="terminal_interface-curses__adb.htm#ref_586_14">Standout</A></FONT> (<FONT COLOR=red><A NAME="ref_800_24" HREF="terminal_interface-curses__adb.htm#ref_586_24">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 806 <FONT COLOR=red><A NAME="ref_801_24" HREF="terminal_interface-curses__adb.htm#ref_587_24">On</A></FONT> : Boolean := True); 807 <FONT COLOR=green><EM>-- AKA: wstandout()</EM></FONT> 808 <FONT COLOR=green><EM>-- AKA: wstandend()</EM></FONT> 809 810 <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> 811 <b>procedure</b> <FONT COLOR=red><A NAME="ref_806_14" HREF="terminal_interface-curses__adb.htm#ref_606_14">Switch_Character_Attribute</A></FONT> 812 (<FONT COLOR=red><A NAME="ref_807_7" HREF="terminal_interface-curses__adb.htm#ref_607_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 813 <FONT COLOR=red><A NAME="ref_808_7" HREF="terminal_interface-curses__adb.htm#ref_608_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>; 814 <FONT COLOR=red><A NAME="ref_809_7" HREF="terminal_interface-curses__adb.htm#ref_609_7">On</A></FONT> : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- if False we switch Off.</EM></FONT> 815 <FONT COLOR=green><EM>-- Switches those Attributes set to true in the list.</EM></FONT> 816 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_attr.3x.html">wattron()</A></EM></FONT> 817 <FONT COLOR=green><EM>-- AKA: wattroff()</EM></FONT> 818 <FONT COLOR=green><EM>-- AKA: attron()</EM></FONT> 819 <FONT COLOR=green><EM>-- AKA: attroff()</EM></FONT> 820 821 <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> 822 <b>procedure</b> <FONT COLOR=red><A NAME="ref_817_14" HREF="terminal_interface-curses__adb.htm#ref_634_14">Set_Character_Attributes</A></FONT> 823 (<FONT COLOR=red><A NAME="ref_818_7" HREF="terminal_interface-curses__adb.htm#ref_635_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 824 <FONT COLOR=red><A NAME="ref_819_7" HREF="terminal_interface-curses__adb.htm#ref_636_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>; 825 <FONT COLOR=red><A NAME="ref_820_7" HREF="terminal_interface-curses__adb.htm#ref_637_7">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First); 826 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_attr.3x.html">wattrset()</A></EM></FONT> 827 <FONT COLOR=green><EM>-- AKA: attrset()</EM></FONT> 828 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_817_14">Set_Character_Attributes</A>); 829 830 <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> 831 <b>function</b> <FONT COLOR=red><A NAME="ref_826_13" HREF="terminal_interface-curses__adb.htm#ref_652_13">Get_Character_Attribute</A></FONT> 832 (<FONT COLOR=red><A NAME="ref_827_7" HREF="terminal_interface-curses__adb.htm#ref_652_38">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>; 833 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_attr.3x.html">wattr_get()</A></EM></FONT> 834 <FONT COLOR=green><EM>-- AKA: attr_get()</EM></FONT> 835 836 <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> 837 <b>function</b> <FONT COLOR=red><A NAME="ref_832_13" HREF="terminal_interface-curses__adb.htm#ref_675_13">Get_Character_Attribute</A></FONT> 838 (<FONT COLOR=red><A NAME="ref_833_7" HREF="terminal_interface-curses__adb.htm#ref_675_38">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>; 839 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_attr.3x.html">wattr_get()</A></EM></FONT> 840 <b>pragma</b> Inline (Get_Character_Attribute); 841 842 <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> 843 <b>procedure</b> <FONT COLOR=red><A NAME="ref_838_14" HREF="terminal_interface-curses__adb.htm#ref_698_14">Set_Color</A></FONT> (<FONT COLOR=red><A NAME="ref_838_25" HREF="terminal_interface-curses__adb.htm#ref_698_25">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 844 <FONT COLOR=red><A NAME="ref_839_25" HREF="terminal_interface-curses__adb.htm#ref_699_25">Pair</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>); 845 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_attr.3x.html">wcolor_set()</A></EM></FONT> 846 <FONT COLOR=green><EM>-- AKA: color_set()</EM></FONT> 847 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_838_14">Set_Color</A>); 848 849 <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> 850 <b>procedure</b> <FONT COLOR=red><A NAME="ref_845_14" HREF="terminal_interface-curses__adb.htm#ref_713_14">Change_Attributes</A></FONT> 851 (<FONT COLOR=red><A NAME="ref_846_7" HREF="terminal_interface-curses__adb.htm#ref_714_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 852 <FONT COLOR=red><A NAME="ref_847_7" HREF="terminal_interface-curses__adb.htm#ref_715_7">Count</A></FONT> : <b>in</b> Integer := -1; 853 <FONT COLOR=red><A NAME="ref_848_7" HREF="terminal_interface-curses__adb.htm#ref_716_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>; 854 <FONT COLOR=red><A NAME="ref_849_7" HREF="terminal_interface-curses__adb.htm#ref_717_7">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First); 855 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_attr.3x.html">wchgat()</A></EM></FONT> 856 <FONT COLOR=green><EM>-- AKA: chgat()</EM></FONT> 857 858 <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> 859 <b>procedure</b> <FONT COLOR=red><A NAME="ref_854_14" HREF="terminal_interface-curses__adb.htm#ref_736_14">Change_Attributes</A></FONT> 860 (<FONT COLOR=red><A NAME="ref_855_7" HREF="terminal_interface-curses__adb.htm#ref_737_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 861 <FONT COLOR=red><A NAME="ref_856_7" HREF="terminal_interface-curses__adb.htm#ref_738_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A> := <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>'First; 862 <FONT COLOR=red><A NAME="ref_857_7" HREF="terminal_interface-curses__adb.htm#ref_739_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A> := <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>'First; 863 <FONT COLOR=red><A NAME="ref_858_7" HREF="terminal_interface-curses__adb.htm#ref_740_7">Count</A></FONT> : <b>in</b> Integer := -1; 864 <FONT COLOR=red><A NAME="ref_859_7" HREF="terminal_interface-curses__adb.htm#ref_741_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>; 865 <FONT COLOR=red><A NAME="ref_860_7" HREF="terminal_interface-curses__adb.htm#ref_742_7">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First); 866 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_attr.3x.html">mvwchgat()</A></EM></FONT> 867 <FONT COLOR=green><EM>-- AKA: mvchgat()</EM></FONT> 868 <b>pragma</b> Inline (Change_Attributes); 869 870 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 871 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_beep.3x.html">curs_beep.3x</A></EM></FONT> 872 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 873 874 <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> 875 <b>procedure</b> <FONT COLOR=red><A NAME="ref_870_14" HREF="terminal_interface-curses__adb.htm#ref_749_14">Beep</A></FONT>; 876 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_beep.3x.html">beep()</A></EM></FONT> 877 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_870_14">Beep</A>); 878 879 <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> 880 <b>procedure</b> <FONT COLOR=red><A NAME="ref_875_14" HREF="terminal_interface-curses__adb.htm#ref_759_14">Flash_Screen</A></FONT>; 881 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_beep.3x.html">flash()</A></EM></FONT> 882 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_875_14">Flash_Screen</A>); 883 884 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 885 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_inopts.3x.html">curs_inopts.3x</A></EM></FONT> 886 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 887 888 <FONT COLOR=green><EM>-- | Not implemented : typeahead</EM></FONT> 889 <FONT COLOR=green><EM>--</EM></FONT> 890 <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> 891 <b>procedure</b> <FONT COLOR=red><A NAME="ref_886_14" HREF="terminal_interface-curses__adb.htm#ref_769_14">Set_Cbreak_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_886_31" HREF="terminal_interface-curses__adb.htm#ref_769_31">SwitchOn</A></FONT> : <b>in</b> Boolean := True); 892 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">cbreak()</A></EM></FONT> 893 <FONT COLOR=green><EM>-- AKA: nocbreak()</EM></FONT> 894 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_886_14">Set_Cbreak_Mode</A>); 895 896 <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> 897 <b>procedure</b> <FONT COLOR=red><A NAME="ref_892_14" HREF="terminal_interface-curses__adb.htm#ref_788_14">Set_Raw_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_892_28" HREF="terminal_interface-curses__adb.htm#ref_788_28">SwitchOn</A></FONT> : <b>in</b> Boolean := True); 898 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">raw()</A></EM></FONT> 899 <FONT COLOR=green><EM>-- AKA: noraw()</EM></FONT> 900 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_892_14">Set_Raw_Mode</A>); 901 902 <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT> 903 <b>procedure</b> <FONT COLOR=red><A NAME="ref_898_14" HREF="terminal_interface-curses__adb.htm#ref_807_14">Set_Echo_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_898_29" HREF="terminal_interface-curses__adb.htm#ref_807_29">SwitchOn</A></FONT> : <b>in</b> Boolean := True); 904 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">echo()</A></EM></FONT> 905 <FONT COLOR=green><EM>-- AKA: noecho()</EM></FONT> 906 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_898_14">Set_Echo_Mode</A>); 907 908 <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT> 909 <b>procedure</b> <FONT COLOR=red><A NAME="ref_904_14" HREF="terminal_interface-curses__adb.htm#ref_826_14">Set_Meta_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_904_29" HREF="terminal_interface-curses__adb.htm#ref_826_29">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 910 <FONT COLOR=red><A NAME="ref_905_29" HREF="terminal_interface-curses__adb.htm#ref_827_29">SwitchOn</A></FONT> : <b>in</b> Boolean := True); 911 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">meta()</A></EM></FONT> 912 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_904_14">Set_Meta_Mode</A>); 913 914 <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT> 915 <b>procedure</b> <FONT COLOR=red><A NAME="ref_910_14" HREF="terminal_interface-curses__adb.htm#ref_837_14">Set_KeyPad_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_910_31" HREF="terminal_interface-curses__adb.htm#ref_837_31">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 916 <FONT COLOR=red><A NAME="ref_911_31" HREF="terminal_interface-curses__adb.htm#ref_838_31">SwitchOn</A></FONT> : <b>in</b> Boolean := True); 917 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">keypad()</A></EM></FONT> 918 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_910_14">Set_KeyPad_Mode</A>); 919 920 <b>function</b> <FONT COLOR=red><A NAME="ref_915_13" HREF="terminal_interface-curses__adb.htm#ref_848_13">Get_KeyPad_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_915_30" HREF="terminal_interface-curses__adb.htm#ref_848_30">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>) 921 <b>return</b> Boolean; 922 <FONT COLOR=green><EM>-- This has no pendant in C. There you've to look into the WINDOWS</EM></FONT> 923 <FONT COLOR=green><EM>-- structure to get the value. Bad practice, not repeated in Ada.</EM></FONT> 924 925 <b>type</b> <FONT COLOR=red><A NAME="ref_920_9">Half_Delay_Amount</A></FONT> <b>is</b> <b>range</b> 1 .. 255; 926 927 <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT> 928 <b>procedure</b> <FONT COLOR=red><A NAME="ref_923_14" HREF="terminal_interface-curses__adb.htm#ref_857_14">Half_Delay</A></FONT> (<FONT COLOR=red><A NAME="ref_923_26" HREF="terminal_interface-curses__adb.htm#ref_857_26">Amount</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_920_9">Half_Delay_Amount</A>); 929 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">halfdelay()</A></EM></FONT> 930 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_923_14">Half_Delay</A>); 931 932 <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT> 933 <b>procedure</b> <FONT COLOR=red><A NAME="ref_928_14" HREF="terminal_interface-curses__adb.htm#ref_867_14">Set_Flush_On_Interrupt_Mode</A></FONT> 934 (<FONT COLOR=red><A NAME="ref_929_7" HREF="terminal_interface-curses__adb.htm#ref_868_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 935 <FONT COLOR=red><A NAME="ref_930_7" HREF="terminal_interface-curses__adb.htm#ref_869_7">Mode</A></FONT> : <b>in</b> Boolean := True); 936 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">intrflush()</A></EM></FONT> 937 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_928_14">Set_Flush_On_Interrupt_Mode</A>); 938 939 <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT> 940 <b>procedure</b> <FONT COLOR=red><A NAME="ref_935_14" HREF="terminal_interface-curses__adb.htm#ref_879_14">Set_Queue_Interrupt_Mode</A></FONT> 941 (<FONT COLOR=red><A NAME="ref_936_7" HREF="terminal_interface-curses__adb.htm#ref_880_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 942 <FONT COLOR=red><A NAME="ref_937_7" HREF="terminal_interface-curses__adb.htm#ref_881_7">Flush</A></FONT> : <b>in</b> Boolean := True); 943 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">qiflush()</A></EM></FONT> 944 <FONT COLOR=green><EM>-- AKA: noqiflush()</EM></FONT> 945 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_935_14">Set_Queue_Interrupt_Mode</A>); 946 947 <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT> 948 <b>procedure</b> <FONT COLOR=red><A NAME="ref_943_14" HREF="terminal_interface-curses__adb.htm#ref_898_14">Set_NoDelay_Mode</A></FONT> 949 (<FONT COLOR=red><A NAME="ref_944_7" HREF="terminal_interface-curses__adb.htm#ref_899_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 950 <FONT COLOR=red><A NAME="ref_945_7" HREF="terminal_interface-curses__adb.htm#ref_900_7">Mode</A></FONT> : <b>in</b> Boolean := False); 951 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">nodelay()</A></EM></FONT> 952 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_943_14">Set_NoDelay_Mode</A>); 953 954 <b>type</b> <FONT COLOR=red><A NAME="ref_949_9">Timeout_Mode</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="ref_949_26">Blocking</A></FONT>, <FONT COLOR=red><A NAME="ref_949_36">Non_Blocking</A></FONT>, <FONT COLOR=red><A NAME="ref_949_50">Delayed</A></FONT>); 955 956 <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT> 957 <b>procedure</b> <FONT COLOR=red><A NAME="ref_952_14" HREF="terminal_interface-curses__adb.htm#ref_910_14">Set_Timeout_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_952_32" HREF="terminal_interface-curses__adb.htm#ref_910_32">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 958 <FONT COLOR=red><A NAME="ref_953_32" HREF="terminal_interface-curses__adb.htm#ref_911_32">Mode</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_949_9">Timeout_Mode</A>; 959 <FONT COLOR=red><A NAME="ref_954_32" HREF="terminal_interface-curses__adb.htm#ref_912_32">Amount</A></FONT> : <b>in</b> Natural); <FONT COLOR=green><EM>-- in Milliseconds</EM></FONT> 960 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">wtimeout()</A></EM></FONT> 961 <FONT COLOR=green><EM>-- AKA: timeout()</EM></FONT> 962 <FONT COLOR=green><EM>-- Instead of overloading the semantic of the sign of amount, we</EM></FONT> 963 <FONT COLOR=green><EM>-- introduce the Timeout_Mode parameter. This should improve</EM></FONT> 964 <FONT COLOR=green><EM>-- readability. For Blocking and Non_Blocking, the Amount is not</EM></FONT> 965 <FONT COLOR=green><EM>-- evaluated.</EM></FONT> 966 <FONT COLOR=green><EM>-- We don't inline this procedure.</EM></FONT> 967 968 <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT> 969 <b>procedure</b> <FONT COLOR=red><A NAME="ref_964_14" HREF="terminal_interface-curses__adb.htm#ref_931_14">Set_Escape_Timer_Mode</A></FONT> 970 (<FONT COLOR=red><A NAME="ref_965_7" HREF="terminal_interface-curses__adb.htm#ref_932_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 971 <FONT COLOR=red><A NAME="ref_966_7" HREF="terminal_interface-curses__adb.htm#ref_933_7">Timer_Off</A></FONT> : <b>in</b> Boolean := False); 972 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inopts.3x.html">notimeout()</A></EM></FONT> 973 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_964_14">Set_Escape_Timer_Mode</A>); 974 975 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 976 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_outopts.3x.html">curs_outopts.3x</A></EM></FONT> 977 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 978 979 <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT> 980 <b>procedure</b> <FONT COLOR=red><A NAME="ref_975_14" HREF="terminal_interface-curses__adb.htm#ref_945_14">Set_NL_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_975_27" HREF="terminal_interface-curses__adb.htm#ref_945_27">SwitchOn</A></FONT> : <b>in</b> Boolean := True); 981 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_outopts.3x.html">nl()</A></EM></FONT> 982 <FONT COLOR=green><EM>-- AKA: nonl()</EM></FONT> 983 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_975_14">Set_NL_Mode</A>); 984 985 <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT> 986 <b>procedure</b> <FONT COLOR=red><A NAME="ref_981_14" HREF="terminal_interface-curses__adb.htm#ref_964_14">Clear_On_Next_Update</A></FONT> 987 (<FONT COLOR=red><A NAME="ref_982_7" HREF="terminal_interface-curses__adb.htm#ref_965_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 988 <FONT COLOR=red><A NAME="ref_983_7" HREF="terminal_interface-curses__adb.htm#ref_966_7">Do_Clear</A></FONT> : <b>in</b> Boolean := True); 989 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_outopts.3x.html">clearok()</A></EM></FONT> 990 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_981_14">Clear_On_Next_Update</A>); 991 992 <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT> 993 <b>procedure</b> <FONT COLOR=red><A NAME="ref_988_14" HREF="terminal_interface-curses__adb.htm#ref_976_14">Use_Insert_Delete_Line</A></FONT> 994 (<FONT COLOR=red><A NAME="ref_989_7" HREF="terminal_interface-curses__adb.htm#ref_977_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 995 <FONT COLOR=red><A NAME="ref_990_7" HREF="terminal_interface-curses__adb.htm#ref_978_7">Do_Idl</A></FONT> : <b>in</b> Boolean := True); 996 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_outopts.3x.html">idlok()</A></EM></FONT> 997 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_988_14">Use_Insert_Delete_Line</A>); 998 999 <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT> 1000 <b>procedure</b> <FONT COLOR=red><A NAME="ref_995_14" HREF="terminal_interface-curses__adb.htm#ref_988_14">Use_Insert_Delete_Character</A></FONT> 1001 (<FONT COLOR=red><A NAME="ref_996_7" HREF="terminal_interface-curses__adb.htm#ref_989_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1002 <FONT COLOR=red><A NAME="ref_997_7" HREF="terminal_interface-curses__adb.htm#ref_990_7">Do_Idc</A></FONT> : <b>in</b> Boolean := True); 1003 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_outopts.3x.html">idcok()</A></EM></FONT> 1004 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_995_14">Use_Insert_Delete_Character</A>); 1005 1006 <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT> 1007 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1002_14" HREF="terminal_interface-curses__adb.htm#ref_998_14">Leave_Cursor_After_Update</A></FONT> 1008 (<FONT COLOR=red><A NAME="ref_1003_7" HREF="terminal_interface-curses__adb.htm#ref_999_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1009 <FONT COLOR=red><A NAME="ref_1004_7" HREF="terminal_interface-curses__adb.htm#ref_1000_7">Do_Leave</A></FONT> : <b>in</b> Boolean := True); 1010 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_outopts.3x.html">leaveok()</A></EM></FONT> 1011 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1002_14">Leave_Cursor_After_Update</A>); 1012 1013 <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT> 1014 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1009_14" HREF="terminal_interface-curses__adb.htm#ref_1010_14">Immediate_Update_Mode</A></FONT> 1015 (<FONT COLOR=red><A NAME="ref_1010_7" HREF="terminal_interface-curses__adb.htm#ref_1011_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1016 <FONT COLOR=red><A NAME="ref_1011_7" HREF="terminal_interface-curses__adb.htm#ref_1012_7">Mode</A></FONT> : <b>in</b> Boolean := False); 1017 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_outopts.3x.html">immedok()</A></EM></FONT> 1018 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1009_14">Immediate_Update_Mode</A>); 1019 1020 <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT> 1021 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1016_14" HREF="terminal_interface-curses__adb.htm#ref_1020_14">Allow_Scrolling</A></FONT> 1022 (<FONT COLOR=red><A NAME="ref_1017_7" HREF="terminal_interface-curses__adb.htm#ref_1021_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1023 <FONT COLOR=red><A NAME="ref_1018_7" HREF="terminal_interface-curses__adb.htm#ref_1022_7">Mode</A></FONT> : <b>in</b> Boolean := False); 1024 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_outopts.3x.html">scrollok()</A></EM></FONT> 1025 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1016_14">Allow_Scrolling</A>); 1026 1027 <b>function</b> <FONT COLOR=red><A NAME="ref_1022_13" HREF="terminal_interface-curses__adb.htm#ref_1032_13">Scrolling_Allowed</A></FONT> (<FONT COLOR=red><A NAME="ref_1022_32" HREF="terminal_interface-curses__adb.htm#ref_1032_32">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>) <b>return</b> Boolean; 1028 <FONT COLOR=green><EM>-- There is no such function in the C interface.</EM></FONT> 1029 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1022_13">Scrolling_Allowed</A>); 1030 1031 <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT> 1032 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1027_14" HREF="terminal_interface-curses__adb.htm#ref_1041_14">Set_Scroll_Region</A></FONT> 1033 (<FONT COLOR=red><A NAME="ref_1028_7" HREF="terminal_interface-curses__adb.htm#ref_1042_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1034 <FONT COLOR=red><A NAME="ref_1029_7" HREF="terminal_interface-curses__adb.htm#ref_1043_7">Top_Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1035 <FONT COLOR=red><A NAME="ref_1030_7" HREF="terminal_interface-curses__adb.htm#ref_1044_7">Bottom_Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>); 1036 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_outopts.3x.html">wsetscrreg()</A></EM></FONT> 1037 <FONT COLOR=green><EM>-- AKA: setscrreg()</EM></FONT> 1038 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1027_14">Set_Scroll_Region</A>); 1039 1040 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1041 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_refresh.3x.html">curs_refresh.3x</A></EM></FONT> 1042 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1043 1044 <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT> 1045 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1040_14" HREF="terminal_interface-curses__adb.htm#ref_1057_14">Update_Screen</A></FONT>; 1046 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_refresh.3x.html">doupdate()</A></EM></FONT> 1047 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1040_14">Update_Screen</A>); 1048 1049 <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT> 1050 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1045_14" HREF="terminal_interface-curses__adb.htm#ref_1067_14">Refresh</A></FONT> (<FONT COLOR=red><A NAME="ref_1045_23" HREF="terminal_interface-curses__adb.htm#ref_1067_23">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1051 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_refresh.3x.html">wrefresh()</A></EM></FONT> 1052 <FONT COLOR=green><EM>-- There is an overloaded Refresh for Pads.</EM></FONT> 1053 <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT> 1054 <FONT COLOR=green><EM>-- AKA: refresh()</EM></FONT> 1055 1056 <FONT COLOR=green><EM>-- #1A NAME="AFU_63"#2|</EM></FONT> 1057 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1052_14" HREF="terminal_interface-curses__adb.htm#ref_1077_14">Refresh_Without_Update</A></FONT> 1058 (<FONT COLOR=red><A NAME="ref_1053_7" HREF="terminal_interface-curses__adb.htm#ref_1078_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1059 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_refresh.3x.html">wnoutrefresh()</A></EM></FONT> 1060 <FONT COLOR=green><EM>-- There is an overloaded Refresh_Without_Update for Pads.</EM></FONT> 1061 <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT> 1062 1063 <FONT COLOR=green><EM>-- #1A NAME="AFU_64"#2|</EM></FONT> 1064 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1059_14" HREF="terminal_interface-curses__adb.htm#ref_1088_14">Redraw</A></FONT> (<FONT COLOR=red><A NAME="ref_1059_22" HREF="terminal_interface-curses__adb.htm#ref_1088_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1065 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_refresh.3x.html">redrawwin()</A></EM></FONT> 1066 1067 <FONT COLOR=green><EM>-- #1A NAME="AFU_65"#2|</EM></FONT> 1068 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1063_14" HREF="terminal_interface-curses__adb.htm#ref_1098_14">Redraw</A></FONT> (<FONT COLOR=red><A NAME="ref_1063_22" HREF="terminal_interface-curses__adb.htm#ref_1099_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1069 <FONT COLOR=red><A NAME="ref_1064_22" HREF="terminal_interface-curses__adb.htm#ref_1100_7">Begin_Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1070 <FONT COLOR=red><A NAME="ref_1065_22" HREF="terminal_interface-curses__adb.htm#ref_1101_7">Line_Count</A></FONT> : <b>in</b> Positive); 1071 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_refresh.3x.html">wredrawln()</A></EM></FONT> 1072 <b>pragma</b> Inline (Redraw); 1073 1074 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1075 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_clear.3x.html">curs_clear.3x</A></EM></FONT> 1076 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1077 1078 <FONT COLOR=green><EM>-- #1A NAME="AFU_66"#2|</EM></FONT> 1079 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1074_14" HREF="terminal_interface-curses__adb.htm#ref_1115_14">Erase</A></FONT> (<FONT COLOR=red><A NAME="ref_1074_21" HREF="terminal_interface-curses__adb.htm#ref_1115_21">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1080 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_clear.3x.html">werase()</A></EM></FONT> 1081 <FONT COLOR=green><EM>-- AKA: erase()</EM></FONT> 1082 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1074_14">Erase</A>); 1083 1084 <FONT COLOR=green><EM>-- #1A NAME="AFU_67"#2|</EM></FONT> 1085 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1080_14" HREF="terminal_interface-curses__adb.htm#ref_1125_14">Clear</A></FONT> 1086 (<FONT COLOR=red><A NAME="ref_1081_7" HREF="terminal_interface-curses__adb.htm#ref_1125_21">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1087 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_clear.3x.html">wclear()</A></EM></FONT> 1088 <FONT COLOR=green><EM>-- AKA: clear()</EM></FONT> 1089 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1080_14">Clear</A>); 1090 1091 <FONT COLOR=green><EM>-- #1A NAME="AFU_68"#2|</EM></FONT> 1092 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1087_14" HREF="terminal_interface-curses__adb.htm#ref_1135_14">Clear_To_End_Of_Screen</A></FONT> 1093 (<FONT COLOR=red><A NAME="ref_1088_7" HREF="terminal_interface-curses__adb.htm#ref_1135_38">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1094 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_clear.3x.html">wclrtobot()</A></EM></FONT> 1095 <FONT COLOR=green><EM>-- AKA: clrtobot()</EM></FONT> 1096 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1087_14">Clear_To_End_Of_Screen</A>); 1097 1098 <FONT COLOR=green><EM>-- #1A NAME="AFU_69"#2|</EM></FONT> 1099 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1094_14" HREF="terminal_interface-curses__adb.htm#ref_1145_14">Clear_To_End_Of_Line</A></FONT> 1100 (<FONT COLOR=red><A NAME="ref_1095_7" HREF="terminal_interface-curses__adb.htm#ref_1145_36">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1101 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_clear.3x.html">wclrtoeol()</A></EM></FONT> 1102 <FONT COLOR=green><EM>-- AKA: clrtoeol()</EM></FONT> 1103 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1094_14">Clear_To_End_Of_Line</A>); 1104 1105 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1106 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_bkgd.3x.html">curs_bkgd.3x</A></EM></FONT> 1107 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1108 1109 <FONT COLOR=green><EM>-- #1A NAME="AFU_70"#2|</EM></FONT> 1110 <FONT COLOR=green><EM>-- TODO: we could have Set_Background(Window; Character_Attribute_Set)</EM></FONT> 1111 <FONT COLOR=green><EM>-- because in C it is common to see bkgdset(A_BOLD) or</EM></FONT> 1112 <FONT COLOR=green><EM>-- bkgdset(COLOR_PAIR(n))</EM></FONT> 1113 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1108_14" HREF="terminal_interface-curses__adb.htm#ref_1155_14">Set_Background</A></FONT> 1114 (<FONT COLOR=red><A NAME="ref_1109_7" HREF="terminal_interface-curses__adb.htm#ref_1156_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1115 <FONT COLOR=red><A NAME="ref_1110_7" HREF="terminal_interface-curses__adb.htm#ref_1157_7">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>); 1116 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_bkgd.3x.html">wbkgdset()</A></EM></FONT> 1117 <FONT COLOR=green><EM>-- AKA: bkgdset()</EM></FONT> 1118 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1108_14">Set_Background</A>); 1119 1120 <FONT COLOR=green><EM>-- #1A NAME="AFU_71"#2|</EM></FONT> 1121 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1116_14" HREF="terminal_interface-curses__adb.htm#ref_1165_14">Change_Background</A></FONT> 1122 (<FONT COLOR=red><A NAME="ref_1117_7" HREF="terminal_interface-curses__adb.htm#ref_1166_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1123 <FONT COLOR=red><A NAME="ref_1118_7" HREF="terminal_interface-curses__adb.htm#ref_1167_7">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>); 1124 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_bkgd.3x.html">wbkgd()</A></EM></FONT> 1125 <FONT COLOR=green><EM>-- AKA: bkgd()</EM></FONT> 1126 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1116_14">Change_Background</A>); 1127 1128 <FONT COLOR=green><EM>-- #1A NAME="AFU_72"#2|</EM></FONT> 1129 <FONT COLOR=green><EM>-- ? wbkgdget is not listed in curs_bkgd, getbkgd is thpough.</EM></FONT> 1130 <b>function</b> <FONT COLOR=red><A NAME="ref_1125_13" HREF="terminal_interface-curses__adb.htm#ref_1177_13">Get_Background</A></FONT> (<FONT COLOR=red><A NAME="ref_1125_29" HREF="terminal_interface-curses__adb.htm#ref_1177_29">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>) 1131 <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>; 1132 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_bkgd.3x.html">wbkgdget()</A></EM></FONT> 1133 <FONT COLOR=green><EM>-- AKA: bkgdget()</EM></FONT> 1134 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1125_13">Get_Background</A>); 1135 1136 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1137 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_touch.3x.html">curs_touch.3x</A></EM></FONT> 1138 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1139 1140 <FONT COLOR=green><EM>-- #1A NAME="AFU_73"#2|</EM></FONT> 1141 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1136_14" HREF="terminal_interface-curses__adb.htm#ref_1212_14">Untouch</A></FONT> (<FONT COLOR=red><A NAME="ref_1136_23" HREF="terminal_interface-curses__adb.htm#ref_1212_23">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1142 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_touch.3x.html">untouchwin()</A></EM></FONT> 1143 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1136_14">Untouch</A>); 1144 1145 <FONT COLOR=green><EM>-- #1A NAME="AFU_74"#2|</EM></FONT> 1146 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1141_14" HREF="terminal_interface-curses__adb.htm#ref_1203_14">Touch</A></FONT> (<FONT COLOR=red><A NAME="ref_1141_21" HREF="terminal_interface-curses__adb.htm#ref_1203_21">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1147 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_touch.3x.html">touchwin()</A></EM></FONT> 1148 1149 <FONT COLOR=green><EM>-- #1A NAME="AFU_75"#2|</EM></FONT> 1150 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1145_14" HREF="terminal_interface-curses__adb.htm#ref_1221_14">Touch</A></FONT> (<FONT COLOR=red><A NAME="ref_1145_21" HREF="terminal_interface-curses__adb.htm#ref_1221_21">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1151 <FONT COLOR=red><A NAME="ref_1146_21" HREF="terminal_interface-curses__adb.htm#ref_1222_21">Start</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1152 <FONT COLOR=red><A NAME="ref_1147_21" HREF="terminal_interface-curses__adb.htm#ref_1223_21">Count</A></FONT> : <b>in</b> Positive); 1153 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_touch.3x.html">touchline()</A></EM></FONT> 1154 <b>pragma</b> Inline (Touch); 1155 1156 <FONT COLOR=green><EM>-- #1A NAME="AFU_76"#2|</EM></FONT> 1157 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1152_14" HREF="terminal_interface-curses__adb.htm#ref_1186_14">Change_Lines_Status</A></FONT> (<FONT COLOR=red><A NAME="ref_1152_35" HREF="terminal_interface-curses__adb.htm#ref_1186_35">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1158 <FONT COLOR=red><A NAME="ref_1153_35" HREF="terminal_interface-curses__adb.htm#ref_1187_35">Start</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1159 <FONT COLOR=red><A NAME="ref_1154_35" HREF="terminal_interface-curses__adb.htm#ref_1188_35">Count</A></FONT> : <b>in</b> Positive; 1160 <FONT COLOR=red><A NAME="ref_1155_35" HREF="terminal_interface-curses__adb.htm#ref_1189_35">State</A></FONT> : <b>in</b> Boolean); 1161 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_touch.3x.html">wtouchln()</A></EM></FONT> 1162 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1152_14">Change_Lines_Status</A>); 1163 1164 <FONT COLOR=green><EM>-- #1A NAME="AFU_77"#2|</EM></FONT> 1165 <b>function</b> <FONT COLOR=red><A NAME="ref_1160_13" HREF="terminal_interface-curses__adb.htm#ref_1229_13">Is_Touched</A></FONT> (<FONT COLOR=red><A NAME="ref_1160_25" HREF="terminal_interface-curses__adb.htm#ref_1230_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1166 <FONT COLOR=red><A NAME="ref_1161_25" HREF="terminal_interface-curses__adb.htm#ref_1231_7">Line</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>) <b>return</b> Boolean; 1167 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_touch.3x.html">is_linetouched()</A></EM></FONT> 1168 1169 <FONT COLOR=green><EM>-- #1A NAME="AFU_78"#2|</EM></FONT> 1170 <b>function</b> <FONT COLOR=red><A NAME="ref_1165_13" HREF="terminal_interface-curses__adb.htm#ref_1243_13">Is_Touched</A></FONT> (<FONT COLOR=red><A NAME="ref_1165_25" HREF="terminal_interface-curses__adb.htm#ref_1244_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>) <b>return</b> Boolean; 1171 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_touch.3x.html">is_wintouched()</A></EM></FONT> 1172 <b>pragma</b> Inline (Is_Touched); 1173 1174 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1175 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_overlay.3x.html">curs_overlay.3x</A></EM></FONT> 1176 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1177 1178 <FONT COLOR=green><EM>-- #1A NAME="AFU_79"#2|</EM></FONT> 1179 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1174_14" HREF="terminal_interface-curses__adb.htm#ref_1256_14">Copy</A></FONT> 1180 (<FONT COLOR=red><A NAME="ref_1175_7" HREF="terminal_interface-curses__adb.htm#ref_1257_7">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1181 <FONT COLOR=red><A NAME="ref_1176_7" HREF="terminal_interface-curses__adb.htm#ref_1258_7">Destination_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1182 <FONT COLOR=red><A NAME="ref_1177_7" HREF="terminal_interface-curses__adb.htm#ref_1259_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1183 <FONT COLOR=red><A NAME="ref_1178_7" HREF="terminal_interface-curses__adb.htm#ref_1260_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1184 <FONT COLOR=red><A NAME="ref_1179_7" HREF="terminal_interface-curses__adb.htm#ref_1261_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1185 <FONT COLOR=red><A NAME="ref_1180_7" HREF="terminal_interface-curses__adb.htm#ref_1262_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1186 <FONT COLOR=red><A NAME="ref_1181_7" HREF="terminal_interface-curses__adb.htm#ref_1263_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1187 <FONT COLOR=red><A NAME="ref_1182_7" HREF="terminal_interface-curses__adb.htm#ref_1264_7">Destination_Right_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1188 <FONT COLOR=red><A NAME="ref_1183_7" HREF="terminal_interface-curses__adb.htm#ref_1265_7">Non_Destructive_Mode</A></FONT> : <b>in</b> Boolean := True); 1189 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_overlay.3x.html">copywin()</A></EM></FONT> 1190 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1174_14">Copy</A>); 1191 1192 <FONT COLOR=green><EM>-- #1A NAME="AFU_80"#2|</EM></FONT> 1193 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1188_14" HREF="terminal_interface-curses__adb.htm#ref_1292_14">Overwrite</A></FONT> (<FONT COLOR=red><A NAME="ref_1188_25" HREF="terminal_interface-curses__adb.htm#ref_1293_7">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1194 <FONT COLOR=red><A NAME="ref_1189_25" HREF="terminal_interface-curses__adb.htm#ref_1294_7">Destination_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>); 1195 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_overlay.3x.html">overwrite()</A></EM></FONT> 1196 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1188_14">Overwrite</A>); 1197 1198 <FONT COLOR=green><EM>-- #1A NAME="AFU_81"#2|</EM></FONT> 1199 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1194_14" HREF="terminal_interface-curses__adb.htm#ref_1304_14">Overlay</A></FONT> (<FONT COLOR=red><A NAME="ref_1194_23" HREF="terminal_interface-curses__adb.htm#ref_1305_7">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1200 <FONT COLOR=red><A NAME="ref_1195_23" HREF="terminal_interface-curses__adb.htm#ref_1306_7">Destination_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>); 1201 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_overlay.3x.html">overlay()</A></EM></FONT> 1202 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1194_14">Overlay</A>); 1203 1204 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1205 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_deleteln.3x.html">curs_deleteln.3x</A></EM></FONT> 1206 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1207 1208 <FONT COLOR=green><EM>-- #1A NAME="AFU_82"#2|</EM></FONT> 1209 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1204_14" HREF="terminal_interface-curses__adb.htm#ref_1317_14">Insert_Delete_Lines</A></FONT> 1210 (<FONT COLOR=red><A NAME="ref_1205_7" HREF="terminal_interface-curses__adb.htm#ref_1318_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1211 <FONT COLOR=red><A NAME="ref_1206_7" HREF="terminal_interface-curses__adb.htm#ref_1319_7">Lines</A></FONT> : <b>in</b> Integer := 1); <FONT COLOR=green><EM>-- default is to insert one line above</EM></FONT> 1212 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_deleteln.3x.html">winsdelln()</A></EM></FONT> 1213 <FONT COLOR=green><EM>-- AKA: insdelln()</EM></FONT> 1214 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1204_14">Insert_Delete_Lines</A>); 1215 1216 <FONT COLOR=green><EM>-- #1A NAME="AFU_83"#2|</EM></FONT> 1217 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1212_14" HREF="terminal_interface-curses__adb.htm#ref_1329_14">Delete_Line</A></FONT> (<FONT COLOR=red><A NAME="ref_1212_27" HREF="terminal_interface-curses__adb.htm#ref_1329_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1218 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_deleteln.3x.html">wdeleteln()</A></EM></FONT> 1219 <FONT COLOR=green><EM>-- AKA: deleteln()</EM></FONT> 1220 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1212_14">Delete_Line</A>); 1221 1222 <FONT COLOR=green><EM>-- #1A NAME="AFU_84"#2|</EM></FONT> 1223 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1218_14" HREF="terminal_interface-curses__adb.htm#ref_1335_14">Insert_Line</A></FONT> (<FONT COLOR=red><A NAME="ref_1218_27" HREF="terminal_interface-curses__adb.htm#ref_1335_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1224 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_deleteln.3x.html">winsertln()</A></EM></FONT> 1225 <FONT COLOR=green><EM>-- AKA: insertln()</EM></FONT> 1226 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1218_14">Insert_Line</A>); 1227 1228 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1229 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_getyx.3x.html">curs_getyx.3x</A></EM></FONT> 1230 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1231 1232 <FONT COLOR=green><EM>-- #1A NAME="AFU_85"#2|</EM></FONT> 1233 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1228_14" HREF="terminal_interface-curses__adb.htm#ref_1342_14">Get_Size</A></FONT> 1234 (<FONT COLOR=red><A NAME="ref_1229_7" HREF="terminal_interface-curses__adb.htm#ref_1343_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1235 <FONT COLOR=red><A NAME="ref_1230_7" HREF="terminal_interface-curses__adb.htm#ref_1344_7">Number_Of_Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 1236 <FONT COLOR=red><A NAME="ref_1231_7" HREF="terminal_interface-curses__adb.htm#ref_1345_7">Number_Of_Columns</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>); 1237 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_getyx.3x.html">getmaxyx()</A></EM></FONT> 1238 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1228_14">Get_Size</A>); 1239 1240 <FONT COLOR=green><EM>-- #1A NAME="AFU_86"#2|</EM></FONT> 1241 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1236_14" HREF="terminal_interface-curses__adb.htm#ref_1362_14">Get_Window_Position</A></FONT> 1242 (<FONT COLOR=red><A NAME="ref_1237_7" HREF="terminal_interface-curses__adb.htm#ref_1363_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1243 <FONT COLOR=red><A NAME="ref_1238_7" HREF="terminal_interface-curses__adb.htm#ref_1364_7">Top_Left_Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1244 <FONT COLOR=red><A NAME="ref_1239_7" HREF="terminal_interface-curses__adb.htm#ref_1365_7">Top_Left_Column</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>); 1245 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_getyx.3x.html">getbegyx()</A></EM></FONT> 1246 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1236_14">Get_Window_Position</A>); 1247 1248 <FONT COLOR=green><EM>-- #1A NAME="AFU_87"#2|</EM></FONT> 1249 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1244_14" HREF="terminal_interface-curses__adb.htm#ref_1380_14">Get_Cursor_Position</A></FONT> 1250 (<FONT COLOR=red><A NAME="ref_1245_7" HREF="terminal_interface-curses__adb.htm#ref_1381_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1251 <FONT COLOR=red><A NAME="ref_1246_7" HREF="terminal_interface-curses__adb.htm#ref_1382_7">Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1252 <FONT COLOR=red><A NAME="ref_1247_7" HREF="terminal_interface-curses__adb.htm#ref_1383_7">Column</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>); 1253 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_getyx.3x.html">getyx()</A></EM></FONT> 1254 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1244_14">Get_Cursor_Position</A>); 1255 1256 <FONT COLOR=green><EM>-- #1A NAME="AFU_88"#2|</EM></FONT> 1257 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1252_14" HREF="terminal_interface-curses__adb.htm#ref_1398_14">Get_Origin_Relative_To_Parent</A></FONT> 1258 (<FONT COLOR=red><A NAME="ref_1253_7" HREF="terminal_interface-curses__adb.htm#ref_1399_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1259 <FONT COLOR=red><A NAME="ref_1254_7" HREF="terminal_interface-curses__adb.htm#ref_1400_7">Top_Left_Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1260 <FONT COLOR=red><A NAME="ref_1255_7" HREF="terminal_interface-curses__adb.htm#ref_1401_7">Top_Left_Column</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1261 <FONT COLOR=red><A NAME="ref_1256_7" HREF="terminal_interface-curses__adb.htm#ref_1402_7">Is_Not_A_Subwindow</A></FONT> : <b>out</b> Boolean); 1262 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_getyx.3x.html">getparyx()</A></EM></FONT> 1263 <FONT COLOR=green><EM>-- Instead of placing -1 in the coordinates as return, we use a boolean</EM></FONT> 1264 <FONT COLOR=green><EM>-- to return the info that the window has no parent.</EM></FONT> 1265 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1252_14">Get_Origin_Relative_To_Parent</A>); 1266 1267 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1268 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_pad.3x.html">curs_pad.3x</A></EM></FONT> 1269 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1270 1271 <FONT COLOR=green><EM>-- #1A NAME="AFU_89"#2|</EM></FONT> 1272 <b>function</b> <FONT COLOR=red><A NAME="ref_1267_13" HREF="terminal_interface-curses__adb.htm#ref_1424_13">New_Pad</A></FONT> (<FONT COLOR=red><A NAME="ref_1267_22" HREF="terminal_interface-curses__adb.htm#ref_1424_22">Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 1273 <FONT COLOR=red><A NAME="ref_1268_22" HREF="terminal_interface-curses__adb.htm#ref_1425_22">Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1274 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_pad.3x.html">newpad()</A></EM></FONT> 1275 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1267_13">New_Pad</A>); 1276 1277 <FONT COLOR=green><EM>-- #1A NAME="AFU_90"#2|</EM></FONT> 1278 <b>function</b> <FONT COLOR=red><A NAME="ref_1273_13" HREF="terminal_interface-curses__adb.htm#ref_1439_13">Sub_Pad</A></FONT> 1279 (<FONT COLOR=red><A NAME="ref_1274_7" HREF="terminal_interface-curses__adb.htm#ref_1440_7">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1280 <FONT COLOR=red><A NAME="ref_1275_7" HREF="terminal_interface-curses__adb.htm#ref_1441_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 1281 <FONT COLOR=red><A NAME="ref_1276_7" HREF="terminal_interface-curses__adb.htm#ref_1442_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>; 1282 <FONT COLOR=red><A NAME="ref_1277_7" HREF="terminal_interface-curses__adb.htm#ref_1443_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1283 <FONT COLOR=red><A NAME="ref_1278_7" HREF="terminal_interface-curses__adb.htm#ref_1444_7">First_Column_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1284 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_pad.3x.html">subpad()</A></EM></FONT> 1285 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1273_13">Sub_Pad</A>); 1286 1287 <FONT COLOR=green><EM>-- #1A NAME="AFU_91"#2|</EM></FONT> 1288 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1283_14" HREF="terminal_interface-curses__adb.htm#ref_1467_14">Refresh</A></FONT> 1289 (<FONT COLOR=red><A NAME="ref_1284_7" HREF="terminal_interface-curses__adb.htm#ref_1468_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1290 <FONT COLOR=red><A NAME="ref_1285_7" HREF="terminal_interface-curses__adb.htm#ref_1469_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1291 <FONT COLOR=red><A NAME="ref_1286_7" HREF="terminal_interface-curses__adb.htm#ref_1470_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1292 <FONT COLOR=red><A NAME="ref_1287_7" HREF="terminal_interface-curses__adb.htm#ref_1471_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1293 <FONT COLOR=red><A NAME="ref_1288_7" HREF="terminal_interface-curses__adb.htm#ref_1472_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1294 <FONT COLOR=red><A NAME="ref_1289_7" HREF="terminal_interface-curses__adb.htm#ref_1473_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1295 <FONT COLOR=red><A NAME="ref_1290_7" HREF="terminal_interface-curses__adb.htm#ref_1474_7">Destination_Right_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>); 1296 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_pad.3x.html">prefresh()</A></EM></FONT> 1297 <b>pragma</b> Inline (Refresh); 1298 1299 <FONT COLOR=green><EM>-- #1A NAME="AFU_92"#2|</EM></FONT> 1300 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1295_14" HREF="terminal_interface-curses__adb.htm#ref_1497_14">Refresh_Without_Update</A></FONT> 1301 (<FONT COLOR=red><A NAME="ref_1296_7" HREF="terminal_interface-curses__adb.htm#ref_1498_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1302 <FONT COLOR=red><A NAME="ref_1297_7" HREF="terminal_interface-curses__adb.htm#ref_1499_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1303 <FONT COLOR=red><A NAME="ref_1298_7" HREF="terminal_interface-curses__adb.htm#ref_1500_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1304 <FONT COLOR=red><A NAME="ref_1299_7" HREF="terminal_interface-curses__adb.htm#ref_1501_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1305 <FONT COLOR=red><A NAME="ref_1300_7" HREF="terminal_interface-curses__adb.htm#ref_1502_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1306 <FONT COLOR=red><A NAME="ref_1301_7" HREF="terminal_interface-curses__adb.htm#ref_1503_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1307 <FONT COLOR=red><A NAME="ref_1302_7" HREF="terminal_interface-curses__adb.htm#ref_1504_7">Destination_Right_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>); 1308 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_pad.3x.html">pnoutrefresh()</A></EM></FONT> 1309 <b>pragma</b> Inline (Refresh_Without_Update); 1310 1311 <FONT COLOR=green><EM>-- #1A NAME="AFU_93"#2|</EM></FONT> 1312 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1307_14" HREF="terminal_interface-curses__adb.htm#ref_1527_14">Add_Character_To_Pad_And_Echo_It</A></FONT> 1313 (<FONT COLOR=red><A NAME="ref_1308_7" HREF="terminal_interface-curses__adb.htm#ref_1528_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1314 <FONT COLOR=red><A NAME="ref_1309_7" HREF="terminal_interface-curses__adb.htm#ref_1529_7">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>); 1315 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_pad.3x.html">pechochar()</A></EM></FONT> 1316 1317 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1312_14" HREF="terminal_interface-curses__adb.htm#ref_1540_14">Add_Character_To_Pad_And_Echo_It</A></FONT> 1318 (<FONT COLOR=red><A NAME="ref_1313_7" HREF="terminal_interface-curses__adb.htm#ref_1541_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1319 <FONT COLOR=red><A NAME="ref_1314_7" HREF="terminal_interface-curses__adb.htm#ref_1542_7">Ch</A></FONT> : <b>in</b> Character); 1320 <b>pragma</b> Inline (Add_Character_To_Pad_And_Echo_It); 1321 1322 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1323 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_scroll.3x.html">curs_scroll.3x</A></EM></FONT> 1324 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1325 1326 <FONT COLOR=green><EM>-- #1A NAME="AFU_94"#2|</EM></FONT> 1327 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1322_14" HREF="terminal_interface-curses__adb.htm#ref_1552_14">Scroll</A></FONT> (<FONT COLOR=red><A NAME="ref_1322_22" HREF="terminal_interface-curses__adb.htm#ref_1552_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1328 <FONT COLOR=red><A NAME="ref_1323_22" HREF="terminal_interface-curses__adb.htm#ref_1553_22">Amount</A></FONT> : <b>in</b> Integer := 1); 1329 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_scroll.3x.html">wscrl()</A></EM></FONT> 1330 <FONT COLOR=green><EM>-- AKA: scroll()</EM></FONT> 1331 <FONT COLOR=green><EM>-- AKA: scrl()</EM></FONT> 1332 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1322_14">Scroll</A>); 1333 1334 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1335 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_delch.3x.html">curs_delch.3x</A></EM></FONT> 1336 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1337 1338 <FONT COLOR=green><EM>-- #1A NAME="AFU_95"#2|</EM></FONT> 1339 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1334_14" HREF="terminal_interface-curses__adb.htm#ref_1565_14">Delete_Character</A></FONT> (<FONT COLOR=red><A NAME="ref_1334_32" HREF="terminal_interface-curses__adb.htm#ref_1565_32">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>); 1340 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_delch.3x.html">wdelch()</A></EM></FONT> 1341 <FONT COLOR=green><EM>-- AKA: delch()</EM></FONT> 1342 1343 <FONT COLOR=green><EM>-- #1A NAME="AFU_96"#2|</EM></FONT> 1344 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1339_14" HREF="terminal_interface-curses__adb.htm#ref_1575_14">Delete_Character</A></FONT> 1345 (<FONT COLOR=red><A NAME="ref_1340_7" HREF="terminal_interface-curses__adb.htm#ref_1576_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1346 <FONT COLOR=red><A NAME="ref_1341_7" HREF="terminal_interface-curses__adb.htm#ref_1577_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1347 <FONT COLOR=red><A NAME="ref_1342_7" HREF="terminal_interface-curses__adb.htm#ref_1578_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>); 1348 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_delch.3x.html">mvwdelch()</A></EM></FONT> 1349 <FONT COLOR=green><EM>-- AKA: mvdelch()</EM></FONT> 1350 <b>pragma</b> Inline (Delete_Character); 1351 1352 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1353 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_inch.3x.html">curs_inch.3x</A></EM></FONT> 1354 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1355 1356 <FONT COLOR=green><EM>-- #1A NAME="AFU_97"#2|</EM></FONT> 1357 <b>function</b> <FONT COLOR=red><A NAME="ref_1352_13" HREF="terminal_interface-curses__adb.htm#ref_1590_13">Peek</A></FONT> (<FONT COLOR=red><A NAME="ref_1352_19" HREF="terminal_interface-curses__adb.htm#ref_1590_19">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>) 1358 <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>; 1359 <FONT COLOR=green><EM>-- AKA: inch()</EM></FONT> 1360 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inch.3x.html">winch()</A></EM></FONT> 1361 1362 <FONT COLOR=green><EM>-- #1A NAME="AFU_98"#2|</EM></FONT> 1363 <b>function</b> <FONT COLOR=red><A NAME="ref_1358_13" HREF="terminal_interface-curses__adb.htm#ref_1599_13">Peek</A></FONT> 1364 (<FONT COLOR=red><A NAME="ref_1359_7" HREF="terminal_interface-curses__adb.htm#ref_1600_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1365 <FONT COLOR=red><A NAME="ref_1360_7" HREF="terminal_interface-curses__adb.htm#ref_1601_7">Line</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1366 <FONT COLOR=red><A NAME="ref_1361_7" HREF="terminal_interface-curses__adb.htm#ref_1602_7">Column</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>; 1367 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inch.3x.html">mvwinch()</A></EM></FONT> 1368 <FONT COLOR=green><EM>-- AKA: mvinch()</EM></FONT> 1369 <FONT COLOR=green><EM>-- More Peek's follow, pragma Inline appears later.</EM></FONT> 1370 1371 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1372 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_insch.3x.html">curs_insch.3x</A></EM></FONT> 1373 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1374 1375 <FONT COLOR=green><EM>-- #1A NAME="AFU_99"#2|</EM></FONT> 1376 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1371_14" HREF="terminal_interface-curses__adb.htm#ref_1612_14">Insert</A></FONT> (<FONT COLOR=red><A NAME="ref_1371_22" HREF="terminal_interface-curses__adb.htm#ref_1612_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1377 <FONT COLOR=red><A NAME="ref_1372_22" HREF="terminal_interface-curses__adb.htm#ref_1613_22">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>); 1378 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_insch.3x.html">winsch()</A></EM></FONT> 1379 <FONT COLOR=green><EM>-- AKA: insch()</EM></FONT> 1380 1381 <FONT COLOR=green><EM>-- #1A NAME="AFU_100"#2|</EM></FONT> 1382 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1377_14" HREF="terminal_interface-curses__adb.htm#ref_1623_14">Insert</A></FONT> (<FONT COLOR=red><A NAME="ref_1377_22" HREF="terminal_interface-curses__adb.htm#ref_1624_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1383 <FONT COLOR=red><A NAME="ref_1378_22" HREF="terminal_interface-curses__adb.htm#ref_1625_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1384 <FONT COLOR=red><A NAME="ref_1379_22" HREF="terminal_interface-curses__adb.htm#ref_1626_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1385 <FONT COLOR=red><A NAME="ref_1380_22" HREF="terminal_interface-curses__adb.htm#ref_1627_7">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>); 1386 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_insch.3x.html">mvwinsch()</A></EM></FONT> 1387 <FONT COLOR=green><EM>-- AKA: mvinsch()</EM></FONT> 1388 1389 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1390 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_insstr.3x.html">curs_insstr.3x</A></EM></FONT> 1391 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1392 1393 <FONT COLOR=green><EM>-- #1A NAME="AFU_101"#2|</EM></FONT> 1394 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1389_14" HREF="terminal_interface-curses__adb.htm#ref_1643_14">Insert</A></FONT> (<FONT COLOR=red><A NAME="ref_1389_22" HREF="terminal_interface-curses__adb.htm#ref_1643_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1395 <FONT COLOR=red><A NAME="ref_1390_22" HREF="terminal_interface-curses__adb.htm#ref_1644_22">Str</A></FONT> : <b>in</b> String; 1396 <FONT COLOR=red><A NAME="ref_1391_22" HREF="terminal_interface-curses__adb.htm#ref_1645_22">Len</A></FONT> : <b>in</b> Integer := -1); 1397 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_insstr.3x.html">winsnstr()</A></EM></FONT> 1398 <FONT COLOR=green><EM>-- AKA: winsstr()</EM></FONT> 1399 <FONT COLOR=green><EM>-- AKA: insnstr()</EM></FONT> 1400 <FONT COLOR=green><EM>-- AKA: insstr()</EM></FONT> 1401 1402 <FONT COLOR=green><EM>-- #1A NAME="AFU_102"#2|</EM></FONT> 1403 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1398_14" HREF="terminal_interface-curses__adb.htm#ref_1661_14">Insert</A></FONT> (<FONT COLOR=red><A NAME="ref_1398_22" HREF="terminal_interface-curses__adb.htm#ref_1662_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1404 <FONT COLOR=red><A NAME="ref_1399_22" HREF="terminal_interface-curses__adb.htm#ref_1663_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1405 <FONT COLOR=red><A NAME="ref_1400_22" HREF="terminal_interface-curses__adb.htm#ref_1664_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1406 <FONT COLOR=red><A NAME="ref_1401_22" HREF="terminal_interface-curses__adb.htm#ref_1665_7">Str</A></FONT> : <b>in</b> String; 1407 <FONT COLOR=red><A NAME="ref_1402_22" HREF="terminal_interface-curses__adb.htm#ref_1666_7">Len</A></FONT> : <b>in</b> Integer := -1); 1408 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_insstr.3x.html">mvwinsnstr()</A></EM></FONT> 1409 <FONT COLOR=green><EM>-- AKA: mvwinsstr()</EM></FONT> 1410 <FONT COLOR=green><EM>-- AKA: mvinsnstr()</EM></FONT> 1411 <FONT COLOR=green><EM>-- AKA: mvinsstr()</EM></FONT> 1412 <b>pragma</b> Inline (Insert); 1413 1414 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1415 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_instr.3x.html">curs_instr.3x</A></EM></FONT> 1416 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1417 1418 <FONT COLOR=green><EM>-- #1A NAME="AFU_103"#2|</EM></FONT> 1419 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1414_14" HREF="terminal_interface-curses__adb.htm#ref_1685_14">Peek</A></FONT> (<FONT COLOR=red><A NAME="ref_1414_20" HREF="terminal_interface-curses__adb.htm#ref_1685_20">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1420 <FONT COLOR=red><A NAME="ref_1415_20" HREF="terminal_interface-curses__adb.htm#ref_1686_20">Str</A></FONT> : <b>out</b> String; 1421 <FONT COLOR=red><A NAME="ref_1416_20" HREF="terminal_interface-curses__adb.htm#ref_1687_20">Len</A></FONT> : <b>in</b> Integer := -1); 1422 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_instr.3x.html">winnstr()</A></EM></FONT> 1423 <FONT COLOR=green><EM>-- AKA: winstr()</EM></FONT> 1424 <FONT COLOR=green><EM>-- AKA: innstr()</EM></FONT> 1425 <FONT COLOR=green><EM>-- AKA: instr()</EM></FONT> 1426 1427 <FONT COLOR=green><EM>-- #1A NAME="AFU_104"#2|</EM></FONT> 1428 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1423_14" HREF="terminal_interface-curses__adb.htm#ref_1714_14">Peek</A></FONT> (<FONT COLOR=red><A NAME="ref_1423_20" HREF="terminal_interface-curses__adb.htm#ref_1715_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1429 <FONT COLOR=red><A NAME="ref_1424_20" HREF="terminal_interface-curses__adb.htm#ref_1716_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1430 <FONT COLOR=red><A NAME="ref_1425_20" HREF="terminal_interface-curses__adb.htm#ref_1717_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1431 <FONT COLOR=red><A NAME="ref_1426_20" HREF="terminal_interface-curses__adb.htm#ref_1718_7">Str</A></FONT> : <b>out</b> String; 1432 <FONT COLOR=red><A NAME="ref_1427_20" HREF="terminal_interface-curses__adb.htm#ref_1719_7">Len</A></FONT> : <b>in</b> Integer := -1); 1433 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_instr.3x.html">mvwinnstr()</A></EM></FONT> 1434 <FONT COLOR=green><EM>-- AKA: mvwinstr()</EM></FONT> 1435 <FONT COLOR=green><EM>-- AKA: mvinnstr()</EM></FONT> 1436 <FONT COLOR=green><EM>-- AKA: mvinstr()</EM></FONT> 1437 1438 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1439 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_inchstr.3x.html">curs_inchstr.3x</A></EM></FONT> 1440 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1441 1442 <FONT COLOR=green><EM>-- #1A NAME="AFU_105"#2|</EM></FONT> 1443 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1438_14" HREF="terminal_interface-curses__adb.htm#ref_1726_14">Peek</A></FONT> (<FONT COLOR=red><A NAME="ref_1438_20" HREF="terminal_interface-curses__adb.htm#ref_1727_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1444 <FONT COLOR=red><A NAME="ref_1439_20" HREF="terminal_interface-curses__adb.htm#ref_1728_7">Str</A></FONT> : <b>out</b> Attributed_String; 1445 <FONT COLOR=red><A NAME="ref_1440_20" HREF="terminal_interface-curses__adb.htm#ref_1729_7">Len</A></FONT> : <b>in</b> Integer := -1); 1446 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inchstr.3x.html">winchnstr()</A></EM></FONT> 1447 <FONT COLOR=green><EM>-- AKA: winchstr()</EM></FONT> 1448 <FONT COLOR=green><EM>-- AKA: inchnstr()</EM></FONT> 1449 <FONT COLOR=green><EM>-- AKA: inchstr()</EM></FONT> 1450 1451 <FONT COLOR=green><EM>-- #1A NAME="AFU_106"#2|</EM></FONT> 1452 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1447_14" HREF="terminal_interface-curses__adb.htm#ref_1763_14">Peek</A></FONT> (<FONT COLOR=red><A NAME="ref_1447_20" HREF="terminal_interface-curses__adb.htm#ref_1764_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1453 <FONT COLOR=red><A NAME="ref_1448_20" HREF="terminal_interface-curses__adb.htm#ref_1765_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1454 <FONT COLOR=red><A NAME="ref_1449_20" HREF="terminal_interface-curses__adb.htm#ref_1766_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1455 <FONT COLOR=red><A NAME="ref_1450_20" HREF="terminal_interface-curses__adb.htm#ref_1767_7">Str</A></FONT> : <b>out</b> Attributed_String; 1456 <FONT COLOR=red><A NAME="ref_1451_20" HREF="terminal_interface-curses__adb.htm#ref_1768_7">Len</A></FONT> : <b>in</b> Integer := -1); 1457 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_inchstr.3x.html">mvwinchnstr()</A></EM></FONT> 1458 <FONT COLOR=green><EM>-- AKA: mvwinchstr()</EM></FONT> 1459 <FONT COLOR=green><EM>-- AKA: mvinchnstr()</EM></FONT> 1460 <FONT COLOR=green><EM>-- AKA: mvinchstr()</EM></FONT> 1461 <FONT COLOR=green><EM>-- We don't inline the Peek procedures</EM></FONT> 1462 1463 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1464 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_getstr.3x.html">curs_getstr.3x</A></EM></FONT> 1465 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1466 1467 <FONT COLOR=green><EM>-- #1A NAME="AFU_107"#2|</EM></FONT> 1468 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1463_14" HREF="terminal_interface-curses__adb.htm#ref_1775_14">Get</A></FONT> (<FONT COLOR=red><A NAME="ref_1463_19" HREF="terminal_interface-curses__adb.htm#ref_1775_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1469 <FONT COLOR=red><A NAME="ref_1464_19" HREF="terminal_interface-curses__adb.htm#ref_1776_19">Str</A></FONT> : <b>out</b> String; 1470 <FONT COLOR=red><A NAME="ref_1465_19" HREF="terminal_interface-curses__adb.htm#ref_1777_19">Len</A></FONT> : <b>in</b> Integer := -1); 1471 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_getstr.3x.html">wgetnstr()</A></EM></FONT> 1472 <FONT COLOR=green><EM>-- AKA: wgetstr()</EM></FONT> 1473 <FONT COLOR=green><EM>-- AKA: getnstr()</EM></FONT> 1474 <FONT COLOR=green><EM>-- AKA: getstr()</EM></FONT> 1475 <FONT COLOR=green><EM>-- actually getstr is not supported because that results in buffer</EM></FONT> 1476 <FONT COLOR=green><EM>-- overflows.</EM></FONT> 1477 1478 <FONT COLOR=green><EM>-- #1A NAME="AFU_108"#2|</EM></FONT> 1479 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1474_14" HREF="terminal_interface-curses__adb.htm#ref_1804_14">Get</A></FONT> (<FONT COLOR=red><A NAME="ref_1474_19" HREF="terminal_interface-curses__adb.htm#ref_1805_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1480 <FONT COLOR=red><A NAME="ref_1475_19" HREF="terminal_interface-curses__adb.htm#ref_1806_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1481 <FONT COLOR=red><A NAME="ref_1476_19" HREF="terminal_interface-curses__adb.htm#ref_1807_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1482 <FONT COLOR=red><A NAME="ref_1477_19" HREF="terminal_interface-curses__adb.htm#ref_1808_7">Str</A></FONT> : <b>out</b> String; 1483 <FONT COLOR=red><A NAME="ref_1478_19" HREF="terminal_interface-curses__adb.htm#ref_1809_7">Len</A></FONT> : <b>in</b> Integer := -1); 1484 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_getstr.3x.html">mvwgetnstr()</A></EM></FONT> 1485 <FONT COLOR=green><EM>-- AKA: mvwgetstr()</EM></FONT> 1486 <FONT COLOR=green><EM>-- AKA: mvgetnstr()</EM></FONT> 1487 <FONT COLOR=green><EM>-- AKA: mvgetstr()</EM></FONT> 1488 <FONT COLOR=green><EM>-- Get is not inlined</EM></FONT> 1489 1490 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1491 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_slk.3x.html">curs_slk.3x</A></EM></FONT> 1492 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1493 1494 <FONT COLOR=green><EM>-- Not Implemented: slk_attr_on, slk_attr_off, slk_attr_set</EM></FONT> 1495 1496 <b>type</b> <FONT COLOR=red><A NAME="ref_1491_9">Soft_Label_Key_Format</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="ref_1491_35">Three_Two_Three</A></FONT>, 1497 <FONT COLOR=red><A NAME="ref_1492_35">Four_Four</A></FONT>, 1498 <FONT COLOR=red><A NAME="ref_1493_35">PC_Style</A></FONT>, <FONT COLOR=green><EM>-- ncurses specific</EM></FONT> 1499 <FONT COLOR=red><A NAME="ref_1494_35">PC_Style_With_Index</A></FONT>); <FONT COLOR=green><EM>-- "</EM></FONT> 1500 <b>type</b> <FONT COLOR=red><A NAME="ref_1495_9">Label_Number</A></FONT> <b>is</b> <b>new</b> Positive <b>range</b> 1 .. 12; 1501 <b>type</b> <FONT COLOR=red><A NAME="ref_1496_9">Label_Justification</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="ref_1496_33">Left</A></FONT>, <FONT COLOR=red><A NAME="ref_1496_39">Centered</A></FONT>, <FONT COLOR=red><A NAME="ref_1496_49">Right</A></FONT>); 1502 1503 <FONT COLOR=green><EM>-- #1A NAME="AFU_109"#2|</EM></FONT> 1504 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1499_14" HREF="terminal_interface-curses__adb.htm#ref_1816_14">Init_Soft_Label_Keys</A></FONT> 1505 (<FONT COLOR=red><A NAME="ref_1500_7" HREF="terminal_interface-curses__adb.htm#ref_1817_7">Format</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1491_9">Soft_Label_Key_Format</A> := <A HREF="terminal_interface-curses__ads.htm#ref_1491_35">Three_Two_Three</A>); 1506 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_init()</A></EM></FONT> 1507 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1499_14">Init_Soft_Label_Keys</A>); 1508 1509 <FONT COLOR=green><EM>-- #1A NAME="AFU_110"#2|</EM></FONT> 1510 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1505_14" HREF="terminal_interface-curses__adb.htm#ref_1827_14">Set_Soft_Label_Key</A></FONT> (<FONT COLOR=red><A NAME="ref_1505_34" HREF="terminal_interface-curses__adb.htm#ref_1827_34">Label</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1495_9">Label_Number</A>; 1511 <FONT COLOR=red><A NAME="ref_1506_34" HREF="terminal_interface-curses__adb.htm#ref_1828_34">Text</A></FONT> : <b>in</b> String; 1512 <FONT COLOR=red><A NAME="ref_1507_34" HREF="terminal_interface-curses__adb.htm#ref_1829_34">Fmt</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1496_9">Label_Justification</A> := <A HREF="terminal_interface-curses__ads.htm#ref_1496_33">Left</A>); 1513 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_set()</A></EM></FONT> 1514 <FONT COLOR=green><EM>-- We don't inline this procedure</EM></FONT> 1515 1516 <FONT COLOR=green><EM>-- #1A NAME="AFU_111"#2|</EM></FONT> 1517 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1512_14" HREF="terminal_interface-curses__adb.htm#ref_1846_14">Refresh_Soft_Label_Keys</A></FONT>; 1518 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_refresh()</A></EM></FONT> 1519 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1512_14">Refresh_Soft_Label_Keys</A>); 1520 1521 <FONT COLOR=green><EM>-- #1A NAME="AFU_112"#2|</EM></FONT> 1522 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1517_14" HREF="terminal_interface-curses__adb.htm#ref_1856_14">Refresh_Soft_Label_Keys_Without_Update</A></FONT>; 1523 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_noutrefresh()</A></EM></FONT> 1524 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1517_14">Refresh_Soft_Label_Keys_Without_Update</A>); 1525 1526 <FONT COLOR=green><EM>-- #1A NAME="AFU_113"#2|</EM></FONT> 1527 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1522_14" HREF="terminal_interface-curses__adb.htm#ref_1866_14">Get_Soft_Label_Key</A></FONT> (<FONT COLOR=red><A NAME="ref_1522_34" HREF="terminal_interface-curses__adb.htm#ref_1866_34">Label</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1495_9">Label_Number</A>; 1528 <FONT COLOR=red><A NAME="ref_1523_34" HREF="terminal_interface-curses__adb.htm#ref_1867_34">Text</A></FONT> : <b>out</b> String); 1529 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_label()</A></EM></FONT> 1530 1531 <FONT COLOR=green><EM>-- #1A NAME="AFU_114"#2|</EM></FONT> 1532 <b>function</b> <FONT COLOR=red><A NAME="ref_1527_13" HREF="terminal_interface-curses__adb.htm#ref_1875_13">Get_Soft_Label_Key</A></FONT> (<FONT COLOR=red><A NAME="ref_1527_33" HREF="terminal_interface-curses__adb.htm#ref_1875_33">Label</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1495_9">Label_Number</A>) <b>return</b> String; 1533 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_label()</A></EM></FONT> 1534 <FONT COLOR=green><EM>-- Same as function</EM></FONT> 1535 <b>pragma</b> Inline (Get_Soft_Label_Key); 1536 1537 <FONT COLOR=green><EM>-- #1A NAME="AFU_115"#2|</EM></FONT> 1538 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1533_14" HREF="terminal_interface-curses__adb.htm#ref_1883_14">Clear_Soft_Label_Keys</A></FONT>; 1539 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_clear()</A></EM></FONT> 1540 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1533_14">Clear_Soft_Label_Keys</A>); 1541 1542 <FONT COLOR=green><EM>-- #1A NAME="AFU_116"#2|</EM></FONT> 1543 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1538_14" HREF="terminal_interface-curses__adb.htm#ref_1893_14">Restore_Soft_Label_Keys</A></FONT>; 1544 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_restore()</A></EM></FONT> 1545 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1538_14">Restore_Soft_Label_Keys</A>); 1546 1547 <FONT COLOR=green><EM>-- #1A NAME="AFU_117"#2|</EM></FONT> 1548 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1543_14" HREF="terminal_interface-curses__adb.htm#ref_1903_14">Touch_Soft_Label_Keys</A></FONT>; 1549 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_touch()</A></EM></FONT> 1550 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1543_14">Touch_Soft_Label_Keys</A>); 1551 1552 <FONT COLOR=green><EM>-- #1A NAME="AFU_118"#2|</EM></FONT> 1553 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1548_14" HREF="terminal_interface-curses__adb.htm#ref_1913_14">Switch_Soft_Label_Key_Attributes</A></FONT> 1554 (<FONT COLOR=red><A NAME="ref_1549_7" HREF="terminal_interface-curses__adb.htm#ref_1914_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>; 1555 <FONT COLOR=red><A NAME="ref_1550_7" HREF="terminal_interface-curses__adb.htm#ref_1915_7">On</A></FONT> : <b>in</b> Boolean := True); 1556 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_attron()</A></EM></FONT> 1557 <FONT COLOR=green><EM>-- AKA: slk_attroff()</EM></FONT> 1558 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1548_14">Switch_Soft_Label_Key_Attributes</A>); 1559 1560 <FONT COLOR=green><EM>-- #1A NAME="AFU_119"#2|</EM></FONT> 1561 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1556_14" HREF="terminal_interface-curses__adb.htm#ref_1937_14">Set_Soft_Label_Key_Attributes</A></FONT> 1562 (<FONT COLOR=red><A NAME="ref_1557_7" HREF="terminal_interface-curses__adb.htm#ref_1938_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>; 1563 <FONT COLOR=red><A NAME="ref_1558_7" HREF="terminal_interface-curses__adb.htm#ref_1939_7">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First); 1564 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_attrset()</A></EM></FONT> 1565 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1556_14">Set_Soft_Label_Key_Attributes</A>); 1566 1567 <FONT COLOR=green><EM>-- #1A NAME="AFU_120"#2|</EM></FONT> 1568 <b>function</b> <FONT COLOR=red><A NAME="ref_1563_13" HREF="terminal_interface-curses__adb.htm#ref_1953_13">Get_Soft_Label_Key_Attributes</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>; 1569 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_attr()</A></EM></FONT> 1570 1571 <FONT COLOR=green><EM>-- #1A NAME="AFU_121"#2|</EM></FONT> 1572 <b>function</b> <FONT COLOR=red><A NAME="ref_1567_13" HREF="terminal_interface-curses__adb.htm#ref_1963_13">Get_Soft_Label_Key_Attributes</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>; 1573 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_attr()</A></EM></FONT> 1574 <b>pragma</b> Inline (Get_Soft_Label_Key_Attributes); 1575 1576 <FONT COLOR=green><EM>-- #1A NAME="AFU_122"#2|</EM></FONT> 1577 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1572_14" HREF="terminal_interface-curses__adb.htm#ref_1973_14">Set_Soft_Label_Key_Color</A></FONT> (<FONT COLOR=red><A NAME="ref_1572_40" HREF="terminal_interface-curses__adb.htm#ref_1973_40">Pair</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>); 1578 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_slk.3x.html">slk_color()</A></EM></FONT> 1579 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1572_14">Set_Soft_Label_Key_Color</A>); 1580 1581 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1582 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/keybound.3x.html">keybound.3x</A></EM></FONT> 1583 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1584 <FONT COLOR=green><EM>-- Not Implemented: keybound</EM></FONT> 1585 1586 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1587 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/keyok.3x.html">keyok.3x</A></EM></FONT> 1588 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1589 1590 <FONT COLOR=green><EM>-- #1A NAME="AFU_123"#2|</EM></FONT> 1591 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1586_14" HREF="terminal_interface-curses__adb.htm#ref_1984_14">Enable_Key</A></FONT> (<FONT COLOR=red><A NAME="ref_1586_26" HREF="terminal_interface-curses__adb.htm#ref_1984_26">Key</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A>; 1592 <FONT COLOR=red><A NAME="ref_1587_26" HREF="terminal_interface-curses__adb.htm#ref_1985_26">Enable</A></FONT> : <b>in</b> Boolean := True); 1593 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/keyok.3x.html">keyok()</A></EM></FONT> 1594 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1586_14">Enable_Key</A>); 1595 1596 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1597 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/define_key.3x.html">define_key.3x</A></EM></FONT> 1598 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1599 1600 <FONT COLOR=green><EM>-- #1A NAME="AFU_124"#2|</EM></FONT> 1601 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1596_14" HREF="terminal_interface-curses__adb.htm#ref_1997_14">Define_Key</A></FONT> (<FONT COLOR=red><A NAME="ref_1596_26" HREF="terminal_interface-curses__adb.htm#ref_1997_26">Definition</A></FONT> : <b>in</b> String; 1602 <FONT COLOR=red><A NAME="ref_1597_26" HREF="terminal_interface-curses__adb.htm#ref_1998_26">Key</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A>); 1603 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/define_key.3x.html">define_key()</A></EM></FONT> 1604 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1596_14">Define_Key</A>); 1605 1606 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1607 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_util.3x.html">curs_util.3x</A></EM></FONT> 1608 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1609 1610 <FONT COLOR=green><EM>-- | Not implemented : filter, use_env</EM></FONT> 1611 <FONT COLOR=green><EM>-- | putwin, getwin are in the child package PutWin</EM></FONT> 1612 <FONT COLOR=green><EM>--</EM></FONT> 1613 1614 <FONT COLOR=green><EM>-- #1A NAME="AFU_125"#2|</EM></FONT> 1615 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1610_14" HREF="terminal_interface-curses__adb.htm#ref_90_14">Key_Name</A></FONT> (<FONT COLOR=red><A NAME="ref_1610_24" HREF="terminal_interface-curses__adb.htm#ref_90_24">Key</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_73_12">Real_Key_Code</A>; 1616 <FONT COLOR=red><A NAME="ref_1611_24" HREF="terminal_interface-curses__adb.htm#ref_91_24">Name</A></FONT> : <b>out</b> String); 1617 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_util.3x.html">keyname()</A></EM></FONT> 1618 <FONT COLOR=green><EM>-- The external name for a real keystroke.</EM></FONT> 1619 1620 <FONT COLOR=green><EM>-- #1A NAME="AFU_126"#2|</EM></FONT> 1621 <b>function</b> <FONT COLOR=red><A NAME="ref_1616_13" HREF="terminal_interface-curses__adb.htm#ref_62_13">Key_Name</A></FONT> (<FONT COLOR=red><A NAME="ref_1616_23" HREF="terminal_interface-curses__adb.htm#ref_62_23">Key</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_73_12">Real_Key_Code</A>) <b>return</b> String; 1622 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_util.3x.html">keyname()</A></EM></FONT> 1623 <FONT COLOR=green><EM>-- Same as function</EM></FONT> 1624 <FONT COLOR=green><EM>-- We don't inline this routine</EM></FONT> 1625 1626 <FONT COLOR=green><EM>-- #1A NAME="AFU_127"#2|</EM></FONT> 1627 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1622_14" HREF="terminal_interface-curses__adb.htm#ref_2013_14">Un_Control</A></FONT> (<FONT COLOR=red><A NAME="ref_1622_26" HREF="terminal_interface-curses__adb.htm#ref_2013_26">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>; 1628 <FONT COLOR=red><A NAME="ref_1623_26" HREF="terminal_interface-curses__adb.htm#ref_2014_26">Str</A></FONT> : <b>out</b> String); 1629 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_util.3x.html">unctrl()</A></EM></FONT> 1630 1631 <FONT COLOR=green><EM>-- #1A NAME="AFU_128"#2|</EM></FONT> 1632 <b>function</b> <FONT COLOR=red><A NAME="ref_1627_13" HREF="terminal_interface-curses__adb.htm#ref_2022_13">Un_Control</A></FONT> (<FONT COLOR=red><A NAME="ref_1627_25" HREF="terminal_interface-curses__adb.htm#ref_2022_25">Ch</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Attributed_Character</A>) <b>return</b> String; 1633 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_util.3x.html">unctrl()</A></EM></FONT> 1634 <FONT COLOR=green><EM>-- Same as function</EM></FONT> 1635 <b>pragma</b> Inline (Un_Control); 1636 1637 <FONT COLOR=green><EM>-- #1A NAME="AFU_129"#2|</EM></FONT> 1638 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1633_14" HREF="terminal_interface-curses__adb.htm#ref_2030_14">Delay_Output</A></FONT> (<FONT COLOR=red><A NAME="ref_1633_28" HREF="terminal_interface-curses__adb.htm#ref_2030_28">Msecs</A></FONT> : <b>in</b> Natural); 1639 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_util.3x.html">delay_output()</A></EM></FONT> 1640 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1633_14">Delay_Output</A>); 1641 1642 <FONT COLOR=green><EM>-- #1A NAME="AFU_130"#2|</EM></FONT> 1643 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1638_14" HREF="terminal_interface-curses__adb.htm#ref_2040_14">Flush_Input</A></FONT>; 1644 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_util.3x.html">flushinp()</A></EM></FONT> 1645 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1638_14">Flush_Input</A>); 1646 1647 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1648 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_termattrs.3x.html">curs_termattrs.3x</A></EM></FONT> 1649 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1650 1651 <FONT COLOR=green><EM>-- #1A NAME="AFU_131"#2|</EM></FONT> 1652 <b>function</b> <FONT COLOR=red><A NAME="ref_1647_13" HREF="terminal_interface-curses__adb.htm#ref_2050_13">Baudrate</A></FONT> <b>return</b> Natural; 1653 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">baudrate()</A></EM></FONT> 1654 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1647_13">Baudrate</A>); 1655 1656 <FONT COLOR=green><EM>-- #1A NAME="AFU_132"#2|</EM></FONT> 1657 <b>function</b> <FONT COLOR=red><A NAME="ref_1652_13" HREF="terminal_interface-curses__adb.htm#ref_2058_13">Erase_Character</A></FONT> <b>return</b> Character; 1658 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">erasechar()</A></EM></FONT> 1659 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1652_13">Erase_Character</A>); 1660 1661 <FONT COLOR=green><EM>-- #1A NAME="AFU_133"#2|</EM></FONT> 1662 <b>function</b> <FONT COLOR=red><A NAME="ref_1657_13" HREF="terminal_interface-curses__adb.htm#ref_2066_13">Kill_Character</A></FONT> <b>return</b> Character; 1663 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">killchar()</A></EM></FONT> 1664 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1657_13">Kill_Character</A>); 1665 1666 <FONT COLOR=green><EM>-- #1A NAME="AFU_134"#2|</EM></FONT> 1667 <b>function</b> <FONT COLOR=red><A NAME="ref_1662_13" HREF="terminal_interface-curses__adb.htm#ref_2074_13">Has_Insert_Character</A></FONT> <b>return</b> Boolean; 1668 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">has_ic()</A></EM></FONT> 1669 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1662_13">Has_Insert_Character</A>); 1670 1671 <FONT COLOR=green><EM>-- #1A NAME="AFU_135"#2|</EM></FONT> 1672 <b>function</b> <FONT COLOR=red><A NAME="ref_1667_13" HREF="terminal_interface-curses__adb.htm#ref_2086_13">Has_Insert_Line</A></FONT> <b>return</b> Boolean; 1673 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">has_il()</A></EM></FONT> 1674 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1667_13">Has_Insert_Line</A>); 1675 1676 <FONT COLOR=green><EM>-- #1A NAME="AFU_136"#2|</EM></FONT> 1677 <b>function</b> <FONT COLOR=red><A NAME="ref_1672_13" HREF="terminal_interface-curses__adb.htm#ref_2098_13">Supported_Attributes</A></FONT> <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>; 1678 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">termattrs()</A></EM></FONT> 1679 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1672_13">Supported_Attributes</A>); 1680 1681 <FONT COLOR=green><EM>-- #1A NAME="AFU_137"#2|</EM></FONT> 1682 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1677_14" HREF="terminal_interface-curses__adb.htm#ref_2108_14">Long_Name</A></FONT> (<FONT COLOR=red><A NAME="ref_1677_25" HREF="terminal_interface-curses__adb.htm#ref_2108_25">Name</A></FONT> : <b>out</b> String); 1683 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">longname()</A></EM></FONT> 1684 1685 <FONT COLOR=green><EM>-- #1A NAME="AFU_138"#2|</EM></FONT> 1686 <b>function</b> <FONT COLOR=red><A NAME="ref_1681_13" HREF="terminal_interface-curses__adb.htm#ref_2116_13">Long_Name</A></FONT> <b>return</b> String; 1687 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">longname()</A></EM></FONT> 1688 <FONT COLOR=green><EM>-- Same as function</EM></FONT> 1689 <b>pragma</b> Inline (Long_Name); 1690 1691 <FONT COLOR=green><EM>-- #1A NAME="AFU_139"#2|</EM></FONT> 1692 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1687_14" HREF="terminal_interface-curses__adb.htm#ref_2124_14">Terminal_Name</A></FONT> (<FONT COLOR=red><A NAME="ref_1687_29" HREF="terminal_interface-curses__adb.htm#ref_2124_29">Name</A></FONT> : <b>out</b> String); 1693 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">termname()</A></EM></FONT> 1694 1695 <FONT COLOR=green><EM>-- #1A NAME="AFU_140"#2|</EM></FONT> 1696 <b>function</b> <FONT COLOR=red><A NAME="ref_1691_13" HREF="terminal_interface-curses__adb.htm#ref_2132_13">Terminal_Name</A></FONT> <b>return</b> String; 1697 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_termattrs.3x.html">termname()</A></EM></FONT> 1698 <FONT COLOR=green><EM>-- Same as function</EM></FONT> 1699 <b>pragma</b> Inline (Terminal_Name); 1700 1701 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1702 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_color.3x.html">curs_color.3x</A></EM></FONT> 1703 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1704 1705 <FONT COLOR=green><EM>-- COLOR_PAIR</EM></FONT> 1706 <FONT COLOR=green><EM>-- COLOR_PAIR(n) in C is the same as</EM></FONT> 1707 <FONT COLOR=green><EM>-- Attributed_Character(Ch => Nul, Color => n, Attr => Normal_Video)</EM></FONT> 1708 <FONT COLOR=green><EM>-- In C you often see something like c = c | COLOR_PAIR(n);</EM></FONT> 1709 <FONT COLOR=green><EM>-- This is equivalent to c.Color := n;</EM></FONT> 1710 1711 <FONT COLOR=green><EM>-- #1A NAME="AFU_141"#2|</EM></FONT> 1712 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1707_14">Start_Color</A></FONT>; 1713 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_color.3x.html">start_color()</A></EM></FONT> 1714 <b>pragma</b> Import (C, Start_Color, "start_color"); 1715 1716 <FONT COLOR=green><EM>-- #1A NAME="AFU_142"#2|</EM></FONT> 1717 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1712_14" HREF="terminal_interface-curses__adb.htm#ref_2140_14">Init_Pair</A></FONT> (<FONT COLOR=red><A NAME="ref_1712_25" HREF="terminal_interface-curses__adb.htm#ref_2140_25">Pair</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_301_12">Redefinable_Color_Pair</A>; 1718 <FONT COLOR=red><A NAME="ref_1713_25" HREF="terminal_interface-curses__adb.htm#ref_2141_25">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A>; 1719 <FONT COLOR=red><A NAME="ref_1714_25" HREF="terminal_interface-curses__adb.htm#ref_2142_25">Back</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A>); 1720 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_color.3x.html">init_pair()</A></EM></FONT> 1721 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1712_14">Init_Pair</A>); 1722 1723 <FONT COLOR=green><EM>-- #1A NAME="AFU_143"#2|</EM></FONT> 1724 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1719_14" HREF="terminal_interface-curses__adb.htm#ref_2162_14">Pair_Content</A></FONT> (<FONT COLOR=red><A NAME="ref_1719_28" HREF="terminal_interface-curses__adb.htm#ref_2162_28">Pair</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>; 1725 <FONT COLOR=red><A NAME="ref_1720_28" HREF="terminal_interface-curses__adb.htm#ref_2163_28">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A>; 1726 <FONT COLOR=red><A NAME="ref_1721_28" HREF="terminal_interface-curses__adb.htm#ref_2164_28">Back</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A>); 1727 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_color.3x.html">pair_content()</A></EM></FONT> 1728 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1719_14">Pair_Content</A>); 1729 1730 <FONT COLOR=green><EM>-- #1A NAME="AFU_144"#2|</EM></FONT> 1731 <b>function</b> <FONT COLOR=red><A NAME="ref_1726_13" HREF="terminal_interface-curses__adb.htm#ref_2182_13">Has_Colors</A></FONT> <b>return</b> Boolean; 1732 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_color.3x.html">has_colors()</A></EM></FONT> 1733 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1726_13">Has_Colors</A>); 1734 1735 <FONT COLOR=green><EM>-- #1A NAME="AFU_145"#2|</EM></FONT> 1736 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1731_14" HREF="terminal_interface-curses__adb.htm#ref_2194_14">Init_Color</A></FONT> (<FONT COLOR=red><A NAME="ref_1731_26" HREF="terminal_interface-curses__adb.htm#ref_2194_26">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A>; 1737 <FONT COLOR=red><A NAME="ref_1732_26" HREF="terminal_interface-curses__adb.htm#ref_2195_26">Red</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>; 1738 <FONT COLOR=red><A NAME="ref_1733_26" HREF="terminal_interface-curses__adb.htm#ref_2196_26">Green</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>; 1739 <FONT COLOR=red><A NAME="ref_1734_26" HREF="terminal_interface-curses__adb.htm#ref_2197_26">Blue</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>); 1740 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_color.3x.html">init_color()</A></EM></FONT> 1741 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1731_14">Init_Color</A>); 1742 1743 <FONT COLOR=green><EM>-- #1A NAME="AFU_146"#2|</EM></FONT> 1744 <b>function</b> <FONT COLOR=red><A NAME="ref_1739_13" HREF="terminal_interface-curses__adb.htm#ref_2211_13">Can_Change_Color</A></FONT> <b>return</b> Boolean; 1745 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_color.3x.html">can_change_color()</A></EM></FONT> 1746 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1739_13">Can_Change_Color</A>); 1747 1748 <FONT COLOR=green><EM>-- #1A NAME="AFU_147"#2|</EM></FONT> 1749 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1744_14" HREF="terminal_interface-curses__adb.htm#ref_2223_14">Color_Content</A></FONT> (<FONT COLOR=red><A NAME="ref_1744_29" HREF="terminal_interface-curses__adb.htm#ref_2223_29">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A>; 1750 <FONT COLOR=red><A NAME="ref_1745_29" HREF="terminal_interface-curses__adb.htm#ref_2224_29">Red</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>; 1751 <FONT COLOR=red><A NAME="ref_1746_29" HREF="terminal_interface-curses__adb.htm#ref_2225_29">Green</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>; 1752 <FONT COLOR=red><A NAME="ref_1747_29" HREF="terminal_interface-curses__adb.htm#ref_2226_29">Blue</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>); 1753 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_color.3x.html">color_content()</A></EM></FONT> 1754 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1744_14">Color_Content</A>); 1755 1756 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1757 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_kernel.3x.html">curs_kernel.3x</A></EM></FONT> 1758 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1759 <FONT COLOR=green><EM>-- | Not implemented: getsyx, setsyx</EM></FONT> 1760 <FONT COLOR=green><EM>--</EM></FONT> 1761 <b>type</b> <FONT COLOR=red><A NAME="ref_1756_9">Curses_Mode</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="ref_1756_25">Curses</A></FONT>, <FONT COLOR=red><A NAME="ref_1756_33">Shell</A></FONT>); 1762 1763 <FONT COLOR=green><EM>-- #1A NAME="AFU_148"#2|</EM></FONT> 1764 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1759_14" HREF="terminal_interface-curses__adb.htm#ref_2247_14">Save_Curses_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_1759_32" HREF="terminal_interface-curses__adb.htm#ref_2247_32">Mode</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1756_9">Curses_Mode</A>); 1765 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_kernel.3x.html">def_prog_mode()</A></EM></FONT> 1766 <FONT COLOR=green><EM>-- AKA: def_shell_mode()</EM></FONT> 1767 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1759_14">Save_Curses_Mode</A>); 1768 1769 <FONT COLOR=green><EM>-- #1A NAME="AFU_149"#2|</EM></FONT> 1770 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1765_14" HREF="terminal_interface-curses__adb.htm#ref_2265_14">Reset_Curses_Mode</A></FONT> (<FONT COLOR=red><A NAME="ref_1765_33" HREF="terminal_interface-curses__adb.htm#ref_2265_33">Mode</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1756_9">Curses_Mode</A>); 1771 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_kernel.3x.html">reset_prog_mode()</A></EM></FONT> 1772 <FONT COLOR=green><EM>-- AKA: reset_shell_mode()</EM></FONT> 1773 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1765_14">Reset_Curses_Mode</A>); 1774 1775 <FONT COLOR=green><EM>-- #1A NAME="AFU_150"#2|</EM></FONT> 1776 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1771_14" HREF="terminal_interface-curses__adb.htm#ref_2283_14">Save_Terminal_State</A></FONT>; 1777 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_kernel.3x.html">savetty()</A></EM></FONT> 1778 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1771_14">Save_Terminal_State</A>); 1779 1780 <FONT COLOR=green><EM>-- #1A NAME="AFU_151"#2|</EM></FONT> 1781 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1776_14" HREF="terminal_interface-curses__adb.htm#ref_2293_14">Reset_Terminal_State</A></FONT>; 1782 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_kernel.3x.html">resetty();</A></EM></FONT> 1783 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1776_14">Reset_Terminal_State</A>); 1784 1785 <b>type</b> <FONT COLOR=red><A NAME="ref_1780_9">Stdscr_Init_Proc</A></FONT> <b>is</b> <b>access</b> 1786 <b>function</b> (<FONT COLOR=red><A NAME="ref_1781_17">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 1787 <FONT COLOR=red><A NAME="ref_1782_17">Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>) <b>return</b> Integer; 1788 <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses__ads.htm#ref_1780_9">Stdscr_Init_Proc</A>); 1789 <FONT COLOR=green><EM>-- N.B.: the return value is actually ignored, but it seems to be</EM></FONT> 1790 <FONT COLOR=green><EM>-- a good practice to return 0 if you think all went fine</EM></FONT> 1791 <FONT COLOR=green><EM>-- and -1 otherwise.</EM></FONT> 1792 1793 <FONT COLOR=green><EM>-- #1A NAME="AFU_152"#2|</EM></FONT> 1794 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1789_14" HREF="terminal_interface-curses__adb.htm#ref_2303_14">Rip_Off_Lines</A></FONT> (<FONT COLOR=red><A NAME="ref_1789_29" HREF="terminal_interface-curses__adb.htm#ref_2303_29">Lines</A></FONT> : <b>in</b> Integer; 1795 <FONT COLOR=red><A NAME="ref_1790_29" HREF="terminal_interface-curses__adb.htm#ref_2304_29">Proc</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1780_9">Stdscr_Init_Proc</A>); 1796 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_kernel.3x.html">ripoffline()</A></EM></FONT> 1797 <FONT COLOR=green><EM>-- N.B.: to be more precise, this uses a ncurses specific enhancement of</EM></FONT> 1798 <FONT COLOR=green><EM>-- ripoffline(), in which the Lines argument absolute value is the</EM></FONT> 1799 <FONT COLOR=green><EM>-- number of lines to be ripped of. The official ripoffline() only</EM></FONT> 1800 <FONT COLOR=green><EM>-- uses the sign of Lines to rip of a single line from bottom or top.</EM></FONT> 1801 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1789_14">Rip_Off_Lines</A>); 1802 1803 <b>type</b> <FONT COLOR=red><A NAME="ref_1798_9">Cursor_Visibility</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="ref_1798_31">Invisible</A></FONT>, <FONT COLOR=red><A NAME="ref_1798_42">Normal</A></FONT>, <FONT COLOR=red><A NAME="ref_1798_50">Very_Visible</A></FONT>); 1804 1805 <FONT COLOR=green><EM>-- #1A NAME="AFU_153"#2|</EM></FONT> 1806 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1801_14" HREF="terminal_interface-curses__adb.htm#ref_2315_14">Set_Cursor_Visibility</A></FONT> (<FONT COLOR=red><A NAME="ref_1801_37" HREF="terminal_interface-curses__adb.htm#ref_2315_37">Visibility</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_1798_9">Cursor_Visibility</A>); 1807 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_kernel.3x.html">curs_set()</A></EM></FONT> 1808 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1801_14">Set_Cursor_Visibility</A>); 1809 1810 <FONT COLOR=green><EM>-- #1A NAME="AFU_154"#2|</EM></FONT> 1811 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1806_14" HREF="terminal_interface-curses__adb.htm#ref_2328_14">Nap_Milli_Seconds</A></FONT> (<FONT COLOR=red><A NAME="ref_1806_33" HREF="terminal_interface-curses__adb.htm#ref_2328_33">Ms</A></FONT> : <b>in</b> Natural); 1812 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_kernel.3x.html">napms()</A></EM></FONT> 1813 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1806_14">Nap_Milli_Seconds</A>); 1814 1815 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1816 <FONT COLOR=green><EM>-- | Some useful helpers.</EM></FONT> 1817 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1818 <b>type</b> <FONT COLOR=red><A NAME="ref_1813_9">Transform_Direction</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="ref_1813_33">From_Screen</A></FONT>, <FONT COLOR=red><A NAME="ref_1813_46">To_Screen</A></FONT>); 1819 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1814_14" HREF="terminal_interface-curses__adb.htm#ref_2396_14">Transform_Coordinates</A></FONT> 1820 (<FONT COLOR=red><A NAME="ref_1815_7" HREF="terminal_interface-curses__adb.htm#ref_2397_7">W</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1821 <FONT COLOR=red><A NAME="ref_1816_7" HREF="terminal_interface-curses__adb.htm#ref_2398_7">Line</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 1822 <FONT COLOR=red><A NAME="ref_1817_7" HREF="terminal_interface-curses__adb.htm#ref_2399_7">Column</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 1823 <FONT COLOR=red><A NAME="ref_1818_7" HREF="terminal_interface-curses__adb.htm#ref_2400_7">Dir</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1813_9">Transform_Direction</A> := <A HREF="terminal_interface-curses__ads.htm#ref_1813_33">From_Screen</A>); 1824 <FONT COLOR=green><EM>-- This procedure transforms screen coordinates into coordinates relative</EM></FONT> 1825 <FONT COLOR=green><EM>-- to the window and vice versa, depending on the Dir parameter.</EM></FONT> 1826 <FONT COLOR=green><EM>-- Screen coordinates are the position informations on the physical device.</EM></FONT> 1827 <FONT COLOR=green><EM>-- An Curses_Exception will be raised if Line and Column are not in the</EM></FONT> 1828 <FONT COLOR=green><EM>-- Window or if you pass the Null_Window as argument.</EM></FONT> 1829 <FONT COLOR=green><EM>-- We don't inline this procedure</EM></FONT> 1830 1831 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1832 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/default_colors.3x.html">default_colors.3x</A></EM></FONT> 1833 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1834 1835 <FONT COLOR=green><EM>-- #1A NAME="AFU_155"#2|</EM></FONT> 1836 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1831_14" HREF="terminal_interface-curses__adb.htm#ref_2425_14">Use_Default_Colors</A></FONT>; 1837 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/default_colors.3x.html">use_default_colors()</A></EM></FONT> 1838 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1831_14">Use_Default_Colors</A>); 1839 1840 <FONT COLOR=green><EM>-- #1A NAME="AFU_156"#2|</EM></FONT> 1841 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1836_14" HREF="terminal_interface-curses__adb.htm#ref_2435_14">Assume_Default_Colors</A></FONT> (<FONT COLOR=red><A NAME="ref_1836_37" HREF="terminal_interface-curses__adb.htm#ref_2435_37">Fore</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := <A HREF="terminal_interface-curses__ads.htm#ref_285_4">Default_Color</A>; 1842 <FONT COLOR=red><A NAME="ref_1837_37" HREF="terminal_interface-curses__adb.htm#ref_2436_37">Back</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := <A HREF="terminal_interface-curses__ads.htm#ref_285_4">Default_Color</A>); 1843 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/default_colors.3x.html">assume_default_colors()</A></EM></FONT> 1844 <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_1836_14">Assume_Default_Colors</A>); 1845 1846 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1847 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_extend.3x.html">curs_extend.3x</A></EM></FONT> 1848 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1849 1850 <FONT COLOR=green><EM>-- #1A NAME="AFU_157"#2|</EM></FONT> 1851 <b>function</b> <FONT COLOR=red><A NAME="ref_1846_13" HREF="terminal_interface-curses__adb.htm#ref_2450_13">Curses_Version</A></FONT> <b>return</b> String; 1852 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_extend.3x.html">curses_version()</A></EM></FONT> 1853 1854 <FONT COLOR=green><EM>-- #1A NAME="AFU_158"#2|</EM></FONT> 1855 <FONT COLOR=green><EM>-- The returnvalue is the previous setting of the flag</EM></FONT> 1856 <b>function</b> <FONT COLOR=red><A NAME="ref_1851_13" HREF="terminal_interface-curses__adb.htm#ref_2473_13">Use_Extended_Names</A></FONT> (<FONT COLOR=red><A NAME="ref_1851_33" HREF="terminal_interface-curses__adb.htm#ref_2473_33">Enable</A></FONT> : Boolean) <b>return</b> Boolean; 1857 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_extend.3x.html">use_extended_names()</A></EM></FONT> 1858 1859 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1860 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_trace.3x.html">curs_trace.3x</A></EM></FONT> 1861 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1862 1863 <FONT COLOR=green><EM>-- #1A NAME="AFU_159"#2|</EM></FONT> 1864 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1859_14" HREF="terminal_interface-curses__adb.htm#ref_2459_14">Curses_Free_All</A></FONT>; 1865 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_trace.3x.html">_nc_freeall()</A></EM></FONT> 1866 1867 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1868 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_scr_dump.3x.html">curs_scr_dump.3x</A></EM></FONT> 1869 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1870 1871 <FONT COLOR=green><EM>-- #1A NAME="AFU_160"#2|</EM></FONT> 1872 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1867_14" HREF="terminal_interface-curses__adb.htm#ref_2488_14">Screen_Dump_To_File</A></FONT> (<FONT COLOR=red><A NAME="ref_1867_35" HREF="terminal_interface-curses__adb.htm#ref_2488_35">Filename</A></FONT> : <b>in</b> String); 1873 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_scr_dump.3x.html">scr_dump()</A></EM></FONT> 1874 1875 <FONT COLOR=green><EM>-- #1A NAME="AFU_161"#2|</EM></FONT> 1876 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1871_14" HREF="terminal_interface-curses__adb.htm#ref_2501_14">Screen_Restore_From_File</A></FONT> (<FONT COLOR=red><A NAME="ref_1871_40" HREF="terminal_interface-curses__adb.htm#ref_2501_40">Filename</A></FONT> : <b>in</b> String); 1877 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_scr_dump.3x.html">scr_restore()</A></EM></FONT> 1878 1879 <FONT COLOR=green><EM>-- #1A NAME="AFU_162"#2|</EM></FONT> 1880 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1875_14" HREF="terminal_interface-curses__adb.htm#ref_2514_14">Screen_Init_From_File</A></FONT> (<FONT COLOR=red><A NAME="ref_1875_37" HREF="terminal_interface-curses__adb.htm#ref_2514_37">Filename</A></FONT> : <b>in</b> String); 1881 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_scr_dump.3x.html">scr_init()</A></EM></FONT> 1882 1883 <FONT COLOR=green><EM>-- #1A NAME="AFU_163"#2|</EM></FONT> 1884 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1879_14" HREF="terminal_interface-curses__adb.htm#ref_2527_14">Screen_Set_File</A></FONT> (<FONT COLOR=red><A NAME="ref_1879_31" HREF="terminal_interface-curses__adb.htm#ref_2527_31">Filename</A></FONT> : <b>in</b> String); 1885 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/curs_scr_dump.3x.html">scr_set()</A></EM></FONT> 1886 1887 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1888 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_print.3x.html">curs_print.3x</A></EM></FONT> 1889 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1890 <FONT COLOR=green><EM>-- Not implemented: mcprint</EM></FONT> 1891 1892 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1893 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_printw.3x.html">curs_printw.3x</A></EM></FONT> 1894 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1895 <FONT COLOR=green><EM>-- Not implemented: printw, wprintw, mvprintw, mvwprintw, vwprintw,</EM></FONT> 1896 <FONT COLOR=green><EM>-- vw_printw</EM></FONT> 1897 <FONT COLOR=green><EM>-- Please use the Ada style Text_IO child packages for formatted</EM></FONT> 1898 <FONT COLOR=green><EM>-- printing. It doesn't make a lot of sense to map the printf style</EM></FONT> 1899 <FONT COLOR=green><EM>-- C functions to Ada.</EM></FONT> 1900 1901 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1902 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/curs_scanw.3x.html">curs_scanw.3x</A></EM></FONT> 1903 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1904 <FONT COLOR=green><EM>-- Not implemented: scanw, wscanw, mvscanw, mvwscanw, vwscanw, vw_scanw</EM></FONT> 1905 1906 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1907 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/resizeterm.3x.html">resizeterm.3x</A></EM></FONT> 1908 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1909 <FONT COLOR=green><EM>-- Not Implemented: resizeterm</EM></FONT> 1910 1911 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1912 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/wresize.3x.html">wresize.3x</A></EM></FONT> 1913 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 1914 1915 <FONT COLOR=green><EM>-- #1A NAME="AFU_164"#2|</EM></FONT> 1916 <b>procedure</b> <FONT COLOR=red><A NAME="ref_1911_14" HREF="terminal_interface-curses__adb.htm#ref_2540_14">Resize</A></FONT> (<FONT COLOR=red><A NAME="ref_1911_22" HREF="terminal_interface-curses__adb.htm#ref_2540_22">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := <A HREF="terminal_interface-curses__ads.htm#ref_476_13">Standard_Window</A>; 1917 <FONT COLOR=red><A NAME="ref_1912_22" HREF="terminal_interface-curses__adb.htm#ref_2541_22">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 1918 <FONT COLOR=red><A NAME="ref_1913_22" HREF="terminal_interface-curses__adb.htm#ref_2542_22">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>); 1919 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/wresize.3x.html">wresize()</A></EM></FONT> 1920 1921<b>private</b> 1922 <b>type</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; 1923 <A HREF="terminal_interface-curses__ads.htm#ref_58_4">Null_Window</A> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A> := 0; 1924 1925 <FONT COLOR=green><EM>-- The next constants are generated and may be different on your</EM></FONT> 1926 <FONT COLOR=green><EM>-- architecture.</EM></FONT> 1927 <FONT COLOR=green><EM>--</EM></FONT> 1928 <FONT COLOR=red><A NAME="ref_1923_4">Sizeof_bool</A></FONT> : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- bool</EM></FONT> 1929 <FONT COLOR=red><A NAME="ref_1924_4">Offset_XY</A></FONT> : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- int</EM></FONT> 1930 1931 <b>type</b> <FONT COLOR=red><A NAME="ref_1926_9">Curses_Bool</A></FONT> <b>is</b> <b>mod</b> 2 ** <A HREF="interfac__ads.htm#ref_38_9">Interfaces</A>.C.char'Size; 1932 <FONT COLOR=red><A NAME="ref_1927_4">Curses_Bool_False</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_1926_9">Curses_Bool</A> := 0; 1933 1934<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>; 1935</PRE></BODY></HTML> 1936