1 <!DOCTYPE html PUBLIC
"-//W3C//DTD HTML 4.01//EN">
4 <TITLE>terminal_interface-curses-menus.ads
</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.ads
</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.Menu --
</EM></span>
23 <span class=
"comment"><EM>-- --
</EM></span>
24 <span class=
"comment"><EM>-- S P E C --
</EM></span>
25 <span class=
"comment"><EM>-- --
</EM></span>
26 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
27 <span class=
"comment"><EM>-- Copyright (c)
1998-
2009,
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.31 @
</EM></span>
56 <span class=
"comment"><EM>-- @Date:
2014/
05/
24 21:
31:
57 @
</EM></span>
57 <span class=
"comment"><EM>-- Binding Version
01.00</EM></span>
58 <span class=
"comment"><EM>------------------------------------------------------------------------------
</EM></span>
60 <b>with
</b> Ada.Characters.Latin_1;
62 <b>package
</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_45_35" HREF=
"terminal_interface-curses-menus__adb.htm#ref_49_40">Menus
</A></span> <b>is
</b>
63 <b>pragma
</b> Preelaborate (
<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>);
64 <b>pragma
</b> Linker_Options (
"-lmenu" & <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_9_4">DFT_ARG_SUFFIX
</A>);
66 Space : Character
<b>renames
</b> Ada.Characters.Latin_1.Space;
68 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_51_9">Item
</A></span> <b>is
</b> <b>private
</b>;
69 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_52_9">Menu
</A></span> <b>is
</b> <b>private
</b>;
71 <span class=
"comment"><EM>---------------------------
</EM></span>
72 <span class=
"comment"><EM>-- Interface constants --
</EM></span>
73 <span class=
"comment"><EM>---------------------------
</EM></span>
74 <span class=
"symbol"><A NAME=
"ref_57_4">Null_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
75 <span class=
"symbol"><A NAME=
"ref_58_4">Null_Menu
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
77 <b>subtype
</b> <span class=
"symbol"><A NAME=
"ref_60_12">Menu_Request_Code
</A></span> <b>is
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_66_9">Key_Code
</A>
78 <b>range
</b> (
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
1) .. (
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
17);
80 <span class=
"comment"><EM>-- The prefix M_ stands for
"Menu Request"</EM></span>
81 <span class=
"symbol"><A NAME=
"ref_64_4">M_Left_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
1;
82 <span class=
"symbol"><A NAME=
"ref_65_4">M_Right_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
2;
83 <span class=
"symbol"><A NAME=
"ref_66_4">M_Up_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
3;
84 <span class=
"symbol"><A NAME=
"ref_67_4">M_Down_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
4;
85 <span class=
"symbol"><A NAME=
"ref_68_4">M_ScrollUp_Line
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
5;
86 <span class=
"symbol"><A NAME=
"ref_69_4">M_ScrollDown_Line
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
6;
87 <span class=
"symbol"><A NAME=
"ref_70_4">M_ScrollDown_Page
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
7;
88 <span class=
"symbol"><A NAME=
"ref_71_4">M_ScrollUp_Page
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
8;
89 <span class=
"symbol"><A NAME=
"ref_72_4">M_First_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
9;
90 <span class=
"symbol"><A NAME=
"ref_73_4">M_Last_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
10;
91 <span class=
"symbol"><A NAME=
"ref_74_4">M_Next_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
11;
92 <span class=
"symbol"><A NAME=
"ref_75_4">M_Previous_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
12;
93 <span class=
"symbol"><A NAME=
"ref_76_4">M_Toggle_Item
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
13;
94 <span class=
"symbol"><A NAME=
"ref_77_4">M_Clear_Pattern
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
14;
95 <span class=
"symbol"><A NAME=
"ref_78_4">M_Back_Pattern
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
15;
96 <span class=
"symbol"><A NAME=
"ref_79_4">M_Next_Match
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
16;
97 <span class=
"symbol"><A NAME=
"ref_80_4">M_Previous_Match
</A></span> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> :=
<A HREF=
"terminal_interface-curses__ads.htm#ref_379_4">Key_Max
</A> +
17;
99 <span class=
"comment"><EM>-- For those who like the old 'C' names for the request codes
</EM></span>
100 REQ_LEFT_ITEM :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_64_4">M_Left_Item
</A>;
101 REQ_RIGHT_ITEM :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_65_4">M_Right_Item
</A>;
102 REQ_UP_ITEM :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_66_4">M_Up_Item
</A>;
103 REQ_DOWN_ITEM :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_67_4">M_Down_Item
</A>;
104 REQ_SCR_ULINE :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_68_4">M_ScrollUp_Line
</A>;
105 REQ_SCR_DLINE :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_69_4">M_ScrollDown_Line
</A>;
106 REQ_SCR_DPAGE :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_70_4">M_ScrollDown_Page
</A>;
107 REQ_SCR_UPAGE :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_71_4">M_ScrollUp_Page
</A>;
108 REQ_FIRST_ITEM :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_72_4">M_First_Item
</A>;
109 REQ_LAST_ITEM :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_73_4">M_Last_Item
</A>;
110 REQ_NEXT_ITEM :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_74_4">M_Next_Item
</A>;
111 REQ_PREV_ITEM :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_75_4">M_Previous_Item
</A>;
112 REQ_TOGGLE_ITEM :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_76_4">M_Toggle_Item
</A>;
113 REQ_CLEAR_PATTERN :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_77_4">M_Clear_Pattern
</A>;
114 REQ_BACK_PATTERN :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_78_4">M_Back_Pattern
</A>;
115 REQ_NEXT_MATCH :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_79_4">M_Next_Match
</A>;
116 REQ_PREV_MATCH :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_80_4">M_Previous_Match
</A>;
118 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_101_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_59_14">Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_101_28" HREF=
"terminal_interface-curses-menus__adb.htm#ref_59_28">Key
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A>;
119 <span class=
"symbol"><A NAME=
"ref_102_28" HREF=
"terminal_interface-curses-menus__adb.htm#ref_60_28">Name
</A></span> :
<b>out
</b> String);
121 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_104_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_68_13">Request_Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_104_28" HREF=
"terminal_interface-curses-menus__adb.htm#ref_68_27">Key
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_60_12">Menu_Request_Code
</A>)
<b>return
</b> String;
122 <span class=
"comment"><EM>-- Same as function
</EM></span>
124 <span class=
"comment"><EM>------------------
</EM></span>
125 <span class=
"comment"><EM>-- Exceptions --
</EM></span>
126 <span class=
"comment"><EM>------------------
</EM></span>
128 <span class=
"symbol"><A NAME=
"ref_111_4">Menu_Exception
</A></span> :
<b>exception
</b>;
129 <span class=
"comment"><EM>--
</EM></span>
130 <span class=
"comment"><EM>-- Menu options
</EM></span>
131 <span class=
"comment"><EM>--
</EM></span>
132 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_115_9">Menu_Option_Set
</A></span> <b>is
</b>
134 <span class=
"symbol"><A NAME=
"ref_117_10">One_Valued
</A></span> : Boolean;
135 <span class=
"symbol"><A NAME=
"ref_118_10">Show_Descriptions
</A></span> : Boolean;
136 <span class=
"symbol"><A NAME=
"ref_119_10">Row_Major_Order
</A></span> : Boolean;
137 <span class=
"symbol"><A NAME=
"ref_120_10">Ignore_Case
</A></span> : Boolean;
138 <span class=
"symbol"><A NAME=
"ref_121_10">Show_Matches
</A></span> : Boolean;
139 <span class=
"symbol"><A NAME=
"ref_122_10">Non_Cyclic
</A></span> : Boolean;
140 <b>end
</b> <b>record
</b>;
141 <b>pragma
</b> Convention (C_Pass_By_Copy,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>);
143 <b>for
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A> <b>use
</b>
145 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_117_10">One_Valued
</A> <b>at
</b> 0 <b>range
</b> <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_257_4">O_ONEVALUE_First
</A>
146 ..
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_258_4">O_ONEVALUE_Last
</A>;
147 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_118_10">Show_Descriptions
</A> <b>at
</b> 0 <b>range
</b> <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_259_4">O_SHOWDESC_First
</A>
148 ..
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_260_4">O_SHOWDESC_Last
</A>;
149 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_119_10">Row_Major_Order
</A> <b>at
</b> 0 <b>range
</b> <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_261_4">O_ROWMAJOR_First
</A>
150 ..
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_262_4">O_ROWMAJOR_Last
</A>;
151 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_120_10">Ignore_Case
</A> <b>at
</b> 0 <b>range
</b> <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_263_4">O_IGNORECASE_First
</A>
152 ..
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_264_4">O_IGNORECASE_Last
</A>;
153 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_121_10">Show_Matches
</A> <b>at
</b> 0 <b>range
</b> <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_265_4">O_SHOWMATCH_First
</A>
154 ..
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_266_4">O_SHOWMATCH_Last
</A>;
155 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_122_10">Non_Cyclic
</A> <b>at
</b> 0 <b>range
</b> <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_267_4">O_NONCYCLIC_First
</A>
156 ..
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_268_4">O_NONCYCLIC_Last
</A>;
157 <b>end
</b> <b>record
</b>;
158 <b>pragma
</b> Warnings (Off);
159 <b>for
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>'Size
<b>use
</b> <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_269_4">Menu_Options_Size
</A>;
160 <b>pragma
</b> Warnings (On);
162 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_145_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_891_13">Default_Menu_Options
</A></span> <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>;
163 <span class=
"comment"><EM>-- Initial default options for a menu.
</EM></span>
164 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_145_13">Default_Menu_Options
</A>);
165 <span class=
"comment"><EM>--
</EM></span>
166 <span class=
"comment"><EM>-- Item options
</EM></span>
167 <span class=
"comment"><EM>--
</EM></span>
168 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_151_9">Item_Option_Set
</A></span> <b>is
</b>
170 <span class=
"symbol"><A NAME=
"ref_153_10">Selectable
</A></span> : Boolean;
171 <b>end
</b> <b>record
</b>;
172 <b>pragma
</b> Convention (C_Pass_By_Copy,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>);
174 <b>for
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A> <b>use
</b>
176 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_153_10">Selectable
</A> <b>at
</b> 0 <b>range
</b> <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_273_4">O_SELECTABLE_First
</A>
177 ..
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_274_4">O_SELECTABLE_Last
</A>;
178 <b>end
</b> <b>record
</b>;
179 <b>pragma
</b> Warnings (Off);
180 <b>for
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>'Size
<b>use
</b> <A HREF=
"terminal_interface-curses_constants__ads.htm#ref_6_28">Curses_Constants
</A>.
<A HREF=
"terminal_interface-curses_constants__ads.htm#ref_275_4">Item_Options_Size
</A>;
181 <b>pragma
</b> Warnings (On);
183 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_166_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_897_13">Default_Item_Options
</A></span> <b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>;
184 <span class=
"comment"><EM>-- Initial default options for an item.
</EM></span>
185 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_166_13">Default_Item_Options
</A>);
187 <span class=
"comment"><EM>--
</EM></span>
188 <span class=
"comment"><EM>-- Item Array
</EM></span>
189 <span class=
"comment"><EM>--
</EM></span>
190 <b>type
</b> Item_Array
<b>is
</b> <b>array
</b> (Positive
<b>range
</b> <>)
<b>of
</b> <b>aliased
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
191 <b>pragma
</b> Convention (C, Item_Array);
193 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_176_9">Item_Array_Access
</A></span> <b>is
</b> <b>access
</b> Item_Array;
195 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_178_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_874_14">Free
</A></span> (
<span class=
"symbol"><A NAME=
"ref_178_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_874_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>;
196 <span class=
"symbol"><A NAME=
"ref_179_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_875_20">Free_Items
</A></span> : Boolean := False);
197 <span class=
"comment"><EM>-- Release the memory for an allocated item array
</EM></span>
198 <span class=
"comment"><EM>-- If Free_Items is True, call Delete() for all the items in
</EM></span>
199 <span class=
"comment"><EM>-- the array.
</EM></span>
201 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
202 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/mitem_new.3x.html">mitem_new
.3x
</A></EM></span>
203 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
205 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_1"#
2|
</EM></span>
206 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_189_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_76_13">Create
</A></span> (
<span class=
"symbol"><A NAME=
"ref_189_21" HREF=
"terminal_interface-curses-menus__adb.htm#ref_76_21">Name
</A></span> : String;
207 <span class=
"symbol"><A NAME=
"ref_190_21" HREF=
"terminal_interface-curses-menus__adb.htm#ref_77_21">Description
</A></span> : String :=
"")
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
208 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_new.3x.html">new_item()
</A></EM></span>
209 <span class=
"comment"><EM>-- Not inlined.
</EM></span>
211 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_2"#
2|
</EM></span>
212 <b>function
</b> New_Item (
<span class=
"symbol"><A NAME=
"ref_195_23">Name
</A></span> : String;
213 <span class=
"symbol"><A NAME=
"ref_196_23">Description
</A></span> : String :=
"")
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>
214 <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_189_13">Create
</A>;
215 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_new.3x.html">new_item()
</A></EM></span>
217 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_3"#
2|
</EM></span>
218 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_201_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_106_14">Delete
</A></span> (
<span class=
"symbol"><A NAME=
"ref_201_22" HREF=
"terminal_interface-curses-menus__adb.htm#ref_106_22">Itm
</A></span> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>);
219 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_new.3x.html">free_item()
</A></EM></span>
220 <span class=
"comment"><EM>-- Resets Itm to Null_Item
</EM></span>
222 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
223 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/mitem_value.3x.html">mitem_value
.3x
</A></EM></span>
224 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
226 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_4"#
2|
</EM></span>
227 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_210_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_130_14">Set_Value
</A></span> (
<span class=
"symbol"><A NAME=
"ref_210_25" HREF=
"terminal_interface-curses-menus__adb.htm#ref_130_25">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
228 <span class=
"symbol"><A NAME=
"ref_211_25" HREF=
"terminal_interface-curses-menus__adb.htm#ref_131_25">Value
</A></span> : Boolean := True);
229 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_value.3x.html">set_item_value()
</A></EM></span>
230 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_210_14">Set_Value
</A>);
232 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_5"#
2|
</EM></span>
233 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_216_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_141_13">Value
</A></span> (
<span class=
"symbol"><A NAME=
"ref_216_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_141_20">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> Boolean;
234 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_value.3x.html">item_value()
</A></EM></span>
235 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_216_13">Value
</A>);
237 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
238 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/mitem_visible.3x.html">mitem_visible
.3x
</A></EM></span>
239 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
241 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_6"#
2|
</EM></span>
242 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_225_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_154_13">Visible
</A></span> (
<span class=
"symbol"><A NAME=
"ref_225_22" HREF=
"terminal_interface-curses-menus__adb.htm#ref_154_22">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> Boolean;
243 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_visible.3x.html">item_visible()
</A></EM></span>
244 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_225_13">Visible
</A>);
246 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
247 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/mitem_opts.3x.html">mitem_opts
.3x
</A></EM></span>
248 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
250 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_7"#
2|
</EM></span>
251 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_234_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_166_14">Set_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_234_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_166_27">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
252 <span class=
"symbol"><A NAME=
"ref_235_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_167_27">Options
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>);
253 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_opts.3x.html">set_item_opts()
</A></EM></span>
254 <span class=
"comment"><EM>-- An overloaded Set_Options is defined later. Pragma Inline appears there
</EM></span>
256 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_8"#
2|
</EM></span>
257 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_240_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_177_14">Switch_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_240_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_177_30">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
258 <span class=
"symbol"><A NAME=
"ref_241_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_178_30">Options
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>;
259 <span class=
"symbol"><A NAME=
"ref_242_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_179_30">On
</A></span> : Boolean := True);
260 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_opts.3x.html">item_opts_on()
</A></EM></span>
261 <span class=
"comment"><EM>-- AKA: item_opts_off()
</EM></span>
262 <span class=
"comment"><EM>-- An overloaded Switch_Options is defined later.
</EM></span>
263 <span class=
"comment"><EM>-- Pragma Inline appears there
</EM></span>
265 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_9"#
2|
</EM></span>
266 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_249_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_196_14">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_249_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_196_27">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
267 <span class=
"symbol"><A NAME=
"ref_250_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_197_27">Options
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_151_9">Item_Option_Set
</A>);
268 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_opts.3x.html">item_opts()
</A></EM></span>
270 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_10"#
2|
</EM></span>
271 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_254_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_206_13">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_254_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_206_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>;
272 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_opts.3x.html">item_opts()
</A></EM></span>
273 <span class=
"comment"><EM>-- An overloaded Get_Options is defined later. Pragma Inline appears there
</EM></span>
275 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
276 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/mitem_name.3x.html">mitem_name
.3x
</A></EM></span>
277 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
279 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_11"#
2|
</EM></span>
280 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_263_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_214_14">Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_263_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_214_20">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
281 <span class=
"symbol"><A NAME=
"ref_264_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_215_20">Name
</A></span> :
<b>out
</b> String);
282 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_name.3x.html">item_name()
</A></EM></span>
283 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_266_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_223_13">Name
</A></span> (
<span class=
"symbol"><A NAME=
"ref_266_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_223_19">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> String;
284 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_name.3x.html">item_name()
</A></EM></span>
285 <span class=
"comment"><EM>-- Implemented as function
</EM></span>
286 <b>pragma
</b> Inline (Name);
288 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_12"#
2|
</EM></span>
289 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_272_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_231_14">Description
</A></span> (
<span class=
"symbol"><A NAME=
"ref_272_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_231_27">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
290 <span class=
"symbol"><A NAME=
"ref_273_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_232_27">Description
</A></span> :
<b>out
</b> String);
291 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_name.3x.html">item_description();
</A></EM></span>
293 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_276_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_240_13">Description
</A></span> (
<span class=
"symbol"><A NAME=
"ref_276_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_240_26">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> String;
294 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_name.3x.html">item_description();
</A></EM></span>
295 <span class=
"comment"><EM>-- Implemented as function
</EM></span>
296 <b>pragma
</b> Inline (Description);
298 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
299 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/mitem_current.3x.html">mitem_current
.3x
</A></EM></span>
300 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
302 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_13"#
2|
</EM></span>
303 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_286_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_248_14">Set_Current
</A></span> (
<span class=
"symbol"><A NAME=
"ref_286_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_248_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
304 <span class=
"symbol"><A NAME=
"ref_287_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_249_27">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>);
305 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_current.3x.html">set_current_item()
</A></EM></span>
306 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_286_14">Set_Current
</A>);
308 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_14"#
2|
</EM></span>
309 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_292_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_259_13">Current
</A></span> (
<span class=
"symbol"><A NAME=
"ref_292_22" HREF=
"terminal_interface-curses-menus__adb.htm#ref_259_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>;
310 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_current.3x.html">current_item()
</A></EM></span>
311 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_292_13">Current
</A>);
313 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_15"#
2|
</EM></span>
314 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_297_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_272_14">Set_Top_Row
</A></span> (
<span class=
"symbol"><A NAME=
"ref_297_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_272_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
315 <span class=
"symbol"><A NAME=
"ref_298_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_273_27">Line
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>);
316 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_current.3x.html">set_top_row()
</A></EM></span>
317 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_297_14">Set_Top_Row
</A>);
319 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_16"#
2|
</EM></span>
320 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_303_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_283_13">Top_Row
</A></span> (
<span class=
"symbol"><A NAME=
"ref_303_22" HREF=
"terminal_interface-curses-menus__adb.htm#ref_283_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>;
321 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_current.3x.html">top_row()
</A></EM></span>
322 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_303_13">Top_Row
</A>);
324 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_17"#
2|
</EM></span>
325 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_308_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_296_13">Get_Index
</A></span> (
<span class=
"symbol"><A NAME=
"ref_308_24" HREF=
"terminal_interface-curses-menus__adb.htm#ref_296_24">Itm
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>)
<b>return
</b> Positive;
326 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/mitem_current.3x.html">item_index()
</A></EM></span>
327 <span class=
"comment"><EM>-- Please note that in this binding we start the numbering of items
</EM></span>
328 <span class=
"comment"><EM>-- with
1. So this is number is one more than you get from the low
</EM></span>
329 <span class=
"comment"><EM>-- level call.
</EM></span>
330 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_308_13">Get_Index
</A>);
332 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
333 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_post.3x.html">menu_post
.3x
</A></EM></span>
334 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
336 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_18"#
2|
</EM></span>
337 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_320_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_309_14">Post
</A></span> (
<span class=
"symbol"><A NAME=
"ref_320_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_309_20">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
338 <span class=
"symbol"><A NAME=
"ref_321_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_310_20">Post
</A></span> : Boolean := True);
339 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_post.3x.html">post_menu()
</A></EM></span>
340 <span class=
"comment"><EM>-- AKA: unpost_menu()
</EM></span>
341 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_320_14">Post
</A>);
343 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
344 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_opts.3x.html">menu_opts
.3x
</A></EM></span>
345 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
347 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_19"#
2|
</EM></span>
348 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_331_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_325_14">Set_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_331_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_325_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
349 <span class=
"symbol"><A NAME=
"ref_332_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_326_27">Options
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>);
350 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_opts.3x.html">set_menu_opts()
</A></EM></span>
351 <b>pragma
</b> Inline (Set_Options);
353 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_20"#
2|
</EM></span>
354 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_337_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_336_14">Switch_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_337_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_336_30">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
355 <span class=
"symbol"><A NAME=
"ref_338_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_337_30">Options
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>;
356 <span class=
"symbol"><A NAME=
"ref_339_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_338_30">On
</A></span> : Boolean := True);
357 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_opts.3x.html">menu_opts_on()
</A></EM></span>
358 <span class=
"comment"><EM>-- AKA: menu_opts_off()
</EM></span>
359 <b>pragma
</b> Inline (Switch_Options);
361 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_21"#
2|
</EM></span>
362 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_345_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_355_14">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_345_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_355_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
363 <span class=
"symbol"><A NAME=
"ref_346_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_356_27">Options
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_115_9">Menu_Option_Set
</A>);
364 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_opts.3x.html">menu_opts()
</A></EM></span>
366 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_22"#
2|
</EM></span>
367 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_350_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_365_13">Get_Options
</A></span> (
<span class=
"symbol"><A NAME=
"ref_350_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_365_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>;
368 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_opts.3x.html">menu_opts()
</A></EM></span>
369 <b>pragma
</b> Inline (Get_Options);
371 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
372 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_win.3x.html">menu_win
.3x
</A></EM></span>
373 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
375 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_23"#
2|
</EM></span>
376 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_359_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_373_14">Set_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_359_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_373_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
377 <span class=
"symbol"><A NAME=
"ref_360_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_374_26">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>);
378 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_win.3x.html">set_menu_win()
</A></EM></span>
379 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_359_14">Set_Window
</A>);
381 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_24"#
2|
</EM></span>
382 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_365_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_384_13">Get_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_365_25" HREF=
"terminal_interface-curses-menus__adb.htm#ref_384_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>;
383 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_win.3x.html">menu_win()
</A></EM></span>
384 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_365_13">Get_Window
</A>);
386 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_25"#
2|
</EM></span>
387 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_370_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_394_14">Set_Sub_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_370_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_394_30">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
388 <span class=
"symbol"><A NAME=
"ref_371_30" HREF=
"terminal_interface-curses-menus__adb.htm#ref_395_30">Win
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_55_9">Window
</A>);
389 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_win.3x.html">set_menu_sub()
</A></EM></span>
390 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_370_14">Set_Sub_Window
</A>);
392 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_26"#
2|
</EM></span>
393 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_376_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_405_13">Get_Sub_Window
</A></span> (
<span class=
"symbol"><A NAME=
"ref_376_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_405_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>;
394 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_win.3x.html">menu_sub()
</A></EM></span>
395 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_376_13">Get_Sub_Window
</A>);
397 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_27"#
2|
</EM></span>
398 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_381_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_415_14">Scale
</A></span> (
<span class=
"symbol"><A NAME=
"ref_381_21" HREF=
"terminal_interface-curses-menus__adb.htm#ref_415_21">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
399 <span class=
"symbol"><A NAME=
"ref_382_21" HREF=
"terminal_interface-curses-menus__adb.htm#ref_416_21">Lines
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
400 <span class=
"symbol"><A NAME=
"ref_383_21" HREF=
"terminal_interface-curses-menus__adb.htm#ref_417_21">Columns
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>);
401 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_win.3x.html">scale_menu()
</A></EM></span>
402 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_381_14">Scale
</A>);
404 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
405 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_cursor.3x.html">menu_cursor
.3x
</A></EM></span>
406 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
408 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_28"#
2|
</EM></span>
409 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_392_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_431_14">Position_Cursor
</A></span> (
<span class=
"symbol"><A NAME=
"ref_392_31" HREF=
"terminal_interface-curses-menus__adb.htm#ref_431_31">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>);
410 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_cursor.3x.html">pos_menu_cursor()
</A></EM></span>
411 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_392_14">Position_Cursor
</A>);
413 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
414 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_mark.3x.html">menu_mark
.3x
</A></EM></span>
415 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
417 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_29"#
2|
</EM></span>
418 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_401_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_441_14">Set_Mark
</A></span> (
<span class=
"symbol"><A NAME=
"ref_401_24" HREF=
"terminal_interface-curses-menus__adb.htm#ref_441_24">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
419 <span class=
"symbol"><A NAME=
"ref_402_24" HREF=
"terminal_interface-curses-menus__adb.htm#ref_442_24">Mark
</A></span> : String);
420 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_mark.3x.html">set_menu_mark()
</A></EM></span>
421 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_401_14">Set_Mark
</A>);
423 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_30"#
2|
</EM></span>
424 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_407_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_456_14">Mark
</A></span> (
<span class=
"symbol"><A NAME=
"ref_407_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_456_20">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
425 <span class=
"symbol"><A NAME=
"ref_408_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_457_20">Mark
</A></span> :
<b>out
</b> String);
426 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_mark.3x.html">menu_mark()
</A></EM></span>
428 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_411_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_465_13">Mark
</A></span> (
<span class=
"symbol"><A NAME=
"ref_411_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_465_19">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> String;
429 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_mark.3x.html">menu_mark()
</A></EM></span>
430 <span class=
"comment"><EM>-- Implemented as function
</EM></span>
431 <b>pragma
</b> Inline (Mark);
433 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
434 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_attributes.3x.html">menu_attributes
.3x
</A></EM></span>
435 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
437 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_31"#
2|
</EM></span>
438 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_421_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_474_14">Set_Foreground
</A></span>
439 (
<span class=
"symbol"><A NAME=
"ref_422_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_475_7">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
440 <span class=
"symbol"><A NAME=
"ref_423_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_476_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>;
441 <span class=
"symbol"><A NAME=
"ref_424_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_477_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);
442 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">set_menu_fore()
</A></EM></span>
443 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_421_14">Set_Foreground
</A>);
445 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_32"#
2|
</EM></span>
446 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_429_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_490_14">Foreground
</A></span> (
<span class=
"symbol"><A NAME=
"ref_429_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_490_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
447 <span class=
"symbol"><A NAME=
"ref_430_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_491_26">Fore
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>);
448 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">menu_fore()
</A></EM></span>
450 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_33"#
2|
</EM></span>
451 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_434_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_499_14">Foreground
</A></span> (
<span class=
"symbol"><A NAME=
"ref_434_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_499_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
452 <span class=
"symbol"><A NAME=
"ref_435_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_500_26">Fore
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>;
453 <span class=
"symbol"><A NAME=
"ref_436_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_501_26">Color
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>);
454 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">menu_fore()
</A></EM></span>
455 <b>pragma
</b> Inline (Foreground);
457 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_34"#
2|
</EM></span>
458 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_441_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_510_14">Set_Background
</A></span>
459 (
<span class=
"symbol"><A NAME=
"ref_442_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_511_7">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
460 <span class=
"symbol"><A NAME=
"ref_443_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_512_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>;
461 <span class=
"symbol"><A NAME=
"ref_444_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_513_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);
462 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">set_menu_back()
</A></EM></span>
463 <b>pragma
</b> Inline (Set_Background);
465 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_35"#
2|
</EM></span>
466 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_449_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_526_14">Background
</A></span> (
<span class=
"symbol"><A NAME=
"ref_449_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_526_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
467 <span class=
"symbol"><A NAME=
"ref_450_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_527_26">Back
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>);
468 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">menu_back()
</A></EM></span>
469 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_36"#
2|
</EM></span>
471 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_454_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_535_14">Background
</A></span> (
<span class=
"symbol"><A NAME=
"ref_454_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_535_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
472 <span class=
"symbol"><A NAME=
"ref_455_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_536_26">Back
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>;
473 <span class=
"symbol"><A NAME=
"ref_456_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_537_26">Color
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>);
474 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">menu_back()
</A></EM></span>
475 <b>pragma
</b> Inline (Background);
477 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_37"#
2|
</EM></span>
478 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_461_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_546_14">Set_Grey
</A></span>
479 (
<span class=
"symbol"><A NAME=
"ref_462_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_546_24">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
480 <span class=
"symbol"><A NAME=
"ref_463_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_547_24">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>;
481 <span class=
"symbol"><A NAME=
"ref_464_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_548_24">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);
482 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">set_menu_grey()
</A></EM></span>
483 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_461_14">Set_Grey
</A>);
485 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_38"#
2|
</EM></span>
486 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_469_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_562_14">Grey
</A></span> (
<span class=
"symbol"><A NAME=
"ref_469_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_562_20">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
487 <span class=
"symbol"><A NAME=
"ref_470_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_563_20">Grey
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>);
488 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">menu_grey()
</A></EM></span>
490 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_39"#
2|
</EM></span>
491 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_474_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_571_14">Grey
</A></span>
492 (
<span class=
"symbol"><A NAME=
"ref_475_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_571_20">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__adb.htm#ref_572_20">Grey
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_417_9">Character_Attribute_Set
</A>;
494 <span class=
"symbol"><A NAME=
"ref_477_7" HREF=
"terminal_interface-curses-menus__adb.htm#ref_573_20">Color
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_409_9">Color_Pair
</A>);
495 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">menu_grey()
</A></EM></span>
496 <b>pragma
</b> Inline (Grey);
498 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_40"#
2|
</EM></span>
499 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_482_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_582_14">Set_Pad_Character
</A></span> (
<span class=
"symbol"><A NAME=
"ref_482_33" HREF=
"terminal_interface-curses-menus__adb.htm#ref_582_33">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
500 <span class=
"symbol"><A NAME=
"ref_483_33" HREF=
"terminal_interface-curses-menus__adb.htm#ref_583_33">Pad
</A></span> : Character := Space);
501 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">set_menu_pad()
</A></EM></span>
502 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_482_14">Set_Pad_Character
</A>);
504 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_41"#
2|
</EM></span>
505 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_488_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_593_14">Pad_Character
</A></span> (
<span class=
"symbol"><A NAME=
"ref_488_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_593_29">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
506 <span class=
"symbol"><A NAME=
"ref_489_29" HREF=
"terminal_interface-curses-menus__adb.htm#ref_594_29">Pad
</A></span> :
<b>out
</b> Character);
507 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_attributes.3x.html">menu_pad()
</A></EM></span>
508 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_488_14">Pad_Character
</A>);
510 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
511 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_spacing.3x.html">menu_spacing
.3x
</A></EM></span>
512 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
514 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_42"#
2|
</EM></span>
515 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_498_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_602_14">Set_Spacing
</A></span> (
<span class=
"symbol"><A NAME=
"ref_498_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_602_27">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
516 <span class=
"symbol"><A NAME=
"ref_499_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_603_27">Descr
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A> :=
0;
517 <span class=
"symbol"><A NAME=
"ref_500_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_604_27">Row
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A> :=
0;
518 <span class=
"symbol"><A NAME=
"ref_501_27" HREF=
"terminal_interface-curses-menus__adb.htm#ref_605_27">Col
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A> :=
0);
519 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_spacing.3x.html">set_menu_spacing()
</A></EM></span>
520 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_498_14">Set_Spacing
</A>);
522 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_43"#
2|
</EM></span>
523 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_506_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_618_14">Spacing
</A></span> (
<span class=
"symbol"><A NAME=
"ref_506_23" HREF=
"terminal_interface-curses-menus__adb.htm#ref_618_23">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
524 <span class=
"symbol"><A NAME=
"ref_507_23" HREF=
"terminal_interface-curses-menus__adb.htm#ref_619_23">Descr
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>;
525 <span class=
"symbol"><A NAME=
"ref_508_23" HREF=
"terminal_interface-curses-menus__adb.htm#ref_620_23">Row
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_58_9">Line_Position
</A>;
526 <span class=
"symbol"><A NAME=
"ref_509_23" HREF=
"terminal_interface-curses-menus__adb.htm#ref_621_23">Col
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_59_9">Column_Position
</A>);
527 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_spacing.3x.html">menu_spacing()
</A></EM></span>
528 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_506_14">Spacing
</A>);
530 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
531 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_pattern.3x.html">menu_pattern
.3x
</A></EM></span>
532 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
534 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_44"#
2|
</EM></span>
535 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_518_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_639_13">Set_Pattern
</A></span> (
<span class=
"symbol"><A NAME=
"ref_518_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_639_26">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
536 <span class=
"symbol"><A NAME=
"ref_519_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_640_26">Text
</A></span> : String)
<b>return
</b> Boolean;
537 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_pattern.3x.html">set_menu_pattern()
</A></EM></span>
538 <span class=
"comment"><EM>-- Return TRUE if the pattern matches, FALSE otherwise
</EM></span>
539 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_518_13">Set_Pattern
</A>);
541 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_45"#
2|
</EM></span>
542 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_525_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_662_14">Pattern
</A></span> (
<span class=
"symbol"><A NAME=
"ref_525_23" HREF=
"terminal_interface-curses-menus__adb.htm#ref_662_23">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
543 <span class=
"symbol"><A NAME=
"ref_526_23" HREF=
"terminal_interface-curses-menus__adb.htm#ref_663_23">Text
</A></span> :
<b>out
</b> String);
544 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_pattern.3x.html">menu_pattern()
</A></EM></span>
545 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_525_14">Pattern
</A>);
547 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
548 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_format.3x.html">menu_format
.3x
</A></EM></span>
549 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
551 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_46"#
2|
</EM></span>
552 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_535_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_671_14">Set_Format
</A></span> (
<span class=
"symbol"><A NAME=
"ref_535_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_671_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__adb.htm#ref_672_26">Lines
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
554 <span class=
"symbol"><A NAME=
"ref_537_26" HREF=
"terminal_interface-curses-menus__adb.htm#ref_673_26">Columns
</A></span> :
<A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>);
555 <span class=
"comment"><EM>-- Not implemented:
0 argument for Lines or Columns;
</EM></span>
556 <span class=
"comment"><EM>-- instead use Format to get the current sizes
</EM></span>
557 <span class=
"comment"><EM>-- The default format is
16 rows,
1 column. Calling
</EM></span>
558 <span class=
"comment"><EM>-- set_menu_format with a null menu pointer will change this
</EM></span>
559 <span class=
"comment"><EM>-- default. A zero row or column argument to set_menu_format
</EM></span>
560 <span class=
"comment"><EM>-- is interpreted as a request not to change the current
</EM></span>
561 <span class=
"comment"><EM>-- value.
</EM></span>
562 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_format.3x.html">set_menu_format()
</A></EM></span>
563 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_535_14">Set_Format
</A>);
565 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_47"#
2|
</EM></span>
566 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_549_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_687_14">Format
</A></span> (
<span class=
"symbol"><A NAME=
"ref_549_22" HREF=
"terminal_interface-curses-menus__adb.htm#ref_687_22">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
567 <span class=
"symbol"><A NAME=
"ref_550_22" HREF=
"terminal_interface-curses-menus__adb.htm#ref_688_22">Lines
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_61_12">Line_Count
</A>;
568 <span class=
"symbol"><A NAME=
"ref_551_22" HREF=
"terminal_interface-curses-menus__adb.htm#ref_689_22">Columns
</A></span> :
<b>out
</b> <A HREF=
"terminal_interface-curses__ads.htm#ref_63_12">Column_Count
</A>);
569 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_format.3x.html">menu_format()
</A></EM></span>
570 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_549_14">Format
</A>);
572 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
573 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_hook.3x.html">menu_hook
.3x
</A></EM></span>
574 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
576 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_559_9">Menu_Hook_Function
</A></span> <b>is
</b> <b>access
</b> <b>procedure
</b> (
<span class=
"symbol"><A NAME=
"ref_559_49">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>);
577 <b>pragma
</b> Convention (C,
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>);
579 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_48"#
2|
</EM></span>
580 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_563_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_703_14">Set_Item_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_563_34" HREF=
"terminal_interface-curses-menus__adb.htm#ref_703_34">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
581 <span class=
"symbol"><A NAME=
"ref_564_34" HREF=
"terminal_interface-curses-menus__adb.htm#ref_704_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>);
582 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_hook.3x.html">set_item_init()
</A></EM></span>
583 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_563_14">Set_Item_Init_Hook
</A>);
585 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_49"#
2|
</EM></span>
586 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_569_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_714_14">Set_Item_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_569_34" HREF=
"terminal_interface-curses-menus__adb.htm#ref_714_34">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
587 <span class=
"symbol"><A NAME=
"ref_570_34" HREF=
"terminal_interface-curses-menus__adb.htm#ref_715_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>);
588 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_hook.3x.html">set_item_term()
</A></EM></span>
589 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_569_14">Set_Item_Term_Hook
</A>);
591 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_50"#
2|
</EM></span>
592 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_575_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_725_14">Set_Menu_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_575_34" HREF=
"terminal_interface-curses-menus__adb.htm#ref_725_34">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
593 <span class=
"symbol"><A NAME=
"ref_576_34" HREF=
"terminal_interface-curses-menus__adb.htm#ref_726_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>);
594 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_hook.3x.html">set_menu_init()
</A></EM></span>
595 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_575_14">Set_Menu_Init_Hook
</A>);
597 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_51"#
2|
</EM></span>
598 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_581_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_736_14">Set_Menu_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_581_34" HREF=
"terminal_interface-curses-menus__adb.htm#ref_736_34">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
599 <span class=
"symbol"><A NAME=
"ref_582_34" HREF=
"terminal_interface-curses-menus__adb.htm#ref_737_34">Proc
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_559_9">Menu_Hook_Function
</A>);
600 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_hook.3x.html">set_menu_term()
</A></EM></span>
601 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_581_14">Set_Menu_Term_Hook
</A>);
603 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_52"#
2|
</EM></span>
604 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_587_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_747_13">Get_Item_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_587_33" HREF=
"terminal_interface-curses-menus__adb.htm#ref_747_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>;
605 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_hook.3x.html">item_init()
</A></EM></span>
606 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_587_13">Get_Item_Init_Hook
</A>);
608 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_53"#
2|
</EM></span>
609 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_592_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_755_13">Get_Item_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_592_33" HREF=
"terminal_interface-curses-menus__adb.htm#ref_755_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>;
610 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_hook.3x.html">item_term()
</A></EM></span>
611 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_592_13">Get_Item_Term_Hook
</A>);
613 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_54"#
2|
</EM></span>
614 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_597_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_763_13">Get_Menu_Init_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_597_33" HREF=
"terminal_interface-curses-menus__adb.htm#ref_763_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>;
615 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_hook.3x.html">menu_init()
</A></EM></span>
616 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_597_13">Get_Menu_Init_Hook
</A>);
618 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_55"#
2|
</EM></span>
619 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_602_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_771_13">Get_Menu_Term_Hook
</A></span> (
<span class=
"symbol"><A NAME=
"ref_602_33" HREF=
"terminal_interface-curses-menus__adb.htm#ref_771_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>;
620 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_hook.3x.html">menu_term()
</A></EM></span>
621 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_602_13">Get_Menu_Term_Hook
</A>);
623 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
624 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_items.3x.html">menu_items
.3x
</A></EM></span>
625 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
627 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_56"#
2|
</EM></span>
628 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_611_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_779_14">Redefine
</A></span> (
<span class=
"symbol"><A NAME=
"ref_611_24" HREF=
"terminal_interface-curses-menus__adb.htm#ref_779_24">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
629 <span class=
"symbol"><A NAME=
"ref_612_24" HREF=
"terminal_interface-curses-menus__adb.htm#ref_780_24">Items
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_176_9">Item_Array_Access
</A>);
630 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_items.3x.html">set_menu_items()
</A></EM></span>
631 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_611_14">Redefine
</A>);
633 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_616_14">Set_Items
</A></span> (
<span class=
"symbol"><A NAME=
"ref_616_25">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
634 <span class=
"symbol"><A NAME=
"ref_617_25">Items
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_176_9">Item_Array_Access
</A>)
<b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_611_14">Redefine
</A>;
635 <span class=
"comment"><EM>-- pragma Inline (Set_Items);
</EM></span>
637 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_57"#
2|
</EM></span>
638 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_621_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_803_13">Items
</A></span> (
<span class=
"symbol"><A NAME=
"ref_621_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_803_20">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
639 <span class=
"symbol"><A NAME=
"ref_622_20" HREF=
"terminal_interface-curses-menus__adb.htm#ref_804_20">Index
</A></span> : Positive)
<b>return
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A>;
640 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_items.3x.html">menu_items()
</A></EM></span>
641 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_621_13">Items
</A>);
643 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_58"#
2|
</EM></span>
644 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_627_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_795_13">Item_Count
</A></span> (
<span class=
"symbol"><A NAME=
"ref_627_25" HREF=
"terminal_interface-curses-menus__adb.htm#ref_795_25">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>)
<b>return
</b> Natural;
645 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_items.3x.html">item_count()
</A></EM></span>
646 <b>pragma
</b> Inline (
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_627_13">Item_Count
</A>);
648 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
649 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_new.3x.html">menu_new
.3x
</A></EM></span>
650 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
652 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_59"#
2|
</EM></span>
653 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_636_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_822_13">Create
</A></span> (
<span class=
"symbol"><A NAME=
"ref_636_21" HREF=
"terminal_interface-curses-menus__adb.htm#ref_822_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>;
654 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_new.3x.html">new_menu()
</A></EM></span>
655 <span class=
"comment"><EM>-- Not inlined
</EM></span>
657 <b>function
</b> New_Menu (
<span class=
"symbol"><A NAME=
"ref_640_23">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> <b>renames
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_636_13">Create
</A>;
659 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_60"#
2|
</EM></span>
660 <b>procedure
</b> <span class=
"symbol"><A NAME=
"ref_643_14" HREF=
"terminal_interface-curses-menus__adb.htm#ref_841_14">Delete
</A></span> (
<span class=
"symbol"><A NAME=
"ref_643_22" HREF=
"terminal_interface-curses-menus__adb.htm#ref_841_22">Men
</A></span> :
<b>in
</b> <b>out
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>);
661 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_new.3x.html">free_menu()
</A></EM></span>
662 <span class=
"comment"><EM>-- Reset Men to Null_Menu
</EM></span>
663 <span class=
"comment"><EM>-- Not inlined
</EM></span>
665 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
666 <span class=
"comment"><EM>-- | Man page
<A HREF=
"../man/menu_driver.3x.html">menu_driver
.3x
</A></EM></span>
667 <span class=
"comment"><EM>-- |=====================================================================
</EM></span>
669 <b>type
</b> <span class=
"symbol"><A NAME=
"ref_652_9">Driver_Result
</A></span> <b>is
</b> (
<span class=
"symbol"><A NAME=
"ref_652_27">Menu_Ok
</A></span>,
670 <span class=
"symbol"><A NAME=
"ref_653_27">Request_Denied
</A></span>,
671 <span class=
"symbol"><A NAME=
"ref_654_27">Unknown_Request
</A></span>,
672 <span class=
"symbol"><A NAME=
"ref_655_27">No_Match
</A></span>);
674 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_61"#
2|
</EM></span>
675 <b>function
</b> <span class=
"symbol"><A NAME=
"ref_658_13" HREF=
"terminal_interface-curses-menus__adb.htm#ref_852_13">Driver
</A></span> (
<span class=
"symbol"><A NAME=
"ref_658_21" HREF=
"terminal_interface-curses-menus__adb.htm#ref_852_21">Men
</A></span> :
<A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A>;
676 <span class=
"symbol"><A NAME=
"ref_659_21" HREF=
"terminal_interface-curses-menus__adb.htm#ref_853_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>;
677 <span class=
"comment"><EM>-- AKA:
<A HREF=
"../man/menu_driver.3x.html">menu_driver()
</A></EM></span>
678 <span class=
"comment"><EM>-- Driver is not inlined
</EM></span>
680 <span class=
"comment"><EM>-- #
1A
NAME=
"AFU_62"#
2|
</EM></span>
681 <span class=
"comment"><EM>-- Not Implemented: menu_request_name, menu_request_by_name
</EM></span>
682 <span class=
"comment"><EM>-------------------------------------------------------------------------------
</EM></span>
684 <b>type
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A> <b>is
</b> <b>new
</b> System.Storage_Elements.Integer_Address;
685 <b>type
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A> <b>is
</b> <b>new
</b> System.Storage_Elements.Integer_Address;
687 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_57_4">Null_Item
</A> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_51_9">Item
</A> :=
0;
688 <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_58_4">Null_Menu
</A> :
<b>constant
</b> <A HREF=
"terminal_interface-curses-menus__ads.htm#ref_52_9">Menu
</A> :=
0;
690 <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>;