- Announcing ncurses 5.0
-
+ Announcing ncurses 5.1
+
The ncurses (new curses) library is a free software emulation of
curses in System V Release 4.0, and more. It uses terminfo format,
supports pads and color and multiple highlights and forms characters
and function-key mapping, and has all the other SYSV-curses
enhancements over BSD curses.
-
+
In mid-June 1995, the maintainer of 4.4BSD curses declared that he
considered 4.4BSD curses obsolete, and is encouraging the keepers of
Unix releases such as BSD/OS, freeBSD and netBSD to switch over to
ncurses.
-
+
The ncurses code was developed under GNU/Linux. It should port easily
to any ANSI/POSIX-conforming UNIX. It has even been ported to OS/2
Warp!
-
+
The distribution includes the library and support utilities, including
a terminfo compiler tic(1), a decompiler infocmp(1), clear(1),
tput(1), tset(1), and a termcap conversion tool captoinfo(1). Full
manual pages are provided for the library and tools.
-
+
The ncurses distribution is available via anonymous FTP at the GNU
- distribution site [1]ftp://ftp.gnu.org/pub/gnu/ncurses. It is also
- available at [2]ftp://ftp.clark.net/pub/dickey/ncurses.
-
+ distribution site [1]ftp://ftp.gnu.org/pub/gnu/ncurses.
+ It is also available at [2]ftp://dickey.his.com/ncurses.
+
Release Notes
-
- We decided to release ncurses as a new whole number release (5.0)
- because it incorporates several interface changes, including some that
- would invalidate existing shared libraries. These are the highlights
- from the change-log since ncurses 4.2 release.
-
+
+ This release is designed to be upward compatible from ncurses 5.0;
+ very few applications will require recompilation, depending on the
+ platform. These are the highlights from the change-log since ncurses
+ 5.0 release.
+
Interface changes:
- * The principal source of changes to the interface comes from the
- release of X/Open Curses in 1997. Earlier versions of ncurses (4.0
- and before) were based on a draft version of the specification.
- The release version adds parameters to some functions to support
- the evolving internationalization of curses. These summarize the
- impact:
- + modified several prototypes to correspond with 1997 version
- of X/Open Curses (affects ABI since developers have used
- attr_get).
- + corrected prototypes for slk_* functions, using chtype rather
- than attr_t.
- + the slk_attr_{set,off,on} functions need an additional void*
- parameter according to XSI.
- + correct macros for wattr_set, wattr_get, separate wattrset
- macro from these to preserve behavior that allows attributes
- to be combined with color pair numbers.
- + reviewed/updated curses.h, term.h against X/Open Curses Issue
- 4 Version 2. This includes making some parameters
- NCURSES_CONST rather than const, e.g., in termcap.h.
- + reviewed/corrected macros in curses.h as per XSI document.
- + add set_a_attributes and set_pglen_inch to terminfo
- structure, as per XSI and Solaris 2.5.
- * The newest version of the X/Open Curses is implemented on Solaris
- and other vendor's systems. It adds new features to the terminfo
- descriptions:
- + implement tparm %l format.
- + implement tparm printf-style width and precision for %s, %d,
- %x, %o as per XSI.
- * We made additional changes to reduce impact by future interface
- changes:
- + rename key_names[] array to _nc_key_names since it is not
- part of the curses interface.
- + move macro winch to a function, to hide details of struct
- ldat
- * modify configure script to embed ABI in shared libraries for HP-UX
- 10.x (detailed request by Tim Mooney).
- * modify configuration of shared libraries on Digital Unix so that
- versioning is embedded in the library, rather than implied by
- links (patch by Tim Mooney).
-
+ * made the extended terminal capabilities
+ (configure --enable-tcap-names) a standard feature (though the
+ configure script can disable it, it is built by default).
+ * removed the trace() function and related trace support from the
+ production library. This is the only interface change that may
+ cause problems with existing applications linked to shared
+ libraries, since not all platforms use the minor version number.
+ * explicitly initialized to zero several data items which were
+ implicitly initialized, e.g., cur_term. If not explicitly
+ initialized, their storage type is C (common), and causes problems
+ linking on some platforms.
+ * modified curses.h.in, undef'ing some symbols to avoid conflict
+ with C++ STL.
+
New features:
- * enable sigwinch handler by default.
- * turn on hashmap scrolling code by default
- * improved support for termcap applications
- + modify tput to accept termcap names as an alternative to
- terminfo names.
- + provide support for termcap PC variable by copying it from
- terminfo data and using it as the padding character in tputs.
- + provide support for termcap ospeed variable by copying it
- from the internal cur_term member, and using ospeed as the
- baudrate reference for the delay_output and tputs functions.
- + change name-comparisons in lib_termcap to compare no more
- than 2 characters.
- + add configure option --enable-tcap-names, which essentially
- allows users to define new capabilities as in termcap.
- * add mouse support to ncurses menus.
- * add mouse and dll support for OS/2 EMX
- * modify terminfo parsing to accept octal and hexadecimal constants
- * add configure option --enable-no-padding, to allow environment
- variable $NCURSES_NO_PADDING to eliminate non-mandatory padding,
- thereby making terminal emulators (e.g., for vt100) a little more
- efficient.
- * modify lib_color.c to eliminate dependency on orig_colors and
- orig_pair, since SVr4 curses does not require these either, but
- uses them when they are available.
- * add -f option to infocmp and tic, which formats the terminfo
- if/then/else/endif so that they are readable (with newlines and
- tabs).
- * modify tic to compile into %'char' form in preference to
- %{number}, since that is a little more efficient.
-
+ * added a new extension, assume_default_colors() to provide better
+ control over the use of default colors. This is the principal
+ visible difference between ncurses 5.1 and preceding versions. The
+ new extension allows an application to specify what colors pair 0
+ uses.
+ NOTE: Pair 0 defaults to white on black unless you have invoked
+ use_default_colors() or set it via assume_default_colors(). An
+ application that calls start_colors() without setting the
+ background color will consistently have a black background no
+ matter what color your terminal's background actually is.
+ * made several fixes to the terminfo-to-termcap conversion, and have
+ been using the generated termcaps without further hand-tuning.
+ This builds on the extension use_extended_names() by adding
+ "obsolete" termcap strings to terminfo.src
+ + modified tic so that if extended names (i.e.,
+ configure --enable-tcap-names) are active, then tic -x will
+ also write "obsolete" capabilities that are present in the
+ terminfo source.
+ + added screen's AX capability (for ECMA SGR 39 and 49) to
+ applicable terminfo entries, use presence of this as a check
+ for a small improvement in setting default colors.
+ + add -a option to tic and infocmp, which retains commented-out
+ capabilities during source translation/comparison, e.g.,
+ captoinfo and infotocap.
+ * implemented limited support for UTF-8, useful with XFree86 xterm:
+ + if the configure --enable-widec option is given, append 'w'
+ to names of the generated libraries (e.g., libncursesw.so) to
+ avoid conflict with existing ncurses libraries.
+ + add a simple UTF-8 output driver to the experimental
+ wide-character support. If any of the environment variables
+ LC_ALL, LC_CTYPE or LANG contain the string "UTF-8", this
+ driver will be used to translate the output to UTF-8.
+ + modified view.c to make a rudimentary viewer of UTF-8 text.
+ * modify raw() and noraw() to clear/restore IEXTEN flag which
+ affects stty lnext on systems such as FreeBSD
+ * reordered tests during mouse initialization to allow for gpm to
+ run in xterm, or for xterm to be used under OS/2 EMX. Also dropped
+ test for $DISPLAY in favor of the terminfo capability kmous=\E[M
+ or if $TERM environment variable contains "xterm".
+ * added configure option --with-manpage-symlinks, which provides for
+ fully indexing manpage entries by making symbolic links for the
+ aliases.
+ * changed unctrl() to render C1 characters (128-159) as ~@, ~A, etc.
+ * add experimental configure option --enable-colorfgbg to check for
+ $COLORTERM variable as set by rxvt/aterm/Eterm.
+ * made the infocmp -F option less verbose.
+ * dropped support for gnat 3.10 (gnat 3.12 is current).
+
Major bug fixes:
- * modify lib_tstp.c to block SIGTTOU when handling SIGTSTP, fixes a
- problem where ncurses applications which were run via a shell
- script would hang when given a ^Z. Also, check if the terminal's
- process group is consistent, i.e., a shell has not taken ownership
- of it, before deciding to save the current terminal settings in
- the SIGTSTP handler.
- * suppress sc/rc capabilities from terminal description if they
- appear in smcup/rmcup. This affects only scrolling optimization,
- to fix a problem reported by several people with xterm's alternate
- screen, though the problem is more general.
- * modify relative_move and tputs to avoid an interaction with the
- BSD-style padding. The relative_move function could produce a
- string to replace on the screen which began with a numeric
- character, which was then interpreted by tputs as padding.
- * modify setupterm so that cancelled strings are treated the same as
- absent strings, cancelled and absent booleans false (does not
- affect tic, infocmp).
- * modify lib_vidattr.c to allow for terminal types (e.g.,
- xterm-color) which may reset all attributes in the 'op'
- capability, so that colors are set before turning on bold and
- other attributes, but still after turning attributes off.
- * use 'access()' to check if ncurses library should be permitted to
- open or modify files with fopen/open/link/unlink/remove calls, in
- case the calling application is running in setuid mode.
- * correction to doupdate, for case where terminal does not support
- insert/delete character. The logic did not check that there was a
- difference in alignment of changes to old/new screens before
- repainting the whole non-blank portion of the line. Modified to
- fall through into logic that reduces by the portion which does not
- differ.
-
+ * modified infocmp -e, -E options to ensure that generated
+ fallback.c type for Booleans agrees with term.h
+ * documented a special case of incompatiblity between ncurses 4.2
+ and 5.0, added a section for this in INSTALL.
+ * corrected tests for file-descriptors in OS/2 EMX mouse support. A
+ negative value could be used by FD_SET, causing the select() call
+ to wait indefinitely.
+ * made 'tput flash' work properly for xterm by flushing output in
+ delay_output() when using napms(), and modifying xterm's terminfo
+ to specify no padding character. Otherwise, xterm's reported baud
+ rate could mislead ncurses into producing too few padding
+ characters.
+ * modified lib_addch.c to allow repeated update to the lower-right
+ corner, rather than displaying only the first character written
+ until the cursor is moved. Recent versions of SVr4 curses can
+ update the lower-right corner, and behave this way.
+ * modified echo() behavior of getch() to match Solaris curses for
+ carriage return and backspace (reported by Neil Zanella).
+ * corrected offsets used for subwindows in wresize()
+ * modified configure script so AC_MSG_ERROR is temporarily defined
+ to a warning in AC_PROG_CXX to make it recover from a missing C++
+ compiler without requiring user to add --without-cxx option
+ * corrected logic in lib_twait.c as used by lib_mouse.c for GPM
+ mouse support when poll() is used rather than select().
+ * made several fixes for buffer overflows, unchecked recursion,
+ improvements in performance, etc. See the NEWS file for details.
+
Features of Ncurses
-
+
The ncurses package is fully compatible with SVr4 (System V Release 4)
curses:
* All 257 of the SVr4 calls have been implemented (and are
* The utilities have options to allow you to filter terminfo entries
for use with less capable curses/terminfo versions such as the
HP/UX and AIX ports.
-
+
The ncurses package also has many useful extensions over SVr4:
* The API is 8-bit clean and base-level conformant with the X/OPEN
curses specification, XSI curses (that is, it implements all BASE
* An HTML "Introduction to Programming with NCURSES" document
provides a narrative introduction to the curses programming
interface.
-
+
State of the Package
-
+
Numerous bugs present in earlier versions have been fixed; the library
is far more reliable than it used to be. Bounds checking in many
`dangerous' entry points has been improved. The code is now type-safe
according to gcc -Wall. The library has been checked for malloc leaks
and arena corruption by the Purify memory-allocation tester.
-
+
The ncurses code has been tested with a wide variety of applications
including (versions starting with those noted):
-
+
cdk
- Curses Development Kit [3]Curses Development Kit
- [4]ftp://ftp.clark.net/pub/dickey/cdk.
-
+ Curses Development Kit
+ [3]http://www.vexus.ca/CDK.html
+ [4]http://dickey.his.com/cdk.
+
ded
- directory-editor [5]ftp://ftp.clark.net/pub/dickey/ded.
-
+ directory-editor
+ [5]http://dickey.his.com/ded.
+
dialog
the underlying application used in Slackware's setup, and the
basis for similar applications on GNU/Linux.
-
+ [6]http://dickey.his.com/dialog.
+
lynx
the character-screen WWW browser
-
+ [7]http://lynx.isc.org/release.
+
Midnight Commander 4.1
file manager
-
+ [8]www.gnome.org/mc/.
+
mutt
mail utility
-
+ [9]http://www.mutt.org.
+
ncftp
file-transfer utility
-
+ [10]http://www.ncftp.com.
+
nvi
New vi versions 1.50 are able to use ncurses versions 1.9.7 and
later.
-
+ [11]http://www.bostic.com/vi/.
+
tin
newsreader, supporting color, MIME
- [6]ftp://ftp.akk.uni-karlsruhe.de/pub/news/clients/tin-unoff.
-
+ [12]http://www.tin.org.
+
taper
tape archive utility
-
+ [13]http://members.iinet.net.au/~yusuf/taper/.
+
vh-1.6
Volks-Hypertext browser for the Jargon File
-
+ [14]http://www.bg.debian.org/Packages/unstable/text/vh.html.
+
as well as some that use ncurses for the terminfo support alone:
-
+
minicom
terminal emulator
-
+ [15]http://www.pp.clinet.fi/~walker/minicom.html.
+
vile
- vi-like-emacs [7]ftp://ftp.clark.net/pub/dickey/vile.
-
+ vi-like-emacs
+ [16]http://dickey.his.com/vile.
+
The ncurses distribution includes a selection of test programs
(including a few games).
-
+
Who's Who and What's What
- The original developers of ncurses are [8]Zeyd Ben-Halim and [9]Eric
- S. Raymond. Ongoing work is being done by [10]Thomas Dickey and
- [11]Jürgen Pfeifer. [12]Thomas Dickey acts as the maintainer for the
+ The original developers of ncurses are [17]Zeyd Ben-Halim and [18]Eric
+ S. Raymond. Ongoing work is being done by [19]Thomas Dickey and
+ [20]Jürgen Pfeifer. [21]Thomas Dickey acts as the maintainer for the
Free Software Foundation, which holds the copyright on ncurses.
- Contact the current maintainers at [13]bug-ncurses@gnu.org.
-
+ Contact the current maintainers at [22]bug-ncurses@gnu.org.
+
To join the ncurses mailing list, please write email to
bug-ncurses-request@gnu.org containing the line:
subscribe <name>@<host.domain>
This list is open to anyone interested in helping with the development
and testing of this package.
-
+
Beta versions of ncurses and patches to the current release are made
- available at [14]ftp://ftp.clark.net/pub/dickey/ncurses.
-
+ available at [23]ftp://dickey.his.com/ncurses.
+
Future Plans
* Extended-level XPG4 conformance, with internationalization
support.
* Ports to more systems, including DOS and Windows.
-
+
We need people to help with these projects. If you are interested in
working on them, please join the ncurses list.
-
+
Other Related Resources
The distribution includes and uses a version of the terminfo-format
terminal description file maintained by Eric Raymond.
- [15]http://earthspace.net/~esr/terminfo.
-
+ [24]http://earthspace.net/~esr/terminfo.
+
You can find lots of information on terminal-related topics not
- covered in the terminfo file at [16]Richard Shuford's archive.
+ covered in the terminfo file at [25]Richard Shuford's archive.
References
1. ftp://ftp.gnu.org/pub/gnu/ncurses
- 2. ftp://ftp.clark.net/pub/dickey/ncurses
+ 2. ftp://dickey.his.com/ncurses
3. http://www.vexus.ca/CDK.html
- 4. ftp://ftp.clark.net/pub/dickey/cdk
- 5. ftp://ftp.clark.net/pub/dickey/ded
- 6. ftp://ftp.akk.uni-karlsruhe.de/pub/news/clients/tin-unoff
- 7. ftp://ftp.clark.net/pub/dickey/vile
- 8. mailto:zmbenhal@netcom.com
- 9. http://www.ccil.org/~esr/home.html
- 10. mailto:dickey@clark.net
- 11. mailto:juergen.pfeifer@gmx.net
- 12. mailto:dickey@clark.net
- 13. mailto:bug-ncurses@gnu.org
- 14. ftp://ftp.clark.net/pub/dickey/ncurses
- 15. http://earthspace.net/~esr/terminfo
- 16. http://www.cs.utk.edu/~shuford/terminal_index.html
+ 4. http://dickey.his.com/cdk/cdk.html
+ 5. http://dickey.his.com/ded/ded.html
+ 6. http://dickey.his.com/dialog/dialog.html
+ 7. http://lynx.isc.org/release/
+ 8. file://localhost/usr/build/ncurses/ncurses-5.1-20000704/doc/html/www.gnome.org/mc/
+ 9. http://www.mutt.org/
+ 10. http://www.ncftp.com/
+ 11. http://www.bostic.com/vi/
+ 12. http://www.tin.org/
+ 13. http://members.iinet.net.au/~yusuf/taper/
+ 14. http://www.bg.debian.org/Packages/unstable/text/vh.html
+ 15. http://www.pp.clinet.fi/~walker/minicom.html
+ 16. http://dickey.his.com/vile/vile.html
+ 17. mailto:zmbenhal@netcom.com
+ 18. http://www.ccil.org/~esr/home.html
+ 19. mailto:dickey@herndon4.his.com
+ 20. mailto:juergen.pfeifer@gmx.net
+ 21. mailto:dickey@herndon4.his.com
+ 22. mailto:bug-ncurses@gnu.org
+ 23. ftp://dickey.his.com/ncurses
+ 24. http://earthspace.net/~esr/terminfo
+ 25. http://www.cs.utk.edu/~shuford/terminal_index.html
# Author: Juergen Pfeifer <juergen.pfeifer@gmx.net> 1996
#
# Version Control
-# $Revision: 1.12 $
+# $Revision: 1.13 $
#
SHELL = /bin/sh
THIS = Makefile
@SET_MAKE@
all \
+libs \
sources \
install \
install.libs \
# Author: Juergen Pfeifer <juergen.pfeifer@gmx.net> 1996
#
# Version Control
-# $Revision: 1.27 $
+# $Revision: 1.30 $
#
.SUFFIXES:
RANLIB = @RANLIB@
-LIB_CURSES = -L../../lib -lncurses
+LIB_CURSES = -L../../lib -lncurses@LIB_SUFFIX@
M4 = m4
M4FLAGS =
GENERATE = ./gen '@DFT_ARG_SUFFIX@'
DEL_ADAMODE = sed -e '/^\-\-\ \ \-\*\-\ ada\ \-\*\-.*/d'
+GNATHTML = `type -p gnathtml || type -p gnathtml.pl`
+GNATHP = www.gnat.com
+MAIL = juergen.pfeifer@gmx.net
+HOMEP = home.t-online.de/home/Juergen.Pfeifer
+
################################################################################
ALIB = @cf_ada_package@
ABASE = $(ALIB)-curses
$(srcdir)/$(ABASE)-panels-user_data.ads.m4
-all: $(GEN_TARGETS)
+all \
+libs : $(GEN_TARGETS)
@
sources:
-rm -f $(GEN_FILES5)
clean :: mostlyclean
- -rm -f $(GEN_TARGETS)
+ -rm -f $(GEN_TARGETS) instab.tmp *.ad[bs] *.html *.ali *.tmp
distclean :: clean
rm -f Makefile
realclean :: distclean
+HTML_DIR = ../../doc/html/ada
+
+instab.tmp : table.m4 $(GEN_SRC)
+ @rm -f $@
+ @for f in $(GEN_SRC) ; do \
+ $(M4) $(M4FLAGS) -DM4MACRO=table.m4 $$f | $(DEL_ADAMODE) >> $@ ;\
+ done;
+
+$(HTML_DIR)/table.html : instab.tmp
+ @-touch $@
+ @-chmod +w $@
+ @echo '<!DOCTYPE HTML' > $@
+ @echo 'PUBLIC "-//IETF//DTD HTML 3.0//EN">' >> $@
+ @echo '<HTML>' >> $@
+ @echo '<HEAD>' >> $@
+ @echo '<TITLE>Correspondence between ncurses C and Ada functions</TITLE>' >>$@
+ @echo '</HEAD>' >> $@
+ @echo '<BODY>' >> $@
+ @echo '<H1>Correspondence between ncurses C and Ada functions</H1>' >>$@
+ @echo '<H2>Sorted by C function name</H2>' >>$@
+ @echo '<TABLE ALIGN=CENTER BORDER>' >>$@
+ @echo '<TR ALIGN=LEFT>' >>$@
+ @echo '<TH>C name</TH><TH>Ada name</TH><TH>man page</TH></TR>' >>$@
+ @sort < instab.tmp >> $@
+ @echo '</TABLE></BODY></HTML>' >>$@
+ @rm -f instab.tmp
+
+adahtml:
+ @rm -rf $(HTML_DIR)/
+ @mkdir -p $(HTML_DIR)
+ cp -p ../src/*.ad[sb] . && chmod +w *.ad[sb]
+ ln -sf ../src/*.ali .
+ for f in $(GEN_SRC); do \
+ g=`basename $$f .ads.m4` ;\
+ $(M4) $(M4FLAGS) -DM4MACRO=html.m4 $$f | $(DEL_ADAMODE) > $$g.ads ;\
+ done
+ @-rm -f $(HTML_DIR)/$(ALIB)*.htm*
+ $(GNATHTML) -d -f $(ALIB)*.ads
+ for f in html/$(ALIB)*.htm*; do \
+ a=`basename $$f` ; \
+ sed -e 's/You may also.*body.*//' <$$f |\
+ sed -e 's%GNAT%<A HREF="http://$(GNATHP)">GNAT</A>%g' |\
+ sed -e 's%<A HREF%<A HREF%g' |\
+ sed -e 's%">%">%g' |\
+ sed -e 's/3X/3x/g' |\
+ sed -e 's/$$\([A-Za-z0-9_]*:.*\)\$$/@\1@/' |\
+ sed -e 's%Juergen Pfeifer%<A HREF="http://$(HOMEP)">J\ürgen Pfeifer</A>%g' |\
+ sed -e 's%$(MAIL)%<A HREF="mailto:$(MAIL)">\<$(MAIL)\></A>%g' |\
+ sed -e 's%</A>%</A>%g' > $$a.tmp ;\
+ mv $$a.tmp $$f ;\
+ done
+ @rm -f *.ad[sb] *.ali *.tmp
+ @for f in funcs.htm main.htm ; do \
+ sed -e "\%<A HREF=funcs/ .htm>\[ \]</A>%d" < html/$$f > $$f ;\
+ mv $$f html/$$f ;\
+ done
+ @rm -f "html/funcs/ .htm"
+ @cp -pdrf html/* $(HTML_DIR)/
+ @rm -rf html
+
+html : adahtml $(HTML_DIR)/table.html
+ @
+
###############################################################################
# The remainder of this file is automatically generated during configuration
###############################################################################
/****************************************************************************
- * Copyright (c) 1998 Free Software Foundation, Inc. *
+ * Copyright (c) 1998,2000 Free Software Foundation, Inc. *
* *
* Permission is hereby granted, free of charge, to any person obtaining a *
* copy of this software and associated documentation files (the *
/*
Version Control
- $Revision: 1.29 $
+ $Revision: 1.31 $
--------------------------------------------------------------------------*/
/*
This program generates various record structures and constants from the
static void gen_attr_set( const char *name )
{
+ /* All of the A_xxx symbols are defined in ncurses, but not all are nonzero
+ * if "configure --enable-widec" is specified.
+ */
static const name_attribute_pair nap[] = {
-#ifdef A_STANDOUT
+#if A_STANDOUT
{"Stand_Out", A_STANDOUT},
#endif
-#ifdef A_UNDERLINE
+#if A_UNDERLINE
{"Under_Line", A_UNDERLINE},
#endif
-#ifdef A_REVERSE
+#if A_REVERSE
{"Reverse_Video", A_REVERSE},
#endif
-#ifdef A_BLINK
+#if A_BLINK
{"Blink", A_BLINK},
#endif
-#ifdef A_DIM
+#if A_DIM
{"Dim_Character", A_DIM},
#endif
-#ifdef A_BOLD
+#if A_BOLD
{"Bold_Character", A_BOLD},
#endif
-#ifdef A_ALTCHARSET
+#if A_ALTCHARSET
{"Alternate_Character_Set", A_ALTCHARSET},
#endif
-#ifdef A_INVIS
+#if A_INVIS
{"Invisible_Character", A_INVIS},
#endif
-#ifdef A_PROTECT
+#if A_PROTECT
{"Protected_Character", A_PROTECT},
#endif
-#ifdef A_HORIZONTAL
+#if A_HORIZONTAL
{"Horizontal", A_HORIZONTAL},
#endif
-#ifdef A_LEFT
+#if A_LEFT
{"Left", A_LEFT},
#endif
-#ifdef A_LOW
+#if A_LOW
{"Low", A_LOW},
#endif
-#ifdef A_RIGHT
+#if A_RIGHT
{"Right", A_RIGHT},
#endif
-#ifdef A_TOP
+#if A_TOP
{"Top", A_TOP},
#endif
-#ifdef A_VERTICAL
+#if A_VERTICAL
{"Vertical", A_VERTICAL},
#endif
{(char *)0, 0}
*/
static void gen_linkopts (void)
{
- printf(" pragma Linker_Options (\"-lAdaCurses%s\");\n", model);
printf(" pragma Linker_Options (\"-lncurses%s\");\n", model);
}
--- /dev/null
+define(`ANCHORIDX',`0')dnl
+define(`MANPAGE',`define(`MANPG',$1)dnl
+|=====================================================================
+ -- | Man page <A HREF="../man/MANPG.html">MANPG</A>
+ -- |=====================================================================')dnl
+define(`ANCHOR',`define(`ANCHORIDX',incr(ANCHORIDX))dnl
+`#'1A NAME="AFU`_'ANCHORIDX"`#'2dnl
+define(`CFUNAME',`$1')define(`AFUNAME',`$2')dnl
+|')
+define(`AKA',``AKA': <A HREF="../man/MANPG.html">CFUNAME</A>')dnl
+define(`ALIAS',``AKA': $1')dnl
--- /dev/null
+define(`ANCHORIDX',`0')dnl
+define(`MANPAGE',`define(`MANPG',$1)')dnl
+divert(-1)dnl
+define(`ANCHOR',`divert(0)define(`ANCHORIDX',incr(ANCHORIDX))dnl
+<TR><TD>$1</TD><TD><A HREF="HTMLNAME`#'AFU`_'ANCHORIDX">$2</A></TD><TD><A HREF="../man/MANPG.html">MANPG</A></TD></TR>
+divert(-1)')
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer <juergen.pfeifer@gmx.net> 1996
-- Version Control:
--- $Revision: 1.14 $
+-- $Revision: 1.15 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with System;
-- AKA
pragma Inline (Delete);
- private
+private
type Panel is new System.Storage_Elements.Integer_Address;
Null_Panel : constant Panel := 0;
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer <juergen.pfeifer@gmx.net> 1996
-- Version Control:
--- $Revision: 1.26 $
+-- $Revision: 1.28 $
-- Binding Version 01.00
------------------------------------------------------------------------------
include(`Base_Defs')
-- the other for the background
include(`Character_Attribute_Set_Rep')
- -- (n)curses uses all but the lowes 16 Bits for Attributes.
+ -- (n)curses uses all but the lowest 16 Bits for Attributes.
Normal_Video : constant Character_Attribute_Set := (others => False);
pragma Import (C, ACS_Map, "acs_map");
--
--
- -- Constants for several symbols from the Alternate Character Set
+ -- Constants for several characters from the Alternate Character Set
-- You must use this constants as indices into the ACS_Map array
-- to get the corresponding attributed character at runtime.
--
procedure Add_With_Immediate_Echo
(Win : in Window := Standard_Window;
Ch : in Character);
- -- Add a character and do an immediate resfresh of the screen.
+ -- Add a character and do an immediate refresh of the screen.
pragma Inline (Add_With_Immediate_Echo);
-- MANPAGE(`curs_window.3x')
pragma Inline (Function_Key);
function Function_Key_Code (Key : Function_Key_Number) return Real_Key_Code;
- -- Return the key code for a given functionkey number.
+ -- Return the key code for a given function-key number.
pragma Inline (Function_Key_Code);
-- MANPAGE(`curs_attr.3x')
-- ANCHOR(`wtimeout()',`Set_Timeout_Mode')
procedure Set_Timeout_Mode (Win : in Window := Standard_Window;
Mode : in Timeout_Mode;
- Amount : in Natural); -- in Miliseconds
+ Amount : in Natural); -- in Milliseconds
-- AKA
-- Instead of overloading the semantic of the sign of amount, we
-- introduce the Timeout_Mode parameter. This should improve
-- MANPAGE(`curs_color.3x')
- -- ANCHOR(`start_clolor()',`Start_Color')
+ -- ANCHOR(`start_color()',`Start_Color')
procedure Start_Color;
-- AKA
pragma Import (C, Start_Color, "start_color");
pragma Inline (Nap_Milli_Seconds);
-- |=====================================================================
- -- | Some usefull helpers.
+ -- | Some useful helpers.
-- |=====================================================================
type Transform_Direction is (From_Screen, To_Screen);
procedure Transform_Coordinates
Column : in out Column_Position;
Dir : in Transform_Direction := From_Screen);
-- This procedure transforms screen coordinates into coordinates relative
- -- to the window and vice versa, depending on the Dir parmeter.
+ -- to the window and vice versa, depending on the Dir parameter.
-- Screen coordinates are the position informations on the physical device.
-- An Curses_Exception will be raised if Line and Column are not in the
-- Window or if you pass the Null_Window as argument.
+++ /dev/null
-<HEAD><TITLE></TITLE></HEAD>
-<BODY>
-<H2 ALIGN=CENTER>Files</H2>
-<A HREF=files/T.htm>[T]</A>
-</BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>T</TITLE></HEAD>
-<BODY>
-<H2>Files - T</H2>
-<A HREF=../files.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-alpha__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-alpha.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-alphanumeric.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-enumeration-ada.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-enumeration__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-enumeration.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-intfield__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-intfield.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-ipv4_address__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-ipv4_address.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-numeric__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-numeric.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-regexp__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-regexp.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-user-choice__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-user-choice.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-user__ads.htm TARGET=main>terminal_interface-curses-forms-field_types-user.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_types__ads.htm TARGET=main>terminal_interface-curses-forms-field_types.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-field_user_data__ads.htm TARGET=main>terminal_interface-curses-forms-field_user_data.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms-form_user_data__ads.htm TARGET=main>terminal_interface-curses-forms-form_user_data.ads</A>
-<LI><A HREF=../terminal_interface-curses-forms__ads.htm TARGET=main>terminal_interface-curses-forms.ads</A>
-<LI><A HREF=../terminal_interface-curses-menus-item_user_data__ads.htm TARGET=main>terminal_interface-curses-menus-item_user_data.ads</A>
-<LI><A HREF=../terminal_interface-curses-menus-menu_user_data__ads.htm TARGET=main>terminal_interface-curses-menus-menu_user_data.ads</A>
-<LI><A HREF=../terminal_interface-curses-menus__ads.htm TARGET=main>terminal_interface-curses-menus.ads</A>
-<LI><A HREF=../terminal_interface-curses-mouse__ads.htm TARGET=main>terminal_interface-curses-mouse.ads</A>
-<LI><A HREF=../terminal_interface-curses-panels-user_data__ads.htm TARGET=main>terminal_interface-curses-panels-user_data.ads</A>
-<LI><A HREF=../terminal_interface-curses-panels__ads.htm TARGET=main>terminal_interface-curses-panels.ads</A>
-<LI><A HREF=../terminal_interface-curses-text_io-complex_io__ads.htm TARGET=main>terminal_interface-curses-text_io-complex_io.ads</A>
-<LI><A HREF=../terminal_interface-curses-text_io-decimal_io__ads.htm TARGET=main>terminal_interface-curses-text_io-decimal_io.ads</A>
-<LI><A HREF=../terminal_interface-curses-text_io-enumeration_io__ads.htm TARGET=main>terminal_interface-curses-text_io-enumeration_io.ads</A>
-<LI><A HREF=../terminal_interface-curses-text_io-fixed_io__ads.htm TARGET=main>terminal_interface-curses-text_io-fixed_io.ads</A>
-<LI><A HREF=../terminal_interface-curses-text_io-float_io__ads.htm TARGET=main>terminal_interface-curses-text_io-float_io.ads</A>
-<LI><A HREF=../terminal_interface-curses-text_io-integer_io__ads.htm TARGET=main>terminal_interface-curses-text_io-integer_io.ads</A>
-<LI><A HREF=../terminal_interface-curses-text_io-modular_io__ads.htm TARGET=main>terminal_interface-curses-text_io-modular_io.ads</A>
-<LI><A HREF=../terminal_interface-curses-text_io__ads.htm TARGET=main>terminal_interface-curses-text_io.ads</A>
-<LI><A HREF=../terminal_interface-curses__ads.htm TARGET=main>terminal_interface-curses.ads</A>
-<LI><A HREF=../terminal_interface__ads.htm TARGET=main>terminal_interface.ads</A>
-</UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HEAD><TITLE></TITLE></HEAD>
-<BODY>
-<H2 ALIGN=CENTER>Functions/Procedures</H2>
-<A HREF=funcs/A.htm>[A]</A>
-<A HREF=funcs/C.htm>[C]</A>
-<A HREF=funcs/E.htm>[E]</A>
-<A HREF=funcs/F.htm>[F]</A>
-<A HREF=funcs/G.htm>[G]</A>
-<A HREF=funcs/I.htm>[I]</A>
-<A HREF=funcs/L.htm>[L]</A>
-<A HREF=funcs/M.htm>[M]</A>
-<A HREF=funcs/N.htm>[N]</A>
-<A HREF=funcs/P.htm>[P]</A>
-<A HREF=funcs/R.htm>[R]</A>
-<A HREF=funcs/S.htm>[S]</A>
-<A HREF=funcs/T.htm>[T]</A>
-<A HREF=funcs/U.htm>[U]</A>
-<A HREF=funcs/V.htm>[V]</A>
-</BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>A</TITLE></HEAD>
-<BODY>
-<H2>Functions - A</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-alpha__ads.htm#41_53 TARGET=main>Alpha</A><LI><A HREF=../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#41_53 TARGET=main>AlphaNumeric</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>C</TITLE></HEAD>
-<BODY>
-<H2>Functions - C</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-user__ads.htm#63_13 TARGET=main>Character_Check</A><LI><A HREF=../terminal_interface-curses-forms-field_types-user-choice__ads.htm#43_58 TARGET=main>Choice</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#98_13 TARGET=main>Col - terminal_interface-curses-text_io.ads:98</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#99_13 TARGET=main>Col - terminal_interface-curses-text_io.ads:99</A><LI><A HREF=../terminal_interface-curses-text_io-complex_io__ads.htm#44_17 TARGET=main>Complex_Types</A><LI><A HREF=../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#48_13 TARGET=main>Create - terminal_interface-curses-forms-field_types-enumeration-ada.ads:48</A><LI><A HREF=../terminal_interface-curses-forms-field_types-enumeration__ads.htm#64_13 TARGET=main>Create - terminal_interface-curses-forms-field_types-enumeration.ads:64</A><LI><A HREF=../terminal_interface-curses-forms-field_types__ads.htm#149_13 TARGET=main>C_Builtin_Router</A><LI><A HREF=../terminal_interface-curses-forms-field_types-user-choice__ads.htm#80_13 TARGET=main>C_Generic_Choice</A><LI><A HREF=../terminal_interface-curses-forms-field_types-user__ads.htm#81_13 TARGET=main>C_Generic_Type</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>E</TITLE></HEAD>
-<BODY>
-<H2>Functions - E</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-enumeration__ads.htm#43_53 TARGET=main>Enumeration</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>F</TITLE></HEAD>
-<BODY>
-<H2>Functions - F</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-user__ads.htm#56_13 TARGET=main>Field_Check</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#65_14 TARGET=main>Flush - terminal_interface-curses-text_io.ads:65</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#66_14 TARGET=main>Flush - terminal_interface-curses-text_io.ads:66</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>G</TITLE></HEAD>
-<BODY>
-<H2>Functions - G</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-user__ads.htm#90_13 TARGET=main>Generic_Char_Check</A><LI><A HREF=../terminal_interface-curses-forms-field_types-user__ads.htm#83_13 TARGET=main>Generic_Field_Check</A><LI><A HREF=../terminal_interface-curses-forms-field_types-user-choice__ads.htm#82_13 TARGET=main>Generic_Next</A><LI><A HREF=../terminal_interface-curses-forms-field_types-user-choice__ads.htm#89_13 TARGET=main>Generic_Prev</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#62_13 TARGET=main>Get_Window</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>I</TITLE></HEAD>
-<BODY>
-<H2>Functions - I</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-intfield__ads.htm#41_53 TARGET=main>IntField</A><LI><A HREF=../terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#41_53 TARGET=main>IPV4_Address</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>L</TITLE></HEAD>
-<BODY>
-<H2>Functions - L</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-text_io__ads.htm#101_13 TARGET=main>Line - terminal_interface-curses-text_io.ads:101</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#102_13 TARGET=main>Line - terminal_interface-curses-text_io.ads:102</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#77_13 TARGET=main>Line_Length - terminal_interface-curses-text_io.ads:77</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#78_13 TARGET=main>Line_Length - terminal_interface-curses-text_io.ads:78</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>M</TITLE></HEAD>
-<BODY>
-<H2>Functions - M</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-enumeration__ads.htm#73_13 TARGET=main>Make_Enumeration_Type</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>N</TITLE></HEAD>
-<BODY>
-<H2>Functions - N</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-text_io__ads.htm#86_14 TARGET=main>New_Line - terminal_interface-curses-text_io.ads:86</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#87_14 TARGET=main>New_Line - terminal_interface-curses-text_io.ads:87</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#89_14 TARGET=main>New_Page - terminal_interface-curses-text_io.ads:89</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#90_14 TARGET=main>New_Page - terminal_interface-curses-text_io.ads:90</A><LI><A HREF=../terminal_interface-curses-forms-field_types-user-choice__ads.htm#60_13 TARGET=main>Next</A><LI><A HREF=../terminal_interface-curses-forms-field_types-numeric__ads.htm#41_53 TARGET=main>Numeric</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>P</TITLE></HEAD>
-<BODY>
-<H2>Functions - P</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-text_io__ads.htm#80_13 TARGET=main>Page_Length - terminal_interface-curses-text_io.ads:80</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#81_13 TARGET=main>Page_Length - terminal_interface-curses-text_io.ads:81</A><LI><A HREF=../terminal_interface-curses-forms-field_types-user-choice__ads.htm#67_13 TARGET=main>Previous</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#108_14 TARGET=main>Put - terminal_interface-curses-text_io.ads:108</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#109_14 TARGET=main>Put - terminal_interface-curses-text_io.ads:109</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#115_14 TARGET=main>Put - terminal_interface-curses-text_io.ads:115</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#116_14 TARGET=main>Put - terminal_interface-curses-text_io.ads:116</A><LI><A HREF=../terminal_interface-curses-text_io-complex_io__ads.htm#54_14 TARGET=main>Put - terminal_interface-curses-text_io-complex_io.ads:54</A><LI><A HREF=../terminal_interface-curses-text_io-complex_io__ads.htm#61_14 TARGET=main>Put - terminal_interface-curses-text_io-complex_io.ads:61</A><LI><A HREF=../terminal_interface-curses-text_io-decimal_io__ads.htm#50_14 TARGET=main>Put - terminal_interface-curses-text_io-decimal_io.ads:50</A><LI><A HREF=../terminal_interface-curses-text_io-decimal_io__ads.htm#57_14 TARGET=main>Put - terminal_interface-curses-text_io-decimal_io.ads:57</A><LI><A HREF=../terminal_interface-curses-text_io-enumeration_io__ads.htm#49_14 TARGET=main>Put - terminal_interface-curses-text_io-enumeration_io.ads:49</A><LI><A HREF=../terminal_interface-curses-text_io-enumeration_io__ads.htm#55_14 TARGET=main>Put - terminal_interface-curses-text_io-enumeration_io.ads:55</A><LI><A HREF=../terminal_interface-curses-text_io-fixed_io__ads.htm#50_14 TARGET=main>Put - terminal_interface-curses-text_io-fixed_io.ads:50</A><LI><A HREF=../terminal_interface-curses-text_io-fixed_io__ads.htm#57_14 TARGET=main>Put - terminal_interface-curses-text_io-fixed_io.ads:57</A><LI><A HREF=../terminal_interface-curses-text_io-float_io__ads.htm#50_14 TARGET=main>Put - terminal_interface-curses-text_io-float_io.ads:50</A><LI><A HREF=../terminal_interface-curses-text_io-float_io__ads.htm#57_14 TARGET=main>Put - terminal_interface-curses-text_io-float_io.ads:57</A><LI><A HREF=../terminal_interface-curses-text_io-integer_io__ads.htm#49_14 TARGET=main>Put - terminal_interface-curses-text_io-integer_io.ads:49</A><LI><A HREF=../terminal_interface-curses-text_io-integer_io__ads.htm#55_14 TARGET=main>Put - terminal_interface-curses-text_io-integer_io.ads:55</A><LI><A HREF=../terminal_interface-curses-text_io-modular_io__ads.htm#49_14 TARGET=main>Put - terminal_interface-curses-text_io-modular_io.ads:49</A><LI><A HREF=../terminal_interface-curses-text_io-modular_io__ads.htm#55_14 TARGET=main>Put - terminal_interface-curses-text_io-modular_io.ads:55</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#118_14 TARGET=main>Put_Line - terminal_interface-curses-text_io.ads:118</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#122_14 TARGET=main>Put_Line - terminal_interface-curses-text_io.ads:122</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>R</TITLE></HEAD>
-<BODY>
-<H2>Functions - R</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-regexp__ads.htm#41_53 TARGET=main>RegExp</A><LI><A HREF=../terminal_interface-curses-forms-field_types-enumeration__ads.htm#77_14 TARGET=main>Release</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>S</TITLE></HEAD>
-<BODY>
-<H2>Functions - S</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-text_io__ads.htm#92_14 TARGET=main>Set_Col - terminal_interface-curses-text_io.ads:92</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#93_14 TARGET=main>Set_Col - terminal_interface-curses-text_io.ads:93</A><LI><A HREF=../terminal_interface-curses-forms-field_types-alpha__ads.htm#49_14 TARGET=main>Set_Field_Type - terminal_interface-curses-forms-field_types-alpha.ads:49</A><LI><A HREF=../terminal_interface-curses-forms-field_types-alphanumeric__ads.htm#50_14 TARGET=main>Set_Field_Type - terminal_interface-curses-forms-field_types-alphanumeric.ads:50</A><LI><A HREF=../terminal_interface-curses-forms-field_types-enumeration__ads.htm#84_14 TARGET=main>Set_Field_Type - terminal_interface-curses-forms-field_types-enumeration.ads:84</A><LI><A HREF=../terminal_interface-curses-forms-field_types-intfield__ads.htm#51_14 TARGET=main>Set_Field_Type - terminal_interface-curses-forms-field_types-intfield.ads:51</A><LI><A HREF=../terminal_interface-curses-forms-field_types-ipv4_address__ads.htm#47_14 TARGET=main>Set_Field_Type - terminal_interface-curses-forms-field_types-ipv4_address.ads:47</A><LI><A HREF=../terminal_interface-curses-forms-field_types-numeric__ads.htm#51_14 TARGET=main>Set_Field_Type - terminal_interface-curses-forms-field_types-numeric.ads:51</A><LI><A HREF=../terminal_interface-curses-forms-field_types-regexp__ads.htm#51_14 TARGET=main>Set_Field_Type - terminal_interface-curses-forms-field_types-regexp.ads:51</A><LI><A HREF=../terminal_interface-curses-forms-field_types-user__ads.htm#70_14 TARGET=main>Set_Field_Type - terminal_interface-curses-forms-field_types-user.ads:70</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#95_14 TARGET=main>Set_Line - terminal_interface-curses-text_io.ads:95</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#96_14 TARGET=main>Set_Line - terminal_interface-curses-text_io.ads:96</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#59_14 TARGET=main>Set_Window</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>T</TITLE></HEAD>
-<BODY>
-<H2>Functions - T</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface__ads.htm#41_9 TARGET=main>Terminal_Interface</A><LI><A HREF=../terminal_interface-curses-text_io__ads.htm#44_35 TARGET=main>Text_IO</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>U</TITLE></HEAD>
-<BODY>
-<H2>Functions - U</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-user__ads.htm#43_53 TARGET=main>User</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML><HEAD><TITLE>V</TITLE></HEAD>
-<BODY>
-<H2>Functions - V</H2>
-<A HREF=../funcs.htm TARGET=_self>[index]</A>
-<UL COMPACT TYPE=DISC>
-<LI><A HREF=../terminal_interface-curses-forms-field_types-enumeration-ada__ads.htm#53_13 TARGET=main>Value</A></UL></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HTML>
-<HEAD><TITLE>Source Browser</TITLE></HEAD>
-<FRAMESET COLS='250,*'>
-<NOFRAME>
-<H2 ALIGN=CENTER>Files</H2>
-<A HREF=files/T.htm>[T]</A>
-</UL>
-<HR>
-<H2 ALIGN=CENTER>Functions/Procedures</H2>
-<A HREF=funcs/A.htm>[A]</A>
-<A HREF=funcs/C.htm>[C]</A>
-<A HREF=funcs/E.htm>[E]</A>
-<A HREF=funcs/F.htm>[F]</A>
-<A HREF=funcs/G.htm>[G]</A>
-<A HREF=funcs/I.htm>[I]</A>
-<A HREF=funcs/L.htm>[L]</A>
-<A HREF=funcs/M.htm>[M]</A>
-<A HREF=funcs/N.htm>[N]</A>
-<A HREF=funcs/P.htm>[P]</A>
-<A HREF=funcs/R.htm>[R]</A>
-<A HREF=funcs/S.htm>[S]</A>
-<A HREF=funcs/T.htm>[T]</A>
-<A HREF=funcs/U.htm>[U]</A>
-<A HREF=funcs/V.htm>[V]</A>
-</UL>
-</NOFRAME>
-<FRAMESET ROWS='50%,50%'>
-<FRAME NAME=files SRC=files.htm>
-<FRAME NAME=funcs SRC=funcs.htm>
-</FRAMESET>
-<FRAME NAME=main SRC=main.htm>
-</FRAMESET>
-</HTML>
+++ /dev/null
-<HEAD><TITLE></TITLE></HEAD>
-<BODY>
-<P ALIGN=right><A HREF=main.htm TARGET=_top>[No frame version is here]</A><P><H2 ALIGN=CENTER>Files</H2>
-<A HREF=files/T.htm>[T]</A>
-</UL>
-<HR><H2 ALIGN=CENTER>Functions/Procedures</H2>
-<A HREF=funcs/A.htm>[A]</A>
-<A HREF=funcs/C.htm>[C]</A>
-<A HREF=funcs/E.htm>[E]</A>
-<A HREF=funcs/F.htm>[F]</A>
-<A HREF=funcs/G.htm>[G]</A>
-<A HREF=funcs/I.htm>[I]</A>
-<A HREF=funcs/L.htm>[L]</A>
-<A HREF=funcs/M.htm>[M]</A>
-<A HREF=funcs/N.htm>[N]</A>
-<A HREF=funcs/P.htm>[P]</A>
-<A HREF=funcs/R.htm>[R]</A>
-<A HREF=funcs/S.htm>[S]</A>
-<A HREF=funcs/T.htm>[T]</A>
-<A HREF=funcs/U.htm>[U]</A>
-<A HREF=funcs/V.htm>[V]</A>
-</UL>
-</BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HEAD><TITLE>terminal_interface-curses-forms-field_types.ads</TITLE></HEAD>
-<BODY>
-<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms-field_types.ads </H1></DIV><HR>
-<PRE>
-
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Forms.Field_Types --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
-<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
-<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
-<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
-<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
-<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
-<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
-<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
-<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
-<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
-<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
-<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
-<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
-<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
-<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
-<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
-<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> (<A HREF="mailto:juergen.pfeifer@gmx.net">juergen.pfeifer@gmx.net</A>) 1996 --</EM></FONT>
-<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
-<FONT COLOR=green><EM>-- @Revision: 1.11 @</EM></FONT>
-<FONT COLOR=green><EM>-- Binding Version 00.93</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<b>with</b> Interfaces.C;
-
-<b>package</b> Terminal_Interface.Curses.Forms.Field_Types <b>is</b>
- <b>pragma</b> Preelaborate <A HREF="i-c__ads.htm>0_20">(</A>Terminal_Interface.Curses.Forms.Field_Types);
- <b>use</b> <b>type</b><FONT COLOR=red><A NAME="46_12"> </A></FONT>Interfaces.C.int;
- <b>subtype</b> C_Int <b>is</b> Interfaces.C.int;
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_fieldtype.3x.html">form_fieldtype.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <b>type</b> Field_Type <b>is</b> <b>abstract</b> <b>tagged</b> <b>null</b> <b>record</b>;
- <FONT COLOR=green><EM>-- Abstract base type for all field types. A concrete field type</EM></FONT>
- <FONT COLOR=green><EM>-- is an extension that adds some data elements describing formats or</EM></FONT>
- <FONT COLOR=green><EM>-- boundary values for the type and validation routines.</EM></FONT>
- <FONT COLOR=green><EM>-- For the builtin low-level fieldtypes, the validation routines are</EM></FONT>
- <FONT COLOR=green><EM>-- already defined by the low-level C library.</EM></FONT>
- <FONT COLOR=green><EM>-- The builtin types like Alpha or AlphaNumeric etc. are defined in</EM></FONT>
- <FONT COLOR=green><EM>-- child packages of this package. You may use one of them as example</EM></FONT>
- <FONT COLOR=green><EM>-- how to create you own child packages for low-level field types that</EM></FONT>
- <FONT COLOR=green><EM>-- you may have already written in C.</EM></FONT>
-
- <b>type</b> Field_Type_Access <b>is</b> <b>access</b> <b>all</b> Field_Type'Class;
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_1">|</EM></FONT>
- <b>procedure</b> Set_Field_Type (Fld : <b>in</b> <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field</A>;
- Fld_Type : <b>in</b> Field_Type) <b>is</b> <b>abstract</b>;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_fieldtype.3x.html">set_field_type()</A></EM></FONT>
- <FONT COLOR=green><EM>-- But: we hide the vararg mechanism of the C interface. You always</EM></FONT>
- <FONT COLOR=green><EM>-- have to pass a single Field_Type parameter.</EM></FONT>
-
- <FONT COLOR=green><EM>-- ---------------------------------------------------------------------</EM></FONT>
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_validation.3x.html">form_field_validation.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_2">|</EM></FONT>
- <b>function</b> Get_Type (Fld : <b>in</b> Field) <b>return</b> Field_Type_Access;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_validation.3x.html">field_type()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: field_arg()</EM></FONT>
- <FONT COLOR=green><EM>-- In Ada95 we can combine these. If you try to retrieve the field type</EM></FONT>
- <FONT COLOR=green><EM>-- that is not defined as extension of the abstract tagged type above,</EM></FONT>
- <FONT COLOR=green><EM>-- you will raise a Form_Exception.</EM></FONT>
- <FONT COLOR=green><EM>-- This is not inlined</EM></FONT>
-
- <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
- <FONT COLOR=green><EM>-- | Private Part.</EM></FONT>
- <FONT COLOR=green><EM>-- | Most of this is used by the implementations of the child packages.</EM></FONT>
- <FONT COLOR=green><EM>-- |</EM></FONT>
-<b>private</b>
- <b>type</b> Makearg_Function <b>is</b> <b>access</b>
- <b>function</b> (Args : System.Address) <b>return</b> System.Address;
- <b>pragma</b> Convention (C, Makearg_Function);
-
- <b>type</b> Copyarg_Function <b>is</b> <b>access</b>
- <b>function</b> (Usr : System.Address) <b>return</b> System.Address;
- <b>pragma</b> Convention (C, Copyarg_Function);
-
- <b>type</b> Freearg_Function <b>is</b> <b>access</b>
- <b>procedure</b> (Usr : System.Address);
- <b>pragma</b> Convention (C, Freearg_Function);
-
- <b>type</b> Field_Check_Function<FONT COLOR=red><A NAME="105_29"> </A></FONT><b>is</b> <b>access</b>
- <b>function</b> (Fld : Field; Usr : System.Address) <b>return</b> C_Int;
- <b>pragma</b> Convention (C, Field_Check_Function);
-
- <b>type</b> Char_Check_Function<FONT COLOR=red><A NAME="109_28"> </A></FONT><b>is</b> <b>access</b>
- <b>function</b> (Ch : C_Int<A HREF="terminal_interface-curses-forms-field_types__ads.htm<08_9">;</A> Usr : System.Address) <b>return</b> C_Int;
- <b>pragma</b> Convention (C, Char_Check_Function);
-
- <b>type</b> Choice_Function <b>is</b> <b>access</b>
- <b>function</b> (Fld : Field; Usr : System.Address) <b>return</b> C_Int;
- <b>pragma</b> Convention (C, Choice_Function);
-
- <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
- <FONT COLOR=green><EM>-- | This must be in sync with the FIELDTYPE structure in form.h</EM></FONT>
- <FONT COLOR=green><EM>-- |</EM></FONT>
- <b>type</b> Low_Level_Field_Type <b>is</b>
- <b>record</b>
- Status : <A HREF="interfac__ads.htm>3_9">Interfaces</A>.<A HREF="i-c__ads.htm>0_20">C</A>.<A HREF="i-c__ads.htm#37_9">short</A>;
- <FONT COLOR=red><A NAME="123_10">Ref_Count</A></FONT> : <A HREF="system__ads.htm>3_9">Interfaces</A>.C.long;
- Left, Right : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#92_9">System</A>.Address;
- Makearg : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#96_9">Makearg_Function</A>;
- Copyarg : <A HREF="terminal_interface-curses-forms-field_types__ads.htm<00_9">Copyarg_Function</A>;
- Freearg : <A HREF="terminal_interface-curses-forms-field_types__ads.htm<04_9">Freearg_Function</A>;
- Fcheck : <A HREF="terminal_interface-curses-forms-field_types__ads.htm<08_9">Field_Check_Function</A>;
- Ccheck : <A HREF="terminal_interface-curses-forms-field_types__ads.htm<12_9">Char_Check_Function</A>;
- Next, Prev : Choice_Function;
- <b>end</b> <b>record</b>;
- <b>pragma</b> Convention (C, Low_Level_Field_Type);
- <b>type</b> C_Field_Type <b>is</b> <b>access</b> <b>all</b> Low_Level_Field_Type;
-
- Null_Field_Type : <b>constant</b> C_Field_Type := <b>null</b>;
-
- <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
- <FONT COLOR=green><EM>-- | This four low-level fieldtypes are the ones associated with</EM></FONT>
- <FONT COLOR=green><EM>-- | fieldtypes handled by this binding. Any other low-level fieldtype</EM></FONT>
- <FONT COLOR=green><EM>-- | will result in a Form_Exception is function Get_Type.</EM></FONT>
- <FONT COLOR=green><EM>-- |</EM></FONT>
- M_Generic_Type : C_Field_Type := <b>null</b>;
- M_Generic_Choice : C_Field_Type := <b>null</b>;
- M_Builtin_Router : C_Field_Type := <b>null</b>;
- M_Choice_Router : C_Field_Type := <b>null</b>;
-
- <FONT COLOR=green><EM>-- Two wrapper functions to access those low-level fieldtypes defined</EM></FONT>
- <FONT COLOR=green><EM>-- in this package.</EM></FONT>
- <b>function</b> <A HREF="terminal_interface-curses-forms-field_types__adb.htm>64_13">C_Builtin_Router</A><FONT COLOR=red><A NAME="149_13"></A></FONT> <b>return</b> C_Field_Type;
- <b>function</b> C_Choice_Router <b>return</b> C_Field_Type;
-
- <b>procedure</b> Wrap_Builtin (Fld : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#52_9">Field</A>;
- Typ : Field_Type'Class<A HREF="terminal_interface-curses-forms-field_types__ads.htm<48_13">;</A>
- Cft : C_Field_Type := C_Builtin_Router);
- <FONT COLOR=green><EM>-- This procedure has to be called by the Set_Field_Type implementation</EM></FONT>
- <FONT COLOR=green><EM>-- for builtin low-level fieldtypes to replace it by an Ada95</EM></FONT>
- <FONT COLOR=green><EM>-- conformant Field_Type object.</EM></FONT>
- <FONT COLOR=green><EM>-- The parameter Cft must be C_Builtin_Router for regular low-level</EM></FONT>
- <FONT COLOR=green><EM>-- fieldtypes (like TYP_ALPHA or TYP_ALNUM) and C_Choice_Router for</EM></FONT>
- <FONT COLOR=green><EM>-- low-level fieldtypes witch choice functions (like TYP_ENUM).</EM></FONT>
- <FONT COLOR=green><EM>-- Any other value will raise a Form_Exception.</EM></FONT>
-
- <b>function</b> Make_Arg (Args : System.Address) <b>return</b> System.Address;
- <b>pragma</b> Convention (C, Make_Arg);
- <FONT COLOR=green><EM>-- This is the Makearg_Function for the internal low-level types</EM></FONT>
- <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT>
-
- <b>function</b> Copy_Arg (Usr<A HREF="terminal_interface-curses-forms-field_types__ads.htm<67_13"> </A>: System.Address) <b>return</b> System.Address;
- <b>pragma</b> Convention (C, Copy_Arg);
- <FONT COLOR=green><EM>-- This is the Copyarg_Function for the internal low-level types</EM></FONT>
- <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT>
-
- <b>procedure</b> Free_Arg (Usr : System.Address);
- <b>pragma</b> Convention (C, Free_Arg);
- <FONT COLOR=green><EM>-- This is the Freearg_Function for the internal low-level types</EM></FONT>
- <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT>
-
- <b>function</b> Field_Check_Router (<FONT COLOR=red><A NAME="178_33">Fld</A></FONT> : <A HREF="system__ads.htm>3_9">Field</A>;
- <A HREF="terminal_interface-curses-forms-field_types__ads.htm<77_13"> </A> Usr : System.Address) <b>return</b> C_Int;
- <b>pragma</b> Convention (C, Field_Check_Router);
- <FONT COLOR=green><EM>-- This is the Field_Check_Function for the internal low-level types</EM></FONT>
- <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT>
- <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level validation</EM></FONT>
- <FONT COLOR=green><EM>-- function.</EM></FONT>
-
- <b>function</b> Char_Check_Router (<FONT COLOR=red><A NAME="186_32">Ch</A></FONT> : C_Int;
- <A HREF="terminal_interface-curses-forms-field_types__ads.htm<85_13"> </A> Usr : System.Address) <b>return</b> C_Int;
- <b>pragma</b> Convention (C, Char_Check_Router);
- <FONT COLOR=green><EM>-- This is the Char_Check_Function for the internal low-level types</EM></FONT>
- <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT>
- <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level validation</EM></FONT>
- <FONT COLOR=green><EM>-- function.</EM></FONT>
-
- <b>function</b> Next_Router (<FONT COLOR=red><A NAME="194_26">Fld</A></FONT> : <A HREF="system__ads.htm>3_9">Field</A>;
- <A HREF="terminal_interface-curses-forms-field_types__ads.htm<93_13">Usr</A> : System.Address) <b>return</b> C_Int;
- <b>pragma</b> Convention (C, Next_Router);
- <FONT COLOR=green><EM>-- This is the Choice_Function for the internal low-level types</EM></FONT>
- <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT>
- <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level next_choice</EM></FONT>
- <FONT COLOR=green><EM>-- function.</EM></FONT>
-
- <b>function</b> Prev_Router (<FONT COLOR=red><A NAME="202_26">Fld</A></FONT> : <A HREF="system__ads.htm>3_9">Field</A>;
- <A HREF="terminal_interface-curses-forms-field_types__ads.htm>01_13">Usr</A> : System.Address) <b>return</b> C_Int;
- <b>pragma</b> Convention (C, Prev_Router);
- <FONT COLOR=green><EM>-- This is the Choice_Function for the internal low-level types</EM></FONT>
- <FONT COLOR=green><EM>-- introduced to wrap the low-level types by a Field_Type derived</EM></FONT>
- <FONT COLOR=green><EM>-- type. It routes the call to the corresponding low-level prev_choice</EM></FONT>
- <FONT COLOR=green><EM>-- function.</EM></FONT>
-
- <FONT COLOR=green><EM>-- This is the Argument structure maintained by all low-level field types</EM></FONT>
- <FONT COLOR=green><EM>-- introduced by this binding.</EM></FONT>
- <b>type</b> Argument <b>is</b> <b>record</b>
- <FONT COLOR=red><A NAME="213_7">Typ</A></FONT> : <A HREF="system__ads.htm>3_9">Field_Type_Access</A>; <FONT COLOR=green><EM>-- the Field_Type creating this record</EM></FONT>
- Usr : System.Address; <FONT COLOR=green><EM>-- original arg for builtin low-level types</EM></FONT>
- Cft : C_Field_Type; <FONT COLOR=green><EM>-- the original low-level type</EM></FONT>
- <b>end</b> <b>record</b>;
- <b>type</b> Argument_Access <b>is</b> <b>access</b> <b>all</b> Argument;
-
- <FONT COLOR=green><EM>-- +----------------------------------------------------------------------</EM></FONT>
- <FONT COLOR=green><EM>-- |</EM></FONT>
- <FONT COLOR=green><EM>-- | Some Imports of libform routines to deal with low-level fieldtypes.</EM></FONT>
- <FONT COLOR=green><EM>-- |</EM></FONT>
- <b>function</b> New_Fieldtype (Fcheck : <A HREF="terminal_interface-curses-forms-field_types__ads.htm<08_9">Field_Check_Function</A>;
- Ccheck : Char_Check_Function)
- <b>return</b> C_Field_Type;
- <b>pragma</b> Import (C, New_Fieldtype, "new_fieldtype");
-
- <b>function</b> Set_Fieldtype_Arg (Cft : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#92_9">C_Field_Type</A>;
- Mak : <A HREF="terminal_interface-curses-forms-field_types__ads.htm#96_9">Makearg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm<67_13">Make_Arg</A>'<b>Access</b>;
- Cop : <A HREF="terminal_interface-curses-forms-field_types__ads.htm<00_9">Copyarg_Function</A> := <A HREF="terminal_interface-curses-forms-field_types__ads.htm<72_14">Copy_Arg</A>'<b>Access</b>;
- <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12"> </A> Fre : Freearg_Function := Free_Arg'<b>Access</b>)
- <b>return</b> C_Int;
- <b>pragma</b> Import (C, Set_Fieldtype_Arg, "set_fieldtype_arg");
-
- <b>function</b> Set_Fieldtype_Choice (Cft : C_Field_Type;
- <A HREF="terminal_interface-curses-forms-field_types__ads.htm#46_12"> </A> Next, Prev : Choice_Function)
- <b>return</b> C_Int;
- <b>pragma</b> Import (C, Set_Fieldtype_Choice, "set_fieldtype_choice");
-
-<b>end</b> Terminal_Interface.Curses.Forms.Field_Types;
-</PRE></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HEAD><TITLE>terminal_interface-curses-forms.ads</TITLE></HEAD>
-<BODY>
-<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-forms.ads </H1></DIV><HR>
-<PRE>
-
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Form --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
-<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
-<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
-<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
-<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
-<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
-<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
-<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
-<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
-<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
-<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
-<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
-<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
-<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
-<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
-<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
-<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> (<A HREF="mailto:juergen.pfeifer@gmx.net">juergen.pfeifer@gmx.net</A>) 1996 --</EM></FONT>
-<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
-<FONT COLOR=green><EM>-- @Revision: 1.20 @</EM></FONT>
-<FONT COLOR=green><EM>-- Binding Version 00.93</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- form binding.</EM></FONT>
-<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT>
-<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT>
-<FONT COLOR=green><EM>-- |</EM></FONT>
-<b>with</b> <A HREF="ada__ads.htm<8_9">System</A>;
-<b>with</b> <A HREF="interfac__ads.htm>3_9">Ada</A>.Characters.Latin_1;
-<b>with</b> Interfaces.C;
-
-<b>package</b> Terminal_Interface.Curses.Forms <b>is</b>
- <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Forms);
- <b>pragma</b> Linker_Options ("-lform");
- <b>pragma</b> Linker_Options ("-lAdaCurses");
- <b>pragma</b> Linker_Options ("-lncurses");
-
- Space : Character <b>renames</b> Ada.Characters.Latin_1.Space;
-
- <b>type</b> <FONT COLOR=red><A NAME="58_9">Field</A></FONT> <b>is</b> <b>private</b>;
- <b>type</b> Form <b>is</b> <b>private</b>;
-
- <FONT COLOR=red><A NAME="61_4">Null_Field</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#58_9">Field</A>;
- Null_Form : <b>constant</b> Form;
-
- <b>type</b> Field_Justification <b>is</b> (None,
- Left,
- Center,
- Right);
-
- <b>pragma</b> Warnings (Off);
- <b>type</b> Field_Option_Set <b>is</b>
- <b>record</b>
- Visible : Boolean;
- Active : Boolean;
- Public : Boolean;
- Edit : Boolean;
- Wrap : Boolean;
- Blank : Boolean;
- Auto_Skip : Boolean;
- Null_Ok : Boolean;
- Pass_Ok : Boolean;
- Static : Boolean;
- <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm#69_9">;</A>
- <b>pragma</b> Pack (Field_Option_Set);
- <b>pragma</b> Convention (C, Field_Option_Set);
-
- <b>for</b> Field_Option_Set <b>use</b>
- <b>record</b>
- Visible <b>at</b> 0 <b>range</b> 0 .. 0;
- Active <b>at</b> 0 <b>range</b> 1 .. 1;
- Public <b>at</b> 0 <b>range</b> 2 .. 2;
- Edit <b>at</b> 0 <b>range</b> 3 .. 3;
- Wrap <b>at</b> 0 <b>range</b> 4 .. 4;
- Blank <b>at</b> 0 <b>range</b> 5 .. 5;
- Auto_Skip <b>at</b> 0 <b>range</b> 6 .. 6;
- Null_Ok <b>at</b> 0 <b>range</b> 7 .. 7;
- Pass_Ok <b>at</b> 0 <b>range</b> 8 .. 8;
- Static <b>at</b> 0 <b>range</b> 9 .. 9;
- <b>end</b> <b>record</b>;
- <b>for</b> Field_Option_Set'Size <b>use</b> 32;
- <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT>
- <FONT COLOR=green><EM>-- different on your system.Dnl</EM></FONT>
-
- <b>pragma</b> Warnings (On);
-
- <b>function</b> Default_Field_Options <b>return</b> Field_Option_Set;
- <FONT COLOR=green><EM>-- The initial defaults for the field options.</EM></FONT>
- <b>pragma</b> Inline (Default_Field_Options);
-
- <b>pragma</b> Warnings (Off);
- <b>type</b> Form_Option_Set <b>is</b>
- <b>record</b>
- NL_Overload : Boolean;
- BS_Overload : Boolean;
- <b>end</b> <b>record</b><A HREF="terminal_interface-curses-forms__ads.htm<09_9">;</A>
- <b>pragma</b> Pack (Form_Option_Set);
- <b>pragma</b> Convention (C, Form_Option_Set);
-
- <b>for</b> Form_Option_Set <b>use</b>
- <b>record</b>
- NL_Overload <b>at</b> 0 <b>range</b> 0 .. 0;
- BS_Overload <b>at</b> 0 <b>range</b> 1 .. 1;
- <b>end</b> <b>record</b>;
- <b>for</b> Form_Option_Set'Size <b>use</b> 32;
- <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT>
- <FONT COLOR=green><EM>-- different on your system.Dnl</EM></FONT>
-
- <b>pragma</b> Warnings (On);
-
- <b>function</b> Default_Form_Options <b>return</b> Form_Option_Set;
- <FONT COLOR=green><EM>-- The initial defaults for the form options.</EM></FONT>
- <b>pragma</b> Inline (Default_Form_Options);
-
- <b>type</b> Buffer_Number <b>is</b> <b>new</b> Natural;
-
- <b>type</b> Field_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <b>aliased</b> Field;
- <b>pragma</b> Convention (C, Field_Array);
-
- <b>type</b> Field_Array_Access <b>is</b> <b>access</b> Field_Array;
-
- <b>procedure</b> Free (FA : <b>in</b> <b>out</b> Field_Array_Access;
- Free_Fields : <b>in</b> Boolean := False);
- <FONT COLOR=green><EM>-- Release the memory for an allocated field array</EM></FONT>
- <FONT COLOR=green><EM>-- If Free_Fields is True, call Delete() for all the fields in</EM></FONT>
- <FONT COLOR=green><EM>-- the array.</EM></FONT>
-
- <b>subtype</b> Form_Request_Code <b>is</b> Key_Code <b>range</b> (Key_Max + 1) .. (Key_Max + 57);
-
- <FONT COLOR=green><EM>-- The prefix F_ stands for "Form Request"</EM></FONT>
- F_Next_Page : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 1;
- F_Previous_Page : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 2;
- F_First_Page : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 3;
- F_Last_Page : <b>constant</b> Form_Request_Code := Key_Max + 4;
-
- F_Next_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 5;
- F_Previous_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 6;
- F_First_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 7;
- F_Last_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 8;
- F_Sorted_Next_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 9;
- F_Sorted_Previous_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 10;
- F_Sorted_First_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 11;
- F_Sorted_Last_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 12;
- F_Left_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 13;
- F_Right_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 14;
- F_Up_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 15;
- F_Down_Field : <b>constant</b> Form_Request_Code := Key_Max + 16;
-
- F_Next_Char : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 17;
- F_Previous_Char : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 18;
- F_Next_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 19;
- F_Previous_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 20;
- F_Next_Word : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 21;
- F_Previous_Word : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 22;
- F_Begin_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 23;
- F_End_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 24;
- F_Begin_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 25;
- F_End_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 26;
- F_Left_Char : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 27;
- F_Right_Char : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 28;
- F_Up_Char : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 29;
- F_Down_Char : <b>constant</b> Form_Request_Code := Key_Max + 30;
-
- F_New_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 31;
- F_Insert_Char : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 32;
- F_Insert_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 33;
- F_Delete_Char : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 34;
- F_Delete_Previous : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 35;
- F_Delete_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 36;
- F_Delete_Word : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 37;
- F_Clear_EOL : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 38;
- F_Clear_EOF : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 39;
- F_Clear_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 40;
- F_Overlay_Mode : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 41;
- F_Insert_Mode : <b>constant</b> Form_Request_Code := Key_Max + 42;
-
- <FONT COLOR=green><EM>-- Vertical Scrolling</EM></FONT>
- F_ScrollForward_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 43;
- F_ScrollBackward_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 44;
- F_ScrollForward_Page : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 45;
- F_ScrollBackward_Page : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 46;
- F_ScrollForward_HalfPage : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 47;
- F_ScrollBackward_HalfPage : <b>constant</b> Form_Request_Code := Key_Max + 48;
-
- <FONT COLOR=green><EM>-- Horizontal Scrolling</EM></FONT>
- F_HScrollForward_Char : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 49;
- F_HScrollBackward_Char : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 50;
- F_HScrollForward_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 51;
- F_HScrollBackward_Line : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 52;
- F_HScrollForward_HalfLine : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 53;
- F_HScrollBackward_HalfLine : <b>constant</b> Form_Request_Code := Key_Max + 54;
-
- F_Validate_Field : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 55;
- F_Next_Choice : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> := Key_Max + 56;
- F_Previous_Choice : <b>constant</b> Form_Request_Code := Key_Max + 57;
-
- <FONT COLOR=green><EM>-- For those who like the old 'C' style request names</EM></FONT>
- REQ_NEXT_PAGE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Next_Page;
- REQ_PREV_PAGE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Previous_Page;
- REQ_FIRST_PAGE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_First_Page;
- REQ_LAST_PAGE : Form_Request_Code <b>renames</b> F_Last_Page;
-
- REQ_NEXT_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Next_Field;
- REQ_PREV_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Previous_Field;
- REQ_FIRST_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_First_Field;
- REQ_LAST_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Last_Field;
- REQ_SNEXT_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Sorted_Next_Field;
- REQ_SPREV_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Sorted_Previous_Field;
- REQ_SFIRST_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Sorted_First_Field;
- REQ_SLAST_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Sorted_Last_Field;
- REQ_LEFT_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Left_Field;
- REQ_RIGHT_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Right_Field;
- REQ_UP_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Up_Field;
- REQ_DOWN_FIELD : Form_Request_Code <b>renames</b> F_Down_Field;
-
- REQ_NEXT_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Next_Char;
- REQ_PREV_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Previous_Char;
- REQ_NEXT_LINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Next_Line;
- REQ_PREV_LINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Previous_Line;
- REQ_NEXT_WORD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Next_Word;
- REQ_PREV_WORD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Previous_Word;
- REQ_BEG_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Begin_Field;
- REQ_END_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_End_Field;
- REQ_BEG_LINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Begin_Line;
- REQ_END_LINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_End_Line;
- REQ_LEFT_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Left_Char;
- REQ_RIGHT_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Right_Char;
- REQ_UP_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Up_Char;
- REQ_DOWN_CHAR : Form_Request_Code <b>renames</b> F_Down_Char;
-
- REQ_NEW_LINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_New_Line;
- REQ_INS_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Insert_Char;
- REQ_INS_LINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Insert_Line;
- REQ_DEL_CHAR : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Delete_Char;
- REQ_DEL_PREV : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Delete_Previous;
- REQ_DEL_LINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Delete_Line;
- REQ_DEL_WORD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Delete_Word;
- REQ_CLR_EOL : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Clear_EOL;
- REQ_CLR_EOF : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Clear_EOF;
- REQ_CLR_FIELD : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Clear_Field;
- REQ_OVL_MODE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Overlay_Mode;
- REQ_INS_MODE : Form_Request_Code <b>renames</b> F_Insert_Mode;
-
- REQ_SCR_FLINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_ScrollForward_Line;
- REQ_SCR_BLINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_ScrollBackward_Line;
- REQ_SCR_FPAGE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_ScrollForward_Page;
- REQ_SCR_BPAGE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_ScrollBackward_Page;
- REQ_SCR_FHPAGE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_ScrollForward_HalfPage;
- REQ_SCR_BHPAGE : Form_Request_Code <b>renames</b> F_ScrollBackward_HalfPage;
-
- REQ_SCR_FCHAR : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_HScrollForward_Char;
- REQ_SCR_BCHAR : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_HScrollBackward_Char;
- REQ_SCR_HFLINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_HScrollForward_Line;
- REQ_SCR_HBLINE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_HScrollBackward_Line;
- REQ_SCR_HFHALF : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_HScrollForward_HalfLine;
- REQ_SCR_HBHALF : Form_Request_Code <b>renames</b> F_HScrollBackward_HalfLine;
-
- REQ_VALIDATION : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Validate_Field;
- REQ_NEXT_CHOICE : <A HREF="terminal_interface-curses-forms__ads.htm<45_12">Form_Request_Code</A> <b>renames</b> F_Next_Choice;
- REQ_PREV_CHOICE : Form_Request_Code <b>renames</b> F_Previous_Choice;
-
-
- <b>procedure</b> Request_Name (Key : <b>in</b> Form_Request_Code;
- Name : <b>out</b> String);
-
- <b>function</b> Request_Name (Key : Form_Request_Code) <b>return</b> String;
- <FONT COLOR=green><EM>-- Same as function</EM></FONT>
- <b>pragma</b> Inline (Request_Name);
-
- <FONT COLOR=green><EM>------------------</EM></FONT>
- <FONT COLOR=green><EM>-- Exceptions --</EM></FONT>
- <FONT COLOR=green><EM>------------------</EM></FONT>
- Form_Exception : <b>exception</b>;
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_new.3x.html">form_field_new.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_1">|</EM></FONT>
- <b>function</b> Create (Height : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Width : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>;
- Top : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Left : Column_Position;
- Off_Screen : <A HREF="terminal_interface-curses-forms__ads.htm<32_9">Natural</A> := 0;
- More_Buffers : Buffer_Number := Buffer_Number'First)
- <b>return</b> Field;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT>
- <FONT COLOR=green><EM>-- An overloaded Create is defined later. Pragma Inline appears there.</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_2">|</EM></FONT>
- <b>function</b> New_Field (Height : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Width : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>;
- Top : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Left : Column_Position;
- Off_Screen : <A HREF="terminal_interface-curses-forms__ads.htm<32_9">Natural</A> := 0;
- More_Buffers : Buffer_Number := Buffer_Number'First)
- <b>return</b> Field <b>renames</b> Create;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">new_field()</A></EM></FONT>
- <b>pragma</b> Inline (New_Field);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_3">|</EM></FONT>
- <b>procedure</b> Delete (Fld : <b>in</b> <b>out</b> Field);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">free_field()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Reset Fld to Null_Field</EM></FONT>
- <FONT COLOR=green><EM>-- An overloaded Delete is defined later. Pragma Inline appears there.</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_4">|</EM></FONT>
- <b>function</b> Duplicate (Fld : <A HREF="terminal_interface-curses__ads.htm#60_9">Field</A>;
- Top : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Left : Column_Position) <b>return</b> Field;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">dup_field()</A></EM></FONT>
- <b>pragma</b> Inline (Duplicate);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_5">|</EM></FONT>
- <b>function</b> Link (Fld : <A HREF="terminal_interface-curses__ads.htm#60_9">Field</A>;
- Top : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Left : Column_Position) <b>return</b> Field;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_new.3x.html">link_field()</A></EM></FONT>
- <b>pragma</b> Inline (Link);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_just.3x.html">form_field_just.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_6">|</EM></FONT>
- <b>procedure</b> Set_Justification (Fld : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#63_9">Field</A>;
- Just : <b>in</b> Field_Justification := None);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_just.3x.html">set_field_just()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Justification);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_7">|</EM></FONT>
- <b>function</b> Get_Justification (Fld : Field) <b>return</b> Field_Justification;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_just.3x.html">field_just()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Justification);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_buffer.3x.html">form_field_buffer.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_8">|</EM></FONT>
- <b>procedure</b> Set_Buffer
- (Fld : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm<32_9">Field</A>;
- Buffer : <b>in</b> Buffer_Number := Buffer_Number'First;
- Str : <b>in</b> String);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_buffer()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Not inlined</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_9">|</EM></FONT>
- <b>procedure</b> Get_Buffer
- (Fld : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm<32_9">Field</A>;
- Buffer : <b>in</b> Buffer_Number := Buffer_Number'First;
- Str : <b>out</b> String);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT>
-
- <b>function</b> Get_Buffer
- (Fld : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm<32_9">Field</A>;
- Buffer : <b>in</b> Buffer_Number := Buffer_Number'First) <b>return</b> String;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_buffer()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Same but as function</EM></FONT>
- <b>pragma</b> Inline (Get_Buffer);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_10">|</EM></FONT>
- <b>procedure</b> Set_Status (Fld : <b>in</b> Field;
- Status : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_status()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Status);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_11">|</EM></FONT>
- <b>function</b> Changed (Fld : Field) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">field_status()</A></EM></FONT>
- <b>pragma</b> Inline (Changed);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_12">|</EM></FONT>
- <b>procedure</b> Set_Maximum_Size (Fld : <b>in</b> Field;
- Max : <b>in</b> Natural := 0);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_buffer.3x.html">set_field_max()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Maximum_Size);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_opts.3x.html">form_field_opts.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_13">|</EM></FONT>
- <b>procedure</b> Set_Options (Fld : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#69_9">Field</A>;
- Options : <b>in</b> Field_Option_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">set_field_opts()</A></EM></FONT>
- <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_14">|</EM></FONT>
- <b>procedure</b> Switch_Options (Fld : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#69_9">Field</A>;
- Options : <b>in</b> Field_Option_Set;
- On : Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts_on()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: field_opts_off()</EM></FONT>
- <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_15">|</EM></FONT>
- <b>procedure</b> Get_Options (Fld : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#69_9">Field</A>;
- Options : <b>out</b> Field_Option_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_16">|</EM></FONT>
- <b>function</b> Get_Options (Fld : Field := Null_Field)
- <b>return</b> Field_Option_Set;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_opts.3x.html">field_opts()</A></EM></FONT>
- <FONT COLOR=green><EM>-- An overloaded version is defined later. Pragma Inline appears there</EM></FONT>
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_attributes.3x.html">form_field_attributes.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_17">|</EM></FONT>
- <b>procedure</b> Set_Foreground
- (Fld : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
- Fore : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
- Color : <b>in</b> Color_Pair := Color_Pair'First);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_fore()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Foreground);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_18">|</EM></FONT>
- <b>procedure</b> Foreground (Fld : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
- Fore : <b>out</b> Character_Attribute_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_19">|</EM></FONT>
- <b>procedure</b> Foreground (Fld : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
- Fore : <b>out</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A>;
- Color : <b>out</b> Color_Pair);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_fore()</A></EM></FONT>
- <b>pragma</b> Inline (Foreground);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_20">|</EM></FONT>
- <b>procedure</b> Set_Background
- (Fld : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
- Back : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
- Color : <b>in</b> Color_Pair := Color_Pair'First);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_back()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Background);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_21">|</EM></FONT>
- <b>procedure</b> Background (Fld : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
- Back : <b>out</b> Character_Attribute_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_22">|</EM></FONT>
- <b>procedure</b> Background (Fld : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Field</A>;
- Back : <b>out</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A>;
- Color : <b>out</b> Color_Pair);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_back()</A></EM></FONT>
- <b>pragma</b> Inline (Background);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_23">|</EM></FONT>
- <b>procedure</b> Set_Pad_Character (Fld : <b>in</b> Field;
- Pad : <b>in</b> Character := Space);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">set_field_pad()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Pad_Character);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_24">|</EM></FONT>
- <b>procedure</b> Pad_Character (Fld : <b>in</b> Field;
- Pad : <b>out</b> Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_attributes.3x.html">field_pad()</A></EM></FONT>
- <b>pragma</b> Inline (Pad_Character);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field_info.3x.html">form_field_info.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_25">|</EM></FONT>
- <b>procedure</b> Info (Fld : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Field</A>;
- Lines : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Columns : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>;
- First_Row : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- First_Column : <b>out</b> Column_Position;
- Off_Screen : <b>out</b> <A HREF="terminal_interface-curses-forms__ads.htm<32_9">Natural</A>;
- Additional_Buffers : <b>out</b> Buffer_Number);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_info.3x.html">field_info()</A></EM></FONT>
- <b>pragma</b> Inline (Info);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_26">|</EM></FONT>
- <b>procedure</b> Dynamic_Info (Fld : <b>in</b> Field;
- Lines : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Columns : <b>out</b> Column_Count;
- Max : <b>out</b> Natural);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field_info.3x.html">dynamic_field_info()</A></EM></FONT>
- <b>pragma</b> Inline (Dynamic_Info);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_win.3x.html">form_win.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_27">|</EM></FONT>
- <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="510_26">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Form</A>;
- Win : <b>in</b> Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">set_form_win()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_28">|</EM></FONT>
- <b>function</b> Get_Window (Frm : Form) <b>return</b> Window;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">form_win()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_29">|</EM></FONT>
- <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="521_30">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Form</A>;
- Win : <b>in</b> Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">set_form_sub()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Sub_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_30">|</EM></FONT>
- <b>function</b> Get_Sub_Window (Frm : Form) <b>return</b> Window;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">form_sub()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Sub_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_31">|</EM></FONT>
- <b>procedure</b> Scale (Frm : <b>in</b> Form;
- Lines : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Columns : <b>out</b> Column_Count);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_win.3x.html">scale_form()</A></EM></FONT>
- <b>pragma</b> Inline (Scale);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_hook.3x.html">form_hook.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <b>type</b> Form_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Frm : <b>in</b> Form);
- <b>pragma</b> Convention (C, Form_Hook_Function);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_32">|</EM></FONT>
- <b>procedure</b> Set_Field_Init_Hook (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#541_9">Form</A>;
- Proc : <b>in</b> Form_Hook_Function);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_field_init()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Field_Init_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_33">|</EM></FONT>
- <b>procedure</b> Set_Field_Term_Hook (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#541_9">Form</A>;
- Proc : <b>in</b> Form_Hook_Function);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_field_term()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Field_Term_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_34">|</EM></FONT>
- <b>procedure</b> Set_Form_Init_Hook (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#541_9">Form</A>;
- Proc : <b>in</b> Form_Hook_Function);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_form_init()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Form_Init_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_35">|</EM></FONT>
- <b>procedure</b> Set_Form_Term_Hook (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#541_9">Form</A>;
- Proc : <b>in</b> Form_Hook_Function);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">set_form_term()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Form_Term_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_36">|</EM></FONT>
- <b>function</b> Get_Field_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">field_init()</A></EM></FONT>
- <b>pragma</b> Import (C, Get_Field_Init_Hook, "field_init");
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_37">|</EM></FONT>
- <b>function</b> Get_Field_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">field_term()</A></EM></FONT>
- <b>pragma</b> Import (C, Get_Field_Term_Hook, "field_term");
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_38">|</EM></FONT>
- <b>function</b> Get_Form_Init_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">form_init()</A></EM></FONT>
- <b>pragma</b> Import (C, Get_Form_Init_Hook, "form_init");
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_39">|</EM></FONT>
- <b>function</b> Get_Form_Term_Hook (Frm : Form) <b>return</b> Form_Hook_Function;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_hook.3x.html">form_term()</A></EM></FONT>
- <b>pragma</b> Import (C, Get_Form_Term_Hook, "form_term");
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_field.3x.html">form_field.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_40">|</EM></FONT>
- <b>procedure</b> Redefine (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm<37_9">Form</A>;
- Flds : <b>in</b> Field_Array_Access);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT>
- <b>pragma</b> Inline (Redefine);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_41">|</EM></FONT>
- <b>procedure</b> Set_Fields (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm<37_9">Form</A>;
- Flds : <b>in</b> Field_Array_Access) <b>renames</b> Redefine;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">set_form_fields()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Fields);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_42">|</EM></FONT>
- <b>function</b> Fields (Frm : Form;
- Index : Positive) <b>return</b> Field;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">form_fields()</A></EM></FONT>
- <b>pragma</b> Inline (Fields);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_43">|</EM></FONT>
- <b>function</b> Field_Count (Frm : Form) <b>return</b> Natural;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">field_count()</A></EM></FONT>
- <b>pragma</b> Inline (Field_Count);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_44">|</EM></FONT>
- <b>procedure</b> Move (Fld : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Field</A>;
- Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Column : <b>in</b> Column_Position);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_field.3x.html">move_field()</A></EM></FONT>
- <b>pragma</b> Inline (Move);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_new.3x.html">form_new.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_45">|</EM></FONT>
- <b>function</b> Create (Fields : Field_Array_Access) <b>return</b> Form;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT>
- <b>pragma</b> Inline (Create);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_46">|</EM></FONT>
- <b>function</b> New_Form (Fields : Field_Array_Access) <b>return</b> Form
- <b>renames</b> Create;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">new_form()</A></EM></FONT>
- <b>pragma</b> Inline (New_Form);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_47">|</EM></FONT>
- <b>procedure</b> Delete (Frm : <b>in</b> <b>out</b> Form);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new.3x.html">free_form()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Reset Frm to Null_Form</EM></FONT>
- <b>pragma</b> Inline (Delete);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_opts.3x.html">form_opts.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_48">|</EM></FONT>
- <b>procedure</b> Set_Options (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm<09_9">Form</A>;
- Options : <b>in</b> Form_Option_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">set_form_opts()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Options);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_49">|</EM></FONT>
- <b>procedure</b> Switch_Options (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm<09_9">Form</A>;
- Options : <b>in</b> Form_Option_Set;
- On : Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts_on()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: form_opts_off()</EM></FONT>
- <b>pragma</b> Inline (Switch_Options);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_50">|</EM></FONT>
- <b>procedure</b> Get_Options (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm<09_9">Form</A>;
- Options : <b>out</b> Form_Option_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_51">|</EM></FONT>
- <b>function</b> Get_Options (Frm : Form := Null_Form) <b>return</b> Form_Option_Set;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_opts.3x.html">form_opts()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Options);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_post.3x.html">form_post.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_52">|</EM></FONT>
- <b>procedure</b> Post (Frm : <b>in</b> Form;
- Post : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_post.3x.html">post_form()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: unpost_form()</EM></FONT>
- <b>pragma</b> Inline (Post);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_cursor.3x.html">form_cursor.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_53">|</EM></FONT>
- <b>procedure</b> Position_Cursor (Frm : Form);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_cursor.3x.html">pos_form_cursor()</A></EM></FONT>
- <b>pragma</b> Inline (Position_Cursor);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_data.3x.html">form_data.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_54">|</EM></FONT>
- <b>function</b> Data_Ahead (Frm : Form) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_data.3x.html">data_ahead()</A></EM></FONT>
- <b>pragma</b> Inline (Data_Ahead);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_55">|</EM></FONT>
- <b>function</b> Data_Behind (Frm : Form) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_data.3x.html">data_behind()</A></EM></FONT>
- <b>pragma</b> Inline (Data_Behind);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_driver.3x.html">form_driver.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="710_27">Form_Ok</A></FONT>,
- <FONT COLOR=red><A NAME="711_27">Request_Denied</A></FONT>,
- <FONT COLOR=red><A NAME="712_27">Unknown_Request</A></FONT>,
- Invalid_Field);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_56">|</EM></FONT>
- <b>function</b> Driver (Frm : <A HREF="terminal_interface-curses__ads.htm#68_9">Form</A>;
- Key : Key_Code) <b>return</b> Driver_Result;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_driver.3x.html">form_driver()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Driver not inlined</EM></FONT>
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_page.3x.html">form_page.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <b>type</b> Page_Number <b>is</b> <b>new</b> Natural;
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_57">|</EM></FONT>
- <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="728_27">Frm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#57_9">Form</A>;
- Fld : <b>in</b> Field);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">set_current_field()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Current);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_58">|</EM></FONT>
- <b>function</b> Current (Frm : <b>in</b> Form) <b>return</b> Field;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">current_field()</A></EM></FONT>
- <b>pragma</b> Inline (Current);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_59">|</EM></FONT>
- <b>procedure</b> Set_Page (Frm : <b>in</b> <A HREF="terminal_interface-curses-forms__ads.htm#724_9">Form</A>;
- Page : <b>in</b> Page_Number := Page_Number'First);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">set_form_page()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Page);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_60">|</EM></FONT>
- <b>function</b> Page (Frm : Form) <b>return</b> Page_Number;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">form_page()</A></EM></FONT>
- <b>pragma</b> Inline (Page);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_61">|</EM></FONT>
- <b>function</b> Get_Index (Fld : Field) <b>return</b> Positive;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_page.3x.html">field_index()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Please note that in this binding we start the numbering of fields</EM></FONT>
- <FONT COLOR=green><EM>-- with 1. So this is number is one more than you get from the low</EM></FONT>
- <FONT COLOR=green><EM>-- level call.</EM></FONT>
- <b>pragma</b> Inline (Get_Index);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/form_new_page.3x.html">form_new_page.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_62">|</EM></FONT>
- <b>procedure</b> Set_New_Page (Fld : <b>in</b> Field;
- New_Page : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new_page.3x.html">set_new_page()</A></EM></FONT>
- <b>pragma</b> Inline (Set_New_Page);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_63">|</EM></FONT>
- <b>function</b> Is_New_Page (Fld : Field) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/form_new_page.3x.html">new_page()</A></EM></FONT>
- <b>pragma</b> Inline (Is_New_Page);
-
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<b>private</b>
- <b>type</b> <A HREF="terminal_interface-curses-forms__ads.htm#58_9">Field</A> <b>is</b> <b>new</b> <A HREF="system__ads.htm>3_9">System</A>.<A HREF="s-stoele__ads.htm>2_16">Storage_Elements</A>.<A HREF="s-stoele__ads.htm#70_9">Integer_Address</A>;
- <b>type</b> Form <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
-
- <A HREF="terminal_interface-curses-forms__ads.htm#61_4">Null_Field</A> : <b>constant</b> <A HREF="terminal_interface-curses-forms__ads.htm#58_9">Field</A> := 0;
- Null_Form : <b>constant</b> Form := 0;
-
-<b>end</b> Terminal_Interface.Curses.Forms;
-</PRE></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HEAD><TITLE>terminal_interface-curses-menus.ads</TITLE></HEAD>
-<BODY>
-<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus.ads </H1></DIV><HR>
-<PRE>
-
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menu --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
-<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
-<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
-<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
-<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
-<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
-<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
-<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
-<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
-<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
-<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
-<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
-<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
-<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
-<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
-<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
-<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> (<A HREF="mailto:juergen.pfeifer@gmx.net">juergen.pfeifer@gmx.net</A>) 1996 --</EM></FONT>
-<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
-<FONT COLOR=green><EM>-- @Revision: 1.19 @</EM></FONT>
-<FONT COLOR=green><EM>-- Binding Version 00.93</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- menu binding.</EM></FONT>
-<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT>
-<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT>
-<FONT COLOR=green><EM>-- |</EM></FONT>
-<b>with</b> <A HREF="interfac__ads.htm>3_9">System</A>;
-<b>with</b> <A HREF="ada__ads.htm<8_9">Interfaces</A>.C;
-<b>with</b> Ada.Characters.Latin_1;
-
-<b>package</b> Terminal_Interface.Curses.Menus <b>is</b>
- <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Menus);
- <b>pragma</b> Linker_Options ("-lmenu");
- <b>pragma</b> Linker_Options ("-lAdaCurses");
- <b>pragma</b> Linker_Options ("-lncurses");
-
- Space : Character <b>renames</b> Ada.Characters.Latin_1.Space;
-
- <b>type</b> <FONT COLOR=red><A NAME="58_9">Item</A></FONT> <b>is</b> <b>private</b>;
- <b>type</b> Menu <b>is</b> <b>private</b>;
-
- <FONT COLOR=green><EM>---------------------------</EM></FONT>
- <FONT COLOR=green><EM>-- Interface constants --</EM></FONT>
- <FONT COLOR=green><EM>---------------------------</EM></FONT>
- <FONT COLOR=red><A NAME="64_4">Null_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#58_9">Item</A>;
- Null_Menu : <b>constant</b> Menu;
-
- <b>subtype</b> Menu_Request_Code <b>is</b> Key_Code
- <b>range</b> (Key_Max + 1) .. (Key_Max + 17);
-
- <FONT COLOR=green><EM>-- The prefix M_ stands for "Menu Request"</EM></FONT>
- M_Left_Item : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 1;
- M_Right_Item : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 2;
- M_Up_Item : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 3;
- M_Down_Item : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 4;
- M_ScrollUp_Line : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 5;
- M_ScrollDown_Line : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 6;
- M_ScrollDown_Page : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 7;
- M_ScrollUp_Page : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 8;
- M_First_Item : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 9;
- M_Last_Item : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 10;
- M_Next_Item : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 11;
- M_Previous_Item : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 12;
- M_Toggle_Item : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 13;
- M_Clear_Pattern : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 14;
- M_Back_Pattern : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 15;
- M_Next_Match : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> := Key_Max + 16;
- M_Previous_Match : <b>constant</b> Menu_Request_Code := Key_Max + 17;
-
- <FONT COLOR=green><EM>-- For those who like the old 'C' names for the request codes</EM></FONT>
- REQ_LEFT_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Left_Item;
- REQ_RIGHT_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Right_Item;
- REQ_UP_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Up_Item;
- REQ_DOWN_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Down_Item;
- REQ_SCR_ULINE : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_ScrollUp_Line;
- REQ_SCR_DLINE : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_ScrollDown_Line;
- REQ_SCR_DPAGE : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_ScrollDown_Page;
- REQ_SCR_UPAGE : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_ScrollUp_Page;
- REQ_FIRST_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_First_Item;
- REQ_LAST_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Last_Item;
- REQ_NEXT_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Next_Item;
- REQ_PREV_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Previous_Item;
- REQ_TOGGLE_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Toggle_Item;
- REQ_CLEAR_PATTERN : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Clear_Pattern;
- REQ_BACK_PATTERN : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Back_Pattern;
- REQ_NEXT_MATCH : <A HREF="terminal_interface-curses-menus__ads.htm#66_12">Menu_Request_Code</A> <b>renames</b> M_Next_Match;
- REQ_PREV_MATCH : Menu_Request_Code <b>renames</b> M_Previous_Match;
-
- <b>procedure</b> Request_Name (Key : <b>in</b> Menu_Request_Code;
- Name : <b>out</b> String);
-
- <b>function</b> Request_Name (Key : Menu_Request_Code) <b>return</b> String;
- <FONT COLOR=green><EM>-- Same as function</EM></FONT>
-
- <FONT COLOR=green><EM>------------------</EM></FONT>
- <FONT COLOR=green><EM>-- Exceptions --</EM></FONT>
- <FONT COLOR=green><EM>------------------</EM></FONT>
-
- Menu_Exception : <b>exception</b>;
- <FONT COLOR=green><EM>--</EM></FONT>
- <FONT COLOR=green><EM>-- Menu options</EM></FONT>
- <FONT COLOR=green><EM>--</EM></FONT>
- <b>pragma</b> Warnings (Off);
- <b>type</b> Menu_Option_Set <b>is</b>
- <b>record</b>
- One_Valued : Boolean;
- Show_Descriptions : Boolean;
- Row_Major_Order : Boolean;
- Ignore_Case : Boolean;
- Show_Matches : Boolean;
- Non_Cyclic : Boolean;
- <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm<22_9">;</A>
- <b>pragma</b> Pack (Menu_Option_Set);
- <b>pragma</b> Convention (C, Menu_Option_Set);
-
- <b>for</b> Menu_Option_Set <b>use</b>
- <b>record</b>
- One_Valued <b>at</b> 0 <b>range</b> 0 .. 0;
- Show_Descriptions <b>at</b> 0 <b>range</b> 1 .. 1;
- Row_Major_Order <b>at</b> 0 <b>range</b> 2 .. 2;
- Ignore_Case <b>at</b> 0 <b>range</b> 3 .. 3;
- Show_Matches <b>at</b> 0 <b>range</b> 4 .. 4;
- Non_Cyclic <b>at</b> 0 <b>range</b> 5 .. 5;
- <b>end</b> <b>record</b>;
- <b>for</b> Menu_Option_Set'Size <b>use</b> 32;
- <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT>
- <FONT COLOR=green><EM>-- different on your system.</EM></FONT>
- <b>pragma</b> Warnings (On);
-
- <b>function</b> Default_Menu_Options <b>return</b> Menu_Option_Set;
- <FONT COLOR=green><EM>-- Initial default options for a menu.</EM></FONT>
- <b>pragma</b> Inline (Default_Menu_Options);
- <FONT COLOR=green><EM>--</EM></FONT>
- <FONT COLOR=green><EM>-- Item options</EM></FONT>
- <FONT COLOR=green><EM>--</EM></FONT>
- <b>pragma</b> Warnings (Off);
- <b>type</b> Item_Option_Set <b>is</b>
- <b>record</b>
- Selectable : Boolean;
- <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm<55_9">;</A>
- <b>pragma</b> Pack (Item_Option_Set);
- <b>pragma</b> Convention (C, Item_Option_Set);
-
- <b>for</b> Item_Option_Set <b>use</b>
- <b>record</b>
- Selectable <b>at</b> 0 <b>range</b> 0 .. 0;
- <b>end</b> <b>record</b>;
- <b>for</b> Item_Option_Set'Size <b>use</b> 32;
- <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT>
- <FONT COLOR=green><EM>-- different on your system.</EM></FONT>
- <b>pragma</b> Warnings (On);
-
- <b>function</b> Default_Item_Options <b>return</b> Item_Option_Set;
- <FONT COLOR=green><EM>-- Initial default options for an item.</EM></FONT>
- <b>pragma</b> Inline (Default_Item_Options);
-
- <FONT COLOR=green><EM>--</EM></FONT>
- <FONT COLOR=green><EM>-- Item Array</EM></FONT>
- <FONT COLOR=green><EM>--</EM></FONT>
- <b>type</b> Item_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <b>aliased</b> Item;
- <b>pragma</b> Convention (C, Item_Array);
-
- <b>type</b> Item_Array_Access <b>is</b> <b>access</b> Item_Array;
-
- <b>procedure</b> Free (IA : <b>in</b> <b>out</b> Item_Array_Access;
- Free_Items : Boolean := False);
- <FONT COLOR=green><EM>-- Release the memory for an allocated item array</EM></FONT>
- <FONT COLOR=green><EM>-- If Free_Items is True, call Delete() for all the items in</EM></FONT>
- <FONT COLOR=green><EM>-- the array.</EM></FONT>
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_1">|</EM></FONT>
- <b>function</b> Create (Name : String;
- Description : String := "") <b>return</b> Item;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Not inlined.</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_2">|</EM></FONT>
- <b>function</b> New_Item (Name : String;
- <A HREF="terminal_interface-curses-menus__ads.htm<94_13"> </A> Description : String := "") <b>return</b> Item
- <b>renames</b> Create;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_3">|</EM></FONT>
- <b>procedure</b> Delete (Itm : <b>in</b> <b>out</b> Item);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">free_item()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Resets Itm to Null_Item</EM></FONT>
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_value.3x.html">mitem_value.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_4">|</EM></FONT>
- <b>procedure</b> Set_Value (Itm : <b>in</b> Item;
- Value : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_value.3x.html">set_item_value()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Value);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_5">|</EM></FONT>
- <b>function</b> Value (Itm : Item) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_value.3x.html">item_value()</A></EM></FONT>
- <b>pragma</b> Inline (Value);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_visible.3x.html">mitem_visible.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_6">|</EM></FONT>
- <b>function</b> Visible (Itm : Item) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_visible.3x.html">item_visible()</A></EM></FONT>
- <b>pragma</b> Inline (Visible);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_7">|</EM></FONT>
- <b>procedure</b> Set_Options (Itm : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<55_9">Item</A>;
- Options : <b>in</b> Item_Option_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">set_item_opts()</A></EM></FONT>
- <FONT COLOR=green><EM>-- An overloaded Set_Options is defined later. Pragma Inline appears there</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_8">|</EM></FONT>
- <b>procedure</b> Switch_Options (Itm : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<55_9">Item</A>;
- Options : <b>in</b> Item_Option_Set;
- On : Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts_on()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: item_opts_off()</EM></FONT>
- <FONT COLOR=green><EM>-- An overloaded Switch_Options is defined later.</EM></FONT>
- <FONT COLOR=green><EM>-- Pragma Inline appears there</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_9">|</EM></FONT>
- <b>procedure</b> Get_Options (Itm : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<55_9">Item</A>;
- Options : <b>out</b> Item_Option_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_10">|</EM></FONT>
- <b>function</b> Get_Options (Itm : Item := Null_Item) <b>return</b> Item_Option_Set;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT>
- <FONT COLOR=green><EM>-- An overloaded Get_Options is defined later. Pragma Inline appears there</EM></FONT>
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_name.3x.html">mitem_name.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_11">|</EM></FONT>
- <b>procedure</b> Name (Itm : <b>in</b> Item;
- Name : <b>out</b> String);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT>
- <b>function</b> Name (Itm : Item) <b>return</b> String;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Implemented as function</EM></FONT>
- <b>pragma</b> Inline (Name);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_12">|</EM></FONT>
- <b>procedure</b> Description (Itm : <b>in</b> Item;
- Description : <b>out</b> String);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT>
-
- <b>function</b> Description (Itm : Item) <b>return</b> String;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT>
- <FONT COLOR=green><EM>-- Implemented as function</EM></FONT>
- <b>pragma</b> Inline (Description);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_13">|</EM></FONT>
- <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="292_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#57_9">Menu</A>;
- Itm : <b>in</b> Item);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">set_current_item()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Current);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_14">|</EM></FONT>
- <b>function</b> Current (Men : Menu) <b>return</b> Item;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">current_item()</A></EM></FONT>
- <b>pragma</b> Inline (Current);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_15">|</EM></FONT>
- <b>procedure</b> Set_Top_Row (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Menu</A>;
- Line : <b>in</b> Line_Position);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">set_top_row()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Top_Row);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_16">|</EM></FONT>
- <b>function</b> Top_Row (Men : Menu) <b>return</b> Line_Position;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">top_row()</A></EM></FONT>
- <b>pragma</b> Inline (Top_Row);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_17">|</EM></FONT>
- <b>function</b> Get_Index (Itm : Item) <b>return</b> Positive;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">item_index()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Please note that in this binding we start the numbering of items</EM></FONT>
- <FONT COLOR=green><EM>-- with 1. So this is number is one more than you get from the low</EM></FONT>
- <FONT COLOR=green><EM>-- level call.</EM></FONT>
- <b>pragma</b> Inline (Get_Index);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_post.3x.html">menu_post.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_18">|</EM></FONT>
- <b>procedure</b> Post (Men : <b>in</b> Menu;
- Post : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_post.3x.html">post_menu()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: unpost_menu()</EM></FONT>
- <b>pragma</b> Inline (Post);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_19">|</EM></FONT>
- <b>procedure</b> Set_Options (Men : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<22_9">Menu</A>;
- Options : <b>in</b> Menu_Option_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">set_menu_opts()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Options);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_20">|</EM></FONT>
- <b>procedure</b> Switch_Options (Men : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<22_9">Menu</A>;
- Options : <b>in</b> Menu_Option_Set;
- On : Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts_on()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: menu_opts_off()</EM></FONT>
- <b>pragma</b> Inline (Switch_Options);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_21">|</EM></FONT>
- <b>procedure</b> Get_Options (Men : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<22_9">Menu</A>;
- Options : <b>out</b> Menu_Option_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_22">|</EM></FONT>
- <b>function</b> Get_Options (Men : Menu := Null_Menu) <b>return</b> Menu_Option_Set;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Options);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_win.3x.html">menu_win.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_23">|</EM></FONT>
- <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="365_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Menu</A>;
- Win : <b>in</b> Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">set_menu_win()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_24">|</EM></FONT>
- <b>function</b> Get_Window (Men : Menu) <b>return</b> Window;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">menu_win()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_25">|</EM></FONT>
- <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="376_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#57_9">Menu</A>;
- Win : <b>in</b> Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">set_menu_sub()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Sub_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_26">|</EM></FONT>
- <b>function</b> Get_Sub_Window (Men : Menu) <b>return</b> Window;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">menu_sub()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Sub_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_27">|</EM></FONT>
- <b>procedure</b> Scale (Men : <b>in</b> Menu;
- Lines : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Columns : <b>out</b> Column_Count);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">scale_menu()</A></EM></FONT>
- <b>pragma</b> Inline (Scale);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_cursor.3x.html">menu_cursor.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_28">|</EM></FONT>
- <b>procedure</b> Position_Cursor (Men : Menu);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_cursor.3x.html">pos_menu_cursor()</A></EM></FONT>
- <b>pragma</b> Inline (Position_Cursor);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_mark.3x.html">menu_mark.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_29">|</EM></FONT>
- <b>procedure</b> Set_Mark (Men : <b>in</b> Menu;
- Mark : <b>in</b> String);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">set_menu_mark()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Mark);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_30">|</EM></FONT>
- <b>procedure</b> Mark (Men : <b>in</b> Menu;
- Mark : <b>out</b> String);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT>
-
- <b>function</b> Mark (Men : Menu) <b>return</b> String;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Implemented as function</EM></FONT>
- <b>pragma</b> Inline (Mark);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_31">|</EM></FONT>
- <b>procedure</b> Set_Foreground
- (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
- Fore : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
- Color : <b>in</b> Color_Pair := Color_Pair'First);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_fore()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Foreground);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_32">|</EM></FONT>
- <b>procedure</b> Foreground (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
- Fore : <b>out</b> Character_Attribute_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_33">|</EM></FONT>
- <b>procedure</b> Foreground (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
- Fore : <b>out</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A>;
- Color : <b>out</b> Color_Pair);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT>
- <b>pragma</b> Inline (Foreground);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_34">|</EM></FONT>
- <b>procedure</b> Set_Background
- (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
- Back : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
- Color : <b>in</b> Color_Pair := Color_Pair'First);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_back()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Background);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_35">|</EM></FONT>
- <b>procedure</b> Background (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
- Back : <b>out</b> Character_Attribute_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT>
- <FONT COLOR=green><EM>-- <A NAME="AFU_36">|</EM></FONT>
-
- <b>procedure</b> Background (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
- Back : <b>out</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A>;
- Color : <b>out</b> Color_Pair);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT>
- <b>pragma</b> Inline (Background);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_37">|</EM></FONT>
- <b>procedure</b> Set_Grey
- (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
- Grey : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
- Color : <b>in</b> Color_Pair := Color_Pair'First);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_grey()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Grey);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_38">|</EM></FONT>
- <b>procedure</b> Grey (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
- Grey : <b>out</b> Character_Attribute_Set);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_39">|</EM></FONT>
- <b>procedure</b> Grey
- (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
- Grey : <b>out</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A>;
- Color : <b>out</b> Color_Pair);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT>
- <b>pragma</b> Inline (Grey);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_40">|</EM></FONT>
- <b>procedure</b> Set_Pad_Character (Men : <b>in</b> Menu;
- Pad : <b>in</b> Character := Space);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_pad()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Pad_Character);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_41">|</EM></FONT>
- <b>procedure</b> Pad_Character (Men : <b>in</b> Menu;
- Pad : <b>out</b> Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_pad()</A></EM></FONT>
- <b>pragma</b> Inline (Pad_Character);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_42">|</EM></FONT>
- <b>procedure</b> Set_Spacing (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Menu</A>;
- Descr : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A> := 0;
- Row : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A> := 0;
- Col : <b>in</b> Column_Position := 0);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_spacing.3x.html">set_menu_spacing()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Spacing);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_43">|</EM></FONT>
- <b>procedure</b> Spacing (Men : <b>in</b> Menu;
- Descr : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>;
- Row : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Col : <b>out</b> Column_Position);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_spacing.3x.html">menu_spacing()</A></EM></FONT>
- <b>pragma</b> Inline (Spacing);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_44">|</EM></FONT>
- <b>function</b> Set_Pattern (Men : Menu;
- Text : String) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_pattern.3x.html">set_menu_pattern()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Return TRUE if the pattern matches, FALSE otherwise</EM></FONT>
- <b>pragma</b> Inline (Set_Pattern);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_45">|</EM></FONT>
- <b>procedure</b> Pattern (Men : <b>in</b> Menu;
- Text : <b>out</b> String);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_pattern.3x.html">menu_pattern()</A></EM></FONT>
- <b>pragma</b> Inline (Pattern);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_format.3x.html">menu_format.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_46">|</EM></FONT>
- <b>procedure</b> Set_Format (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Menu</A>;
- Lines : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Columns : <b>in</b> Column_Count);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_format.3x.html">set_menu_format()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Format);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_47">|</EM></FONT>
- <b>procedure</b> Format (Men : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#63_12">Menu</A>;
- Lines : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Columns : <b>out</b> Column_Count);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_format.3x.html">menu_format()</A></EM></FONT>
- <b>pragma</b> Inline (Format);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <b>type</b> Menu_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Men : <b>in</b> Menu);
- <b>pragma</b> Convention (C, Menu_Hook_Function);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_48">|</EM></FONT>
- <b>procedure</b> Set_Item_Init_Hook (Men : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#557_9">Menu</A>;
- Proc : <b>in</b> Menu_Hook_Function);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_item_init()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Item_Init_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_49">|</EM></FONT>
- <b>procedure</b> Set_Item_Term_Hook (Men : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#557_9">Menu</A>;
- Proc : <b>in</b> Menu_Hook_Function);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_item_term()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Item_Term_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_50">|</EM></FONT>
- <b>procedure</b> Set_Menu_Init_Hook (Men : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#557_9">Menu</A>;
- Proc : <b>in</b> Menu_Hook_Function);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_menu_init()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Menu_Init_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_51">|</EM></FONT>
- <b>procedure</b> Set_Menu_Term_Hook (Men : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#557_9">Menu</A>;
- Proc : <b>in</b> Menu_Hook_Function);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_menu_term()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Menu_Term_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_52">|</EM></FONT>
- <b>function</b> Get_Item_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">item_init()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Item_Init_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_53">|</EM></FONT>
- <b>function</b> Get_Item_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">item_term()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Item_Term_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_54">|</EM></FONT>
- <b>function</b> Get_Menu_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">menu_init()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Menu_Init_Hook);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_55">|</EM></FONT>
- <b>function</b> Get_Menu_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">menu_term()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Menu_Term_Hook);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_items.3x.html">menu_items.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_56">|</EM></FONT>
- <b>procedure</b> Redefine (Men : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<81_9">Menu</A>;
- Items : <b>in</b> Item_Array_Access);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_items.3x.html">set_menu_items()</A></EM></FONT>
- <b>pragma</b> Inline (Redefine);
-
- <b>procedure</b> Set_Items (Men : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm<81_9">Menu</A>;
- <A HREF="terminal_interface-curses-menus__ads.htm#614_14"> </A> Items : <b>in</b> Item_Array_Access) <b>renames</b> Redefine;
- <b>pragma</b> Inline (Set_Items);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_57">|</EM></FONT>
- <b>function</b> Items (Men : Menu;
- Index : Positive) <b>return</b> Item;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_items.3x.html">menu_items()</A></EM></FONT>
- <b>pragma</b> Inline (Items);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_58">|</EM></FONT>
- <b>function</b> Item_Count (Men : Menu) <b>return</b> Natural;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_items.3x.html">item_count()</A></EM></FONT>
- <b>pragma</b> Inline (Item_Count);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_new.3x.html">menu_new.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_59">|</EM></FONT>
- <b>function</b> Create (Items : Item_Array_Access) <b>return</b> Menu;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_new.3x.html">new_menu()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Not inlined</EM></FONT>
-
- <b>function</b> New_Menu (Items : Item_Array_Access) <b>return</b> Menu <b>renames</b> Create;
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_60">|</EM></FONT>
- <b>procedure</b> Delete (Men : <b>in</b> <b>out</b> Menu);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_new.3x.html">free_menu()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Reset Men to Null_Menu</EM></FONT>
- <FONT COLOR=green><EM>-- Not inlined</EM></FONT>
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_new.3x.html">menu_new.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="651_27">Menu_Ok</A></FONT>,
- <FONT COLOR=red><A NAME="652_27">Request_Denied</A></FONT>,
- <FONT COLOR=red><A NAME="653_27">Unknown_Request</A></FONT>,
- No_Match);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_61">|</EM></FONT>
- <b>function</b> Driver (Men : <A HREF="terminal_interface-curses__ads.htm#68_9">Menu</A>;
- Key : Key_Code) <b>return</b> Driver_Result;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_new.3x.html">menu_driver()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Driver is not inlined</EM></FONT>
-
-<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT>
-<b>private</b>
- <b>type</b> <A HREF="terminal_interface-curses-menus__ads.htm#58_9">Item</A> <b>is</b> <b>new</b> <A HREF="system__ads.htm>3_9">System</A>.<A HREF="s-stoele__ads.htm>2_16">Storage_Elements</A>.<A HREF="s-stoele__ads.htm#70_9">Integer_Address</A>;
- <b>type</b> Menu <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
-
- <A HREF="terminal_interface-curses-menus__ads.htm#64_4">Null_Item</A> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#58_9">Item</A> := 0;
- Null_Menu : <b>constant</b> Menu := 0;
-
-<b>end</b> Terminal_Interface.Curses.Menus;
-</PRE></BODY></HTML>
\ No newline at end of file
+++ /dev/null
-<HEAD><TITLE>terminal_interface-curses.ads</TITLE></HEAD>
-<BODY>
-<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses.ads </H1></DIV><HR>
-<PRE>
-
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Terminal_Interface.Curses --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- S P E C --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
-<FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
-<FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
-<FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
-<FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
-<FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
-<FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
-<FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
-<FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
-<FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
-<FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
-<FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
-<FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
-<FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
-<FONT COLOR=green><EM>-- --</EM></FONT>
-<FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
-<FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
-<FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
-<FONT COLOR=green><EM>-- authorization. --</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- <A HREF="http://home.t-online.de/home/Juergen.Pfeifer">Jürgen Pfeifer</A> (<A HREF="mailto:juergen.pfeifer@gmx.net">juergen.pfeifer@gmx.net</A>) 1996 --</EM></FONT>
-<FONT COLOR=green><EM>-- Version Control:</EM></FONT>
-<FONT COLOR=green><EM>-- @Revision: 1.24 @</EM></FONT>
-<FONT COLOR=green><EM>-- Binding Version 00.93</EM></FONT>
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-<FONT COLOR=green><EM>-- curses binding.</EM></FONT>
-<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT>
-<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT>
-<FONT COLOR=green><EM>-- |</EM></FONT>
-<b>with</b> <A HREF="interfac__ads.htm>3_9">System</A>.Storage_Elements;
-<b>with</b> Interfaces.C; <FONT COLOR=green><EM>-- We need this for some assertions.</EM></FONT>
-
-<b>package</b> Terminal_Interface.Curses <b>is</b>
- <b>pragma</b> Preelaborate (Terminal_Interface.Curses);
- <b>pragma</b> Linker_Options ("-lAdaCurses");
- <b>pragma</b> Linker_Options ("-lncurses");
-
- <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>
- NC_Minor_Version : <b>constant</b> := 0;<FONT COLOR=green><EM>-- Minor version of the library</EM></FONT>
- NC_Version : <b>constant</b> String := "5.0"; <FONT COLOR=green><EM>-- Version of library</EM></FONT>
-
- <b>type</b> Window <b>is</b> <b>private</b>;
- Null_Window : <b>constant</b> Window;
-
- <b>type</b> <FONT COLOR=red><A NAME="61_9">Line_Position</A></FONT> <b>is</b> <b>new</b> Natural;<FONT COLOR=green><EM>-- line coordinate</EM></FONT>
- <b>type</b> Column_Position <b>is</b> <b>new</b> Natural;<FONT COLOR=green><EM>-- column coordinate</EM></FONT>
-
- <b>subtype</b> Line_Count <b>is</b> Line_Position <b>range</b> 1 .. Line_Position'Last;
- <FONT COLOR=green><EM>-- Type to count lines. We do not allow null windows, so must be positive</EM></FONT>
- <b>subtype</b> Column_Count <b>is</b> Column_Position <b>range</b> 1 .. Column_Position'Last;
- <FONT COLOR=green><EM>-- Type to count columns. We do not allow null windows, so must be positive</EM></FONT>
-
- <b>type</b> Key_Code <b>is</b> <b>new</b> Natural;
- <FONT COLOR=green><EM>-- That is anything including real characters, special keys and logical</EM></FONT>
- <FONT COLOR=green><EM>-- request codes.</EM></FONT>
-
- <b>subtype</b> Real_Key_Code <b>is</b> Key_Code <b>range</b> 0 .. 8#777#;
- <FONT COLOR=green><EM>-- This are the codes that potentially represent a real keystroke.</EM></FONT>
- <FONT COLOR=green><EM>-- Not all codes may be possible on a specific terminal. To check the</EM></FONT>
- <FONT COLOR=green><EM>-- availability of a special key, the Has_Key function is provided.</EM></FONT>
-
- <b>subtype</b> Special_Key_Code <b>is</b> Real_Key_Code
- <b>range</b> 8#400# .. Real_Key_Code'Last;
- <FONT COLOR=green><EM>-- Type for a function- or special key number</EM></FONT>
-
- <b>subtype</b> Normal_Key_Code <b>is</b> Real_Key_Code <b>range</b>
- Character'Pos (Character'First) .. Character'Pos (Character'Last);
- <FONT COLOR=green><EM>-- This are the codes for regular (incl. non-graphical) characters.</EM></FONT>
-
- <FONT COLOR=green><EM>-- Constants for function- and special keys</EM></FONT>
- <FONT COLOR=green><EM>--</EM></FONT>
- Key_None : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#400#;
- Key_Code_Yes : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#400#;
- Key_Min : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#401#;
- Key_Break : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#401#;
- Key_Cursor_Down : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#402#;
- Key_Cursor_Up : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#403#;
- Key_Cursor_Left : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#404#;
- Key_Cursor_Right : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#405#;
- Key_Home : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#406#;
- Key_Backspace : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#407#;
- Key_F0 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#410#;
- Key_F1 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#411#;
- Key_F2 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#412#;
- Key_F3 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#413#;
- Key_F4 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#414#;
- Key_F5 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#415#;
- Key_F6 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#416#;
- Key_F7 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#417#;
- Key_F8 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#420#;
- Key_F9 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#421#;
- Key_F10 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#422#;
- Key_F11 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#423#;
- Key_F12 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#424#;
- Key_F13 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#425#;
- Key_F14 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#426#;
- Key_F15 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#427#;
- Key_F16 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#430#;
- Key_F17 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#431#;
- Key_F18 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#432#;
- Key_F19 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#433#;
- Key_F20 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#434#;
- Key_F21 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#435#;
- Key_F22 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#436#;
- Key_F23 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#437#;
- Key_F24 : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#440#;
- Key_Delete_Line : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#510#;
- Key_Insert_Line : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#511#;
- Key_Delete_Char : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#512#;
- Key_Insert_Char : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#513#;
- Key_Exit_Insert_Mode : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#514#;
- Key_Clear_Screen : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#515#;
- Key_Clear_End_Of_Screen : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#516#;
- Key_Clear_End_Of_Line : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#517#;
- Key_Scroll_1_Forward : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#520#;
- Key_Scroll_1_Backward : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#521#;
- Key_Next_Page : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#522#;
- Key_Previous_Page : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#523#;
- Key_Set_Tab : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#524#;
- Key_Clear_Tab : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#525#;
- Key_Clear_All_Tabs : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#526#;
- Key_Enter_Or_Send : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#527#;
- Key_Soft_Reset : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#530#;
- Key_Reset : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#531#;
- Key_Print : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#532#;
- Key_Bottom : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#533#;
- Key_Upper_Left_Of_Keypad : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#534#;
- Key_Upper_Right_Of_Keypad : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#535#;
- Key_Center_Of_Keypad : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#536#;
- Key_Lower_Left_Of_Keypad : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#537#;
- Key_Lower_Right_Of_Keypad : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#540#;
- Key_Back_Tab : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#541#;
- Key_Beginning : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#542#;
- Key_Cancel : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#543#;
- Key_Close : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#544#;
- Key_Command : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#545#;
- Key_Copy : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#546#;
- Key_Create : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#547#;
- Key_End : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#550#;
- Key_Exit : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#551#;
- Key_Find : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#552#;
- Key_Help : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#553#;
- Key_Mark : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#554#;
- Key_Message : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#555#;
- Key_Move : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#556#;
- Key_Next : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#557#;
- Key_Open : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#560#;
- Key_Options : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#561#;
- Key_Previous : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#562#;
- Key_Redo : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#563#;
- Key_Reference : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#564#;
- Key_Refresh : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#565#;
- Key_Replace : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#566#;
- Key_Restart : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#567#;
- Key_Resume : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#570#;
- Key_Save : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#571#;
- Key_Shift_Begin : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#572#;
- Key_Shift_Cancel : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#573#;
- Key_Shift_Command : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#574#;
- Key_Shift_Copy : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#575#;
- Key_Shift_Create : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#576#;
- Key_Shift_Delete_Char : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#577#;
- Key_Shift_Delete_Line : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#600#;
- Key_Select : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#601#;
- Key_Shift_End : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#602#;
- Key_Shift_Clear_End_Of_Line : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#603#;
- Key_Shift_Exit : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#604#;
- Key_Shift_Find : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#605#;
- Key_Shift_Help : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#606#;
- Key_Shift_Home : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#607#;
- Key_Shift_Insert_Char : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#610#;
- Key_Shift_Cursor_Left : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#611#;
- Key_Shift_Message : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#612#;
- Key_Shift_Move : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#613#;
- Key_Shift_Next_Page : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#614#;
- Key_Shift_Options : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#615#;
- Key_Shift_Previous_Page : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#616#;
- Key_Shift_Print : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#617#;
- Key_Shift_Redo : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#620#;
- Key_Shift_Replace : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#621#;
- Key_Shift_Cursor_Right : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#622#;
- Key_Shift_Resume : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#623#;
- Key_Shift_Save : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#624#;
- Key_Shift_Suspend : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#625#;
- Key_Shift_Undo : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#626#;
- Key_Suspend : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#627#;
- Key_Undo : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#630#;
- Key_Mouse : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> := 8#631#;
- Key_Resize : <b>constant</b> Special_Key_Code := 8#632#;
-
- Key_Max : <b>constant</b> Special_Key_Code
- := Special_Key_Code'Last;
-
- <b>subtype</b> User_Key_Code <b>is</b> Key_Code
- <b>range</b> (Key_Max + 129) .. Key_Code'Last;
- <FONT COLOR=green><EM>-- This is reserved for user defined key codes. The range between Key_Max</EM></FONT>
- <FONT COLOR=green><EM>-- and the first user code is reserved for subsystems like menu and forms.</EM></FONT>
-
- <FONT COLOR=green><EM>-- For those who like to use the original key names we produce them were</EM></FONT>
- <FONT COLOR=green><EM>-- they differ from the original. Please note that they may differ in</EM></FONT>
- <FONT COLOR=green><EM>-- lower/upper case.</EM></FONT>
- KEY_DOWN : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Cursor_Down;
- KEY_UP : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Cursor_Up;
- KEY_LEFT : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Cursor_Left;
- KEY_RIGHT : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Cursor_Right;
- KEY_DL : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Delete_Line;
- KEY_IL : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Insert_Line;
- KEY_DC : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Delete_Char;
- KEY_IC : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Insert_Char;
- KEY_EIC : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Exit_Insert_Mode;
- KEY_CLEAR : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Clear_Screen;
- KEY_EOS : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Clear_End_Of_Screen;
- KEY_EOL : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Clear_End_Of_Line;
- KEY_SF : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Scroll_1_Forward;
- KEY_SR : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Scroll_1_Backward;
- KEY_NPAGE : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Next_Page;
- KEY_PPAGE : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Previous_Page;
- KEY_STAB : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Set_Tab;
- KEY_CTAB : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Clear_Tab;
- KEY_CATAB : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Clear_All_Tabs;
- KEY_ENTER : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Enter_Or_Send;
- KEY_SRESET : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Soft_Reset;
- KEY_LL : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Bottom;
- KEY_A1 : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Upper_Left_Of_Keypad;
- KEY_A3 : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Upper_Right_Of_Keypad;
- KEY_B2 : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Center_Of_Keypad;
- KEY_C1 : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Lower_Left_Of_Keypad;
- KEY_C3 : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Lower_Right_Of_Keypad;
- KEY_BTAB : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Back_Tab;
- KEY_BEG : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Beginning;
- KEY_SBEG : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Begin;
- KEY_SCANCEL : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Cancel;
- KEY_SCOMMAND : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Command;
- KEY_SCOPY : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Copy;
- KEY_SCREATE : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Create;
- KEY_SDC : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Delete_Char;
- KEY_SDL : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Delete_Line;
- KEY_SEND : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_End;
- KEY_SEOL : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Clear_End_Of_Line;
- KEY_SEXIT : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Exit;
- KEY_SFIND : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Find;
- KEY_SHELP : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Help;
- KEY_SHOME : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Home;
- KEY_SIC : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Insert_Char;
- KEY_SLEFT : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Cursor_Left;
- KEY_SMESSAGE : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Message;
- KEY_SMOVE : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Move;
- KEY_SNEXT : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Next_Page;
- KEY_SOPTIONS : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Options;
- KEY_SPREVIOUS : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Previous_Page;
- KEY_SPRINT : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Print;
- KEY_SREDO : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Redo;
- KEY_SREPLACE : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Replace;
- KEY_SRIGHT : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Cursor_Right;
- KEY_SRSUME : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Resume;
- KEY_SSAVE : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Save;
- KEY_SSUSPEND : <A HREF="terminal_interface-curses__ads.htm#77_12">Special_Key_Code</A> <b>renames</b> Key_Shift_Suspend;
- KEY_SUNDO : Special_Key_Code <b>renames</b> Key_Shift_Undo;
-
-<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
-
- <b>type</b><A HREF="terminal_interface-curses__ads.htm>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);
- <b>for</b> Color_Number'Size <b>use</b> Interfaces.C.short'Size;
- <FONT COLOR=green><EM>-- (n)curses uses a short for the color index</EM></FONT>
- <FONT COLOR=green><EM>-- The model is, that a Color_Number is an index into an array of</EM></FONT>
- <FONT COLOR=green><EM>-- (potentially) definable colors. Some of those indices are</EM></FONT>
- <FONT COLOR=green><EM>-- predefined (see below), although they may not really exist.</EM></FONT>
-
- Black : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm>77_9">Color_Number</A> := 0;
- Red : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm>77_9">Color_Number</A> := 1;
- Green : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm>77_9">Color_Number</A> := 2;
- Yellow : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm>77_9">Color_Number</A> := 3;
- Blue : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm>77_9">Color_Number</A> := 4;
- Magenta : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm>77_9">Color_Number</A> := 5;
- Cyan : <b>constant</b> <A HREF="terminal_interface-curses__ads.htm>77_9">Color_Number</A> := 6;
- White : <b>constant</b> Color_Number := 7;
-
- <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);
- <b>for</b> RGB_Value'Size <b>use</b> Interfaces.C.short'Size;
- <FONT COLOR=green><EM>-- Some system may allow to redefine a color by setting RGB values.</EM></FONT>
-
- <b>type</b><A HREF="terminal_interface-curses__ads.htm>97_9"> </A>Color_Pair <b>is</b> <b>range</b> 0 .. 255;
- <b>for</b> Color_Pair'Size <b>use</b> 8;
- <b>subtype</b> Redefinable_Color_Pair <b>is</b> Color_Pair <b>range</b> 1 .. 255;
- <FONT COLOR=green><EM>-- (n)curses reserves 1 Byte for the color-pair number. Color Pair 0</EM></FONT>
- <FONT COLOR=green><EM>-- is fixed (Black & White). A color pair is simply a combination of</EM></FONT>
- <FONT COLOR=green><EM>-- two colors described by Color_Numbers, one for the foreground and</EM></FONT>
- <FONT COLOR=green><EM>-- the other for the background</EM></FONT>
-
- <b>type</b> Character_Attribute_Set <b>is</b>
- <b>record</b>
- Stand_Out : Boolean;
- Under_Line : Boolean;
- Reverse_Video : Boolean;
- Blink : Boolean;
- Dim_Character : Boolean;
- Bold_Character : Boolean;
- Alternate_Character_Set : Boolean;
- Invisible_Character : Boolean;
- Protected_Character : Boolean;
- Horizontal : Boolean;
- Left : Boolean;
- Low : Boolean;
- Right : Boolean;
- Top : Boolean;
- Vertical : Boolean;
- <b>end</b> <b>record</b><A HREF="terminal_interface-curses__ads.htm#305_9">;</A>
- <b>pragma</b> Pack (Character_Attribute_Set);
- <b>pragma</b> Convention (C, Character_Attribute_Set);
-
- <b>for</b> Character_Attribute_Set <b>use</b>
- <b>record</b>
- Stand_Out <b>at</b> 0 <b>range</b> 0 .. 0;
- Under_Line <b>at</b> 0 <b>range</b> 1 .. 1;
- Reverse_Video <b>at</b> 0 <b>range</b> 2 .. 2;
- Blink <b>at</b> 0 <b>range</b> 3 .. 3;
- Dim_Character <b>at</b> 0 <b>range</b> 4 .. 4;
- Bold_Character <b>at</b> 0 <b>range</b> 5 .. 5;
- Alternate_Character_Set <b>at</b> 0 <b>range</b> 6 .. 6;
- Invisible_Character <b>at</b> 0 <b>range</b> 7 .. 7;
- Protected_Character <b>at</b> 0 <b>range</b> 8 .. 8;
- Horizontal <b>at</b> 0 <b>range</b> 9 .. 9;
- Left <b>at</b> 0 <b>range</b> 10 .. 10;
- Low <b>at</b> 0 <b>range</b> 11 .. 11;
- Right <b>at</b> 0 <b>range</b> 12 .. 12;
- Top <b>at</b> 0 <b>range</b> 13 .. 13;
- Vertical <b>at</b> 0 <b>range</b> 14 .. 14;
- <b>end</b> <b>record</b>;
- <b>for</b> Character_Attribute_Set'Size <b>use</b> 16;
- <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT>
- <FONT COLOR=green><EM>-- different on your system.</EM></FONT>
- <FONT COLOR=green><EM>-- (n)curses uses all but the lowes 16 Bits for Attributes.</EM></FONT>
-
- Normal_Video : <b>constant</b> Character_Attribute_Set := (<b>others</b> => False);
-
- <b>type</b> Attributed_Character <b>is</b>
- <b>record</b>
- Attr : <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A>;
- Color : Color_Pair;
- Ch : Character;
- <b>end</b> <b>record</b>;
- <b>pragma</b> Convention (C, Attributed_Character);
- <FONT COLOR=green><EM>-- This is the counterpart for the chtype in C.</EM></FONT>
-
- <b>for</b> Attributed_Character <b>use</b>
- <b>record</b>
- Ch <b>at</b> 0 <b>range</b> 0 .. 7;
- Color <b>at</b> 0 <b>range</b> 8 .. 15;
- Attr <b>at</b> 0 <b>range</b> 16 .. 31;
- <b>end</b> <b>record</b>;
- <b>for</b> Attributed_Character'Size <b>use</b> 32;
- <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT>
- <FONT COLOR=green><EM>-- different on your system.</EM></FONT>
-
- Default_Character : <b>constant</b> Attributed_Character
- := (Ch => <A HREF="terminal_interface-curses__ads.htm>97_9">Character</A>'First,
- Color => Color_Pair'First,
- Attr => (<b>others</b> => False)); <FONT COLOR=green><EM>-- preelaboratable Normal_Video</EM></FONT>
-
- <b>type</b> Attributed_String <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> Attributed_Character;
- <b>pragma</b> Pack (Attributed_String);
- <FONT COLOR=green><EM>-- In this binding we allow strings of attributed characters.</EM></FONT>
-
- <FONT COLOR=green><EM>------------------</EM></FONT>
- <FONT COLOR=green><EM>-- Exceptions --</EM></FONT>
- <FONT COLOR=green><EM>------------------</EM></FONT>
- <FONT COLOR=red><A NAME="383_4">Curses_Exception</A></FONT> : <b>exception</b>;
- Wrong_Curses_Version : <b>exception</b>;
-
- <FONT COLOR=green><EM>-- Those exceptions are raised by the ETI (Extended Terminal Interface)</EM></FONT>
- <FONT COLOR=green><EM>-- subpackets for Menu and Forms handling.</EM></FONT>
- <FONT COLOR=green><EM>--</EM></FONT>
- <FONT COLOR=red><A NAME="389_4">Eti_System_Error</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="390_4">Eti_Bad_Argument</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="391_4">Eti_Posted</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="392_4">Eti_Connected</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="393_4">Eti_Bad_State</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="394_4">Eti_No_Room</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="395_4">Eti_Not_Posted</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="396_4">Eti_Unknown_Command</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="397_4">Eti_No_Match</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="398_4">Eti_Not_Selectable</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="399_4">Eti_Not_Connected</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="400_4">Eti_Request_Denied</A></FONT> : <b>exception</b>;
- <FONT COLOR=red><A NAME="401_4">Eti_Invalid_Field</A></FONT> : <b>exception</b>;
- Eti_Current : <b>exception</b>;
-
- <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT>
- <FONT COLOR=green><EM>-- External C variables</EM></FONT>
- <FONT COLOR=green><EM>-- Conceptually even in C this are kind of constants, but they are</EM></FONT>
- <FONT COLOR=green><EM>-- initialized and sometimes changed by the library routines at runtime</EM></FONT>
- <FONT COLOR=green><EM>-- depending on the type of terminal. I believe the best way to model</EM></FONT>
- <FONT COLOR=green><EM>-- this is to use functions.</EM></FONT>
- <FONT COLOR=green><EM>--------------------------------------------------------------------------</EM></FONT>
-
- <b>function</b> Lines <A HREF="terminal_interface-curses__ads.htm#411_13"> </A> <b>return</b> Line_Count;
- <b>pragma</b> Inline (Lines);
-
- <b>function</b> Columns <b>return</b> Column_Count;
- <b>pragma</b> Inline (Columns);
-
- <b>function</b> Tab_Size <b>return</b> Natural;
- <b>pragma</b> Inline (Tab_Size);
-
- <b>function</b> Number_Of_Colors <b>return</b> Natural;
- <b>pragma</b> Inline (Number_Of_Colors);
-
- <b>function</b> Number_Of_Color_Pairs <b>return</b> Natural;
- <b>pragma</b> Inline (Number_Of_Color_Pairs);
-
- ACS_Map : <b>array</b> (Character'Val (0) .. Character'Val (127)) <b>of</b>
- Attributed_Character;
- <b>pragma</b> Import (C, ACS_Map, "acs_map");
- <FONT COLOR=green><EM>--</EM></FONT>
- <FONT COLOR=green><EM>--</EM></FONT>
- <FONT COLOR=green><EM>-- Constants for several symbols from the Alternate Character Set</EM></FONT>
- <FONT COLOR=green><EM>-- You must use this constants as indices into the ACS_Map array</EM></FONT>
- <FONT COLOR=green><EM>-- to get the corresponding attributed character at runtime.</EM></FONT>
- <FONT COLOR=green><EM>--</EM></FONT>
- ACS_Upper_Left_Corner : <b>constant</b> Character := 'l';
- ACS_Lower_Left_Corner : <b>constant</b> Character := 'm';
- ACS_Upper_Right_Corner : <b>constant</b> Character := 'k';
- ACS_Lower_Right_Corner : <b>constant</b> Character := 'j';
- ACS_Left_Tee : <b>constant</b> Character := 't';
- ACS_Right_Tee : <b>constant</b> Character := 'u';
- ACS_Bottom_Tee : <b>constant</b> Character := 'v';
- ACS_Top_Tee : <b>constant</b> Character := 'w';
- ACS_Horizontal_Line : <b>constant</b> Character := 'q';
- ACS_Vertical_Line : <b>constant</b> Character := 'x';
- ACS_Plus_Symbol : <b>constant</b> Character := 'n';
- ACS_Scan_Line_1 : <b>constant</b> Character := 'o';
- ACS_Scan_Line_9 : <b>constant</b> Character := 's';
- ACS_Diamond : <b>constant</b> Character := Character'Val (96);
- ACS_Checker_Board : <b>constant</b> Character := 'a';
- ACS_Degree : <b>constant</b> Character := 'f';
- ACS_Plus_Minus : <b>constant</b> Character := 'g';
- ACS_Bullet : <b>constant</b> Character := '~';
- ACS_Left_Arrow : <b>constant</b> Character := ',';
- ACS_Right_Arrow : <b>constant</b> Character := '+';
- ACS_Down_Arrow : <b>constant</b> Character := '.';
- ACS_Up_Arrow : <b>constant</b> Character := '-';
- ACS_Board_Of_Squares : <b>constant</b> Character := 'h';
- ACS_Lantern : <b>constant</b> Character := 'i';
- ACS_Solid_Block : <b>constant</b> Character := '0';
- ACS_Scan_Line_3 : <b>constant</b> Character := 'p';
- ACS_Scan_Line_7 : <b>constant</b> Character := 'r';
- ACS_Less_Or_Equal : <b>constant</b> Character := 'y';
- ACS_Greater_Or_Equal : <b>constant</b> Character := 'z';
- ACS_PI : <b>constant</b> Character := '{';
- ACS_Not_Equal : <b>constant</b> Character := '|';
- ACS_Sterling : <b>constant</b> Character := '}';
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_initscr.3x.html">curs_initscr.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Not implemented: newterm, set_term, delscreen</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_1">|</EM></FONT>
- <b>function</b> Standard_Window <b>return</b> Window;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">stdscr</A></EM></FONT>
- <b>pragma</b> Inline (Standard_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_2">|</EM></FONT>
- <b>procedure</b> Init_Screen;
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_3">|</EM></FONT>
- <b>procedure</b> Init_Windows <b>renames</b> Init_Screen;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">initscr()</A></EM></FONT>
- <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#482_14">Init_Screen</A>);
- <b>pragma</b> Inline (Init_Windows);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_4">|</EM></FONT>
- <b>procedure</b> End_Windows;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">endwin()</A></EM></FONT>
- <b>procedure</b> End_Screen <b>renames</b> End_Windows;
- <b>pragma</b> Inline (<A HREF="terminal_interface-curses__ads.htm#490_14">End_Windows</A>);
- <b>pragma</b> Inline (End_Screen);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_5">|</EM></FONT>
- <b>function</b> Is_End_Window <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_initscr.3x.html">isendwin()</A></EM></FONT>
- <b>pragma</b> Inline (Is_End_Window);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_move.3x.html">curs_move.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_6">|</EM></FONT>
- <b>procedure</b> Move_Cursor (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Column : <b>in</b> Column_Position);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_move.3x.html">wmove()</A></EM></FONT>
- <b>pragma</b> Inline (Move_Cursor);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addch.3x.html">curs_addch.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_7">|</EM></FONT>
- <b>procedure</b> Add (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Window</A> := Standard_Window;
- Ch : <b>in</b> Attributed_Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">waddch()</A></EM></FONT>
-
- <b>procedure</b> Add (Win : <b>in</b> Window := Standard_Window;
- Ch : <b>in</b> Character);
- <FONT COLOR=green><EM>-- Add a single character at the current logical cursor position to</EM></FONT>
- <FONT COLOR=green><EM>-- the window. Use the current windows attributes.</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_8">|</EM></FONT>
- <b>procedure</b> Add
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Column : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Column_Position</A>;
- Ch : <b>in</b> Attributed_Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">mvwaddch()</A></EM></FONT>
-
- <b>procedure</b> Add
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Column : <b>in</b> Column_Position;
- Ch : <b>in</b> Character);
- <FONT COLOR=green><EM>-- Move to the position and add a single character into the window</EM></FONT>
- <FONT COLOR=green><EM>-- There are more Add routines, so the Inline pragma follows later</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_9">|</EM></FONT>
- <b>procedure</b> Add_With_Immediate_Echo
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Window</A> := Standard_Window;
- Ch : <b>in</b> Attributed_Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addch.3x.html">wechochar()</A></EM></FONT>
-
- <b>procedure</b> Add_With_Immediate_Echo
- (Win : <b>in</b> Window := Standard_Window;
- Ch : <b>in</b> Character);
- <FONT COLOR=green><EM>-- Add a character and do an immediate resfresh of the screen.</EM></FONT>
- <b>pragma</b> Inline (Add_With_Immediate_Echo);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_window.3x.html">curs_window.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_10">|</EM></FONT>
- <b>function</b> Create
- (Number_Of_Lines : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Number_Of_Columns : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>;
- First_Line_Position : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- First_Column_Position : Column_Position) <b>return</b> Window;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">newwin()</A></EM></FONT>
- <b>pragma</b> Inline (Create);
-
- <b>function</b> New_Window
- (Number_Of_Lines : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Number_Of_Columns : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>;
- First_Line_Position : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- First_Column_Position : Column_Position) <b>return</b> Window
- <b>renames</b> Create;
- <b>pragma</b> Inline (New_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_11">|</EM></FONT>
- <b>procedure</b> Delete (Win : <b>in</b> <b>out</b> Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">delwin()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Reset Win to Null_Window</EM></FONT>
- <b>pragma</b> Inline (Delete);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_12">|</EM></FONT>
- <b>function</b> Sub_Window
- (Win : <A HREF="terminal_interface-curses__ads.htm#63_12">Window</A> := Standard_Window;
- Number_Of_Lines : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Number_Of_Columns : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>;
- First_Line_Position : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- First_Column_Position : Column_Position) <b>return</b> Window;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">subwin()</A></EM></FONT>
- <b>pragma</b> Inline (Sub_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_13">|</EM></FONT>
- <b>function</b> Derived_Window
- (Win : <A HREF="terminal_interface-curses__ads.htm#63_12">Window</A> := Standard_Window;
- Number_Of_Lines : <A HREF="terminal_interface-curses__ads.htm#65_12">Line_Count</A>;
- Number_Of_Columns : <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Count</A>;
- First_Line_Position : <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- First_Column_Position : Column_Position) <b>return</b> Window;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">derwin()</A></EM></FONT>
- <b>pragma</b> Inline (Derived_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_14">|</EM></FONT>
- <b>function</b> Duplicate (Win : Window) <b>return</b> Window;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">dupwin()</A></EM></FONT>
- <b>pragma</b> Inline (Duplicate);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_15">|</EM></FONT>
- <b>procedure</b> Move_Window (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A>;
- Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Column : <b>in</b> Column_Position);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">mvwin()</A></EM></FONT>
- <b>pragma</b> Inline (Move_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_16">|</EM></FONT>
- <b>procedure</b> Move_Derived_Window (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A>;
- Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Column : <b>in</b> Column_Position);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">mvderwin()</A></EM></FONT>
- <b>pragma</b> Inline (Move_Derived_Window);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_17">|</EM></FONT>
- <b>procedure</b> Synchronize_Upwards (Win : <b>in</b> Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncup()</A></EM></FONT>
- <b>pragma</b> Import (C, Synchronize_Upwards, "wsyncup");
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_18">|</EM></FONT>
- <b>procedure</b> Synchronize_Downwards (Win : <b>in</b> Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">wsyncdown()</A></EM></FONT>
- <b>pragma</b> Import (C, Synchronize_Downwards, "wsyncdown");
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_19">|</EM></FONT>
- <b>procedure</b> Set_Synch_Mode (Win : <b>in</b> Window := Standard_Window;
- Mode : <b>in</b> Boolean := False);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_window.3x.html">syncok()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Synch_Mode);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addstr.3x.html">curs_addstr.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_20">|</EM></FONT>
- <b>procedure</b> Add (Win : <b>in</b> Window := Standard_Window;
- Str : <b>in</b> String;
- Len : <b>in</b> Integer := -1);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addstr.3x.html">waddnstr()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: waddstr()</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_21">|</EM></FONT>
- <b>procedure</b> Add (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Column : <b>in</b> Column_Position;
- Str : <b>in</b> String;
- Len : <b>in</b> Integer := -1);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addstr.3x.html">mvwaddnstr()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: mvwaddstr()</EM></FONT>
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_addchstr.3x.html">curs_addchstr.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_22">|</EM></FONT>
- <b>procedure</b> Add (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#375_9">Window</A> := Standard_Window;
- Str : <b>in</b> Attributed_String;
- Len : <b>in</b> Integer := -1);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addchstr.3x.html">waddchnstr()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: waddchstr()</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_23">|</EM></FONT>
- <b>procedure</b> Add (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Column : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#375_9">Column_Position</A>;
- Str : <b>in</b> Attributed_String;
- Len : <b>in</b> Integer := -1);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_addchstr.3x.html">mvwaddchnstr()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: mvwaddchstr()</EM></FONT>
- <b>pragma</b> Inline (Add);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_border.3x.html">curs_border.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_24">|</EM></FONT>
- <b>procedure</b> Border
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Window</A> := Standard_Window;
- Left_Side_Symbol : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Attributed_Character</A> := Default_Character;
- Right_Side_Symbol : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Attributed_Character</A> := Default_Character;
- Top_Side_Symbol : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Attributed_Character</A> := Default_Character;
- Bottom_Side_Symbol : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Attributed_Character</A> := Default_Character;
- Upper_Left_Corner_Symbol : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Attributed_Character</A> := Default_Character;
- Upper_Right_Corner_Symbol : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Attributed_Character</A> := Default_Character;
- Lower_Left_Corner_Symbol : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Attributed_Character</A> := Default_Character;
- Lower_Right_Corner_Symbol : <b>in</b> Attributed_Character := Default_Character
- );
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">wborder()</A></EM></FONT>
- <b>pragma</b> Inline (Border);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_25">|</EM></FONT>
- <b>procedure</b> Box
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Window</A> := Standard_Window;
- Vertical_Symbol : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Attributed_Character</A> := Default_Character;
- Horizontal_Symbol : <b>in</b> Attributed_Character := Default_Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">box()</A></EM></FONT>
- <b>pragma</b> Inline (Box);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_26">|</EM></FONT>
- <b>procedure</b> Horizontal_Line
- (Win : <b>in</b> Window := Standard_Window;
- Line_Size : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Natural</A>;
- Line_Symbol : <b>in</b> Attributed_Character := Default_Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">whline()</A></EM></FONT>
- <b>pragma</b> Inline (Horizontal_Line);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_27">|</EM></FONT>
- <b>procedure</b> Vertical_Line
- (Win : <b>in</b> Window := Standard_Window;
- Line_Size : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Natural</A>;
- Line_Symbol : <b>in</b> Attributed_Character := Default_Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_border.3x.html">wvline()</A></EM></FONT>
- <b>pragma</b> Inline (Vertical_Line);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_getch.3x.html">curs_getch.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_28">|</EM></FONT>
- <b>function</b> Get_Keystroke (Win : Window := Standard_Window)
- <b>return</b> Real_Key_Code;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">wgetch()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Get a character from the keyboard and echo it - if enabled - to the</EM></FONT>
- <FONT COLOR=green><EM>-- window.</EM></FONT>
- <FONT COLOR=green><EM>-- If for any reason (i.e. a timeout) we couldn't get a character the</EM></FONT>
- <FONT COLOR=green><EM>-- returned keycode is Key_None.</EM></FONT>
- <b>pragma</b> Inline (Get_Keystroke);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_29">|</EM></FONT>
- <b>procedure</b> Undo_Keystroke (Key : <b>in</b> Real_Key_Code);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">ungetch()</A></EM></FONT>
- <b>pragma</b> Inline (Undo_Keystroke);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_30">|</EM></FONT>
- <b>function</b> Has_Key (Key : Special_Key_Code) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_getch.3x.html">has_key()</A></EM></FONT>
- <b>pragma</b> Inline (Has_Key);
-
- <FONT COLOR=green><EM>-- |</EM></FONT>
- <FONT COLOR=green><EM>-- | Some helper functions</EM></FONT>
- <FONT COLOR=green><EM>-- |</EM></FONT>
- <b>function</b> Is_Function_Key (Key : Special_Key_Code) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- Return True if the Key is a function key (i.e. one of F0 .. F63)</EM></FONT>
- <b>pragma</b> Inline (Is_Function_Key);
-
- <b>subtype</b> Function_Key_Number <b>is</b> Integer <b>range</b> 0 .. 63;
- <FONT COLOR=green><EM>-- (n)curses allows for 64 function keys.</EM></FONT>
-
- <b>function</b> Function_Key (Key : Real_Key_Code) <b>return</b> Function_Key_Number;
- <FONT COLOR=green><EM>-- Return the number of the function key. If the code is not a</EM></FONT>
- <FONT COLOR=green><EM>-- function key, a CONSTRAINT_ERROR will be raised.</EM></FONT>
- <b>pragma</b> Inline (Function_Key);
-
- <b>function</b> Function_Key_Code (Key : Function_Key_Number) <b>return</b> Real_Key_Code;
- <FONT COLOR=green><EM>-- Return the key code for a given functionkey number.</EM></FONT>
- <b>pragma</b> Inline (Function_Key_Code);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_attr.3x.html">curs_attr.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_31">|</EM></FONT>
- <b>procedure</b> Switch_Character_Attribute
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Window</A> := Standard_Window;
- Attr : <b>in</b> Character_Attribute_Set := Normal_Video;
- On : <b>in</b> Boolean := True);<FONT COLOR=green><EM>-- if False we switch Off.</EM></FONT>
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattron()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: wattroff()</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_32">|</EM></FONT>
- <b>procedure</b> Set_Character_Attributes
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Window</A> := Standard_Window;
- Attr : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
- Color : <b>in</b> Color_Pair := Color_Pair'First);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattrset()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Character_Attributes);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_33">|</EM></FONT>
- <b>function</b> Get_Character_Attribute
- (Win : <b>in</b> Window := Standard_Window) <b>return</b> Character_Attribute_Set;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_34">|</EM></FONT>
- <b>function</b> Get_Character_Attribute
- (Win : <b>in</b> Window := Standard_Window) <b>return</b> Color_Pair;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wattr_get()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Character_Attribute);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_35">|</EM></FONT>
- <b>procedure</b> Set_Color (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Window</A> := Standard_Window;
- Pair : <b>in</b> Color_Pair);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wcolor_set()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Color);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_36">|</EM></FONT>
- <b>procedure</b> Change_Attributes
- (Win : <b>in</b> Window := Standard_Window;
- Count : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Integer</A> := -1;
- Attr : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
- Color : <b>in</b> Color_Pair := Color_Pair'First);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">wchgat()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_37">|</EM></FONT>
- <b>procedure</b> Change_Attributes
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A> := Line_Position'First;
- Column : <b>in</b> Column_Position := Column_Position'First;
- Count : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Integer</A> := -1;
- Attr : <b>in</b> <A HREF="terminal_interface-curses__ads.htm>97_9">Character_Attribute_Set</A> := Normal_Video;
- Color : <b>in</b> Color_Pair := Color_Pair'First);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_attr.3x.html">mvwchgat()</A></EM></FONT>
- <b>pragma</b> Inline (Change_Attributes);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_beep.3x.html">curs_beep.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_38">|</EM></FONT>
- <b>procedure</b> Beep;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_beep.3x.html">beep()</A></EM></FONT>
- <b>pragma</b> Inline (Beep);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_39">|</EM></FONT>
- <b>procedure</b> Flash_Screen;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_beep.3x.html">flash()</A></EM></FONT>
- <b>pragma</b> Inline (Flash_Screen);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_inopts.3x.html">curs_inopts.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- | Not implemented : typeahead</EM></FONT>
- <FONT COLOR=green><EM>--</EM></FONT>
- <FONT COLOR=green><EM>-- <A NAME="AFU_40">|</EM></FONT>
- <b>procedure</b> Set_Cbreak_Mode (SwitchOn : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">cbreak()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: nocbreak()</EM></FONT>
- <b>pragma</b> Inline (Set_Cbreak_Mode);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_41">|</EM></FONT>
- <b>procedure</b> Set_Raw_Mode (SwitchOn : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">raw()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: noraw()</EM></FONT>
- <b>pragma</b> Inline (Set_Raw_Mode);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_42">|</EM></FONT>
- <b>procedure</b> Set_Echo_Mode (SwitchOn : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">echo()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: noecho()</EM></FONT>
- <b>pragma</b> Inline (Set_Echo_Mode);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_43">|</EM></FONT>
- <b>procedure</b> Set_Meta_Mode (Win : <b>in</b> Window := Standard_Window;
- SwitchOn : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">meta()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Meta_Mode);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_44">|</EM></FONT>
- <b>procedure</b> Set_KeyPad_Mode (Win : <b>in</b> Window := Standard_Window;
- SwitchOn : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">keypad()</A></EM></FONT>
- <b>pragma</b> Inline (Set_KeyPad_Mode);
-
- <b>type</b> Half_Delay_Amount <b>is</b> <b>range</b> 1 .. 255;
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_45">|</EM></FONT>
- <b>procedure</b> Half_Delay (Amount : <b>in</b> Half_Delay_Amount);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">halfdelay()</A></EM></FONT>
- <b>pragma</b> Inline (Half_Delay);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_46">|</EM></FONT>
- <b>procedure</b> Set_Flush_On_Interrupt_Mode
- (Win : <b>in</b> Window := Standard_Window;
- Mode : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">intrflush()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Flush_On_Interrupt_Mode);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_47">|</EM></FONT>
- <b>procedure</b> Set_Queue_Interrupt_Mode
- (Win : <b>in</b> Window := Standard_Window;
- Flush : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">qiflush()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: noqiflush()</EM></FONT>
- <b>pragma</b> Inline (Set_Queue_Interrupt_Mode);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_48">|</EM></FONT>
- <b>procedure</b> Set_NoDelay_Mode
- (Win : <b>in</b> Window := Standard_Window;
- Mode : <b>in</b> Boolean := False);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">nodelay()</A></EM></FONT>
- <b>pragma</b> Inline (Set_NoDelay_Mode);
-
- <b>type</b> Timeout_Mode <b>is</b> (Blocking, Non_Blocking, Delayed);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_49">|</EM></FONT>
- <b>procedure</b> Set_Timeout_Mode (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#896_9">Window</A> := Standard_Window;
- Mode : <b>in</b> Timeout_Mode;
- Amount : <b>in</b> Natural);<FONT COLOR=green><EM>-- in Miliseconds</EM></FONT>
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">wtimeout()</A></EM></FONT>
- <FONT COLOR=green><EM>-- Instead of overloading the semantic of the sign of amount, we</EM></FONT>
- <FONT COLOR=green><EM>-- introduce the Timeout_Mode parameter. This should improve</EM></FONT>
- <FONT COLOR=green><EM>-- readability. For Blocking and Non_Blocking, the Amount is not</EM></FONT>
- <FONT COLOR=green><EM>-- evaluated.</EM></FONT>
- <FONT COLOR=green><EM>-- We don't inline this procedure.</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_50">|</EM></FONT>
- <b>procedure</b> Set_Escape_Timer_Mode
- (Win : <b>in</b> Window := Standard_Window;
- Timer_Off : <b>in</b> Boolean := False);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_inopts.3x.html">notimeout()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Escape_Timer_Mode);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_outopts.3x.html">curs_outopts.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_51">|</EM></FONT>
- <b>procedure</b> Set_NL_Mode (SwitchOn : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">nl()</A></EM></FONT>
- <FONT COLOR=green><EM>-- AKA: nonl()</EM></FONT>
- <b>pragma</b> Inline (Set_NL_Mode);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_52">|</EM></FONT>
- <b>procedure</b> Clear_On_Next_Update
- (Win : <b>in</b> Window := Standard_Window;
- Do_Clear : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">clearok()</A></EM></FONT>
- <b>pragma</b> Inline (Clear_On_Next_Update);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_53">|</EM></FONT>
- <b>procedure</b> Use_Insert_Delete_Line
- (Win : <b>in</b> Window := Standard_Window;
- Do_Idl : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">idlok()</A></EM></FONT>
- <b>pragma</b> Inline (Use_Insert_Delete_Line);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_54">|</EM></FONT>
- <b>procedure</b> Use_Insert_Delete_Character
- (Win : <b>in</b> Window := Standard_Window;
- Do_Idc : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">idcok()</A></EM></FONT>
- <b>pragma</b> Inline (Use_Insert_Delete_Character);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_55">|</EM></FONT>
- <b>procedure</b> Leave_Cursor_After_Update
- (Win : <b>in</b> Window := Standard_Window;
- Do_Leave : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">leaveok()</A></EM></FONT>
- <b>pragma</b> Inline (Leave_Cursor_After_Update);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_56">|</EM></FONT>
- <b>procedure</b> Immediate_Update_Mode
- (Win : <b>in</b> Window := Standard_Window;
- Mode : <b>in</b> Boolean := False);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">immedok()</A></EM></FONT>
- <b>pragma</b> Inline (Immediate_Update_Mode);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_57">|</EM></FONT>
- <b>procedure</b> Allow_Scrolling
- (Win : <b>in</b> Window := Standard_Window;
- Mode : <b>in</b> Boolean := False);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">scrollok()</A></EM></FONT>
- <b>pragma</b> Inline (Allow_Scrolling);
-
- <b>function</b> Scrolling_Allowed (Win : Window := Standard_Window) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- There is no such function in the C interface.</EM></FONT>
- <b>pragma</b> Inline (Scrolling_Allowed);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_58">|</EM></FONT>
- <b>procedure</b> Set_Scroll_Region
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Top_Line : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
- Bottom_Line : <b>in</b> Line_Position);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_outopts.3x.html">wsetscrreg()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Scroll_Region);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_refresh.3x.html">curs_refresh.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_59">|</EM></FONT>
- <b>procedure</b> Update_Screen;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">doupdate()</A></EM></FONT>
- <b>pragma</b> Inline (Update_Screen);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_60">|</EM></FONT>
- <b>procedure</b> Refresh (Win : <b>in</b> Window := Standard_Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wrefresh()</A></EM></FONT>
- <FONT COLOR=green><EM>-- There is an overloaded Refresh for Pads.</EM></FONT>
- <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_61">|</EM></FONT>
- <b>procedure</b> Refresh_Without_Update
- (Win : <b>in</b> Window := Standard_Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wnoutrefresh()</A></EM></FONT>
- <FONT COLOR=green><EM>-- There is an overloaded Refresh_Without_Update for Pads.</EM></FONT>
- <FONT COLOR=green><EM>-- The Inline pragma appears there</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_62">|</EM></FONT>
- <b>procedure</b> Redraw (Win : <b>in</b> Window := Standard_Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">redrawwin()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_63">|</EM></FONT>
- <b>procedure</b> Redraw (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Begin_Line : <b>in</b> Line_Position;
- Line_Count : <b>in</b> Positive);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_refresh.3x.html">wredrawln()</A></EM></FONT>
- <b>pragma</b> Inline (Redraw);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_clear.3x.html">curs_clear.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_64">|</EM></FONT>
- <b>procedure</b> Erase (Win : <b>in</b> Window := Standard_Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">werase()</A></EM></FONT>
- <b>pragma</b> Inline (Erase);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_65">|</EM></FONT>
- <b>procedure</b> Clear
- (Win : <b>in</b> Window := Standard_Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclear()</A></EM></FONT>
- <b>pragma</b> Inline (Clear);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_66">|</EM></FONT>
- <b>procedure</b> Clear_To_End_Of_Screen
- (Win : <b>in</b> Window := Standard_Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtobot()</A></EM></FONT>
- <b>pragma</b> Inline (Clear_To_End_Of_Screen);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_67">|</EM></FONT>
- <b>procedure</b> Clear_To_End_Of_Line
- (Win : <b>in</b> Window := Standard_Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_clear.3x.html">wclrtoeol()</A></EM></FONT>
- <b>pragma</b> Inline (Clear_To_End_Of_Line);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_bkgd.3x.html">curs_bkgd.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_68">|</EM></FONT>
- <b>procedure</b> Set_Background
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Window</A> := Standard_Window;
- Ch : <b>in</b> Attributed_Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdset()</A></EM></FONT>
- <b>pragma</b> Inline (Set_Background);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_69">|</EM></FONT>
- <b>procedure</b> Change_Background
- (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Window</A> := Standard_Window;
- Ch : <b>in</b> Attributed_Character);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgd()</A></EM></FONT>
- <b>pragma</b> Inline (Change_Background);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_70">|</EM></FONT>
- <b>function</b> <A HREF="terminal_interface-curses__ads.htm#351_9">Get_Background</A> (Win : Window := Standard_Window)
- <b>return</b> Attributed_Character;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_bkgd.3x.html">wbkgdget()</A></EM></FONT>
- <b>pragma</b> Inline (Get_Background);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_touch.3x.html">curs_touch.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_71">|</EM></FONT>
- <b>procedure</b> Untouch (Win : <b>in</b> Window := Standard_Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">untouchwin()</A></EM></FONT>
- <b>pragma</b> Inline (Untouch);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_72">|</EM></FONT>
- <b>procedure</b> Touch (Win : <b>in</b> Window := Standard_Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">touchwin()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_73">|</EM></FONT>
- <b>procedure</b> Touch (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Start : <b>in</b> Line_Position;
- Count : <b>in</b> Positive);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">touchline()</A></EM></FONT>
- <b>pragma</b> Inline (Touch);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_74">|</EM></FONT>
- <b>procedure</b> Change_Lines_Status (Win : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Start : <b>in</b> Line_Position;
- Count : <b>in</b> Positive;
- State : <b>in</b> Boolean);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">wtouchln()</A></EM></FONT>
- <b>pragma</b> Inline (Change_Lines_Status);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_75">|</EM></FONT>
- <b>function</b> Is_Touched (Win : <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A> := Standard_Window;
- Line : Line_Position) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">is_linetouched()</A></EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_76">|</EM></FONT>
- <b>function</b> Is_Touched (Win : Window := Standard_Window) <b>return</b> Boolean;
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_touch.3x.html">is_wintouched()</A></EM></FONT>
- <b>pragma</b> Inline (Is_Touched);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green><EM>-- | Man page <A HREF="../man/curs_overlay.3x.html">curs_overlay.3x</A></EM></FONT>
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_77">|</EM></FONT>
- <b>procedure</b> Copy
- (<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>;
- Destination_Window : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Window</A>;
- Source_Top_Row : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Source_Left_Column : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>;
- Destination_Top_Row : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Destination_Left_Column : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Column_Position</A>;
- Destination_Bottom_Row : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#61_9">Line_Position</A>;
- Destination_Right_Column : <b>in</b> Column_Position;
- Non_Destructive_Mode : <b>in</b> Boolean := True);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">copywin()</A></EM></FONT>
- <b>pragma</b> Inline (Copy);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_78">|</EM></FONT>
- <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>;
- Destination_Window : <b>in</b> Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">overwrite()</A></EM></FONT>
- <b>pragma</b> Inline (Overwrite);
-
- <FONT COLOR=green><EM>-- <A NAME="AFU_79">|</EM></FONT>
- <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>;
- Destination_Window : <b>in</b> Window);
- <FONT COLOR=green><EM>-- AKA: <A HREF="../man/curs_overlay.3x.html">overlay()</A></EM></FONT>
- <b>pragma</b> Inline (Overlay);
-
- <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
- <FONT COLOR=green&g