<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <HTML><HEAD><TITLE>terminal_interface-curses.ads</TITLE></HEAD> <BODY> <HR><DIV ALIGN="center"><H1> File : terminal_interface-curses.ads </H1></DIV><HR> <PRE> <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- Terminal_Interface.Curses --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- S P E C --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <FONT COLOR=green><EM>-- Copyright (c) 1998,2004 Free Software Foundation, Inc. --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT> <FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT> <FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT> <FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT> <FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT> <FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT> <FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT> <FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT> <FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT> <FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT> <FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT> <FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT> <FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT> <FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT> <FONT COLOR=green><EM>-- --</EM></FONT> <FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT> <FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT> <FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT> <FONT COLOR=green><EM>-- authorization. --</EM></FONT> <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT> <FONT COLOR=green><EM>-- Version Control:</EM></FONT> <FONT COLOR=green><EM>-- @Revision: 1.35 @</EM></FONT> <FONT COLOR=green><EM>-- @Date: 2004/08/21 21:37:00 @</EM></FONT> <FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <FONT COLOR=green><EM>-- curses binding.</EM></FONT> <FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> <FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> <FONT COLOR=green><EM>-- |</EM></FONT> <b>with</b> <A HREF="interfac__ads.htm#ref_23_9">System</A>.Storage_Elements; <b>with</b> Interfaces.C; <FONT COLOR=green><EM>-- We need this for some assertions.</EM></FONT> <b>package</b> Terminal_Interface.Curses <b>is</b> <b>pragma</b> Preelaborate (Terminal_Interface.Curses); <b>pragma</b> Linker_Options ("-lncurses"); <FONT COLOR=red><A NAME="ref_54_4">NC_Major_Version</A></FONT> : <b>constant</b> := 5; <FONT COLOR=green><EM>-- Major version of the library</EM></FONT> <FONT COLOR=red><A NAME="ref_55_4">NC_Minor_Version</A></FONT> : <b>constant</b> := 5; <FONT COLOR=green><EM>-- Minor version of the library</EM></FONT> NC_Version : <b>constant</b> String := "5.5"; <FONT COLOR=green><EM>-- Version of library</EM></FONT> <b>type</b> Window <b>is</b> <b>private</b>; Null_Window : <b>constant</b> Window; <b>type</b> <FONT COLOR=red><A NAME="ref_61_9">Line_Position</A></FONT> <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>-- line coordinate</EM></FONT> <b>type</b> Column_Position <b>is</b> <b>new</b> Natural; <FONT COLOR=green><EM>-- column coordinate</EM></FONT> <b>subtype</b> Line_Count <b>is</b> Line_Position <b>range</b> 1 .. Line_Position'Last; <FONT COLOR=green><EM>-- Type to count lines. We do not allow null windows, so must be positive</EM></FONT> <b>subtype</b> Column_Count <b>is</b> Column_Position <b>range</b> 1 .. Column_Position'Last; <FONT COLOR=green><EM>-- Type to count columns. We do not allow null windows, so must be positive</EM></FONT> <b>type</b> Key_Code <b>is</b> <b>new</b> Integer; <FONT COLOR=green><EM>-- That is anything including real characters, special keys and logical</EM></FONT> <FONT COLOR=green><EM>-- request codes.</EM></FONT> <FONT COLOR=green><EM>-- FIXME: The "-1" should be Curses_Err</EM></FONT> <b>subtype</b> Real_Key_Code <b>is</b> Key_Code <b>range</b> -1 .. 8#777#; <FONT COLOR=green><EM>-- This are the codes that potentially represent a real keystroke.</EM></FONT> <FONT COLOR=green><EM>-- Not all codes may be possible on a specific terminal. To check the</EM></FONT> <FONT COLOR=green><EM>-- availability of a special key, the Has_Key function is provided.</EM></FONT> <b>subtype</b> Special_Key_Code <b>is</b> Real_Key_Code <b>range</b> 8#400# .. Real_Key_Code'Last; <FONT COLOR=green><EM>-- Type for a function- or special key number</EM></FONT> <b>subtype</b> Normal_Key_Code <b>is</b> Real_Key_Code <b>range</b> Character'Pos (Character'First) .. Character'Pos (Character'Last); <FONT COLOR=green><EM>-- This are the codes for regular (incl. non-graphical) characters.</EM></FONT> <FONT COLOR=green><EM>-- Constants for function- and special keys</EM></FONT> <FONT COLOR=green><EM>--</EM></FONT> <FONT COLOR=red><A NAME="ref_89_4">Key_None</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#400#; <FONT COLOR=red><A NAME="ref_90_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#; <FONT COLOR=red><A NAME="ref_91_4">Key_Min</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#401#; <FONT COLOR=red><A NAME="ref_92_4">Key_Break</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#401#; <FONT COLOR=red><A NAME="ref_93_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#; <FONT COLOR=red><A NAME="ref_94_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#; <FONT COLOR=red><A NAME="ref_95_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#; <FONT COLOR=red><A NAME="ref_96_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#; <FONT COLOR=red><A NAME="ref_97_4">Key_Home</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#406#; <FONT COLOR=red><A NAME="ref_98_4">Key_Backspace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#407#; <FONT COLOR=red><A NAME="ref_99_4">Key_F0</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#410#; <FONT COLOR=red><A NAME="ref_100_4">Key_F1</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#411#; <FONT COLOR=red><A NAME="ref_101_4">Key_F2</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#412#; <FONT COLOR=red><A NAME="ref_102_4">Key_F3</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#413#; <FONT COLOR=red><A NAME="ref_103_4">Key_F4</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#414#; <FONT COLOR=red><A NAME="ref_104_4">Key_F5</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#415#; <FONT COLOR=red><A NAME="ref_105_4">Key_F6</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#416#; <FONT COLOR=red><A NAME="ref_106_4">Key_F7</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#417#; <FONT COLOR=red><A NAME="ref_107_4">Key_F8</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#420#; <FONT COLOR=red><A NAME="ref_108_4">Key_F9</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#421#; <FONT COLOR=red><A NAME="ref_109_4">Key_F10</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#422#; <FONT COLOR=red><A NAME="ref_110_4">Key_F11</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#423#; <FONT COLOR=red><A NAME="ref_111_4">Key_F12</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#424#; <FONT COLOR=red><A NAME="ref_112_4">Key_F13</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#425#; <FONT COLOR=red><A NAME="ref_113_4">Key_F14</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#426#; <FONT COLOR=red><A NAME="ref_114_4">Key_F15</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#427#; <FONT COLOR=red><A NAME="ref_115_4">Key_F16</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#430#; <FONT COLOR=red><A NAME="ref_116_4">Key_F17</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#431#; <FONT COLOR=red><A NAME="ref_117_4">Key_F18</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#432#; <FONT COLOR=red><A NAME="ref_118_4">Key_F19</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#433#; <FONT COLOR=red><A NAME="ref_119_4">Key_F20</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#434#; <FONT COLOR=red><A NAME="ref_120_4">Key_F21</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#435#; <FONT COLOR=red><A NAME="ref_121_4">Key_F22</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#436#; <FONT COLOR=red><A NAME="ref_122_4">Key_F23</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#437#; <FONT COLOR=red><A NAME="ref_123_4">Key_F24</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#440#; <FONT COLOR=red><A NAME="ref_124_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#; <FONT COLOR=red><A NAME="ref_125_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#; <FONT COLOR=red><A NAME="ref_126_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#; <FONT COLOR=red><A NAME="ref_127_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#; <FONT COLOR=red><A NAME="ref_128_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#; <FONT COLOR=red><A NAME="ref_129_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#; <FONT COLOR=red><A NAME="ref_130_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#; <FONT COLOR=red><A NAME="ref_131_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#; <FONT COLOR=red><A NAME="ref_132_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#; <FONT COLOR=red><A NAME="ref_133_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#; <FONT COLOR=red><A NAME="ref_134_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#; <FONT COLOR=red><A NAME="ref_135_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#; <FONT COLOR=red><A NAME="ref_136_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#; <FONT COLOR=red><A NAME="ref_137_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#; <FONT COLOR=red><A NAME="ref_138_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#; <FONT COLOR=red><A NAME="ref_139_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#; <FONT COLOR=red><A NAME="ref_140_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#; <FONT COLOR=red><A NAME="ref_141_4">Key_Reset</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#531#; <FONT COLOR=red><A NAME="ref_142_4">Key_Print</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#532#; <FONT COLOR=red><A NAME="ref_143_4">Key_Bottom</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#533#; <FONT COLOR=red><A NAME="ref_144_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#; <FONT COLOR=red><A NAME="ref_145_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#; <FONT COLOR=red><A NAME="ref_146_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#; <FONT COLOR=red><A NAME="ref_147_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#; <FONT COLOR=red><A NAME="ref_148_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#; <FONT COLOR=red><A NAME="ref_149_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#; <FONT COLOR=red><A NAME="ref_150_4">Key_Beginning</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#542#; <FONT COLOR=red><A NAME="ref_151_4">Key_Cancel</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#543#; <FONT COLOR=red><A NAME="ref_152_4">Key_Close</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#544#; <FONT COLOR=red><A NAME="ref_153_4">Key_Command</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#545#; <FONT COLOR=red><A NAME="ref_154_4">Key_Copy</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#546#; <FONT COLOR=red><A NAME="ref_155_4">Key_Create</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#547#; <FONT COLOR=red><A NAME="ref_156_4">Key_End</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#550#; <FONT COLOR=red><A NAME="ref_157_4">Key_Exit</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#551#; <FONT COLOR=red><A NAME="ref_158_4">Key_Find</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#552#; <FONT COLOR=red><A NAME="ref_159_4">Key_Help</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#553#; <FONT COLOR=red><A NAME="ref_160_4">Key_Mark</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#554#; <FONT COLOR=red><A NAME="ref_161_4">Key_Message</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#555#; <FONT COLOR=red><A NAME="ref_162_4">Key_Move</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#556#; <FONT COLOR=red><A NAME="ref_163_4">Key_Next</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#557#; <FONT COLOR=red><A NAME="ref_164_4">Key_Open</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#560#; <FONT COLOR=red><A NAME="ref_165_4">Key_Options</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#561#; <FONT COLOR=red><A NAME="ref_166_4">Key_Previous</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#562#; <FONT COLOR=red><A NAME="ref_167_4">Key_Redo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#563#; <FONT COLOR=red><A NAME="ref_168_4">Key_Reference</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#564#; <FONT COLOR=red><A NAME="ref_169_4">Key_Refresh</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#565#; <FONT COLOR=red><A NAME="ref_170_4">Key_Replace</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#566#; <FONT COLOR=red><A NAME="ref_171_4">Key_Restart</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#567#; <FONT COLOR=red><A NAME="ref_172_4">Key_Resume</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#570#; <FONT COLOR=red><A NAME="ref_173_4">Key_Save</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#571#; <FONT COLOR=red><A NAME="ref_174_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#; <FONT COLOR=red><A NAME="ref_175_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#; <FONT COLOR=red><A NAME="ref_176_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#; <FONT COLOR=red><A NAME="ref_177_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#; <FONT COLOR=red><A NAME="ref_178_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#; <FONT COLOR=red><A NAME="ref_179_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#; <FONT COLOR=red><A NAME="ref_180_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#; <FONT COLOR=red><A NAME="ref_181_4">Key_Select</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#601#; <FONT COLOR=red><A NAME="ref_182_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#; <FONT COLOR=red><A NAME="ref_183_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#; <FONT COLOR=red><A NAME="ref_184_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#; <FONT COLOR=red><A NAME="ref_185_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#; <FONT COLOR=red><A NAME="ref_186_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#; <FONT COLOR=red><A NAME="ref_187_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#; <FONT COLOR=red><A NAME="ref_188_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#; <FONT COLOR=red><A NAME="ref_189_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#; <FONT COLOR=red><A NAME="ref_190_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#; <FONT COLOR=red><A NAME="ref_191_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#; <FONT COLOR=red><A NAME="ref_192_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#; <FONT COLOR=red><A NAME="ref_193_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#; <FONT COLOR=red><A NAME="ref_194_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#; <FONT COLOR=red><A NAME="ref_195_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#; <FONT COLOR=red><A NAME="ref_196_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#; <FONT COLOR=red><A NAME="ref_197_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#; <FONT COLOR=red><A NAME="ref_198_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#; <FONT COLOR=red><A NAME="ref_199_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#; <FONT COLOR=red><A NAME="ref_200_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#; <FONT COLOR=red><A NAME="ref_201_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#; <FONT COLOR=red><A NAME="ref_202_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#; <FONT COLOR=red><A NAME="ref_203_4">Key_Suspend</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#627#; <FONT COLOR=red><A NAME="ref_204_4">Key_Undo</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#630#; <FONT COLOR=red><A NAME="ref_205_4">Key_Mouse</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">Special_Key_Code</A> := 8#631#; Key_Resize : <b>constant</b> Special_Key_Code := 8#632#; Key_Max : <b>constant</b> Special_Key_Code := Special_Key_Code'Last; <b>subtype</b> User_Key_Code <b>is</b> Key_Code <b>range</b> (Key_Max + 129) .. Key_Code'Last; <FONT COLOR=green><EM>-- This is reserved for user defined key codes. The range between Key_Max</EM></FONT> <FONT COLOR=green><EM>-- and the first user code is reserved for subsystems like menu and forms.</EM></FONT> <FONT COLOR=green><EM>-- For those who like to use the original key names we produce them were</EM></FONT> <FONT COLOR=green><EM>-- they differ from the original. Please note that they may differ in</EM></FONT> <FONT COLOR=green><EM>-- lower/upper case.</EM></FONT> 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_93_4">Key_Cursor_Down</A>; 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_94_4">Key_Cursor_Up</A>; 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_95_4">Key_Cursor_Left</A>; 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_123_4">Key_Cursor_Right</A>; 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_124_4">Key_Delete_Line</A>; 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_125_4">Key_Insert_Line</A>; 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_126_4">Key_Delete_Char</A>; 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_127_4">Key_Insert_Char</A>; 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_128_4">Key_Exit_Insert_Mode</A>; 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_129_4">Key_Clear_Screen</A>; 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_130_4">Key_Clear_End_Of_Screen</A>; 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_131_4">Key_Clear_End_Of_Line</A>; 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_132_4">Key_Scroll_1_Forward</A>; 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_133_4">Key_Scroll_1_Backward</A>; 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_134_4">Key_Next_Page</A>; 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_135_4">Key_Previous_Page</A>; 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_136_4">Key_Set_Tab</A>; 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_137_4">Key_Clear_Tab</A>; 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_138_4">Key_Clear_All_Tabs</A>; 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_139_4">Key_Enter_Or_Send</A>; 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_142_4">Key_Soft_Reset</A>; 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_143_4">Key_Bottom</A>; 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_144_4">Key_Upper_Left_Of_Keypad</A>; 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_145_4">Key_Upper_Right_Of_Keypad</A>; 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_146_4">Key_Center_Of_Keypad</A>; 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_147_4">Key_Lower_Left_Of_Keypad</A>; 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_148_4">Key_Lower_Right_Of_Keypad</A>; 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_149_4">Key_Back_Tab</A>; 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_173_4">Key_Beginning</A>; 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_174_4">Key_Shift_Begin</A>; 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_175_4">Key_Shift_Cancel</A>; 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_176_4">Key_Shift_Command</A>; 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_177_4">Key_Shift_Copy</A>; 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_178_4">Key_Shift_Create</A>; 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_179_4">Key_Shift_Delete_Char</A>; 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_181_4">Key_Shift_Delete_Line</A>; 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_182_4">Key_Shift_End</A>; 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_183_4">Key_Shift_Clear_End_Of_Line</A>; 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_184_4">Key_Shift_Exit</A>; 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_185_4">Key_Shift_Find</A>; 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_186_4">Key_Shift_Help</A>; 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_187_4">Key_Shift_Home</A>; 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_188_4">Key_Shift_Insert_Char</A>; 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_189_4">Key_Shift_Cursor_Left</A>; 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_190_4">Key_Shift_Message</A>; 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_191_4">Key_Shift_Move</A>; 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_192_4">Key_Shift_Next_Page</A>; 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_193_4">Key_Shift_Options</A>; 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_194_4">Key_Shift_Previous_Page</A>; 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_195_4">Key_Shift_Print</A>; 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_196_4">Key_Shift_Redo</A>; 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_197_4">Key_Shift_Replace</A>; 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_198_4">Key_Shift_Cursor_Right</A>; 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_199_4">Key_Shift_Resume</A>; 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_200_4">Key_Shift_Save</A>; 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_201_4">Key_Shift_Suspend</A>; KEY_SUNDO : Special_Key_Code <b>renames</b> Key_Shift_Undo; <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> <b>type</b><A HREF="terminal_interface-curses__ads.htm#ref_278_9"> </A>Color_Number <b>is</b> <b>range</b><A HREF="interfac__ads.htm#ref_23_9"> </A>-1 .. Integer (Interfaces.C.short'Last); <b>for</b> Color_Number'Size <b>use</b> Interfaces.C.short'Size; <FONT COLOR=green><EM>-- (n)curses uses a short for the color index</EM></FONT> <FONT COLOR=green><EM>-- The model is, that a Color_Number is an index into an array of</EM></FONT> <FONT COLOR=green><EM>-- (potentially) definable colors. Some of those indices are</EM></FONT> <FONT COLOR=green><EM>-- predefined (see below), although they may not really exist.</EM></FONT> <FONT COLOR=red><A NAME="ref_286_4">Default_Color</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := -1; <FONT COLOR=red><A NAME="ref_287_4">Black</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 0; <FONT COLOR=red><A NAME="ref_288_4">Red</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 1; <FONT COLOR=red><A NAME="ref_289_4">Green</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 2; <FONT COLOR=red><A NAME="ref_290_4">Yellow</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 3; <FONT COLOR=red><A NAME="ref_291_4">Blue</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 4; <FONT COLOR=red><A NAME="ref_292_4">Magenta</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 5; <FONT COLOR=red><A NAME="ref_293_4">Cyan</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A> := 6; White : <b>constant</b> Color_Number := 7; <b>type</b><A HREF="terminal_interface-curses__ads.htm#ref_295_9"> </A>RGB_Value <b>is</b> <b>range</b><A HREF="interfac__ads.htm#ref_23_9"> </A>0 .. Integer (Interfaces.C.short'Last); <b>for</b> RGB_Value'Size <b>use</b> Interfaces.C.short'Size; <FONT COLOR=green><EM>-- Some system may allow to redefine a color by setting RGB values.</EM></FONT> <b>type</b><A HREF="terminal_interface-curses__ads.htm#ref_299_9"> </A>Color_Pair <b>is</b> <b>range</b> 0 .. 255; <b>for</b> Color_Pair'Size <b>use</b> 8; <b>subtype</b> Redefinable_Color_Pair <b>is</b> Color_Pair <b>range</b> 1 .. 255; <FONT COLOR=green><EM>-- (n)curses reserves 1 Byte for the color-pair number. Color Pair 0</EM></FONT> <FONT COLOR=green><EM>-- is fixed (Black & White). A color pair is simply a combination of</EM></FONT> <FONT COLOR=green><EM>-- two colors described by Color_Numbers, one for the foreground and</EM></FONT> <FONT COLOR=green><EM>-- the other for the background</EM></FONT> <b>type</b> Character_Attribute_Set <b>is</b> <b>record</b> <FONT COLOR=red><A NAME="ref_310_10">Stand_Out</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_311_10">Under_Line</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_312_10">Reverse_Video</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_313_10">Blink</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_314_10">Dim_Character</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_315_10">Bold_Character</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_316_10">Alternate_Character_Set</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_317_10">Invisible_Character</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_318_10">Protected_Character</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_319_10">Horizontal</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_320_10">Left</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_321_10">Low</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_322_10">Right</A></FONT> : Boolean; <FONT COLOR=red><A NAME="ref_323_10">Top</A></FONT> : Boolean; Vertical : Boolean; <b>end</b> <b>record</b>; <b>pragma</b> Convention (C, Character_Attribute_Set); <b>for</b> Character_Attribute_Set <b>use</b> <b>record</b> Stand_Out <b>at</b> 0 <b>range</b> 0 .. 0; Under_Line <b>at</b> 0 <b>range</b> 1 .. 1; Reverse_Video <b>at</b> 0 <b>range</b> 2 .. 2; Blink <b>at</b> 0 <b>range</b> 3 .. 3; Dim_Character <b>at</b> 0 <b>range</b> 4 .. 4; Bold_Character <b>at</b> 0 <b>range</b> 5 .. 5; Alternate_Character_Set <b>at</b> 0 <b>range</b> 6 .. 6; Invisible_Character <b>at</b> 0 <b>range</b> 7 .. 7; Protected_Character <b>at</b> 0 <b>range</b> 8 .. 8; Horizontal <b>at</b> 0 <b>range</b> 9 .. 9; Left <b>at</b> 0 <b>range</b> 10 .. 10; Low <b>at</b> 0 <b>range</b> 11 .. 11; Right <b>at</b> 0 <b>range</b> 12 .. 12; Top <b>at</b> 0 <b>range</b> 13 .. 13; Vertical <b>at</b> 0 <b>range</b> 14 .. 14; <b>end</b> <b>record</b>; <b>for</b> Character_Attribute_Set'Size <b>use</b> 16; <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> <FONT COLOR=green><EM>-- different on your system.</EM></FONT> <FONT COLOR=green><EM>-- (n)curses uses all but the lowest 16 Bits for Attributes.</EM></FONT> Normal_Video : <b>constant</b> Character_Attribute_Set := (<b>others</b> => False); <b>type</b> Attributed_Character <b>is</b> <b>record</b> <FONT COLOR=red><A NAME="ref_355_10">Attr</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A>; <FONT COLOR=red><A NAME="ref_356_10">Color</A></FONT> : Color_Pair; Ch : Character; <b>end</b> <b>record</b>; <b>pragma</b> Convention (C, Attributed_Character); <FONT COLOR=green><EM>-- This is the counterpart for the chtype in C.</EM></FONT> <b>for</b> Attributed_Character <b>use</b> <b>record</b> Ch <b>at</b> 0 <b>range</b> 0 .. 7; Color <b>at</b> 0 <b>range</b> 8 .. 15; Attr <b>at</b> 0 <b>range</b> 16 .. 31; <b>end</b> <b>record</b>; <b>for</b> Attributed_Character'Size <b>use</b> 32; <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> <FONT COLOR=green><EM>-- different on your system.</EM></FONT> Default_Character : <b>constant</b> Attributed_Character := (Ch => <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character</A>'First, Color => Color_Pair'First, Attr => (<b>others</b> => False)); <FONT COLOR=green><EM>-- preelaboratable Normal_Video</EM></FONT> <b>type</b> Attributed_String <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> Attributed_Character; <b>pragma</b> Pack (Attributed_String); <FONT COLOR=green><EM>-- In this binding we allow strings of attributed characters.</EM></FONT> <FONT COLOR=green><EM>------------------</EM></FONT> <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> <FONT COLOR=green><EM>------------------</EM></FONT> <FONT COLOR=red><A NAME="ref_384_4">Curses_Exception</A></FONT> : <b>exception</b>; Wrong_Curses_Version : <b>exception</b>; <FONT COLOR=green><EM>-- Those exceptions are raised by the ETI (Extended Terminal Interface)</EM></FONT> <FONT COLOR=green><EM>-- subpackets for Menu and Forms handling.</EM></FONT> <FONT COLOR=green><EM>--</EM></FONT> <FONT COLOR=red><A NAME="ref_390_4">Eti_System_Error</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_391_4">Eti_Bad_Argument</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_392_4">Eti_Posted</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_393_4">Eti_Connected</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_394_4">Eti_Bad_State</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_395_4">Eti_No_Room</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_396_4">Eti_Not_Posted</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_397_4">Eti_Unknown_Command</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_398_4">Eti_No_Match</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_399_4">Eti_Not_Selectable</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_400_4">Eti_Not_Connected</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_401_4">Eti_Request_Denied</A></FONT> : <b>exception</b>; <FONT COLOR=red><A NAME="ref_402_4">Eti_Invalid_Field</A></FONT> : <b>exception</b>; Eti_Current : <b>exception</b>; <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT> <FONT COLOR=green><EM>-- External C variables</EM></FONT> <FONT COLOR=green><EM>-- Conceptually even in C this are kind of constants, but they are</EM></FONT> <FONT COLOR=green><EM>-- initialized and sometimes changed by the library routines at runtime</EM></FONT> <FONT COLOR=green><EM>-- depending on the type of terminal. I believe the best way to model</EM></FONT> <FONT COLOR=green><EM>-- this is to use functions.</EM></FONT> <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT> <b>function</b> Lines <A HREF="terminal_interface-curses__ads.htm#ref_412_13"> </A> <b>return</b> Line_Count; <b>pragma</b> Inline (Lines); <b>function</b> Columns <b>return</b> Column_Count; <b>pragma</b> Inline (Columns); <b>function</b> Tab_Size <b>return</b> Natural; <b>pragma</b> Inline (Tab_Size); <b>function</b> Number_Of_Colors <b>return</b> Natural; <b>pragma</b> Inline (Number_Of_Colors); <b>function</b> Number_Of_Color_Pairs <b>return</b> Natural; <b>pragma</b> Inline (Number_Of_Color_Pairs); ACS_Map : <b>array</b> (Character'Val (0) .. Character'Val (127)) <b>of</b> Attributed_Character; <b>pragma</b> Import (C, ACS_Map, "acs_map"); <FONT COLOR=green><EM>--</EM></FONT> <FONT COLOR=green><EM>--</EM></FONT> <FONT COLOR=green><EM>-- Constants for several characters from the Alternate Character Set</EM></FONT> <FONT COLOR=green><EM>-- You must use this constants as indices into the ACS_Map array</EM></FONT> <FONT COLOR=green><EM>-- to get the corresponding attributed character at runtime.</EM></FONT> <FONT COLOR=green><EM>--</EM></FONT> <FONT COLOR=red><A NAME="ref_437_4">ACS_Upper_Left_Corner</A></FONT> : <b>constant</b> Character := 'l'; <FONT COLOR=red><A NAME="ref_438_4">ACS_Lower_Left_Corner</A></FONT> : <b>constant</b> Character := 'm'; <FONT COLOR=red><A NAME="ref_439_4">ACS_Upper_Right_Corner</A></FONT> : <b>constant</b> Character := 'k'; <FONT COLOR=red><A NAME="ref_440_4">ACS_Lower_Right_Corner</A></FONT> : <b>constant</b> Character := 'j'; <FONT COLOR=red><A NAME="ref_441_4">ACS_Left_Tee</A></FONT> : <b>constant</b> Character := 't'; <FONT COLOR=red><A NAME="ref_442_4">ACS_Right_Tee</A></FONT> : <b>constant</b> Character := 'u'; <FONT COLOR=red><A NAME="ref_443_4">ACS_Bottom_Tee</A></FONT> : <b>constant</b> Character := 'v'; <FONT COLOR=red><A NAME="ref_444_4">ACS_Top_Tee</A></FONT> : <b>constant</b> Character := 'w'; <FONT COLOR=red><A NAME="ref_445_4">ACS_Horizontal_Line</A></FONT> : <b>constant</b> Character := 'q'; <FONT COLOR=red><A NAME="ref_446_4">ACS_Vertical_Line</A></FONT> : <b>constant</b> Character := 'x'; <FONT COLOR=red><A NAME="ref_447_4">ACS_Plus_Symbol</A></FONT> : <b>constant</b> Character := 'n'; <FONT COLOR=red><A NAME="ref_448_4">ACS_Scan_Line_1</A></FONT> : <b>constant</b> Character := 'o'; <FONT COLOR=red><A NAME="ref_449_4">ACS_Scan_Line_9</A></FONT> : <b>constant</b> Character := 's'; <FONT COLOR=red><A NAME="ref_450_4">ACS_Diamond</A></FONT> : <b>constant</b> Character := Character'Val (96); <FONT COLOR=red><A NAME="ref_451_4">ACS_Checker_Board</A></FONT> : <b>constant</b> Character := 'a'; <FONT COLOR=red><A NAME="ref_452_4">ACS_Degree</A></FONT> : <b>constant</b> Character := 'f'; <FONT COLOR=red><A NAME="ref_453_4">ACS_Plus_Minus</A></FONT> : <b>constant</b> Character := 'g'; <FONT COLOR=red><A NAME="ref_454_4">ACS_Bullet</A></FONT> : <b>constant</b> Character := '~'; <FONT COLOR=red><A NAME="ref_455_4">ACS_Left_Arrow</A></FONT> : <b>constant</b> Character := ','; <FONT COLOR=red><A NAME="ref_456_4">ACS_Right_Arrow</A></FONT> : <b>constant</b> Character := '+'; <FONT COLOR=red><A NAME="ref_457_4">ACS_Down_Arrow</A></FONT> : <b>constant</b> Character := '.'; <FONT COLOR=red><A NAME="ref_458_4">ACS_Up_Arrow</A></FONT> : <b>constant</b> Character := '-'; <FONT COLOR=red><A NAME="ref_459_4">ACS_Board_Of_Squares</A></FONT> : <b>constant</b> Character := 'h'; <FONT COLOR=red><A NAME="ref_460_4">ACS_Lantern</A></FONT> : <b>constant</b> Character := 'i'; <FONT COLOR=red><A NAME="ref_461_4">ACS_Solid_Block</A></FONT> : <b>constant</b> Character := '0'; <FONT COLOR=red><A NAME="ref_462_4">ACS_Scan_Line_3</A></FONT> : <b>constant</b> Character := 'p'; <FONT COLOR=red><A NAME="ref_463_4">ACS_Scan_Line_7</A></FONT> : <b>constant</b> Character := 'r'; <FONT COLOR=red><A NAME="ref_464_4">ACS_Less_Or_Equal</A></FONT> : <b>constant</b> Character := 'y'; <FONT COLOR=red><A NAME="ref_465_4">ACS_Greater_Or_Equal</A></FONT> : <b>constant</b> Character := 'z'; <FONT COLOR=red><A NAME="ref_466_4">ACS_PI</A></FONT> : <b>constant</b> Character := '{'; <FONT COLOR=red><A NAME="ref_467_4">ACS_Not_Equal</A></FONT> : <b>constant</b> Character := '|'; ACS_Sterling : <b>constant</b> Character := '}'; <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Not implemented: newterm, set_term, delscreen, curscr</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> <b>function</b> Standard_Window <b>return</b> Window; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">stdscr</A></EM></FONT> <b>pragma</b> Inline (Standard_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> <b>procedure</b> Init_Screen; <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> <b>procedure</b> Init_Windows <b>renames</b> Init_Screen; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">initscr()</A></EM></FONT> <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_483_14">Init_Screen</A>); <b>pragma</b> Inline (Init_Windows); <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> <b>procedure</b> End_Windows; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">endwin()</A></EM></FONT> <b>procedure</b> End_Screen <b>renames</b> End_Windows; <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#ref_491_14">End_Windows</A>); <b>pragma</b> Inline (End_Screen); <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> <b>function</b> Is_End_Window <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">isendwin()</A></EM></FONT> <b>pragma</b> Inline (Is_End_Window); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_move.3x.html">curs_move.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> <b>procedure</b> Move_Cursor (<FONT COLOR=red><A NAME="ref_506_27" HREF="terminal_interface-curses__adb.htm#ref_187_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_507_27" HREF="terminal_interface-curses__adb.htm#ref_188_27">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Column : <b>in</b> Column_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_move.3x.html">wmove()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: move()</EM></FONT> <b>pragma</b> Inline (Move_Cursor); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> <b>procedure</b> Add (<FONT COLOR=red><A NAME="ref_518_19" HREF="terminal_interface-curses__adb.htm#ref_202_19">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Window</A> := Standard_Window; Ch : <b>in</b> Attributed_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">waddch()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: addch()</EM></FONT> <b>procedure</b> Add (<FONT COLOR=red><A NAME="ref_523_19" HREF="terminal_interface-curses__adb.htm#ref_214_19">Win</A></FONT> : <b>in</b> Window := Standard_Window; Ch : <b>in</b> Character); <FONT COLOR=green><EM>-- Add a single character at the current logical cursor position to</EM></FONT> <FONT COLOR=green><EM>-- the window. Use the current windows attributes.</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> <b>procedure</b> Add (<FONT COLOR=red><A NAME="ref_530_7" HREF="terminal_interface-curses__adb.htm#ref_225_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_531_7" HREF="terminal_interface-curses__adb.htm#ref_226_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_532_7" HREF="terminal_interface-curses__adb.htm#ref_227_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Column_Position</A>; Ch : <b>in</b> Attributed_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">mvwaddch()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvaddch()</EM></FONT> <b>procedure</b> Add (<FONT COLOR=red><A NAME="ref_538_7" HREF="terminal_interface-curses__adb.htm#ref_244_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_539_7" HREF="terminal_interface-curses__adb.htm#ref_245_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_540_7" HREF="terminal_interface-curses__adb.htm#ref_246_7">Column</A></FONT> : <b>in</b> Column_Position; Ch : <b>in</b> Character); <FONT COLOR=green><EM>-- Move to the position and add a single character into the window</EM></FONT> <FONT COLOR=green><EM>-- There are more Add routines, so the Inline pragma follows later</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> <b>procedure</b> Add_With_Immediate_Echo (<FONT COLOR=red><A NAME="ref_547_7" HREF="terminal_interface-curses__adb.htm#ref_259_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Window</A> := Standard_Window; Ch : <b>in</b> Attributed_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">wechochar()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: echochar()</EM></FONT> <b>procedure</b> Add_With_Immediate_Echo (<FONT COLOR=red><A NAME="ref_553_7" HREF="terminal_interface-curses__adb.htm#ref_272_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Ch : <b>in</b> Character); <FONT COLOR=green><EM>-- Add a character and do an immediate refresh of the screen.</EM></FONT> <b>pragma</b> Inline (Add_With_Immediate_Echo); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_window.3x.html">curs_window.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- Not Implemented: wcursyncup</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> <b>function</b> Create (<FONT COLOR=red><A NAME="ref_565_7" HREF="terminal_interface-curses__adb.htm#ref_283_21">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; <FONT COLOR=red><A NAME="ref_566_7" HREF="terminal_interface-curses__adb.htm#ref_284_21">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>; <FONT COLOR=red><A NAME="ref_567_7" HREF="terminal_interface-curses__adb.htm#ref_285_21">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; First_Column_Position : Column_Position) <b>return</b> Window; <FONT COLOR=green><EM>-- Not Implemented: Default Number_Of_Lines, Number_Of_Columns</EM></FONT> <FONT COLOR=green><EM>-- the C version lets them be 0, see the man page.</EM></FONT> <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">newwin()</A></EM></FONT> <b>pragma</b> Inline (Create); <b>function</b> New_Window (<FONT COLOR=red><A NAME="ref_575_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; <FONT COLOR=red><A NAME="ref_576_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>; <FONT COLOR=red><A NAME="ref_577_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; First_Column_Position : Column_Position) <b>return</b> Window <b>renames</b> Create; <b>pragma</b> Inline (New_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> <b>procedure</b> Delete (Win : <b>in</b> <b>out</b> Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">delwin()</A></EM></FONT> <FONT COLOR=green><EM>-- Reset Win to Null_Window</EM></FONT> <b>pragma</b> Inline (Delete); <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> <b>function</b> Sub_Window (<FONT COLOR=red><A NAME="ref_590_7" HREF="terminal_interface-curses__adb.htm#ref_318_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_591_7" HREF="terminal_interface-curses__adb.htm#ref_319_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; <FONT COLOR=red><A NAME="ref_592_7" HREF="terminal_interface-curses__adb.htm#ref_320_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>; <FONT COLOR=red><A NAME="ref_593_7" HREF="terminal_interface-curses__adb.htm#ref_321_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; First_Column_Position : Column_Position) <b>return</b> Window; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">subwin()</A></EM></FONT> <b>pragma</b> Inline (Sub_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> <b>function</b> Derived_Window (<FONT COLOR=red><A NAME="ref_600_7" HREF="terminal_interface-curses__adb.htm#ref_346_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_601_7" HREF="terminal_interface-curses__adb.htm#ref_347_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; <FONT COLOR=red><A NAME="ref_602_7" HREF="terminal_interface-curses__adb.htm#ref_348_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>; <FONT COLOR=red><A NAME="ref_603_7" HREF="terminal_interface-curses__adb.htm#ref_349_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; First_Column_Position : Column_Position) <b>return</b> Window; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">derwin()</A></EM></FONT> <b>pragma</b> Inline (Derived_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> <b>function</b> Duplicate (Win : Window) <b>return</b> Window; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">dupwin()</A></EM></FONT> <b>pragma</b> Inline (Duplicate); <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> <b>procedure</b> Move_Window (<FONT COLOR=red><A NAME="ref_614_27" HREF="terminal_interface-curses__adb.htm#ref_386_27">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A>; <FONT COLOR=red><A NAME="ref_615_27" HREF="terminal_interface-curses__adb.htm#ref_387_27">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Column : <b>in</b> Column_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">mvwin()</A></EM></FONT> <b>pragma</b> Inline (Move_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> <b>procedure</b> Move_Derived_Window (<FONT COLOR=red><A NAME="ref_621_35" HREF="terminal_interface-curses__adb.htm#ref_400_35">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A>; <FONT COLOR=red><A NAME="ref_622_35" HREF="terminal_interface-curses__adb.htm#ref_401_35">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Column : <b>in</b> Column_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">mvderwin()</A></EM></FONT> <b>pragma</b> Inline (Move_Derived_Window); <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> <b>procedure</b> Synchronize_Upwards (Win : <b>in</b> Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncup()</A></EM></FONT> <b>pragma</b> Import (C, Synchronize_Upwards, "wsyncup"); <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> <b>procedure</b> Synchronize_Downwards (Win : <b>in</b> Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncdown()</A></EM></FONT> <b>pragma</b> Import (C, Synchronize_Downwards, "wsyncdown"); <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> <b>procedure</b> Set_Synch_Mode (<FONT COLOR=red><A NAME="ref_638_30" HREF="terminal_interface-curses__adb.htm#ref_414_30">Win</A></FONT> : <b>in</b> Window := Standard_Window; Mode : <b>in</b> Boolean := False); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">syncok()</A></EM></FONT> <b>pragma</b> Inline (Set_Synch_Mode); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> <b>procedure</b> Add (<FONT COLOR=red><A NAME="ref_648_19" HREF="terminal_interface-curses__adb.htm#ref_426_19">Win</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_649_19" HREF="terminal_interface-curses__adb.htm#ref_427_19">Str</A></FONT> : <b>in</b> String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addstr.3x.html">waddnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: waddstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: addnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: addstr()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> <b>procedure</b> Add (<FONT COLOR=red><A NAME="ref_657_19" HREF="terminal_interface-curses__adb.htm#ref_445_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_658_19" HREF="terminal_interface-curses__adb.htm#ref_446_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_659_19" HREF="terminal_interface-curses__adb.htm#ref_447_7">Column</A></FONT> : <b>in</b> Column_Position; <FONT COLOR=red><A NAME="ref_660_19" HREF="terminal_interface-curses__adb.htm#ref_448_7">Str</A></FONT> : <b>in</b> String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addstr.3x.html">mvwaddnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvwaddstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvaddnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvaddstr()</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> <b>procedure</b> Add (<FONT COLOR=red><A NAME="ref_672_19" HREF="terminal_interface-curses__adb.htm#ref_457_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_376_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_673_19" HREF="terminal_interface-curses__adb.htm#ref_458_7">Str</A></FONT> : <b>in</b> Attributed_String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addchstr.3x.html">waddchnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: waddchstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: addchnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: addchstr()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> <b>procedure</b> Add (<FONT COLOR=red><A NAME="ref_681_19" HREF="terminal_interface-curses__adb.htm#ref_480_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_682_19" HREF="terminal_interface-curses__adb.htm#ref_481_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_683_19" HREF="terminal_interface-curses__adb.htm#ref_482_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_376_9">Column_Position</A>; <FONT COLOR=red><A NAME="ref_684_19" HREF="terminal_interface-curses__adb.htm#ref_483_7">Str</A></FONT> : <b>in</b> Attributed_String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addchstr.3x.html">mvwaddchnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvwaddchstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvaddchnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvaddchstr()</EM></FONT> <b>pragma</b> Inline (Add); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_border.3x.html">curs_border.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Not implemented: mvhline, mvwhline, mvvline, mvwvline</EM></FONT> <FONT COLOR=green><EM>-- | use Move_Cursor then Horizontal_Line or Vertical_Line</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> <b>procedure</b> Border (<FONT COLOR=red><A NAME="ref_700_7" HREF="terminal_interface-curses__adb.htm#ref_492_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_701_7" HREF="terminal_interface-curses__adb.htm#ref_493_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>; <FONT COLOR=red><A NAME="ref_702_7" HREF="terminal_interface-curses__adb.htm#ref_494_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>; <FONT COLOR=red><A NAME="ref_703_7" HREF="terminal_interface-curses__adb.htm#ref_495_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>; <FONT COLOR=red><A NAME="ref_704_7" HREF="terminal_interface-curses__adb.htm#ref_496_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>; <FONT COLOR=red><A NAME="ref_705_7" HREF="terminal_interface-curses__adb.htm#ref_497_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>; <FONT COLOR=red><A NAME="ref_706_7" HREF="terminal_interface-curses__adb.htm#ref_498_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>; <FONT COLOR=red><A NAME="ref_707_7" HREF="terminal_interface-curses__adb.htm#ref_499_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>; Lower_Right_Corner_Symbol : <b>in</b> Attributed_Character := Default_Character ); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">wborder()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: border()</EM></FONT> <b>pragma</b> Inline (Border); <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> <b>procedure</b> Box (<FONT COLOR=red><A NAME="ref_716_7" HREF="terminal_interface-curses__adb.htm#ref_529_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_717_7" HREF="terminal_interface-curses__adb.htm#ref_530_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>; Horizontal_Symbol : <b>in</b> Attributed_Character := Default_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">box()</A></EM></FONT> <b>pragma</b> Inline (Box); <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> <b>procedure</b> Horizontal_Line (<FONT COLOR=red><A NAME="ref_724_7" HREF="terminal_interface-curses__adb.htm#ref_540_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_725_7" HREF="terminal_interface-curses__adb.htm#ref_541_7">Line_Size</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Natural</A>; Line_Symbol : <b>in</b> Attributed_Character := Default_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">whline()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: hline()</EM></FONT> <b>pragma</b> Inline (Horizontal_Line); <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> <b>procedure</b> Vertical_Line (<FONT COLOR=red><A NAME="ref_733_7" HREF="terminal_interface-curses__adb.htm#ref_557_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_734_7" HREF="terminal_interface-curses__adb.htm#ref_558_7">Line_Size</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Natural</A>; Line_Symbol : <b>in</b> Attributed_Character := Default_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">wvline()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: vline()</EM></FONT> <b>pragma</b> Inline (Vertical_Line); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- Not implemented: mvgetch, mvwgetch</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> <b>function</b> Get_Keystroke (Win : Window := Standard_Window) <b>return</b> Real_Key_Code; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">wgetch()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: getch()</EM></FONT> <FONT COLOR=green><EM>-- Get a character from the keyboard and echo it - if enabled - to the</EM></FONT> <FONT COLOR=green><EM>-- window.</EM></FONT> <FONT COLOR=green><EM>-- If for any reason (i.e. a timeout) we couldn't get a character the</EM></FONT> <FONT COLOR=green><EM>-- returned keycode is Key_None.</EM></FONT> <b>pragma</b> Inline (Get_Keystroke); <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> <b>procedure</b> Undo_Keystroke (Key : <b>in</b> Real_Key_Code); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">ungetch()</A></EM></FONT> <b>pragma</b> Inline (Undo_Keystroke); <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> <b>function</b> Has_Key (Key : Special_Key_Code) <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">has_key()</A></EM></FONT> <b>pragma</b> Inline (Has_Key); <FONT COLOR=green><EM>-- |</EM></FONT> <FONT COLOR=green><EM>-- | Some helper functions</EM></FONT> <FONT COLOR=green><EM>-- |</EM></FONT> <b>function</b> Is_Function_Key (Key : Special_Key_Code) <b>return</b> Boolean; <FONT COLOR=green><EM>-- Return True if the Key is a function key (i.e. one of F0 .. F63)</EM></FONT> <b>pragma</b> Inline (Is_Function_Key); <b>subtype</b> Function_Key_Number <b>is</b> Integer <b>range</b> 0 .. 63; <FONT COLOR=green><EM>-- (n)curses allows for 64 function keys.</EM></FONT> <b>function</b> Function_Key (Key : Real_Key_Code) <b>return</b> Function_Key_Number; <FONT COLOR=green><EM>-- Return the number of the function key. If the code is not a</EM></FONT> <FONT COLOR=green><EM>-- function key, a CONSTRAINT_ERROR will be raised.</EM></FONT> <b>pragma</b> Inline (Function_Key); <b>function</b> Function_Key_Code (Key : Function_Key_Number) <b>return</b> Real_Key_Code; <FONT COLOR=green><EM>-- Return the key code for a given function-key number.</EM></FONT> <b>pragma</b> Inline (Function_Key_Code); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Not implemented attr_off, wattr_off,</EM></FONT> <FONT COLOR=green><EM>-- | attr_on, wattr_on, attr_set, wattr_set</EM></FONT> <FONT COLOR=green><EM>-- PAIR_NUMBER</EM></FONT> <FONT COLOR=green><EM>-- PAIR_NUMBER(c) is the same as c.Color</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> <b>procedure</b> Standout (<FONT COLOR=red><A NAME="ref_795_24" HREF="terminal_interface-curses__adb.htm#ref_640_24">Win</A></FONT> : Window := Standard_Window; On : Boolean := True); <FONT COLOR=green><EM>-- AKA: wstandout()</EM></FONT> <FONT COLOR=green><EM>-- AKA: wstandend()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> <b>procedure</b> Switch_Character_Attribute (<FONT COLOR=red><A NAME="ref_802_7" HREF="terminal_interface-curses__adb.htm#ref_661_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_803_7" HREF="terminal_interface-curses__adb.htm#ref_662_7">Attr</A></FONT> : <b>in</b> Character_Attribute_Set := Normal_Video; On : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- if False we switch Off.</EM></FONT> <FONT COLOR=green><EM>-- Switches those Attributes set to true in the list.</EM></FONT> <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattron()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: wattroff()</EM></FONT> <FONT COLOR=green><EM>-- AKA: attron()</EM></FONT> <FONT COLOR=green><EM>-- AKA: attroff()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> <b>procedure</b> Set_Character_Attributes (<FONT COLOR=red><A NAME="ref_813_7" HREF="terminal_interface-curses__adb.htm#ref_689_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_814_7" HREF="terminal_interface-curses__adb.htm#ref_690_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A> := Normal_Video; Color : <b>in</b> Color_Pair := Color_Pair'First); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattrset()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: attrset()</EM></FONT> <b>pragma</b> Inline (Set_Character_Attributes); <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> <b>function</b> Get_Character_Attribute (Win : <b>in</b> Window := Standard_Window) <b>return</b> Character_Attribute_Set; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: attr_get()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> <b>function</b> Get_Character_Attribute (Win : <b>in</b> Window := Standard_Window) <b>return</b> Color_Pair; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT> <b>pragma</b> Inline (Get_Character_Attribute); <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> <b>procedure</b> Set_Color (<FONT COLOR=red><A NAME="ref_833_25" HREF="terminal_interface-curses__adb.htm#ref_752_25">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Window</A> := Standard_Window; Pair : <b>in</b> Color_Pair); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wcolor_set()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: color_set()</EM></FONT> <b>pragma</b> Inline (Set_Color); <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> <b>procedure</b> Change_Attributes (<FONT COLOR=red><A NAME="ref_841_7" HREF="terminal_interface-curses__adb.htm#ref_768_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_842_7" HREF="terminal_interface-curses__adb.htm#ref_769_7">Count</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Integer</A> := -1; <FONT COLOR=red><A NAME="ref_843_7" HREF="terminal_interface-curses__adb.htm#ref_770_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A> := Normal_Video; Color : <b>in</b> Color_Pair := Color_Pair'First); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wchgat()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: chgat()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> <b>procedure</b> Change_Attributes (<FONT COLOR=red><A NAME="ref_850_7" HREF="terminal_interface-curses__adb.htm#ref_791_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_851_7" HREF="terminal_interface-curses__adb.htm#ref_792_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A> := Line_Position'First; <FONT COLOR=red><A NAME="ref_852_7" HREF="terminal_interface-curses__adb.htm#ref_793_7">Column</A></FONT> : <b>in</b> Column_Position := Column_Position'First; <FONT COLOR=red><A NAME="ref_853_7" HREF="terminal_interface-curses__adb.htm#ref_794_7">Count</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Integer</A> := -1; <FONT COLOR=red><A NAME="ref_854_7" HREF="terminal_interface-curses__adb.htm#ref_795_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A> := Normal_Video; Color : <b>in</b> Color_Pair := Color_Pair'First); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">mvwchgat()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvchgat()</EM></FONT> <b>pragma</b> Inline (Change_Attributes); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> <b>procedure</b> Beep; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_beep.3x.html">beep()</A></EM></FONT> <b>pragma</b> Inline (Beep); <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> <b>procedure</b> Flash_Screen; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_beep.3x.html">flash()</A></EM></FONT> <b>pragma</b> Inline (Flash_Screen); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Not implemented : typeahead</EM></FONT> <FONT COLOR=green><EM>--</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> <b>procedure</b> Set_Cbreak_Mode (SwitchOn : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">cbreak()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: nocbreak()</EM></FONT> <b>pragma</b> Inline (Set_Cbreak_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> <b>procedure</b> Set_Raw_Mode (SwitchOn : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">raw()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: noraw()</EM></FONT> <b>pragma</b> Inline (Set_Raw_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> <b>procedure</b> Set_Echo_Mode (SwitchOn : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">echo()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: noecho()</EM></FONT> <b>pragma</b> Inline (Set_Echo_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT> <b>procedure</b> Set_Meta_Mode (<FONT COLOR=red><A NAME="ref_899_29" HREF="terminal_interface-curses__adb.htm#ref_880_29">Win</A></FONT> : <b>in</b> Window := Standard_Window; SwitchOn : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">meta()</A></EM></FONT> <b>pragma</b> Inline (Set_Meta_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT> <b>procedure</b> Set_KeyPad_Mode (<FONT COLOR=red><A NAME="ref_905_31" HREF="terminal_interface-curses__adb.htm#ref_891_31">Win</A></FONT> : <b>in</b> Window := Standard_Window; SwitchOn : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">keypad()</A></EM></FONT> <b>pragma</b> Inline (Set_KeyPad_Mode); <b>function</b> Get_KeyPad_Mode (Win : <b>in</b> Window := Standard_Window) <b>return</b> Boolean; <FONT COLOR=green><EM>-- This has no pendant in C. There you've to look into the WINDOWS</EM></FONT> <FONT COLOR=green><EM>-- structure to get the value. Bad practice, not repeated in Ada.</EM></FONT> <b>type</b> Half_Delay_Amount <b>is</b> <b>range</b> 1 .. 255; <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT> <b>procedure</b> Half_Delay (Amount : <b>in</b> Half_Delay_Amount); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">halfdelay()</A></EM></FONT> <b>pragma</b> Inline (Half_Delay); <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT> <b>procedure</b> Set_Flush_On_Interrupt_Mode (<FONT COLOR=red><A NAME="ref_924_7" HREF="terminal_interface-curses__adb.htm#ref_920_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Mode : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">intrflush()</A></EM></FONT> <b>pragma</b> Inline (Set_Flush_On_Interrupt_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT> <b>procedure</b> Set_Queue_Interrupt_Mode (<FONT COLOR=red><A NAME="ref_931_7" HREF="terminal_interface-curses__adb.htm#ref_932_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Flush : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">qiflush()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: noqiflush()</EM></FONT> <b>pragma</b> Inline (Set_Queue_Interrupt_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT> <b>procedure</b> Set_NoDelay_Mode (<FONT COLOR=red><A NAME="ref_939_7" HREF="terminal_interface-curses__adb.htm#ref_951_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Mode : <b>in</b> Boolean := False); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">nodelay()</A></EM></FONT> <b>pragma</b> Inline (Set_NoDelay_Mode); <b>type</b> Timeout_Mode <b>is</b> (Blocking, Non_Blocking, Delayed); <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT> <b>procedure</b> Set_Timeout_Mode (<FONT COLOR=red><A NAME="ref_947_32" HREF="terminal_interface-curses__adb.htm#ref_962_32">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_943_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_948_32" HREF="terminal_interface-curses__adb.htm#ref_963_32">Mode</A></FONT> : <b>in</b> Timeout_Mode; Amount : <b>in</b> Natural); <FONT COLOR=green><EM>-- in Milliseconds</EM></FONT> <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">wtimeout()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: timeout()</EM></FONT> <FONT COLOR=green><EM>-- Instead of overloading the semantic of the sign of amount, we</EM></FONT> <FONT COLOR=green><EM>-- introduce the Timeout_Mode parameter. This should improve</EM></FONT> <FONT COLOR=green><EM>-- readability. For Blocking and Non_Blocking, the Amount is not</EM></FONT> <FONT COLOR=green><EM>-- evaluated.</EM></FONT> <FONT COLOR=green><EM>-- We don't inline this procedure.</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT> <b>procedure</b> Set_Escape_Timer_Mode (<FONT COLOR=red><A NAME="ref_960_7" HREF="terminal_interface-curses__adb.htm#ref_986_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Timer_Off : <b>in</b> Boolean := False); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">notimeout()</A></EM></FONT> <b>pragma</b> Inline (Set_Escape_Timer_Mode); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT> <b>procedure</b> Set_NL_Mode (SwitchOn : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">nl()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: nonl()</EM></FONT> <b>pragma</b> Inline (Set_NL_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT> <b>procedure</b> Clear_On_Next_Update (<FONT COLOR=red><A NAME="ref_977_7" HREF="terminal_interface-curses__adb.htm#ref_1019_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Do_Clear : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">clearok()</A></EM></FONT> <b>pragma</b> Inline (Clear_On_Next_Update); <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT> <b>procedure</b> Use_Insert_Delete_Line (<FONT COLOR=red><A NAME="ref_984_7" HREF="terminal_interface-curses__adb.htm#ref_1031_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Do_Idl : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">idlok()</A></EM></FONT> <b>pragma</b> Inline (Use_Insert_Delete_Line); <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT> <b>procedure</b> Use_Insert_Delete_Character (<FONT COLOR=red><A NAME="ref_991_7" HREF="terminal_interface-curses__adb.htm#ref_1043_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Do_Idc : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">idcok()</A></EM></FONT> <b>pragma</b> Inline (Use_Insert_Delete_Character); <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT> <b>procedure</b> Leave_Cursor_After_Update (<FONT COLOR=red><A NAME="ref_998_7" HREF="terminal_interface-curses__adb.htm#ref_1055_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Do_Leave : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">leaveok()</A></EM></FONT> <b>pragma</b> Inline (Leave_Cursor_After_Update); <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT> <b>procedure</b> Immediate_Update_Mode (<FONT COLOR=red><A NAME="ref_1005_7" HREF="terminal_interface-curses__adb.htm#ref_1067_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Mode : <b>in</b> Boolean := False); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">immedok()</A></EM></FONT> <b>pragma</b> Inline (Immediate_Update_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT> <b>procedure</b> Allow_Scrolling (<FONT COLOR=red><A NAME="ref_1012_7" HREF="terminal_interface-curses__adb.htm#ref_1079_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Mode : <b>in</b> Boolean := False); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">scrollok()</A></EM></FONT> <b>pragma</b> Inline (Allow_Scrolling); <b>function</b> Scrolling_Allowed (Win : Window := Standard_Window) <b>return</b> Boolean; <FONT COLOR=green><EM>-- There is no such function in the C interface.</EM></FONT> <b>pragma</b> Inline (Scrolling_Allowed); <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT> <b>procedure</b> Set_Scroll_Region (<FONT COLOR=red><A NAME="ref_1023_7" HREF="terminal_interface-curses__adb.htm#ref_1098_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1024_7" HREF="terminal_interface-curses__adb.htm#ref_1099_7">Top_Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; Bottom_Line : <b>in</b> Line_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">wsetscrreg()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: setscrreg()</EM></FONT> <b>pragma</b> Inline (Set_Scroll_Region); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT> <b>procedure</b> Update_Screen; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">doupdate()</A></EM></FONT> <b>pragma</b> Inline (Update_Screen); <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT> <b>procedure</b> Refresh (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wrefresh()</A></EM></FONT> <FONT COLOR=green><EM>-- There is an overloaded Refresh for Pads.</EM></FONT> <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT> <FONT COLOR=green><EM>-- AKA: refresh()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT> <b>procedure</b> Refresh_Without_Update (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wnoutrefresh()</A></EM></FONT> <FONT COLOR=green><EM>-- There is an overloaded Refresh_Without_Update for Pads.</EM></FONT> <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_63"#2|</EM></FONT> <b>procedure</b> Redraw (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">redrawwin()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_64"#2|</EM></FONT> <b>procedure</b> Redraw (<FONT COLOR=red><A NAME="ref_1058_22" HREF="terminal_interface-curses__adb.htm#ref_1155_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1059_22" HREF="terminal_interface-curses__adb.htm#ref_1156_7">Begin_Line</A></FONT> : <b>in</b> Line_Position; Line_Count : <b>in</b> Positive); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wredrawln()</A></EM></FONT> <b>pragma</b> Inline (Redraw); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_65"#2|</EM></FONT> <b>procedure</b> Erase (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">werase()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: erase()</EM></FONT> <b>pragma</b> Inline (Erase); <FONT COLOR=green><EM>-- #1A NAME="AFU_66"#2|</EM></FONT> <b>procedure</b> Clear (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclear()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: clear()</EM></FONT> <b>pragma</b> Inline (Clear); <FONT COLOR=green><EM>-- #1A NAME="AFU_67"#2|</EM></FONT> <b>procedure</b> Clear_To_End_Of_Screen (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtobot()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: clrtobot()</EM></FONT> <b>pragma</b> Inline (Clear_To_End_Of_Screen); <FONT COLOR=green><EM>-- #1A NAME="AFU_68"#2|</EM></FONT> <b>procedure</b> Clear_To_End_Of_Line (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtoeol()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: clrtoeol()</EM></FONT> <b>pragma</b> Inline (Clear_To_End_Of_Line); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_69"#2|</EM></FONT> <FONT COLOR=green><EM>-- TODO: we could have Set_Background(Window; Character_Attribute_Set)</EM></FONT> <FONT COLOR=green><EM>-- because in C it is common to see bkgdset(A_BOLD) or</EM></FONT> <FONT COLOR=green><EM>-- bkgdset(COLOR_PAIR(n))</EM></FONT> <b>procedure</b> Set_Background (<FONT COLOR=red><A NAME="ref_1104_7" HREF="terminal_interface-curses__adb.htm#ref_1212_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Window</A> := Standard_Window; Ch : <b>in</b> Attributed_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdset()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: bkgdset()</EM></FONT> <b>pragma</b> Inline (Set_Background); <FONT COLOR=green><EM>-- #1A NAME="AFU_70"#2|</EM></FONT> <b>procedure</b> Change_Background (<FONT COLOR=red><A NAME="ref_1112_7" HREF="terminal_interface-curses__adb.htm#ref_1222_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Window</A> := Standard_Window; Ch : <b>in</b> Attributed_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgd()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: bkgd()</EM></FONT> <b>pragma</b> Inline (Change_Background); <FONT COLOR=green><EM>-- #1A NAME="AFU_71"#2|</EM></FONT> <FONT COLOR=green><EM>-- ? wbkgdget is not listed in curs_bkgd, getbkgd is thpough.</EM></FONT> <b>function</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Get_Background</A> (Win : Window := Standard_Window) <b>return</b> Attributed_Character; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdget()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: bkgdget()</EM></FONT> <b>pragma</b> Inline (Get_Background); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_72"#2|</EM></FONT> <b>procedure</b> Untouch (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">untouchwin()</A></EM></FONT> <b>pragma</b> Inline (Untouch); <FONT COLOR=green><EM>-- #1A NAME="AFU_73"#2|</EM></FONT> <b>procedure</b> Touch (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">touchwin()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_74"#2|</EM></FONT> <b>procedure</b> Touch (<FONT COLOR=red><A NAME="ref_1140_21" HREF="terminal_interface-curses__adb.htm#ref_1277_21">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1141_21" HREF="terminal_interface-curses__adb.htm#ref_1278_21">Start</A></FONT> : <b>in</b> Line_Position; Count : <b>in</b> Positive); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">touchline()</A></EM></FONT> <b>pragma</b> Inline (Touch); <FONT COLOR=green><EM>-- #1A NAME="AFU_75"#2|</EM></FONT> <b>procedure</b> Change_Lines_Status (<FONT COLOR=red><A NAME="ref_1147_35" HREF="terminal_interface-curses__adb.htm#ref_1242_35">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1148_35" HREF="terminal_interface-curses__adb.htm#ref_1243_35">Start</A></FONT> : <b>in</b> Line_Position; <FONT COLOR=red><A NAME="ref_1149_35" HREF="terminal_interface-curses__adb.htm#ref_1244_35">Count</A></FONT> : <b>in</b> Positive; State : <b>in</b> Boolean); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">wtouchln()</A></EM></FONT> <b>pragma</b> Inline (Change_Lines_Status); <FONT COLOR=green><EM>-- #1A NAME="AFU_76"#2|</EM></FONT> <b>function</b> Is_Touched (<FONT COLOR=red><A NAME="ref_1155_25" HREF="terminal_interface-curses__adb.htm#ref_1286_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; Line : Line_Position) <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">is_linetouched()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_77"#2|</EM></FONT> <b>function</b> Is_Touched (Win : Window := Standard_Window) <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">is_wintouched()</A></EM></FONT> <b>pragma</b> Inline (Is_Touched); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_78"#2|</EM></FONT> <b>procedure</b> Copy (<FONT COLOR=red><A NAME="ref_1170_7" HREF="terminal_interface-curses__adb.htm#ref_1313_7">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; <FONT COLOR=red><A NAME="ref_1171_7" HREF="terminal_interface-curses__adb.htm#ref_1314_7">Destination_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A>; <FONT COLOR=red><A NAME="ref_1172_7" HREF="terminal_interface-curses__adb.htm#ref_1315_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1173_7" HREF="terminal_interface-curses__adb.htm#ref_1316_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</A>; <FONT COLOR=red><A NAME="ref_1174_7" HREF="terminal_interface-curses__adb.htm#ref_1317_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1175_7" HREF="terminal_interface-curses__adb.htm#ref_1318_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</A>; <FONT COLOR=red><A NAME="ref_1176_7" HREF="terminal_interface-curses__adb.htm#ref_1319_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1177_7" HREF="terminal_interface-curses__adb.htm#ref_1320_7">Destination_Right_Column</A></FONT> : <b>in</b> Column_Position; Non_Destructive_Mode : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">copywin()</A></EM></FONT> <b>pragma</b> Inline (Copy); <FONT COLOR=green><EM>-- #1A NAME="AFU_79"#2|</EM></FONT> <b>procedure</b> Overwrite (<FONT COLOR=red><A NAME="ref_1183_25" HREF="terminal_interface-curses__adb.htm#ref_1349_7">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; Destination_Window : <b>in</b> Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">overwrite()</A></EM></FONT> <b>pragma</b> Inline (Overwrite); <FONT COLOR=green><EM>-- #1A NAME="AFU_80"#2|</EM></FONT> <b>procedure</b> Overlay (<FONT COLOR=red><A NAME="ref_1189_23" HREF="terminal_interface-curses__adb.htm#ref_1361_7">Source_Window</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; Destination_Window : <b>in</b> Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">overlay()</A></EM></FONT> <b>pragma</b> Inline (Overlay); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_deleteln.3x.html">curs_deleteln.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_81"#2|</EM></FONT> <b>procedure</b> Insert_Delete_Lines (<FONT COLOR=red><A NAME="ref_1200_7" HREF="terminal_interface-curses__adb.htm#ref_1374_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; Lines : <b>in</b> Integer := 1); <FONT COLOR=green><EM>-- default is to insert one line above</EM></FONT> <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_deleteln.3x.html">winsdelln()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: insdelln()</EM></FONT> <b>pragma</b> Inline (Insert_Delete_Lines); <FONT COLOR=green><EM>-- #1A NAME="AFU_82"#2|</EM></FONT> <b>procedure</b> Delete_Line (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_deleteln.3x.html">wdeleteln()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: deleteln()</EM></FONT> <b>pragma</b> Inline (Delete_Line); <FONT COLOR=green><EM>-- #1A NAME="AFU_83"#2|</EM></FONT> <b>procedure</b> Insert_Line (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_deleteln.3x.html">winsertln()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: insertln()</EM></FONT> <b>pragma</b> Inline (Insert_Line); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getyx.3x.html">curs_getyx.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_84"#2|</EM></FONT> <b>procedure</b> Get_Size (<FONT COLOR=red><A NAME="ref_1224_7" HREF="terminal_interface-curses__adb.htm#ref_1400_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_1225_7" HREF="terminal_interface-curses__adb.htm#ref_1401_7">Number_Of_Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; Number_Of_Columns : <b>out</b> Column_Count); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getmaxyx()</A></EM></FONT> <b>pragma</b> Inline (Get_Size); <FONT COLOR=green><EM>-- #1A NAME="AFU_85"#2|</EM></FONT> <b>procedure</b> Get_Window_Position (<FONT COLOR=red><A NAME="ref_1232_7" HREF="terminal_interface-curses__adb.htm#ref_1416_7">Win</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_1233_7" HREF="terminal_interface-curses__adb.htm#ref_1417_7">Top_Left_Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Top_Left_Column : <b>out</b> Column_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getbegyx()</A></EM></FONT> <b>pragma</b> Inline (Get_Window_Position); <FONT COLOR=green><EM>-- #1A NAME="AFU_86"#2|</EM></FONT> <b>procedure</b> Get_Cursor_Position (<FONT COLOR=red><A NAME="ref_1240_7" HREF="terminal_interface-curses__adb.htm#ref_1428_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1241_7" HREF="terminal_interface-curses__adb.htm#ref_1429_7">Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Column : <b>out</b> Column_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getyx()</A></EM></FONT> <b>pragma</b> Inline (Get_Cursor_Position); <FONT COLOR=green><EM>-- #1A NAME="AFU_87"#2|</EM></FONT> <b>procedure</b> Get_Origin_Relative_To_Parent (<FONT COLOR=red><A NAME="ref_1248_7" HREF="terminal_interface-curses__adb.htm#ref_1440_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A>; <FONT COLOR=red><A NAME="ref_1249_7" HREF="terminal_interface-curses__adb.htm#ref_1441_7">Top_Left_Line</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1250_7" HREF="terminal_interface-curses__adb.htm#ref_1442_7">Top_Left_Column</A></FONT> : <b>out</b> Column_Position; Is_Not_A_Subwindow : <b>out</b> Boolean); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getyx.3x.html">getparyx()</A></EM></FONT> <FONT COLOR=green><EM>-- Instead of placing -1 in the coordinates as return, we use a boolean</EM></FONT> <FONT COLOR=green><EM>-- to return the info that the window has no parent.</EM></FONT> <b>pragma</b> Inline (Get_Origin_Relative_To_Parent); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_pad.3x.html">curs_pad.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_88"#2|</EM></FONT> <b>function</b> New_Pad (<FONT COLOR=red><A NAME="ref_1262_22" HREF="terminal_interface-curses__adb.htm#ref_1459_22">Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; Columns : Column_Count) <b>return</b> Window; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">newpad()</A></EM></FONT> <b>pragma</b> Inline (New_Pad); <FONT COLOR=green><EM>-- #1A NAME="AFU_89"#2|</EM></FONT> <b>function</b> Sub_Pad (<FONT COLOR=red><A NAME="ref_1269_7" HREF="terminal_interface-curses__adb.htm#ref_1475_7">Pad</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Window</A>; <FONT COLOR=red><A NAME="ref_1270_7" HREF="terminal_interface-curses__adb.htm#ref_1476_7">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; <FONT COLOR=red><A NAME="ref_1271_7" HREF="terminal_interface-curses__adb.htm#ref_1477_7">Number_Of_Columns</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Count</A>; <FONT COLOR=red><A NAME="ref_1272_7" HREF="terminal_interface-curses__adb.htm#ref_1478_7">First_Line_Position</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; First_Column_Position : Column_Position) <b>return</b> Window; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">subpad()</A></EM></FONT> <b>pragma</b> Inline (Sub_Pad); <FONT COLOR=green><EM>-- #1A NAME="AFU_90"#2|</EM></FONT> <b>procedure</b> Refresh (<FONT COLOR=red><A NAME="ref_1279_7" HREF="terminal_interface-curses__adb.htm#ref_1503_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A>; <FONT COLOR=red><A NAME="ref_1280_7" HREF="terminal_interface-curses__adb.htm#ref_1504_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1281_7" HREF="terminal_interface-curses__adb.htm#ref_1505_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</A>; <FONT COLOR=red><A NAME="ref_1282_7" HREF="terminal_interface-curses__adb.htm#ref_1506_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1283_7" HREF="terminal_interface-curses__adb.htm#ref_1507_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</A>; <FONT COLOR=red><A NAME="ref_1284_7" HREF="terminal_interface-curses__adb.htm#ref_1508_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Destination_Right_Column : <b>in</b> Column_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">prefresh()</A></EM></FONT> <b>pragma</b> Inline (Refresh); <FONT COLOR=green><EM>-- #1A NAME="AFU_91"#2|</EM></FONT> <b>procedure</b> Refresh_Without_Update (<FONT COLOR=red><A NAME="ref_1291_7" HREF="terminal_interface-curses__adb.htm#ref_1533_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A>; <FONT COLOR=red><A NAME="ref_1292_7" HREF="terminal_interface-curses__adb.htm#ref_1534_7">Source_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1293_7" HREF="terminal_interface-curses__adb.htm#ref_1535_7">Source_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</A>; <FONT COLOR=red><A NAME="ref_1294_7" HREF="terminal_interface-curses__adb.htm#ref_1536_7">Destination_Top_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1295_7" HREF="terminal_interface-curses__adb.htm#ref_1537_7">Destination_Left_Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Column_Position</A>; <FONT COLOR=red><A NAME="ref_1296_7" HREF="terminal_interface-curses__adb.htm#ref_1538_7">Destination_Bottom_Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Destination_Right_Column : <b>in</b> Column_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">pnoutrefresh()</A></EM></FONT> <b>pragma</b> Inline (Refresh_Without_Update); <FONT COLOR=green><EM>-- #1A NAME="AFU_92"#2|</EM></FONT> <b>procedure</b> Add_Character_To_Pad_And_Echo_It (<FONT COLOR=red><A NAME="ref_1303_7" HREF="terminal_interface-curses__adb.htm#ref_1563_7">Pad</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Window</A>; Ch : <b>in</b> Attributed_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_pad.3x.html">pechochar()</A></EM></FONT> <b>procedure</b> Add_Character_To_Pad_And_Echo_It (<FONT COLOR=red><A NAME="ref_1308_7" HREF="terminal_interface-curses__adb.htm#ref_1576_7">Pad</A></FONT> : <b>in</b> Window; Ch : <b>in</b> Character); <b>pragma</b> Inline (Add_Character_To_Pad_And_Echo_It); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_scroll.3x.html">curs_scroll.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_93"#2|</EM></FONT> <b>procedure</b> Scroll (<FONT COLOR=red><A NAME="ref_1317_22" HREF="terminal_interface-curses__adb.htm#ref_1587_22">Win</A></FONT> : <b>in</b> Window := Standard_Window; Amount : <b>in</b> Integer := 1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scroll.3x.html">wscrl()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: scroll()</EM></FONT> <FONT COLOR=green><EM>-- AKA: scrl()</EM></FONT> <b>pragma</b> Inline (Scroll); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_delch.3x.html">curs_delch.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_94"#2|</EM></FONT> <b>procedure</b> Delete_Character (Win : <b>in</b> Window := Standard_Window); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_delch.3x.html">wdelch()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: delch()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_95"#2|</EM></FONT> <b>procedure</b> Delete_Character (<FONT COLOR=red><A NAME="ref_1335_7" HREF="terminal_interface-curses__adb.htm#ref_1611_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1336_7" HREF="terminal_interface-curses__adb.htm#ref_1612_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Column : <b>in</b> Column_Position); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_delch.3x.html">mvwdelch()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvdelch()</EM></FONT> <b>pragma</b> Inline (Delete_Character); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inch.3x.html">curs_inch.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_96"#2|</EM></FONT> <b>function</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Peek</A> (Win : Window := Standard_Window) <b>return</b> Attributed_Character; <FONT COLOR=green><EM>-- AKA: inch()</EM></FONT> <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inch.3x.html">winch()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_97"#2|</EM></FONT> <b>function</b> Peek (<FONT COLOR=red><A NAME="ref_1354_7" HREF="terminal_interface-curses__adb.htm#ref_1635_7">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1355_7" HREF="terminal_interface-curses__adb.htm#ref_1636_7">Line</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; Column : Column_Position) <b>return</b> Attributed_Character; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inch.3x.html">mvwinch()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvinch()</EM></FONT> <FONT COLOR=green><EM>-- More Peek's follow, pragma Inline appears later.</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_insch.3x.html">curs_insch.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_98"#2|</EM></FONT> <b>procedure</b> Insert (<FONT COLOR=red><A NAME="ref_1366_22" HREF="terminal_interface-curses__adb.htm#ref_1647_22">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Window</A> := Standard_Window; Ch : <b>in</b> Attributed_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_insch.3x.html">winsch()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: insch()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_99"#2|</EM></FONT> <b>procedure</b> Insert (<FONT COLOR=red><A NAME="ref_1372_22" HREF="terminal_interface-curses__adb.htm#ref_1659_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1373_22" HREF="terminal_interface-curses__adb.htm#ref_1660_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1374_22" HREF="terminal_interface-curses__adb.htm#ref_1661_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_352_9">Column_Position</A>; Ch : <b>in</b> Attributed_Character); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_insch.3x.html">mvwinsch()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvinsch()</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_insstr.3x.html">curs_insstr.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_100"#2|</EM></FONT> <b>procedure</b> Insert (<FONT COLOR=red><A NAME="ref_1384_22" HREF="terminal_interface-curses__adb.htm#ref_1678_22">Win</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_1385_22" HREF="terminal_interface-curses__adb.htm#ref_1679_22">Str</A></FONT> : <b>in</b> String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_insstr.3x.html">winsnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: winsstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: insnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: insstr()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_101"#2|</EM></FONT> <b>procedure</b> Insert (<FONT COLOR=red><A NAME="ref_1393_22" HREF="terminal_interface-curses__adb.htm#ref_1697_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1394_22" HREF="terminal_interface-curses__adb.htm#ref_1698_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1395_22" HREF="terminal_interface-curses__adb.htm#ref_1699_7">Column</A></FONT> : <b>in</b> Column_Position; <FONT COLOR=red><A NAME="ref_1396_22" HREF="terminal_interface-curses__adb.htm#ref_1700_7">Str</A></FONT> : <b>in</b> String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_insstr.3x.html">mvwinsnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvwinsstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvinsnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvinsstr()</EM></FONT> <b>pragma</b> Inline (Insert); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_instr.3x.html">curs_instr.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_102"#2|</EM></FONT> <b>procedure</b> Peek (<FONT COLOR=red><A NAME="ref_1409_20" HREF="terminal_interface-curses__adb.htm#ref_1720_20">Win</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_1410_20" HREF="terminal_interface-curses__adb.htm#ref_1721_20">Str</A></FONT> : <b>out</b> String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_instr.3x.html">winnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: winstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: innstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: instr()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_103"#2|</EM></FONT> <b>procedure</b> Peek (<FONT COLOR=red><A NAME="ref_1418_20" HREF="terminal_interface-curses__adb.htm#ref_1750_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1419_20" HREF="terminal_interface-curses__adb.htm#ref_1751_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1420_20" HREF="terminal_interface-curses__adb.htm#ref_1752_7">Column</A></FONT> : <b>in</b> Column_Position; <FONT COLOR=red><A NAME="ref_1421_20" HREF="terminal_interface-curses__adb.htm#ref_1753_7">Str</A></FONT> : <b>out</b> String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_instr.3x.html">mvwinnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvwinstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvinnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvinstr()</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inchstr.3x.html">curs_inchstr.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_104"#2|</EM></FONT> <b>procedure</b> Peek (<FONT COLOR=red><A NAME="ref_1433_20" HREF="terminal_interface-curses__adb.htm#ref_1762_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_376_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1434_20" HREF="terminal_interface-curses__adb.htm#ref_1763_7">Str</A></FONT> : <b>out</b> Attributed_String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inchstr.3x.html">winchnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: winchstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: inchnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: inchstr()</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_105"#2|</EM></FONT> <b>procedure</b> Peek (<FONT COLOR=red><A NAME="ref_1442_20" HREF="terminal_interface-curses__adb.htm#ref_1799_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1443_20" HREF="terminal_interface-curses__adb.htm#ref_1800_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1444_20" HREF="terminal_interface-curses__adb.htm#ref_1801_7">Column</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_376_9">Column_Position</A>; <FONT COLOR=red><A NAME="ref_1445_20" HREF="terminal_interface-curses__adb.htm#ref_1802_7">Str</A></FONT> : <b>out</b> Attributed_String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inchstr.3x.html">mvwinchnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvwinchstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvinchnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvinchstr()</EM></FONT> <FONT COLOR=green><EM>-- We don't inline the Peek procedures</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getstr.3x.html">curs_getstr.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_106"#2|</EM></FONT> <b>procedure</b> Get (<FONT COLOR=red><A NAME="ref_1458_19" HREF="terminal_interface-curses__adb.htm#ref_1810_19">Win</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_1459_19" HREF="terminal_interface-curses__adb.htm#ref_1811_19">Str</A></FONT> : <b>out</b> String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getstr.3x.html">wgetnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: wgetstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: getnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: getstr()</EM></FONT> <FONT COLOR=green><EM>-- actually getstr is not supported because that results in buffer</EM></FONT> <FONT COLOR=green><EM>-- overflows.</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_107"#2|</EM></FONT> <b>procedure</b> Get (<FONT COLOR=red><A NAME="ref_1469_19" HREF="terminal_interface-curses__adb.htm#ref_1840_7">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1470_19" HREF="terminal_interface-curses__adb.htm#ref_1841_7">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1471_19" HREF="terminal_interface-curses__adb.htm#ref_1842_7">Column</A></FONT> : <b>in</b> Column_Position; <FONT COLOR=red><A NAME="ref_1472_19" HREF="terminal_interface-curses__adb.htm#ref_1843_7">Str</A></FONT> : <b>out</b> String; Len : <b>in</b> Integer := -1); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getstr.3x.html">mvwgetnstr()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: mvwgetstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvgetnstr()</EM></FONT> <FONT COLOR=green><EM>-- AKA: mvgetstr()</EM></FONT> <FONT COLOR=green><EM>-- Get is not inlined</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_slk.3x.html">curs_slk.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- Not Implemented: slk_attr_on, slk_attr_off, slk_attr_set</EM></FONT> <b>type</b> Soft_Label_Key_Format <b>is</b> (<FONT COLOR=red><A NAME="ref_1486_35">Three_Two_Three</A></FONT>, <FONT COLOR=red><A NAME="ref_1487_35">Four_Four</A></FONT>, <FONT COLOR=red><A NAME="ref_1488_35">PC_Style</A></FONT>, <FONT COLOR=green><EM>-- ncurses specific</EM></FONT> <FONT COLOR=red><A NAME="ref_1489_9"> </A></FONT> PC_Style_With_Index); <FONT COLOR=green><EM>-- "</EM></FONT> <b>type</b> <FONT COLOR=red><A NAME="ref_1490_9">Label_Number</A></FONT> <b>is</b> <b>new</b> Positive <b>range</b> 1 .. <FONT COLOR=red><A NAME="ref_1490_49">12</A></FONT>; <b>type</b> Label_Justification <b>is</b> (Left, Centered, Right); <FONT COLOR=green><EM>-- #1A NAME="AFU_108"#2|</EM></FONT> <b>procedure</b> Init_Soft_Label_Keys (Format : <b>in</b> Soft_Label_Key_Format := Three_Two_Three); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_init()</A></EM></FONT> <b>pragma</b> Inline (Init_Soft_Label_Keys); <FONT COLOR=green><EM>-- #1A NAME="AFU_109"#2|</EM></FONT> <b>procedure</b> Set_Soft_Label_Key (<FONT COLOR=red><A NAME="ref_1500_34" HREF="terminal_interface-curses__adb.htm#ref_1862_34">Label</A></FONT> : <b>in</b> Label_Number; <FONT COLOR=red><A NAME="ref_1501_34" HREF="terminal_interface-curses__adb.htm#ref_1863_34">Text</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1490_9">String</A>; Fmt : <b>in</b> Label_Justification := Left); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_set()</A></EM></FONT> <FONT COLOR=green><EM>-- We don't inline this procedure</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_110"#2|</EM></FONT> <b>procedure</b> Refresh_Soft_Label_Keys; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_refresh()</A></EM></FONT> <b>pragma</b> Inline (Refresh_Soft_Label_Keys); <FONT COLOR=green><EM>-- #1A NAME="AFU_111"#2|</EM></FONT> <b>procedure</b> Refresh_Soft_Label_Keys_Without_Update; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_noutrefresh()</A></EM></FONT> <b>pragma</b> Inline (Refresh_Soft_Label_Keys_Without_Update); <FONT COLOR=green><EM>-- #1A NAME="AFU_112"#2|</EM></FONT> <b>procedure</b> Get_Soft_Label_Key (<FONT COLOR=red><A NAME="ref_1517_34" HREF="terminal_interface-curses__adb.htm#ref_1901_34">Label</A></FONT> : <b>in</b> Label_Number; Text : <b>out</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_113"#2|</EM></FONT> <b>function</b> Get_Soft_Label_Key (Label : <b>in</b> Label_Number) <b>return</b> String; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_label()</A></EM></FONT> <FONT COLOR=green><EM>-- Same as function</EM></FONT> <b>pragma</b> Inline (Get_Soft_Label_Key); <FONT COLOR=green><EM>-- #1A NAME="AFU_114"#2|</EM></FONT> <b>procedure</b> Clear_Soft_Label_Keys; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_clear()</A></EM></FONT> <b>pragma</b> Inline (Clear_Soft_Label_Keys); <FONT COLOR=green><EM>-- #1A NAME="AFU_115"#2|</EM></FONT> <b>procedure</b> Restore_Soft_Label_Keys; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_restore()</A></EM></FONT> <b>pragma</b> Inline (Restore_Soft_Label_Keys); <FONT COLOR=green><EM>-- #1A NAME="AFU_116"#2|</EM></FONT> <b>procedure</b> Touch_Soft_Label_Keys; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_touch()</A></EM></FONT> <b>pragma</b> Inline (Touch_Soft_Label_Keys); <FONT COLOR=green><EM>-- #1A NAME="AFU_117"#2|</EM></FONT> <b>procedure</b> Switch_Soft_Label_Key_Attributes (<FONT COLOR=red><A NAME="ref_1544_7" HREF="terminal_interface-curses__adb.htm#ref_1949_7">Attr</A></FONT> : <b>in</b> Character_Attribute_Set; On : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attron()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: slk_attroff()</EM></FONT> <b>pragma</b> Inline (Switch_Soft_Label_Key_Attributes); <FONT COLOR=green><EM>-- #1A NAME="AFU_118"#2|</EM></FONT> <b>procedure</b> Set_Soft_Label_Key_Attributes (<FONT COLOR=red><A NAME="ref_1552_7" HREF="terminal_interface-curses__adb.htm#ref_1973_7">Attr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Character_Attribute_Set</A> := Normal_Video; Color : <b>in</b> Color_Pair := Color_Pair'First); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attrset()</A></EM></FONT> <b>pragma</b> Inline (Set_Soft_Label_Key_Attributes); <FONT COLOR=green><EM>-- #1A NAME="AFU_119"#2|</EM></FONT> <b>function</b> Get_Soft_Label_Key_Attributes <b>return</b> Character_Attribute_Set; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_120"#2|</EM></FONT> <b>function</b> Get_Soft_Label_Key_Attributes <b>return</b> Color_Pair; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_attr()</A></EM></FONT> <b>pragma</b> Inline (Get_Soft_Label_Key_Attributes); <FONT COLOR=green><EM>-- #1A NAME="AFU_121"#2|</EM></FONT> <b>procedure</b> Set_Soft_Label_Key_Color (Pair : <b>in</b> Color_Pair); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_slk.3x.html">slk_color()</A></EM></FONT> <b>pragma</b> Inline (Set_Soft_Label_Key_Color); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/keybound.3x.html">keybound.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- Not Implemented: keybound</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/keyok.3x.html">keyok.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_122"#2|</EM></FONT> <b>procedure</b> Enable_Key (<FONT COLOR=red><A NAME="ref_1581_26" HREF="terminal_interface-curses__adb.htm#ref_2019_26">Key</A></FONT> : <b>in</b> Special_Key_Code; Enable : <b>in</b> Boolean := True); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/keyok.3x.html">keyok()</A></EM></FONT> <b>pragma</b> Inline (Enable_Key); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/define_key.3x.html">define_key.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_123"#2|</EM></FONT> <b>procedure</b> Define_Key (<FONT COLOR=red><A NAME="ref_1591_26" HREF="terminal_interface-curses__adb.htm#ref_2032_26">Definition</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_78_12">String</A>; Key : <b>in</b> Special_Key_Code); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/define_key.3x.html">define_key()</A></EM></FONT> <b>pragma</b> Inline (Define_Key); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_util.3x.html">curs_util.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Not implemented : filter, use_env</EM></FONT> <FONT COLOR=green><EM>-- | putwin, getwin are in the child package PutWin</EM></FONT> <FONT COLOR=green><EM>--</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_124"#2|</EM></FONT> <b>procedure</b> Key_Name (<FONT COLOR=red><A NAME="ref_1605_24" HREF="terminal_interface-curses__adb.htm#ref_144_24">Key</A></FONT> : <b>in</b> Real_Key_Code; Name : <b>out</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></EM></FONT> <FONT COLOR=green><EM>-- The external name for a real keystroke.</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_125"#2|</EM></FONT> <b>function</b> Key_Name (Key : <b>in</b> Real_Key_Code) <b>return</b> String; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">keyname()</A></EM></FONT> <FONT COLOR=green><EM>-- Same as function</EM></FONT> <FONT COLOR=green><EM>-- We don't inline this routine</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_126"#2|</EM></FONT> <b>procedure</b> Un_Control (<FONT COLOR=red><A NAME="ref_1617_26" HREF="terminal_interface-curses__adb.htm#ref_2048_26">Ch</A></FONT> : <b>in</b> Attributed_Character; Str : <b>out</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_127"#2|</EM></FONT> <b>function</b> Un_Control (Ch : <b>in</b> Attributed_Character) <b>return</b> String; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">unctrl()</A></EM></FONT> <FONT COLOR=green><EM>-- Same as function</EM></FONT> <b>pragma</b> Inline (Un_Control); <FONT COLOR=green><EM>-- #1A NAME="AFU_128"#2|</EM></FONT> <b>procedure</b> Delay_Output (Msecs : <b>in</b> Natural); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">delay_output()</A></EM></FONT> <b>pragma</b> Inline (Delay_Output); <FONT COLOR=green><EM>-- #1A NAME="AFU_129"#2|</EM></FONT> <b>procedure</b> Flush_Input; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_util.3x.html">flushinp()</A></EM></FONT> <b>pragma</b> Inline (Flush_Input); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_termattrs.3x.html">curs_termattrs.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_130"#2|</EM></FONT> <b>function</b> Baudrate <b>return</b> Natural; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">baudrate()</A></EM></FONT> <b>pragma</b> Inline (Baudrate); <FONT COLOR=green><EM>-- #1A NAME="AFU_131"#2|</EM></FONT> <b>function</b> Erase_Character <b>return</b> Character; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">erasechar()</A></EM></FONT> <b>pragma</b> Inline (Erase_Character); <FONT COLOR=green><EM>-- #1A NAME="AFU_132"#2|</EM></FONT> <b>function</b> Kill_Character <b>return</b> Character; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">killchar()</A></EM></FONT> <b>pragma</b> Inline (Kill_Character); <FONT COLOR=green><EM>-- #1A NAME="AFU_133"#2|</EM></FONT> <b>function</b> Has_Insert_Character <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">has_ic()</A></EM></FONT> <b>pragma</b> Inline (Has_Insert_Character); <FONT COLOR=green><EM>-- #1A NAME="AFU_134"#2|</EM></FONT> <b>function</b> Has_Insert_Line <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">has_il()</A></EM></FONT> <b>pragma</b> Inline (Has_Insert_Line); <FONT COLOR=green><EM>-- #1A NAME="AFU_135"#2|</EM></FONT> <b>function</b> Supported_Attributes <b>return</b> Character_Attribute_Set; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termattrs()</A></EM></FONT> <b>pragma</b> Inline (Supported_Attributes); <FONT COLOR=green><EM>-- #1A NAME="AFU_136"#2|</EM></FONT> <b>procedure</b> Long_Name (Name : <b>out</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_137"#2|</EM></FONT> <b>function</b> Long_Name <b>return</b> String; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">longname()</A></EM></FONT> <FONT COLOR=green><EM>-- Same as function</EM></FONT> <b>pragma</b> Inline (Long_Name); <FONT COLOR=green><EM>-- #1A NAME="AFU_138"#2|</EM></FONT> <b>procedure</b> Terminal_Name (Name : <b>out</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_139"#2|</EM></FONT> <b>function</b> Terminal_Name <b>return</b> String; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_termattrs.3x.html">termname()</A></EM></FONT> <FONT COLOR=green><EM>-- Same as function</EM></FONT> <b>pragma</b> Inline (Terminal_Name); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_color.3x.html">curs_color.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- COLOR_PAIR</EM></FONT> <FONT COLOR=green><EM>-- COLOR_PAIR(n) in C is the same as</EM></FONT> <FONT COLOR=green><EM>-- Attributed_Character(Ch => Nul, Color => n, Attr => Normal_Video)</EM></FONT> <FONT COLOR=green><EM>-- In C you often see something like c = c | COLOR_PAIR(n);</EM></FONT> <FONT COLOR=green><EM>-- This is equivalent to c.Color := n;</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_140"#2|</EM></FONT> <b>procedure</b> Start_Color; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">start_color()</A></EM></FONT> <b>pragma</b> Import (C, Start_Color, "start_color"); <FONT COLOR=green><EM>-- #1A NAME="AFU_141"#2|</EM></FONT> <b>procedure</b> Init_Pair (<FONT COLOR=red><A NAME="ref_1707_25" HREF="terminal_interface-curses__adb.htm#ref_2175_25">Pair</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Redefinable_Color_Pair</A>; <FONT COLOR=red><A NAME="ref_1708_25" HREF="terminal_interface-curses__adb.htm#ref_2176_25">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A>; Back : <b>in</b> Color_Number); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">init_pair()</A></EM></FONT> <b>pragma</b> Inline (Init_Pair); <FONT COLOR=green><EM>-- #1A NAME="AFU_142"#2|</EM></FONT> <b>procedure</b> Pair_Content (<FONT COLOR=red><A NAME="ref_1714_28" HREF="terminal_interface-curses__adb.htm#ref_2196_28">Pair</A></FONT> : <b>in</b> Color_Pair; <FONT COLOR=red><A NAME="ref_1715_28" HREF="terminal_interface-curses__adb.htm#ref_2197_28">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_278_9">Color_Number</A>; Back : <b>out</b> Color_Number); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">pair_content()</A></EM></FONT> <b>pragma</b> Inline (Pair_Content); <FONT COLOR=green><EM>-- #1A NAME="AFU_143"#2|</EM></FONT> <b>function</b> Has_Colors <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">has_colors()</A></EM></FONT> <b>pragma</b> Inline (Has_Colors); <FONT COLOR=green><EM>-- #1A NAME="AFU_144"#2|</EM></FONT> <b>procedure</b> Init_Color (<FONT COLOR=red><A NAME="ref_1726_26" HREF="terminal_interface-curses__adb.htm#ref_2228_26">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">Color_Number</A>; <FONT COLOR=red><A NAME="ref_1727_26" HREF="terminal_interface-curses__adb.htm#ref_2229_26">Red</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>; <FONT COLOR=red><A NAME="ref_1728_26" HREF="terminal_interface-curses__adb.htm#ref_2230_26">Green</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>; Blue : <b>in</b> RGB_Value); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">init_color()</A></EM></FONT> <b>pragma</b> Inline (Init_Color); <FONT COLOR=green><EM>-- #1A NAME="AFU_145"#2|</EM></FONT> <b>function</b> Can_Change_Color <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">can_change_color()</A></EM></FONT> <b>pragma</b> Inline (Can_Change_Color); <FONT COLOR=green><EM>-- #1A NAME="AFU_146"#2|</EM></FONT> <b>procedure</b> Color_Content (<FONT COLOR=red><A NAME="ref_1739_29" HREF="terminal_interface-curses__adb.htm#ref_2257_29">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">Color_Number</A>; <FONT COLOR=red><A NAME="ref_1740_29" HREF="terminal_interface-curses__adb.htm#ref_2258_29">Red</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>; <FONT COLOR=red><A NAME="ref_1741_29" HREF="terminal_interface-curses__adb.htm#ref_2259_29">Green</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_295_9">RGB_Value</A>; Blue : <b>out</b> RGB_Value); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_color.3x.html">color_content()</A></EM></FONT> <b>pragma</b> Inline (Color_Content); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_kernel.3x.html">curs_kernel.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Not implemented: getsyx, setsyx</EM></FONT> <FONT COLOR=green><EM>--</EM></FONT> <b>type</b> Curses_Mode <b>is</b> (Curses, Shell); <FONT COLOR=green><EM>-- #1A NAME="AFU_147"#2|</EM></FONT> <b>procedure</b> Save_Curses_Mode (Mode : <b>in</b> Curses_Mode); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">def_prog_mode()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: def_shell_mode()</EM></FONT> <b>pragma</b> Inline (Save_Curses_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_148"#2|</EM></FONT> <b>procedure</b> Reset_Curses_Mode (Mode : <b>in</b> Curses_Mode); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">reset_prog_mode()</A></EM></FONT> <FONT COLOR=green><EM>-- AKA: reset_shell_mode()</EM></FONT> <b>pragma</b> Inline (Reset_Curses_Mode); <FONT COLOR=green><EM>-- #1A NAME="AFU_149"#2|</EM></FONT> <b>procedure</b> Save_Terminal_State; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">savetty()</A></EM></FONT> <b>pragma</b> Inline (Save_Terminal_State); <FONT COLOR=green><EM>-- #1A NAME="AFU_150"#2|</EM></FONT> <b>procedure</b> Reset_Terminal_State; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">resetty();</A></EM></FONT> <b>pragma</b> Inline (Reset_Terminal_State); <b>type</b> Stdscr_Init_Proc <b>is</b> <b>access</b> <b>function</b> (<FONT COLOR=red><A NAME="ref_1776_17">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Window</A>; Columns :<A HREF="terminal_interface-curses__ads.htm#ref_1774_9"> </A>Column_Count) <b>return</b> Integer; <b>pragma</b> Convention (C, Stdscr_Init_Proc); <FONT COLOR=green><EM>-- N.B.: the return value is actually ignored, but it seems to be</EM></FONT> <FONT COLOR=green><EM>-- a good practice to return 0 if you think all went fine</EM></FONT> <FONT COLOR=green><EM>-- and -1 otherwise.</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_151"#2|</EM></FONT> <b>procedure</b> Rip_Off_Lines (<FONT COLOR=red><A NAME="ref_1784_29" HREF="terminal_interface-curses__adb.htm#ref_2337_29">Lines</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_1774_9">Integer</A>; Proc : <b>in</b> Stdscr_Init_Proc); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">ripoffline()</A></EM></FONT> <FONT COLOR=green><EM>-- N.B.: to be more precise, this uses a ncurses specific enhancement of</EM></FONT> <FONT COLOR=green><EM>-- ripoffline(), in which the Lines argument absolute value is the</EM></FONT> <FONT COLOR=green><EM>-- number of lines to be ripped of. The official ripoffline() only</EM></FONT> <FONT COLOR=green><EM>-- uses the sign of Lines to rip of a single line from bottom or top.</EM></FONT> <b>pragma</b> Inline (Rip_Off_Lines); <b>type</b> Cursor_Visibility <b>is</b> (Invisible, Normal, Very_Visible); <FONT COLOR=green><EM>-- #1A NAME="AFU_152"#2|</EM></FONT> <b>procedure</b> Set_Cursor_Visibility (Visibility : <b>in</b> <b>out</b> Cursor_Visibility); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">curs_set()</A></EM></FONT> <b>pragma</b> Inline (Set_Cursor_Visibility); <FONT COLOR=green><EM>-- #1A NAME="AFU_153"#2|</EM></FONT> <b>procedure</b> Nap_Milli_Seconds (Ms : <b>in</b> Natural); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_kernel.3x.html">napms()</A></EM></FONT> <b>pragma</b> Inline (Nap_Milli_Seconds); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Some useful helpers.</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <b>type</b> Transform_Direction <b>is</b> (From_Screen, To_Screen); <b>procedure</b> Transform_Coordinates (<FONT COLOR=red><A NAME="ref_1810_7" HREF="terminal_interface-curses__adb.htm#ref_2422_7">W</A></FONT> : <b>in</b> Window := Standard_Window; <FONT COLOR=red><A NAME="ref_1811_7" HREF="terminal_interface-curses__adb.htm#ref_2423_7">Line</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Line_Position</A>; <FONT COLOR=red><A NAME="ref_1812_7" HREF="terminal_interface-curses__adb.htm#ref_2424_7">Column</A></FONT> : <b>in</b> <b>out</b> Column_Position; Dir : <b>in</b> Transform_Direction := From_Screen); <FONT COLOR=green><EM>-- This procedure transforms screen coordinates into coordinates relative</EM></FONT> <FONT COLOR=green><EM>-- to the window and vice versa, depending on the Dir parameter.</EM></FONT> <FONT COLOR=green><EM>-- Screen coordinates are the position informations on the physical device.</EM></FONT> <FONT COLOR=green><EM>-- An Curses_Exception will be raised if Line and Column are not in the</EM></FONT> <FONT COLOR=green><EM>-- Window or if you pass the Null_Window as argument.</EM></FONT> <FONT COLOR=green><EM>-- We don't inline this procedure</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/dft_fgbg.3x.html">dft_fgbg.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_154"#2|</EM></FONT> <b>procedure</b> Use_Default_Colors; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/dft_fgbg.3x.html">use_default_colors()</A></EM></FONT> <b>pragma</b> Inline (Use_Default_Colors); <FONT COLOR=green><EM>-- #1A NAME="AFU_155"#2|</EM></FONT> <b>procedure</b> Assume_Default_Colors (<FONT COLOR=red><A NAME="ref_1831_37" HREF="terminal_interface-curses__adb.htm#ref_2460_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>; Back : Color_Number := Default_Color); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/dft_fgbg.3x.html">assume_default_colors()</A></EM></FONT> <b>pragma</b> Inline (Assume_Default_Colors); <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_extend.3x.html">curs_extend.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_156"#2|</EM></FONT> <b>function</b> Curses_Version <b>return</b> String; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_extend.3x.html">curses_version()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_157"#2|</EM></FONT> <FONT COLOR=green><EM>-- The returnvalue is the previous setting of the flag</EM></FONT> <b>function</b> Use_Extended_Names (Enable : Boolean) <b>return</b> Boolean; <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_extend.3x.html">use_extended_names()</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_scr_dump.3x.html">curs_scr_dump.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_158"#2|</EM></FONT> <b>procedure</b> Screen_Dump_To_File (Filename : <b>in</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_dump()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_159"#2|</EM></FONT> <b>procedure</b> Screen_Restore_From_File (Filename : <b>in</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_restore()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_160"#2|</EM></FONT> <b>procedure</b> Screen_Init_From_File (Filename : <b>in</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_init()</A></EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_161"#2|</EM></FONT> <b>procedure</b> Screen_Set_File (Filename : <b>in</b> String); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_scr_dump.3x.html">scr_set()</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_print.3x.html">curs_print.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- Not implemented: mcprint</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_printw.3x.html">curs_printw.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- Not implemented: printw, wprintw, mvprintw, mvwprintw, vwprintw,</EM></FONT> <FONT COLOR=green><EM>-- vw_printw</EM></FONT> <FONT COLOR=green><EM>-- Please use the Ada style Text_IO child packages for formatted</EM></FONT> <FONT COLOR=green><EM>-- printing. It doesn't make a lot of sense to map the printf style</EM></FONT> <FONT COLOR=green><EM>-- C functions to Ada.</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_scanw.3x.html">curs_scanw.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- Not implemented: scanw, wscanw, mvscanw, mvwscanw, vwscanw, vw_scanw</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/resizeterm.3x.html">resizeterm.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- Not Implemented: resizeterm</EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- | Man page <A HREF="../man/wresize.3x.html">wresize.3x</A></EM></FONT> <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> <FONT COLOR=green><EM>-- #1A NAME="AFU_162"#2|</EM></FONT> <b>procedure</b> Resize (<FONT COLOR=red><A NAME="ref_1899_22" HREF="terminal_interface-curses__adb.htm#ref_2551_22">Win</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Window</A> := Standard_Window; <FONT COLOR=red><A NAME="ref_1900_22" HREF="terminal_interface-curses__adb.htm#ref_2552_22">Number_Of_Lines</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Line_Count</A>; Number_Of_Columns : Column_Count); <FONT COLOR=green><EM>-- AKA: <A HREF="../man/wresize.3x.html">wresize()</A></EM></FONT> <b>private</b> <b>type</b> Window <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; Null_Window : <b>constant</b> Window := 0; <FONT COLOR=green><EM>-- The next constants are generated and may be different on your</EM></FONT> <FONT COLOR=green><EM>-- architecture.</EM></FONT> <FONT COLOR=green><EM>--</EM></FONT> <FONT COLOR=red><A NAME="ref_1911_4">Offset_maxy</A></FONT> : <b>constant</b> Natural := 2; <FONT COLOR=green><EM>-- short</EM></FONT> <FONT COLOR=red><A NAME="ref_1912_4">Offset_maxx</A></FONT> : <b>constant</b> Natural := 3; <FONT COLOR=green><EM>-- short</EM></FONT> <FONT COLOR=red><A NAME="ref_1913_4">Offset_begy</A></FONT> : <b>constant</b> Natural := 4; <FONT COLOR=green><EM>-- short</EM></FONT> <FONT COLOR=red><A NAME="ref_1914_4">Offset_begx</A></FONT> : <b>constant</b> Natural := 5; <FONT COLOR=green><EM>-- short</EM></FONT> <FONT COLOR=red><A NAME="ref_1915_4">Offset_cury</A></FONT> : <b>constant</b> Natural := 0; <FONT COLOR=green><EM>-- short</EM></FONT> <FONT COLOR=red><A NAME="ref_1916_4">Offset_curx</A></FONT> : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- short</EM></FONT> <FONT COLOR=red><A NAME="ref_1917_4">Offset_yoffset</A></FONT> : <b>constant</b> Natural := 36; <FONT COLOR=green><EM>-- short</EM></FONT> <FONT COLOR=red><A NAME="ref_1918_4">Offset_pary</A></FONT> : <b>constant</b> Natural := 13; <FONT COLOR=green><EM>-- int</EM></FONT> <FONT COLOR=red><A NAME="ref_1919_4">Offset_parx</A></FONT> : <b>constant</b> Natural := 12; <FONT COLOR=green><EM>-- int</EM></FONT> <FONT COLOR=red><A NAME="ref_1920_4">Offset_notimeout</A></FONT> : <b>constant</b> Natural := 24; <FONT COLOR=green><EM>-- char</EM></FONT> <FONT COLOR=red><A NAME="ref_1921_4">Offset_clear</A></FONT> : <b>constant</b> Natural := 25; <FONT COLOR=green><EM>-- char</EM></FONT> <FONT COLOR=red><A NAME="ref_1922_4">Offset_leaveok</A></FONT> : <b>constant</b> Natural := 26; <FONT COLOR=green><EM>-- char</EM></FONT> <FONT COLOR=red><A NAME="ref_1923_4">Offset_scroll</A></FONT> : <b>constant</b> Natural := 27; <FONT COLOR=green><EM>-- char</EM></FONT> <FONT COLOR=red><A NAME="ref_1924_4">Offset_idlok</A></FONT> : <b>constant</b> Natural := 28; <FONT COLOR=green><EM>-- char</EM></FONT> <FONT COLOR=red><A NAME="ref_1925_4">Offset_idcok</A></FONT> : <b>constant</b> Natural := 29; <FONT COLOR=green><EM>-- char</EM></FONT> <FONT COLOR=red><A NAME="ref_1926_4">Offset_immed</A></FONT> : <b>constant</b> Natural := 30; <FONT COLOR=green><EM>-- char</EM></FONT> <FONT COLOR=red><A NAME="ref_1927_4">Offset_sync</A></FONT> : <b>constant</b> Natural := 31; <FONT COLOR=green><EM>-- char</EM></FONT> <FONT COLOR=red><A NAME="ref_1928_4">Offset_use_keypad</A></FONT> : <b>constant</b> Natural := 32; <FONT COLOR=green><EM>-- char</EM></FONT> <FONT COLOR=red><A NAME="ref_1929_4">Sizeof_bool</A></FONT> : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- bool</EM></FONT> Offset_XY : <b>constant</b> Natural := 1; <FONT COLOR=green><EM>-- int</EM></FONT> <b>type</b> Curses_Bool <b>is</b> <b>mod</b> 2 ** <A HREF="terminal_interface-curses__ads.htm#ref_1931_9">Interfaces</A>.C.char'Size; Curses_Bool_False : <b>constant</b> Curses_Bool := 0; <b>end</b> Terminal_Interface.Curses; </PRE></BODY></HTML>