Ada95/html/ada/terminal_interface-curses__ads.htm

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