1 <!DOCTYPE html PUBLIC
"-//W3C//DTD HTML 4.01//EN">
4 <TITLE>terminal_interface-curses-menus.adb
</TITLE>
5 <meta http-equiv=
"Content-Type" content=
"text/html; charset=iso-8859-1">
6 <style type=
"text/css">
16 <HR><DIV style=
"text-align:center"><H1> File : terminal_interface-curses-menus.adb
</H1></DIV><HR>
18 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
19 <span class=
"comment"><EM>-- --
</EM></span>
20 <span class=
"comment"><EM>--
<A HREF=
"http://www.gnat.com">GNAT
</A> ncurses Binding --
</EM></span>
21 <span class=
"comment"><EM>-- --
</EM></span>
22 <span class=
"comment"><EM>-- Terminal_Interface.Curses.Menus --
</EM></span>
23 <span class=
"comment"><EM>-- --
</EM></span>
24 <span class=
"comment"><EM>-- B O D Y --
</EM></span>
25 <span class=
"comment"><EM>-- --
</EM></span>
26 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
27 <span class=
"comment"><EM>-- Copyright (c)
1998-
2011,
2014 Free Software Foundation, Inc. --
</EM></span>
28 <span class=
"comment"><EM>-- --
</EM></span>
29 <span class=
"comment"><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --
</EM></span>
30 <span class=
"comment"><EM>-- copy of this software and associated documentation files (the --
</EM></span>
31 <span class=
"comment"><EM>--
"Software"), to deal in the Software without restriction, including --
</EM></span>
32 <span class=
"comment"><EM>-- without limitation the rights to use, copy, modify, merge, publish, --
</EM></span>
33 <span class=
"comment"><EM>-- distribute, distribute with modifications, sublicense, and/or sell --
</EM></span>
34 <span class=
"comment"><EM>-- copies of the Software, and to permit persons to whom the Software is --
</EM></span>
35 <span class=
"comment"><EM>-- furnished to do so, subject to the following conditions: --
</EM></span>
36 <span class=
"comment"><EM>-- --
</EM></span>
37 <span class=
"comment"><EM>-- The above copyright notice and this permission notice shall be included --
</EM></span>
38 <span class=
"comment"><EM>-- in all copies or substantial portions of the Software. --
</EM></span>
39 <span class=
"comment"><EM>-- --
</EM></span>
40 <span class=
"comment"><EM>-- THE SOFTWARE IS PROVIDED
"AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
</EM></span>
41 <span class=
"comment"><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
</EM></span>
42 <span class=
"comment"><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --
</EM></span>
43 <span class=
"comment"><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --
</EM></span>
44 <span class=
"comment"><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --
</EM></span>
45 <span class=
"comment"><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --
</EM></span>
46 <span class=
"comment"><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --
</EM></span>
47 <span class=
"comment"><EM>-- --
</EM></span>
48 <span class=
"comment"><EM>-- Except as contained in this notice, the name(s) of the above copyright --
</EM></span>
49 <span class=
"comment"><EM>-- holders shall not be used in advertising or otherwise to promote the --
</EM></span>
50 <span class=
"comment"><EM>-- sale, use or other dealings in this Software without prior written --
</EM></span>
51 <span class=
"comment"><EM>-- authorization. --
</EM></span>
52 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
53 <span class=
"comment"><EM>-- Author: Juergen Pfeifer,
1996</EM></span>
54 <span class=
"comment"><EM>-- Version Control:
</EM></span>
55 <span class=
"comment"><EM>-- @Revision:
1.32 @
</EM></span>
56 <span class=
"comment"><EM>-- @Date:
2014/
05/
24 21:
31:
05 @
</EM></span>
57 <span class=
"comment"><EM>-- Binding Version
01.00</EM></span>
58 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
59 <b>with
</b> Ada.Unchecked_Deallocation;
60 <b>with
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_45_35">Aux
</A>;
<b>use
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_45_35">Aux
</A>;
62 <b>with
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C;
<b>use
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C;
63 <b>with
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Strings;
<b>use
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Strings;
64 <b>with
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Pointers;
66 <b>package
</b> <b>body
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<span class=
"symbol"><A NAME=
"ref_49_40" HREF=
"terminal_interface-curses-menus__ads.htm#ref_45_35">Menus
</A></span> <b>is
</b>
68 <b>type
</b> C_Item_Array
<b>is
</b> <b>array
</b> (Natural
<b>range
</b> <>)
<b>of
</b> <b>aliased
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
69 <b>package
</b> I_Array
<b>is
</b> <b>new
</b>
70 <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Pointers (Natural,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>, C_Item_Array,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A>);
72 <b>use
</b> <b>type
</b> System.Bit_Order;
73 <b>subtype
</b> <span class=
"symbol"><A NAME=
"ref_56_12">chars_ptr
</A></span> <b>is
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Strings.chars_ptr;
75 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
76 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_59_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_101_14">Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_59_28" HREF=
"terminal_interface-curses-menus__ads.htm#ref_101_28">Key
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A>;
77 <span class=
"symbol"><A NAME=
"ref_60_28" HREF=
"terminal_interface-curses-menus__ads.htm#ref_102_28">Name
</A></span> :
<b>out
</b> String)
79 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_62_16">Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_62_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_62_16">Key
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
80 <b>pragma
</b> Import (C, Request_Name,
"menu_request_name");
82 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_92_14">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_62_16">Request_Name
</A> (
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_101_28">Key
</A>)),
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_102_28">Name
</A>);
83 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_101_14">Request_Name
</A>;
85 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_68_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_104_14">Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_68_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_104_28">Key
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A>)
<b>return
</b> String
87 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_70_16">Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_70_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_70_16">Key
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
88 <b>pragma
</b> Import (C, Request_Name,
"menu_request_name");
90 <b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_97_13">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_70_16">Request_Name
</A> (
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_104_28">Key
</A>)));
91 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_104_14">Request_Name
</A>;
93 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_76_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_189_13">Create
</A></span> (
<span class=
"symbol"><A NAME=
"ref_76_21" HREF=
"terminal_interface-curses-menus__ads.htm#ref_189_21">Name
</A></span> : String;
94 <span class=
"symbol"><A NAME=
"ref_77_21" HREF=
"terminal_interface-curses-menus__ads.htm#ref_190_21">Description
</A></span> : String :=
"")
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>
96 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_79_12">Char_Ptr
</A></span> <b>is
</b> <b>access
</b> <b>all
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.char;
97 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_80_16">Newitem
</A></span> (
<span class=
"symbol"><A NAME=
"ref_80_25" HREF=
"terminal_interface-curses-menus__adb.htm#ref_80_16">Name
</A></span>,
<span class=
"symbol"><A NAME=
"ref_80_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_80_16">Desc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_79_12">Char_Ptr
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
98 <b>pragma
</b> Import (C, Newitem,
"new_item");
100 <b>type
</b> Name_String
<b>is
</b> <b>new
</b> char_array (
0 ..
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_189_21">Name
</A>'Length);
101 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_84_12">Name_String_Ptr
</A></span> <b>is
</b> <b>access
</b> Name_String;
102 <b>pragma
</b> Controlled (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_84_12">Name_String_Ptr
</A>);
104 <b>type
</b> Desc_String
<b>is
</b> <b>new
</b> char_array (
0 ..
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_190_21">Description
</A>'Length);
105 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_88_12">Desc_String_Ptr
</A></span> <b>is
</b> <b>access
</b> Desc_String;
106 <b>pragma
</b> Controlled (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_88_12">Desc_String_Ptr
</A>);
108 <span class=
"symbol"><A NAME=
"ref_91_7">Name_Str
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_84_12">Name_String_Ptr
</A> :=
<b>new
</b> Name_String;
109 <span class=
"symbol"><A NAME=
"ref_92_7">Desc_Str
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_88_12">Desc_String_Ptr
</A> :=
<b>new
</b> Desc_String;
110 <span class=
"symbol"><A NAME=
"ref_93_7">Name_Len
</A></span>,
<span class=
"symbol"><A NAME=
"ref_93_17">Desc_Len
</A></span> : size_t;
111 <span class=
"symbol"><A NAME=
"ref_94_7">Result
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
113 To_C (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_189_21">Name
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_91_7">Name_Str
</A>.
<b>all
</b>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_93_7">Name_Len
</A>);
114 To_C (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_190_21">Description
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_92_7">Desc_Str
</A>.
<b>all
</b>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_93_17">Desc_Len
</A>);
115 <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_94_7">Result
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_80_16">Newitem
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_91_7">Name_Str
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_91_7">Name_Str
</A>.
<b>all
</b>'First)'
<b>Access
</b>,
116 <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_92_7">Desc_Str
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_92_7">Desc_Str
</A>.
<b>all
</b>'First)'
<b>Access
</b>);
117 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_94_7">Result
</A> =
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A> <b>then
</b>
118 <b>raise
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_527_4">Eti_System_Error
</A>;
119 <b>end
</b> <b>if
</b>;
120 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_94_7">Result
</A>;
121 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_189_13">Create
</A>;
123 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_106_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_201_14">Delete
</A></span> (
<span class=
"symbol"><A NAME=
"ref_106_22" HREF=
"terminal_interface-curses-menus__ads.htm#ref_201_22">Itm
</A></span> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
125 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_108_16">Descname
</A></span> (
<span class=
"symbol"><A NAME=
"ref_108_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_108_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
126 <b>pragma
</b> Import (C, Descname,
"item_description");
127 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_110_16">Itemname
</A></span> (
<span class=
"symbol"><A NAME=
"ref_110_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_110_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
128 <b>pragma
</b> Import (C, Itemname,
"item_name");
130 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_113_16">Freeitem
</A></span> (
<span class=
"symbol"><A NAME=
"ref_113_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_113_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
131 <b>pragma
</b> Import (C, Freeitem,
"free_item");
133 <span class=
"symbol"><A NAME=
"ref_116_7">Ptr
</A></span> :
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
135 <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_116_7">Ptr
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_108_16">Descname
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_201_22">Itm
</A>);
136 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_116_7">Ptr
</A> /= Null_Ptr
<b>then
</b>
137 <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Strings.Free (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_116_7">Ptr
</A>);
138 <b>end
</b> <b>if
</b>;
139 <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_116_7">Ptr
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_110_16">Itemname
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_201_22">Itm
</A>);
140 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_116_7">Ptr
</A> /= Null_Ptr
<b>then
</b>
141 <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.Strings.Free (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_116_7">Ptr
</A>);
142 <b>end
</b> <b>if
</b>;
143 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_113_16">Freeitem
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_201_22">Itm
</A>));
144 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_201_22">Itm
</A> :=
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A>;
145 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_201_14">Delete
</A>;
146 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
147 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_130_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_210_14">Set_Value
</A></span> (
<span class=
"symbol"><A NAME=
"ref_130_25" HREF=
"terminal_interface-curses-menus__ads.htm#ref_210_25">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
148 <span class=
"symbol"><A NAME=
"ref_131_25" HREF=
"terminal_interface-curses-menus__ads.htm#ref_211_25">Value
</A></span> : Boolean := True)
150 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_133_16">Set_Item_Val
</A></span> (
<span class=
"symbol"><A NAME=
"ref_133_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_133_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
151 <span class=
"symbol"><A NAME=
"ref_134_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_133_16">Val
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
152 <b>pragma
</b> Import (C, Set_Item_Val,
"set_item_value");
155 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_133_16">Set_Item_Val
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_210_25">Itm
</A>, Boolean'Pos (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_211_25">Value
</A>)));
156 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_210_14">Set_Value
</A>;
158 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_141_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_216_13">Value
</A></span> (
<span class=
"symbol"><A NAME=
"ref_141_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_216_20">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> Boolean
160 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_143_16">Item_Val
</A></span> (
<span class=
"symbol"><A NAME=
"ref_143_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_143_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
161 <b>pragma
</b> Import (C, Item_Val,
"item_value");
163 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_143_16">Item_Val
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_216_20">Itm
</A>) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_68_4">Curses_False
</A> <b>then
</b>
167 <b>end
</b> <b>if
</b>;
168 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_216_13">Value
</A>;
170 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
171 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_154_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_225_13">Visible
</A></span> (
<span class=
"symbol"><A NAME=
"ref_154_22" HREF=
"terminal_interface-curses-menus__ads.htm#ref_225_22">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> Boolean
173 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_156_16">Item_Vis
</A></span> (
<span class=
"symbol"><A NAME=
"ref_156_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_156_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
174 <b>pragma
</b> Import (C, Item_Vis,
"item_visible");
176 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_156_16">Item_Vis
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_225_22">Itm
</A>) =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_68_4">Curses_False
</A> <b>then
</b>
180 <b>end
</b> <b>if
</b>;
181 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_225_13">Visible
</A>;
182 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
183 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_166_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_234_14">Set_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_166_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_234_27">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
184 <span class=
"symbol"><A NAME=
"ref_167_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_235_27">Options
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>)
186 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_169_16">Set_Item_Opts
</A></span> (
<span class=
"symbol"><A NAME=
"ref_169_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_169_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
187 <span class=
"symbol"><A NAME=
"ref_170_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_169_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
188 <b>pragma
</b> Import (C, Set_Item_Opts,
"set_item_opts");
191 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_169_16">Set_Item_Opts
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_234_27">Itm
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_235_27">Options
</A>));
192 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_234_14">Set_Options
</A>;
194 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_177_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_240_14">Switch_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_177_30" HREF=
"terminal_interface-curses-menus__ads.htm#ref_240_30">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
195 <span class=
"symbol"><A NAME=
"ref_178_30" HREF=
"terminal_interface-curses-menus__ads.htm#ref_241_30">Options
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>;
196 <span class=
"symbol"><A NAME=
"ref_179_30" HREF=
"terminal_interface-curses-menus__ads.htm#ref_242_30">On
</A></span> : Boolean := True)
198 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_181_16">Item_Opts_On
</A></span> (
<span class=
"symbol"><A NAME=
"ref_181_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_181_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
199 <span class=
"symbol"><A NAME=
"ref_182_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_181_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
200 <b>pragma
</b> Import (C, Item_Opts_On,
"item_opts_on");
201 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_184_16">Item_Opts_Off
</A></span> (
<span class=
"symbol"><A NAME=
"ref_184_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_184_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
202 <span class=
"symbol"><A NAME=
"ref_185_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_184_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
203 <b>pragma
</b> Import (C, Item_Opts_Off,
"item_opts_off");
206 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_242_30">On
</A> <b>then
</b>
207 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_181_16">Item_Opts_On
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_240_30">Itm
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_241_30">Options
</A>));
209 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_184_16">Item_Opts_Off
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_240_30">Itm
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_241_30">Options
</A>));
210 <b>end
</b> <b>if
</b>;
211 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_240_14">Switch_Options
</A>;
213 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_196_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_249_14">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_196_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_249_27">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
214 <span class=
"symbol"><A NAME=
"ref_197_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_250_27">Options
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>)
216 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_199_16">Item_Opts
</A></span> (
<span class=
"symbol"><A NAME=
"ref_199_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_199_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>;
217 <b>pragma
</b> Import (C, Item_Opts,
"item_opts");
220 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_250_27">Options
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_199_16">Item_Opts
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_249_27">Itm
</A>);
221 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_249_14">Get_Options
</A>;
223 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_206_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_254_13">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_206_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_254_26">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A> :=
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>
225 <span class=
"symbol"><A NAME=
"ref_208_7">Ios
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>;
227 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_249_14">Get_Options
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_254_26">Itm
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_208_7">Ios
</A>);
228 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_208_7">Ios
</A>;
229 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_254_13">Get_Options
</A>;
230 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
231 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_214_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_263_14">Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_214_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_263_20">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
232 <span class=
"symbol"><A NAME=
"ref_215_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_264_20">Name
</A></span> :
<b>out
</b> String)
234 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_217_16">Itemname
</A></span> (
<span class=
"symbol"><A NAME=
"ref_217_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_217_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
235 <b>pragma
</b> Import (C, Itemname,
"item_name");
237 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_92_14">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_217_16">Itemname
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_263_20">Itm
</A>),
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_264_20">Name
</A>);
238 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_263_14">Name
</A>;
240 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_223_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_266_14">Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_223_19" HREF=
"terminal_interface-curses-menus__ads.htm#ref_266_20">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> String
242 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_225_16">Itemname
</A></span> (
<span class=
"symbol"><A NAME=
"ref_225_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_225_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
243 <b>pragma
</b> Import (C, Itemname,
"item_name");
245 <b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_97_13">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_225_16">Itemname
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_266_20">Itm
</A>));
246 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_266_14">Name
</A>;
248 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_231_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_272_14">Description
</A></span> (
<span class=
"symbol"><A NAME=
"ref_231_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_272_27">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
249 <span class=
"symbol"><A NAME=
"ref_232_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_273_27">Description
</A></span> :
<b>out
</b> String)
251 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_234_16">Descname
</A></span> (
<span class=
"symbol"><A NAME=
"ref_234_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_234_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
252 <b>pragma
</b> Import (C, Descname,
"item_description");
254 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_92_14">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_234_16">Descname
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_272_27">Itm
</A>),
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_273_27">Description
</A>);
255 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_272_14">Description
</A>;
257 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_240_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_276_14">Description
</A></span> (
<span class=
"symbol"><A NAME=
"ref_240_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_276_27">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> String
259 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_242_16">Descname
</A></span> (
<span class=
"symbol"><A NAME=
"ref_242_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_242_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
260 <b>pragma
</b> Import (C, Descname,
"item_description");
262 <b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_97_13">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_242_16">Descname
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_276_27">Itm
</A>));
263 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_276_14">Description
</A>;
264 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
265 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_248_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_286_14">Set_Current
</A></span> (
<span class=
"symbol"><A NAME=
"ref_248_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_286_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
266 <span class=
"symbol"><A NAME=
"ref_249_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_287_27">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
268 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_251_16">Set_Curr_Item
</A></span> (
<span class=
"symbol"><A NAME=
"ref_251_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_251_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
269 <span class=
"symbol"><A NAME=
"ref_252_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_251_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
270 <b>pragma
</b> Import (C, Set_Curr_Item,
"set_current_item");
273 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_251_16">Set_Curr_Item
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_286_27">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_287_27">Itm
</A>));
274 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_286_14">Set_Current
</A>;
276 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_259_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_292_13">Current
</A></span> (
<span class=
"symbol"><A NAME=
"ref_259_22" HREF=
"terminal_interface-curses-menus__ads.htm#ref_292_22">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>
278 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_261_16">Curr_Item
</A></span> (
<span class=
"symbol"><A NAME=
"ref_261_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_261_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
279 <b>pragma
</b> Import (C, Curr_Item,
"current_item");
281 <span class=
"symbol"><A NAME=
"ref_264_7">Res
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_261_16">Curr_Item
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_292_22">Men
</A>);
283 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_264_7">Res
</A> =
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A> <b>then
</b>
284 <b>raise
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_111_4">Menu_Exception
</A>;
285 <b>end
</b> <b>if
</b>;
286 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_264_7">Res
</A>;
287 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_292_13">Current
</A>;
289 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_272_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_297_14">Set_Top_Row
</A></span> (
<span class=
"symbol"><A NAME=
"ref_272_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_297_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
290 <span class=
"symbol"><A NAME=
"ref_273_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_298_27">Line
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>)
292 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_275_16">Set_Toprow
</A></span> (
<span class=
"symbol"><A NAME=
"ref_275_28" HREF=
"terminal_interface-curses-menus__adb.htm#ref_275_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
293 <span class=
"symbol"><A NAME=
"ref_276_28" HREF=
"terminal_interface-curses-menus__adb.htm#ref_275_16">Line
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
294 <b>pragma
</b> Import (C, Set_Toprow,
"set_top_row");
297 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_275_16">Set_Toprow
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_297_27">Men
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_298_27">Line
</A>)));
298 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_297_14">Set_Top_Row
</A>;
300 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_283_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_303_13">Top_Row
</A></span> (
<span class=
"symbol"><A NAME=
"ref_283_22" HREF=
"terminal_interface-curses-menus__ads.htm#ref_303_22">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>
302 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_285_16">Toprow
</A></span> (
<span class=
"symbol"><A NAME=
"ref_285_24" HREF=
"terminal_interface-curses-menus__adb.htm#ref_285_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
303 <b>pragma
</b> Import (C, Toprow,
"top_row");
305 <span class=
"symbol"><A NAME=
"ref_288_7">Res
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_285_16">Toprow
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_303_22">Men
</A>);
307 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_288_7">Res
</A> =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_65_4">Curses_Err
</A> <b>then
</b>
308 <b>raise
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_111_4">Menu_Exception
</A>;
309 <b>end
</b> <b>if
</b>;
310 <b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_288_7">Res
</A>);
311 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_303_13">Top_Row
</A>;
313 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_296_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_308_13">Get_Index
</A></span> (
<span class=
"symbol"><A NAME=
"ref_296_24" HREF=
"terminal_interface-curses-menus__ads.htm#ref_308_24">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> Positive
315 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_298_16">Get_Itemindex
</A></span> (
<span class=
"symbol"><A NAME=
"ref_298_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_298_16">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
316 <b>pragma
</b> Import (C, Get_Itemindex,
"item_index");
318 <span class=
"symbol"><A NAME=
"ref_301_7">Res
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_298_16">Get_Itemindex
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_308_24">Itm
</A>);
320 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_301_7">Res
</A> =
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_65_4">Curses_Err
</A> <b>then
</b>
321 <b>raise
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_111_4">Menu_Exception
</A>;
322 <b>end
</b> <b>if
</b>;
323 <b>return
</b> Positive (Natural (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_301_7">Res
</A>) + Positive'First);
324 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_308_13">Get_Index
</A>;
325 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
326 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_309_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_320_14">Post
</A></span> (
<span class=
"symbol"><A NAME=
"ref_309_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_320_20">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
327 <span class=
"symbol"><A NAME=
"ref_310_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_321_20">Post
</A></span> : Boolean := True)
329 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_312_16">M_Post
</A></span> (
<span class=
"symbol"><A NAME=
"ref_312_24" HREF=
"terminal_interface-curses-menus__adb.htm#ref_312_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
330 <b>pragma
</b> Import (C, M_Post,
"post_menu");
331 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_314_16">M_Unpost
</A></span> (
<span class=
"symbol"><A NAME=
"ref_314_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_314_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
332 <b>pragma
</b> Import (C, M_Unpost,
"unpost_menu");
335 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_321_20">Post
</A> <b>then
</b>
336 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_312_16">M_Post
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_320_20">Men
</A>));
338 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_314_16">M_Unpost
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_320_20">Men
</A>));
339 <b>end
</b> <b>if
</b>;
340 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_320_14">Post
</A>;
341 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
342 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_325_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_331_14">Set_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_325_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_331_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
343 <span class=
"symbol"><A NAME=
"ref_326_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_332_27">Options
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>)
345 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_328_16">Set_Menu_Opts
</A></span> (
<span class=
"symbol"><A NAME=
"ref_328_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_328_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
346 <span class=
"symbol"><A NAME=
"ref_329_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_328_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
347 <b>pragma
</b> Import (C, Set_Menu_Opts,
"set_menu_opts");
350 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_328_16">Set_Menu_Opts
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_331_27">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_332_27">Options
</A>));
351 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_331_14">Set_Options
</A>;
353 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_336_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_337_14">Switch_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_336_30" HREF=
"terminal_interface-curses-menus__ads.htm#ref_337_30">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
354 <span class=
"symbol"><A NAME=
"ref_337_30" HREF=
"terminal_interface-curses-menus__ads.htm#ref_338_30">Options
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>;
355 <span class=
"symbol"><A NAME=
"ref_338_30" HREF=
"terminal_interface-curses-menus__ads.htm#ref_339_30">On
</A></span> : Boolean := True)
357 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_340_16">Menu_Opts_On
</A></span> (
<span class=
"symbol"><A NAME=
"ref_340_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_340_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
358 <span class=
"symbol"><A NAME=
"ref_341_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_340_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
359 <b>pragma
</b> Import (C, Menu_Opts_On,
"menu_opts_on");
360 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_343_16">Menu_Opts_Off
</A></span> (
<span class=
"symbol"><A NAME=
"ref_343_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_343_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
361 <span class=
"symbol"><A NAME=
"ref_344_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_343_16">Opt
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
362 <b>pragma
</b> Import (C, Menu_Opts_Off,
"menu_opts_off");
365 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_339_30">On
</A> <b>then
</b>
366 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_340_16">Menu_Opts_On
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_337_30">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_338_30">Options
</A>));
368 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_343_16">Menu_Opts_Off
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_337_30">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_338_30">Options
</A>));
369 <b>end
</b> <b>if
</b>;
370 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_337_14">Switch_Options
</A>;
372 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_355_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_345_14">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_355_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_345_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
373 <span class=
"symbol"><A NAME=
"ref_356_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_346_27">Options
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>)
375 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_358_16">Menu_Opts
</A></span> (
<span class=
"symbol"><A NAME=
"ref_358_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_358_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>;
376 <b>pragma
</b> Import (C, Menu_Opts,
"menu_opts");
379 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_346_27">Options
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_358_16">Menu_Opts
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_345_27">Men
</A>);
380 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_345_14">Get_Options
</A>;
382 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_365_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_350_13">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_365_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_350_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A> :=
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_58_4">Null_Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>
384 <span class=
"symbol"><A NAME=
"ref_367_7">Mos
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>;
386 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_345_14">Get_Options
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_350_26">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_367_7">Mos
</A>);
387 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_367_7">Mos
</A>;
388 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_350_13">Get_Options
</A>;
389 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
390 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_373_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_359_14">Set_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_373_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_359_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
391 <span class=
"symbol"><A NAME=
"ref_374_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_360_26">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
393 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_376_16">Set_Menu_Win
</A></span> (
<span class=
"symbol"><A NAME=
"ref_376_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_376_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
394 <span class=
"symbol"><A NAME=
"ref_377_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_376_16">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
395 <b>pragma
</b> Import (C, Set_Menu_Win,
"set_menu_win");
398 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_376_16">Set_Menu_Win
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_359_26">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_360_26">Win
</A>));
399 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_359_14">Set_Window
</A>;
401 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_384_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_365_13">Get_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_384_25" HREF=
"terminal_interface-curses-menus__ads.htm#ref_365_25">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>
403 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_386_16">Menu_Win
</A></span> (
<span class=
"symbol"><A NAME=
"ref_386_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_386_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>;
404 <b>pragma
</b> Import (C, Menu_Win,
"menu_win");
406 <span class=
"symbol"><A NAME=
"ref_389_7">W
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_386_16">Menu_Win
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_365_25">Men
</A>);
408 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_389_7">W
</A>;
409 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_365_13">Get_Window
</A>;
411 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_394_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_370_14">Set_Sub_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_394_30" HREF=
"terminal_interface-curses-menus__ads.htm#ref_370_30">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
412 <span class=
"symbol"><A NAME=
"ref_395_30" HREF=
"terminal_interface-curses-menus__ads.htm#ref_371_30">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
414 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_397_16">Set_Menu_Sub
</A></span> (
<span class=
"symbol"><A NAME=
"ref_397_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_397_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
415 <span class=
"symbol"><A NAME=
"ref_398_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_397_16">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
416 <b>pragma
</b> Import (C, Set_Menu_Sub,
"set_menu_sub");
419 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_397_16">Set_Menu_Sub
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_370_30">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_371_30">Win
</A>));
420 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_370_14">Set_Sub_Window
</A>;
422 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_405_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_376_13">Get_Sub_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_405_29" HREF=
"terminal_interface-curses-menus__ads.htm#ref_376_29">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>
424 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_407_16">Menu_Sub
</A></span> (
<span class=
"symbol"><A NAME=
"ref_407_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_407_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>;
425 <b>pragma
</b> Import (C, Menu_Sub,
"menu_sub");
427 <span class=
"symbol"><A NAME=
"ref_410_7">W
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_407_16">Menu_Sub
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_376_29">Men
</A>);
429 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_410_7">W
</A>;
430 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_376_13">Get_Sub_Window
</A>;
432 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_415_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_381_14">Scale
</A></span> (
<span class=
"symbol"><A NAME=
"ref_415_21" HREF=
"terminal_interface-curses-menus__ads.htm#ref_381_21">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
433 <span class=
"symbol"><A NAME=
"ref_416_21" HREF=
"terminal_interface-curses-menus__ads.htm#ref_382_21">Lines
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
434 <span class=
"symbol"><A NAME=
"ref_417_21" HREF=
"terminal_interface-curses-menus__ads.htm#ref_383_21">Columns
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>)
436 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_419_12">C_Int_Access
</A></span> <b>is
</b> <b>access
</b> <b>all
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
437 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_420_16">M_Scale
</A></span> (
<span class=
"symbol"><A NAME=
"ref_420_25" HREF=
"terminal_interface-curses-menus__adb.htm#ref_420_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
438 <span class=
"symbol"><A NAME=
"ref_421_25" HREF=
"terminal_interface-curses-menus__adb.htm#ref_420_16">Yp
</A></span>,
<span class=
"symbol"><A NAME=
"ref_421_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_420_16">Xp
</A></span> :
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_419_12">C_Int_Access
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
439 <b>pragma
</b> Import (C, M_Scale,
"scale_menu");
441 <span class=
"symbol"><A NAME=
"ref_424_7">X
</A></span>,
<span class=
"symbol"><A NAME=
"ref_424_10">Y
</A></span> :
<b>aliased
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
443 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_420_16">M_Scale
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_381_21">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_424_10">Y
</A>'
<b>Access
</b>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_424_7">X
</A>'
<b>Access
</b>));
444 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_382_21">Lines
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_424_10">Y
</A>);
445 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_383_21">Columns
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_424_7">X
</A>);
446 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_381_14">Scale
</A>;
447 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
448 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_431_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_392_14">Position_Cursor
</A></span> (
<span class=
"symbol"><A NAME=
"ref_431_31" HREF=
"terminal_interface-curses-menus__ads.htm#ref_392_31">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
450 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_433_16">Pos_Menu_Cursor
</A></span> (
<span class=
"symbol"><A NAME=
"ref_433_33" HREF=
"terminal_interface-curses-menus__adb.htm#ref_433_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
451 <b>pragma
</b> Import (C, Pos_Menu_Cursor,
"pos_menu_cursor");
454 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_433_16">Pos_Menu_Cursor
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_392_31">Men
</A>));
455 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_392_14">Position_Cursor
</A>;
457 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
458 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_441_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_401_14">Set_Mark
</A></span> (
<span class=
"symbol"><A NAME=
"ref_441_24" HREF=
"terminal_interface-curses-menus__ads.htm#ref_401_24">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
459 <span class=
"symbol"><A NAME=
"ref_442_24" HREF=
"terminal_interface-curses-menus__ads.htm#ref_402_24">Mark
</A></span> : String)
461 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_444_12">Char_Ptr
</A></span> <b>is
</b> <b>access
</b> <b>all
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.char;
462 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_445_16">Set_Mark
</A></span> (
<span class=
"symbol"><A NAME=
"ref_445_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_445_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
463 <span class=
"symbol"><A NAME=
"ref_446_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_445_16">Mark
</A></span> :
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_444_12">Char_Ptr
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
464 <b>pragma
</b> Import (C, Set_Mark,
"set_menu_mark");
466 <span class=
"symbol"><A NAME=
"ref_449_7">Txt
</A></span> : char_array (
0 ..
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_402_24">Mark
</A>'Length);
467 <span class=
"symbol"><A NAME=
"ref_450_7">Len
</A></span> : size_t;
469 To_C (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_402_24">Mark
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_449_7">Txt
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_450_7">Len
</A>);
470 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_445_16">Set_Mark
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_401_24">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_449_7">Txt
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_449_7">Txt
</A>'First)'
<b>Access
</b>));
471 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_401_14">Set_Mark
</A>;
473 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_456_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_407_14">Mark
</A></span> (
<span class=
"symbol"><A NAME=
"ref_456_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_407_20">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
474 <span class=
"symbol"><A NAME=
"ref_457_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_408_20">Mark
</A></span> :
<b>out
</b> String)
476 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_459_16">Get_Menu_Mark
</A></span> (
<span class=
"symbol"><A NAME=
"ref_459_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_459_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
477 <b>pragma
</b> Import (C, Get_Menu_Mark,
"menu_mark");
479 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_92_14">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_459_16">Get_Menu_Mark
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_407_20">Men
</A>),
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_408_20">Mark
</A>);
480 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_407_14">Mark
</A>;
482 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_465_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_411_14">Mark
</A></span> (
<span class=
"symbol"><A NAME=
"ref_465_19" HREF=
"terminal_interface-curses-menus__ads.htm#ref_411_20">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> String
484 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_467_16">Get_Menu_Mark
</A></span> (
<span class=
"symbol"><A NAME=
"ref_467_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_467_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
485 <b>pragma
</b> Import (C, Get_Menu_Mark,
"menu_mark");
487 <b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_97_13">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_467_16">Get_Menu_Mark
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_411_20">Men
</A>));
488 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_411_14">Mark
</A>;
490 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
491 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_474_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_421_14">Set_Foreground
</A></span>
492 (
<span class=
"symbol"><A NAME=
"ref_475_7" HREF=
"terminal_interface-curses-menus__ads.htm#ref_422_7">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
493 <span class=
"symbol"><A NAME=
"ref_476_7" HREF=
"terminal_interface-curses-menus__ads.htm#ref_423_7">Fore
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_485_4">Normal_Video
</A>;
494 <span class=
"symbol"><A NAME=
"ref_477_7" HREF=
"terminal_interface-curses-menus__ads.htm#ref_424_7">Color
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>'First)
496 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_479_16">Set_Menu_Fore
</A></span> (
<span class=
"symbol"><A NAME=
"ref_479_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_479_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
497 <span class=
"symbol"><A NAME=
"ref_480_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_479_16">Attr
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
498 <b>pragma
</b> Import (C, Set_Menu_Fore,
"set_menu_fore");
500 <span class=
"symbol"><A NAME=
"ref_483_7">Ch
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A> := (
<A HREF=
"terminal_interface-curses__ads.htm#ref_491_10">Ch
</A> =
> Character'First,
501 <A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A> =
> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_424_7">Color
</A>,
502 <A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A> =
> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_423_7">Fore
</A>);
504 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_479_16">Set_Menu_Fore
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_422_7">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_483_7">Ch
</A>));
505 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_421_14">Set_Foreground
</A>;
507 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_490_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_429_14">Foreground
</A></span> (
<span class=
"symbol"><A NAME=
"ref_490_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_429_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
508 <span class=
"symbol"><A NAME=
"ref_491_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_430_26">Fore
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>)
510 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_493_16">Menu_Fore
</A></span> (
<span class=
"symbol"><A NAME=
"ref_493_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_493_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
511 <b>pragma
</b> Import (C, Menu_Fore,
"menu_fore");
513 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_430_26">Fore
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_493_16">Menu_Fore
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_429_26">Men
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
514 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_429_14">Foreground
</A>;
516 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_499_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_434_14">Foreground
</A></span> (
<span class=
"symbol"><A NAME=
"ref_499_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_434_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
517 <span class=
"symbol"><A NAME=
"ref_500_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_435_26">Fore
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>;
518 <span class=
"symbol"><A NAME=
"ref_501_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_436_26">Color
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>)
520 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_503_16">Menu_Fore
</A></span> (
<span class=
"symbol"><A NAME=
"ref_503_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_503_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
521 <b>pragma
</b> Import (C, Menu_Fore,
"menu_fore");
523 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_435_26">Fore
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_503_16">Menu_Fore
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_434_26">Men
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
524 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_436_26">Color
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_503_16">Menu_Fore
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_434_26">Men
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A>;
525 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_434_14">Foreground
</A>;
527 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_510_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_441_14">Set_Background
</A></span>
528 (
<span class=
"symbol"><A NAME=
"ref_511_7" HREF=
"terminal_interface-curses-menus__ads.htm#ref_442_7">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
529 <span class=
"symbol"><A NAME=
"ref_512_7" HREF=
"terminal_interface-curses-menus__ads.htm#ref_443_7">Back
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_485_4">Normal_Video
</A>;
530 <span class=
"symbol"><A NAME=
"ref_513_7" HREF=
"terminal_interface-curses-menus__ads.htm#ref_444_7">Color
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>'First)
532 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_515_16">Set_Menu_Back
</A></span> (
<span class=
"symbol"><A NAME=
"ref_515_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_515_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
533 <span class=
"symbol"><A NAME=
"ref_516_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_515_16">Attr
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
534 <b>pragma
</b> Import (C, Set_Menu_Back,
"set_menu_back");
536 <span class=
"symbol"><A NAME=
"ref_519_7">Ch
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A> := (
<A HREF=
"terminal_interface-curses__ads.htm#ref_491_10">Ch
</A> =
> Character'First,
537 <A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A> =
> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_444_7">Color
</A>,
538 <A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A> =
> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_443_7">Back
</A>);
540 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_515_16">Set_Menu_Back
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_442_7">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_519_7">Ch
</A>));
541 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_441_14">Set_Background
</A>;
543 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_526_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_449_14">Background
</A></span> (
<span class=
"symbol"><A NAME=
"ref_526_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_449_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
544 <span class=
"symbol"><A NAME=
"ref_527_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_450_26">Back
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>)
546 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_529_16">Menu_Back
</A></span> (
<span class=
"symbol"><A NAME=
"ref_529_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_529_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
547 <b>pragma
</b> Import (C, Menu_Back,
"menu_back");
549 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_450_26">Back
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_529_16">Menu_Back
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_449_26">Men
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
550 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_449_14">Background
</A>;
552 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_535_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_454_14">Background
</A></span> (
<span class=
"symbol"><A NAME=
"ref_535_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_454_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
553 <span class=
"symbol"><A NAME=
"ref_536_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_455_26">Back
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>;
554 <span class=
"symbol"><A NAME=
"ref_537_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_456_26">Color
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>)
556 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_539_16">Menu_Back
</A></span> (
<span class=
"symbol"><A NAME=
"ref_539_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_539_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
557 <b>pragma
</b> Import (C, Menu_Back,
"menu_back");
559 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_455_26">Back
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_539_16">Menu_Back
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_454_26">Men
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
560 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_456_26">Color
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_539_16">Menu_Back
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_454_26">Men
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A>;
561 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_454_14">Background
</A>;
563 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_546_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_461_14">Set_Grey
</A></span> (
<span class=
"symbol"><A NAME=
"ref_546_24" HREF=
"terminal_interface-curses-menus__ads.htm#ref_462_7">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
564 <span class=
"symbol"><A NAME=
"ref_547_24" HREF=
"terminal_interface-curses-menus__ads.htm#ref_463_7">Grey
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_485_4">Normal_Video
</A>;
565 <span class=
"symbol"><A NAME=
"ref_548_24" HREF=
"terminal_interface-curses-menus__ads.htm#ref_464_7">Color
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>'First)
567 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_550_16">Set_Menu_Grey
</A></span> (
<span class=
"symbol"><A NAME=
"ref_550_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_550_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
568 <span class=
"symbol"><A NAME=
"ref_551_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_550_16">Attr
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
569 <b>pragma
</b> Import (C, Set_Menu_Grey,
"set_menu_grey");
571 <span class=
"symbol"><A NAME=
"ref_554_7">Ch
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A> := (
<A HREF=
"terminal_interface-curses__ads.htm#ref_491_10">Ch
</A> =
> Character'First,
572 <A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A> =
> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_464_7">Color
</A>,
573 <A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A> =
> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_463_7">Grey
</A>);
576 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_550_16">Set_Menu_Grey
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_462_7">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_554_7">Ch
</A>));
577 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_461_14">Set_Grey
</A>;
579 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_562_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_469_14">Grey
</A></span> (
<span class=
"symbol"><A NAME=
"ref_562_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_469_20">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
580 <span class=
"symbol"><A NAME=
"ref_563_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_470_20">Grey
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>)
582 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_565_16">Menu_Grey
</A></span> (
<span class=
"symbol"><A NAME=
"ref_565_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_565_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
583 <b>pragma
</b> Import (C, Menu_Grey,
"menu_grey");
585 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_470_20">Grey
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_565_16">Menu_Grey
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_469_20">Men
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
586 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_469_14">Grey
</A>;
588 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_571_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_474_14">Grey
</A></span> (
<span class=
"symbol"><A NAME=
"ref_571_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_475_7">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
589 <span class=
"symbol"><A NAME=
"ref_572_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_476_7">Grey
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>;
590 <span class=
"symbol"><A NAME=
"ref_573_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_477_7">Color
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>)
592 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_575_16">Menu_Grey
</A></span> (
<span class=
"symbol"><A NAME=
"ref_575_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_575_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_487_9">Attributed_Character
</A>;
593 <b>pragma
</b> Import (C, Menu_Grey,
"menu_grey");
595 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_476_7">Grey
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_575_16">Menu_Grey
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_475_7">Men
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_489_10">Attr
</A>;
596 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_477_7">Color
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_575_16">Menu_Grey
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_475_7">Men
</A>).
<A HREF=
"terminal_interface-curses__ads.htm#ref_490_10">Color
</A>;
597 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_474_14">Grey
</A>;
599 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_582_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_482_14">Set_Pad_Character
</A></span> (
<span class=
"symbol"><A NAME=
"ref_582_33" HREF=
"terminal_interface-curses-menus__ads.htm#ref_482_33">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
600 <span class=
"symbol"><A NAME=
"ref_583_33" HREF=
"terminal_interface-curses-menus__ads.htm#ref_483_33">Pad
</A></span> : Character := Space)
602 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_585_16">Set_Menu_Pad
</A></span> (
<span class=
"symbol"><A NAME=
"ref_585_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_585_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
603 <span class=
"symbol"><A NAME=
"ref_586_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_585_16">Ch
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
604 <b>pragma
</b> Import (C, Set_Menu_Pad,
"set_menu_pad");
607 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_585_16">Set_Menu_Pad
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_482_33">Men
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (Character'Pos (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_483_33">Pad
</A>))));
608 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_482_14">Set_Pad_Character
</A>;
610 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_593_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_488_14">Pad_Character
</A></span> (
<span class=
"symbol"><A NAME=
"ref_593_29" HREF=
"terminal_interface-curses-menus__ads.htm#ref_488_29">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
611 <span class=
"symbol"><A NAME=
"ref_594_29" HREF=
"terminal_interface-curses-menus__ads.htm#ref_489_29">Pad
</A></span> :
<b>out
</b> Character)
613 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_596_16">Menu_Pad
</A></span> (
<span class=
"symbol"><A NAME=
"ref_596_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_596_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
614 <b>pragma
</b> Import (C, Menu_Pad,
"menu_pad");
616 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_489_29">Pad
</A> := Character'Val (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_596_16">Menu_Pad
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_488_29">Men
</A>));
617 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_488_14">Pad_Character
</A>;
618 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
619 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_602_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_498_14">Set_Spacing
</A></span> (
<span class=
"symbol"><A NAME=
"ref_602_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_498_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
620 <span class=
"symbol"><A NAME=
"ref_603_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_499_27">Descr
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A> :=
0;
621 <span class=
"symbol"><A NAME=
"ref_604_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_500_27">Row
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A> :=
0;
622 <span class=
"symbol"><A NAME=
"ref_605_27" HREF=
"terminal_interface-curses-menus__ads.htm#ref_501_27">Col
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A> :=
0)
624 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_607_16">Set_Spacing
</A></span> (
<span class=
"symbol"><A NAME=
"ref_607_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_607_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
625 <span class=
"symbol"><A NAME=
"ref_608_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_607_16">D
</A></span>,
<span class=
"symbol"><A NAME=
"ref_608_32" HREF=
"terminal_interface-curses-menus__adb.htm#ref_607_16">R
</A></span>,
<span class=
"symbol"><A NAME=
"ref_608_35" HREF=
"terminal_interface-curses-menus__adb.htm#ref_607_16">C
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
626 <b>pragma
</b> Import (C, Set_Spacing,
"set_menu_spacing");
629 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_607_16">Set_Spacing
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_498_27">Men
</A>,
630 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_499_27">Descr
</A>),
631 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_500_27">Row
</A>),
632 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_501_27">Col
</A>)));
633 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_498_14">Set_Spacing
</A>;
635 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_618_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_506_14">Spacing
</A></span> (
<span class=
"symbol"><A NAME=
"ref_618_23" HREF=
"terminal_interface-curses-menus__ads.htm#ref_506_23">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
636 <span class=
"symbol"><A NAME=
"ref_619_23" HREF=
"terminal_interface-curses-menus__ads.htm#ref_507_23">Descr
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>;
637 <span class=
"symbol"><A NAME=
"ref_620_23" HREF=
"terminal_interface-curses-menus__ads.htm#ref_508_23">Row
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>;
638 <span class=
"symbol"><A NAME=
"ref_621_23" HREF=
"terminal_interface-curses-menus__ads.htm#ref_509_23">Col
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>)
640 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_623_12">C_Int_Access
</A></span> <b>is
</b> <b>access
</b> <b>all
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
641 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_624_16">Get_Spacing
</A></span> (
<span class=
"symbol"><A NAME=
"ref_624_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_624_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
642 <span class=
"symbol"><A NAME=
"ref_625_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_624_16">D
</A></span>,
<span class=
"symbol"><A NAME=
"ref_625_32" HREF=
"terminal_interface-curses-menus__adb.htm#ref_624_16">R
</A></span>,
<span class=
"symbol"><A NAME=
"ref_625_35" HREF=
"terminal_interface-curses-menus__adb.htm#ref_624_16">C
</A></span> :
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_623_12">C_Int_Access
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
643 <b>pragma
</b> Import (C, Get_Spacing,
"menu_spacing");
645 <span class=
"symbol"><A NAME=
"ref_628_7">D
</A></span>,
<span class=
"symbol"><A NAME=
"ref_628_10">R
</A></span>,
<span class=
"symbol"><A NAME=
"ref_628_13">C
</A></span> :
<b>aliased
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
647 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_624_16">Get_Spacing
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_506_23">Men
</A>,
648 <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_628_7">D
</A>'
<b>Access
</b>,
649 <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_628_10">R
</A>'
<b>Access
</b>,
650 <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_628_13">C
</A>'
<b>Access
</b>));
651 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_507_23">Descr
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_628_7">D
</A>);
652 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_508_23">Row
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_628_10">R
</A>);
653 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_509_23">Col
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_628_13">C
</A>);
654 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_506_14">Spacing
</A>;
655 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
656 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_639_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_518_13">Set_Pattern
</A></span> (
<span class=
"symbol"><A NAME=
"ref_639_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_518_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
657 <span class=
"symbol"><A NAME=
"ref_640_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_519_26">Text
</A></span> : String)
<b>return
</b> Boolean
659 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_642_12">Char_Ptr
</A></span> <b>is
</b> <b>access
</b> <b>all
</b> <A HREF=
"interfac__ads.htm#ref_36_9">Interfaces
</A>.C.char;
660 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_643_16">Set_Pattern
</A></span> (
<span class=
"symbol"><A NAME=
"ref_643_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_643_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
661 <span class=
"symbol"><A NAME=
"ref_644_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_643_16">Pattern
</A></span> :
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_642_12">Char_Ptr
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
662 <b>pragma
</b> Import (C, Set_Pattern,
"set_menu_pattern");
664 <span class=
"symbol"><A NAME=
"ref_647_7">S
</A></span> : char_array (
0 ..
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_519_26">Text
</A>'Length);
665 <span class=
"symbol"><A NAME=
"ref_648_7">L
</A></span> : size_t;
666 <span class=
"symbol"><A NAME=
"ref_649_7">Res
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
668 To_C (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_519_26">Text
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_647_7">S
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_648_7">L
</A>);
669 <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_649_7">Res
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_643_16">Set_Pattern
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_518_26">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_647_7">S
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_647_7">S
</A>'First)'
<b>Access
</b>);
670 <b>case
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_649_7">Res
</A> <b>is
</b>
671 <b>when
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_77_7">E_No_Match
</A> =
>
673 <b>when
</b> <b>others
</b> =
>
674 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_649_7">Res
</A>);
676 <b>end
</b> <b>case
</b>;
677 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_518_13">Set_Pattern
</A>;
679 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_662_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_525_14">Pattern
</A></span> (
<span class=
"symbol"><A NAME=
"ref_662_23" HREF=
"terminal_interface-curses-menus__ads.htm#ref_525_23">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
680 <span class=
"symbol"><A NAME=
"ref_663_23" HREF=
"terminal_interface-curses-menus__ads.htm#ref_526_23">Text
</A></span> :
<b>out
</b> String)
682 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_665_16">Get_Pattern
</A></span> (
<span class=
"symbol"><A NAME=
"ref_665_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_665_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_56_12">chars_ptr
</A>;
683 <b>pragma
</b> Import (C, Get_Pattern,
"menu_pattern");
685 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_92_14">Fill_String
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_665_16">Get_Pattern
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_525_23">Men
</A>),
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_526_23">Text
</A>);
686 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_525_14">Pattern
</A>;
687 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
688 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_671_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_535_14">Set_Format
</A></span> (
<span class=
"symbol"><A NAME=
"ref_671_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_535_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
689 <span class=
"symbol"><A NAME=
"ref_672_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_536_26">Lines
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
690 <span class=
"symbol"><A NAME=
"ref_673_26" HREF=
"terminal_interface-curses-menus__ads.htm#ref_537_26">Columns
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>)
692 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_675_16">Set_Menu_Fmt
</A></span> (
<span class=
"symbol"><A NAME=
"ref_675_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_675_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
693 <span class=
"symbol"><A NAME=
"ref_676_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_675_16">Lin
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
694 <span class=
"symbol"><A NAME=
"ref_677_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_675_16">Col
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
695 <b>pragma
</b> Import (C, Set_Menu_Fmt,
"set_menu_format");
698 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_675_16">Set_Menu_Fmt
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_535_26">Men
</A>,
699 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_536_26">Lines
</A>),
700 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_537_26">Columns
</A>)));
702 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_535_14">Set_Format
</A>;
704 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_687_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_549_14">Format
</A></span> (
<span class=
"symbol"><A NAME=
"ref_687_22" HREF=
"terminal_interface-curses-menus__ads.htm#ref_549_22">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
705 <span class=
"symbol"><A NAME=
"ref_688_22" HREF=
"terminal_interface-curses-menus__ads.htm#ref_550_22">Lines
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
706 <span class=
"symbol"><A NAME=
"ref_689_22" HREF=
"terminal_interface-curses-menus__ads.htm#ref_551_22">Columns
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>)
708 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_691_12">C_Int_Access
</A></span> <b>is
</b> <b>access
</b> <b>all
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
709 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_692_16">Menu_Fmt
</A></span> (
<span class=
"symbol"><A NAME=
"ref_692_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_692_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
710 <span class=
"symbol"><A NAME=
"ref_693_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_692_16">Y
</A></span>,
<span class=
"symbol"><A NAME=
"ref_693_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_692_16">X
</A></span> :
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_691_12">C_Int_Access
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
711 <b>pragma
</b> Import (C, Menu_Fmt,
"menu_format");
713 <span class=
"symbol"><A NAME=
"ref_696_7">L
</A></span>,
<span class=
"symbol"><A NAME=
"ref_696_10">C
</A></span> :
<b>aliased
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
715 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_692_16">Menu_Fmt
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_549_22">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_696_7">L
</A>'
<b>Access
</b>,
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_696_10">C
</A>'
<b>Access
</b>));
716 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_550_22">Lines
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_696_7">L
</A>);
717 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_551_22">Columns
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_696_10">C
</A>);
718 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_549_14">Format
</A>;
719 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
720 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_703_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_563_14">Set_Item_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_703_34" HREF=
"terminal_interface-curses-menus__ads.htm#ref_563_34">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
721 <span class=
"symbol"><A NAME=
"ref_704_34" HREF=
"terminal_interface-curses-menus__ads.htm#ref_564_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>)
723 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_706_16">Set_Item_Init
</A></span> (
<span class=
"symbol"><A NAME=
"ref_706_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_706_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
724 <span class=
"symbol"><A NAME=
"ref_707_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_706_16">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
725 <b>pragma
</b> Import (C, Set_Item_Init,
"set_item_init");
728 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_706_16">Set_Item_Init
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_563_34">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_564_34">Proc
</A>));
729 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_563_14">Set_Item_Init_Hook
</A>;
731 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_714_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_569_14">Set_Item_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_714_34" HREF=
"terminal_interface-curses-menus__ads.htm#ref_569_34">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
732 <span class=
"symbol"><A NAME=
"ref_715_34" HREF=
"terminal_interface-curses-menus__ads.htm#ref_570_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>)
734 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_717_16">Set_Item_Term
</A></span> (
<span class=
"symbol"><A NAME=
"ref_717_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_717_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
735 <span class=
"symbol"><A NAME=
"ref_718_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_717_16">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
736 <b>pragma
</b> Import (C, Set_Item_Term,
"set_item_term");
739 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_717_16">Set_Item_Term
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_569_34">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_570_34">Proc
</A>));
740 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_569_14">Set_Item_Term_Hook
</A>;
742 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_725_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_575_14">Set_Menu_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_725_34" HREF=
"terminal_interface-curses-menus__ads.htm#ref_575_34">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
743 <span class=
"symbol"><A NAME=
"ref_726_34" HREF=
"terminal_interface-curses-menus__ads.htm#ref_576_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>)
745 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_728_16">Set_Menu_Init
</A></span> (
<span class=
"symbol"><A NAME=
"ref_728_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_728_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
746 <span class=
"symbol"><A NAME=
"ref_729_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_728_16">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
747 <b>pragma
</b> Import (C, Set_Menu_Init,
"set_menu_init");
750 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_728_16">Set_Menu_Init
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_575_34">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_576_34">Proc
</A>));
751 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_575_14">Set_Menu_Init_Hook
</A>;
753 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_736_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_581_14">Set_Menu_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_736_34" HREF=
"terminal_interface-curses-menus__ads.htm#ref_581_34">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
754 <span class=
"symbol"><A NAME=
"ref_737_34" HREF=
"terminal_interface-curses-menus__ads.htm#ref_582_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>)
756 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_739_16">Set_Menu_Term
</A></span> (
<span class=
"symbol"><A NAME=
"ref_739_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_739_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
757 <span class=
"symbol"><A NAME=
"ref_740_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_739_16">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
758 <b>pragma
</b> Import (C, Set_Menu_Term,
"set_menu_term");
761 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_739_16">Set_Menu_Term
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_581_34">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_582_34">Proc
</A>));
762 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_581_14">Set_Menu_Term_Hook
</A>;
764 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_747_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_587_13">Get_Item_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_747_33" HREF=
"terminal_interface-curses-menus__ads.htm#ref_587_33">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>
766 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_749_16">Item_Init
</A></span> (
<span class=
"symbol"><A NAME=
"ref_749_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_749_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>;
767 <b>pragma
</b> Import (C, Item_Init,
"item_init");
769 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_749_16">Item_Init
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_587_33">Men
</A>);
770 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_587_13">Get_Item_Init_Hook
</A>;
772 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_755_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_592_13">Get_Item_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_755_33" HREF=
"terminal_interface-curses-menus__ads.htm#ref_592_33">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>
774 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_757_16">Item_Term
</A></span> (
<span class=
"symbol"><A NAME=
"ref_757_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_757_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>;
775 <b>pragma
</b> Import (C, Item_Term,
"item_term");
777 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_757_16">Item_Term
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_592_33">Men
</A>);
778 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_592_13">Get_Item_Term_Hook
</A>;
780 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_763_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_597_13">Get_Menu_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_763_33" HREF=
"terminal_interface-curses-menus__ads.htm#ref_597_33">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>
782 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_765_16">Menu_Init
</A></span> (
<span class=
"symbol"><A NAME=
"ref_765_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_765_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>;
783 <b>pragma
</b> Import (C, Menu_Init,
"menu_init");
785 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_765_16">Menu_Init
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_597_33">Men
</A>);
786 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_597_13">Get_Menu_Init_Hook
</A>;
788 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_771_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_602_13">Get_Menu_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_771_33" HREF=
"terminal_interface-curses-menus__ads.htm#ref_602_33">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>
790 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_773_16">Menu_Term
</A></span> (
<span class=
"symbol"><A NAME=
"ref_773_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_773_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>;
791 <b>pragma
</b> Import (C, Menu_Term,
"menu_term");
793 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_773_16">Menu_Term
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_602_33">Men
</A>);
794 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_602_13">Get_Menu_Term_Hook
</A>;
795 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
796 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_779_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_611_14">Redefine
</A></span> (
<span class=
"symbol"><A NAME=
"ref_779_24" HREF=
"terminal_interface-curses-menus__ads.htm#ref_611_24">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
797 <span class=
"symbol"><A NAME=
"ref_780_24" HREF=
"terminal_interface-curses-menus__ads.htm#ref_612_24">Items
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_176_9">Item_Array_Access
</A>)
799 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_782_16">Set_Items
</A></span> (
<span class=
"symbol"><A NAME=
"ref_782_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_782_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
800 <span class=
"symbol"><A NAME=
"ref_783_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_782_16">Items
</A></span> : System.Address)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
801 <b>pragma
</b> Import (C, Set_Items,
"set_menu_items");
804 <b>pragma
</b> Assert (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_612_24">Items
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_612_24">Items
</A>'Last) =
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A>);
805 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_612_24">Items
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_612_24">Items
</A>'Last) /=
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A> <b>then
</b>
806 <b>raise
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_111_4">Menu_Exception
</A>;
808 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_782_16">Set_Items
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_611_24">Men
</A>,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_612_24">Items
</A>.
<b>all
</b>'Address));
809 <b>end
</b> <b>if
</b>;
810 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_611_14">Redefine
</A>;
812 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_795_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_627_13">Item_Count
</A></span> (
<span class=
"symbol"><A NAME=
"ref_795_25" HREF=
"terminal_interface-curses-menus__ads.htm#ref_627_25">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> Natural
814 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_797_16">Count
</A></span> (
<span class=
"symbol"><A NAME=
"ref_797_23" HREF=
"terminal_interface-curses-menus__adb.htm#ref_797_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>;
815 <b>pragma
</b> Import (C, Count,
"item_count");
817 <b>return
</b> Natural (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_797_16">Count
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_627_25">Men
</A>));
818 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_627_13">Item_Count
</A>;
820 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_803_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_621_13">Items
</A></span> (
<span class=
"symbol"><A NAME=
"ref_803_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_621_20">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
821 <span class=
"symbol"><A NAME=
"ref_804_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_622_20">Index
</A></span> : Positive)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>
825 <b>function
</b> C_Mitems (
<span class=
"symbol"><A NAME=
"ref_808_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> Pointer;
826 <b>pragma
</b> Import (C, C_Mitems,
"menu_items");
828 P : Pointer := C_Mitems (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_621_20">Men
</A>);
830 <b>if
</b> P =
<b>null
</b> <b>or
</b> <b>else
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_622_20">Index
</A> > <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_627_13">Item_Count
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_621_20">Men
</A>)
<b>then
</b>
831 <b>raise
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_111_4">Menu_Exception
</A>;
833 P := P + ptrdiff_t (
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_622_20">Index
</A>) -
1);
834 <b>return
</b> P.
<b>all
</b>;
835 <b>end
</b> <b>if
</b>;
836 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_621_13">Items
</A>;
838 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
839 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_822_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_636_13">Create
</A></span> (
<span class=
"symbol"><A NAME=
"ref_822_21" HREF=
"terminal_interface-curses-menus__ads.htm#ref_636_21">Items
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_176_9">Item_Array_Access
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>
841 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_824_16">Newmenu
</A></span> (
<span class=
"symbol"><A NAME=
"ref_824_25" HREF=
"terminal_interface-curses-menus__adb.htm#ref_824_16">Items
</A></span> : System.Address)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
842 <b>pragma
</b> Import (C, Newmenu,
"new_menu");
844 <span class=
"symbol"><A NAME=
"ref_827_7">M
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
846 <b>pragma
</b> Assert (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_636_21">Items
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_636_21">Items
</A>'Last) =
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A>);
847 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_636_21">Items
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_636_21">Items
</A>'Last) /=
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A> <b>then
</b>
848 <b>raise
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_111_4">Menu_Exception
</A>;
850 <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_827_7">M
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_824_16">Newmenu
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_636_21">Items
</A>.
<b>all
</b>'Address);
851 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_827_7">M
</A> =
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_58_4">Null_Menu
</A> <b>then
</b>
852 <b>raise
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_111_4">Menu_Exception
</A>;
853 <b>end
</b> <b>if
</b>;
854 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_827_7">M
</A>;
855 <b>end
</b> <b>if
</b>;
856 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_636_13">Create
</A>;
858 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_841_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_643_14">Delete
</A></span> (
<span class=
"symbol"><A NAME=
"ref_841_22" HREF=
"terminal_interface-curses-menus__ads.htm#ref_643_22">Men
</A></span> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
860 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_843_16">Free
</A></span> (
<span class=
"symbol"><A NAME=
"ref_843_22" HREF=
"terminal_interface-curses-menus__adb.htm#ref_843_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
861 <b>pragma
</b> Import (C, Free,
"free_menu");
864 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_843_16">Free
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_643_22">Men
</A>));
865 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_643_22">Men
</A> :=
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_58_4">Null_Menu
</A>;
866 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_643_14">Delete
</A>;
868 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
869 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_852_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_658_13">Driver
</A></span> (
<span class=
"symbol"><A NAME=
"ref_852_21" HREF=
"terminal_interface-curses-menus__ads.htm#ref_658_21">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
870 <span class=
"symbol"><A NAME=
"ref_853_21" HREF=
"terminal_interface-curses-menus__ads.htm#ref_659_21">Key
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_66_9">Key_Code
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_652_9">Driver_Result
</A>
872 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_855_16">Driver
</A></span> (
<span class=
"symbol"><A NAME=
"ref_855_24" HREF=
"terminal_interface-curses-menus__adb.htm#ref_855_16">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
873 <span class=
"symbol"><A NAME=
"ref_856_24" HREF=
"terminal_interface-curses-menus__adb.htm#ref_855_16">Key
</A></span> :
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A>)
<b>return
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A>;
874 <b>pragma
</b> Import (C, Driver,
"menu_driver");
876 <span class=
"symbol"><A NAME=
"ref_859_7">R
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_71_9">Eti_Error
</A> :=
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_855_16">Driver
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_658_21">Men
</A>,
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_50_12">C_Int
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_659_21">Key
</A>));
878 <b>case
</b> <A HREF=
"terminal_interface-curses-menus__adb.htm#ref_859_7">R
</A> <b>is
</b>
879 <b>when
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_78_7">E_Unknown_Command
</A> =
>
880 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_654_27">Unknown_Request
</A>;
881 <b>when
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_77_7">E_No_Match
</A> =
>
882 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_655_27">No_Match
</A>;
883 <b>when
</b> <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_74_7">E_Request_Denied
</A> |
<A HREF=
"terminal_interface-curses-aux__ads.htm#ref_76_7">E_Not_Selectable
</A> =
>
884 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_653_27">Request_Denied
</A>;
885 <b>when
</b> <b>others
</b> =
>
886 <A HREF=
"terminal_interface-curses-aux__ads.htm#ref_88_14">Eti_Exception
</A> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_859_7">R
</A>);
887 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_652_27">Menu_Ok
</A>;
888 <b>end
</b> <b>case
</b>;
889 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_658_13">Driver
</A>;
891 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_874_14" HREF=
"terminal_interface-curses-menus__ads.htm#ref_178_14">Free
</A></span> (
<span class=
"symbol"><A NAME=
"ref_874_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_178_20">IA
</A></span> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_176_9">Item_Array_Access
</A>;
892 <span class=
"symbol"><A NAME=
"ref_875_20" HREF=
"terminal_interface-curses-menus__ads.htm#ref_179_20">Free_Items
</A></span> : Boolean := False)
894 <b>procedure
</b> Release
<b>is
</b> <b>new
</b> Ada.Unchecked_Deallocation
895 (Item_Array,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_176_9">Item_Array_Access
</A>);
897 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_178_20">IA
</A> /=
<b>null
</b> <b>and
</b> <b>then
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_179_20">Free_Items
</A> <b>then
</b>
898 <b>for
</b> <span class=
"symbol"><A NAME=
"ref_881_14">I
</A></span> <b>in
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_178_20">IA
</A>'First .. (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_178_20">IA
</A>'Last -
1)
<b>loop
</b>
899 <b>if
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_178_20">IA
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_881_14">I
</A>) /=
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A> <b>then
</b>
900 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_201_14">Delete
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_178_20">IA
</A>.
<b>all
</b> (
<A HREF=
"terminal_interface-curses-menus__adb.htm#ref_881_14">I
</A>));
901 <b>end
</b> <b>if
</b>;
902 <b>end
</b> <b>loop
</b>;
903 <b>end
</b> <b>if
</b>;
904 Release (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_178_20">IA
</A>);
905 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_178_14">Free
</A>;
907 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
908 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_891_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_145_13">Default_Menu_Options
</A></span> <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>
911 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_350_13">Get_Options
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_58_4">Null_Menu
</A>);
912 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_145_13">Default_Menu_Options
</A>;
914 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_897_13" HREF=
"terminal_interface-curses-menus__ads.htm#ref_166_13">Default_Item_Options
</A></span> <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>
917 <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_254_13">Get_Options
</A> (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A>);
918 <b>end
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_166_13">Default_Item_Options
</A>;
919 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
921 <b>end
</b> <A HREF=
"terminal_interface__ads.htm#ref_42_9">Terminal_Interface
</A>.
<A HREF=
"terminal_interface-curses__ads.htm#ref_47_28">Curses
</A>.
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_45_35">Menus
</A>;