1 <HTML><HEAD><TITLE>terminal_interface-curses-menus.ads</TITLE></HEAD>
3 <HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus.ads </H1></DIV><HR>
6 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
7 <FONT COLOR=green><EM>-- --</EM></FONT>
8 <FONT COLOR=green><EM>-- <A HREF="http://www.gnat.com">GNAT</A> ncurses Binding --</EM></FONT>
9 <FONT COLOR=green><EM>-- --</EM></FONT>
10 <FONT COLOR=green><EM>-- Terminal_Interface.Curses.Menu --</EM></FONT>
11 <FONT COLOR=green><EM>-- --</EM></FONT>
12 <FONT COLOR=green><EM>-- S P E C --</EM></FONT>
13 <FONT COLOR=green><EM>-- --</EM></FONT>
14 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
15 <FONT COLOR=green><EM>-- Copyright (c) 1998 Free Software Foundation, Inc. --</EM></FONT>
16 <FONT COLOR=green><EM>-- --</EM></FONT>
17 <FONT COLOR=green><EM>-- Permission is hereby granted, free of charge, to any person obtaining a --</EM></FONT>
18 <FONT COLOR=green><EM>-- copy of this software and associated documentation files (the --</EM></FONT>
19 <FONT COLOR=green><EM>-- "Software"), to deal in the Software without restriction, including --</EM></FONT>
20 <FONT COLOR=green><EM>-- without limitation the rights to use, copy, modify, merge, publish, --</EM></FONT>
21 <FONT COLOR=green><EM>-- distribute, distribute with modifications, sublicense, and/or sell --</EM></FONT>
22 <FONT COLOR=green><EM>-- copies of the Software, and to permit persons to whom the Software is --</EM></FONT>
23 <FONT COLOR=green><EM>-- furnished to do so, subject to the following conditions: --</EM></FONT>
24 <FONT COLOR=green><EM>-- --</EM></FONT>
25 <FONT COLOR=green><EM>-- The above copyright notice and this permission notice shall be included --</EM></FONT>
26 <FONT COLOR=green><EM>-- in all copies or substantial portions of the Software. --</EM></FONT>
27 <FONT COLOR=green><EM>-- --</EM></FONT>
28 <FONT COLOR=green><EM>-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --</EM></FONT>
29 <FONT COLOR=green><EM>-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --</EM></FONT>
30 <FONT COLOR=green><EM>-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. --</EM></FONT>
31 <FONT COLOR=green><EM>-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, --</EM></FONT>
32 <FONT COLOR=green><EM>-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR --</EM></FONT>
33 <FONT COLOR=green><EM>-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR --</EM></FONT>
34 <FONT COLOR=green><EM>-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. --</EM></FONT>
35 <FONT COLOR=green><EM>-- --</EM></FONT>
36 <FONT COLOR=green><EM>-- Except as contained in this notice, the name(s) of the above copyright --</EM></FONT>
37 <FONT COLOR=green><EM>-- holders shall not be used in advertising or otherwise to promote the --</EM></FONT>
38 <FONT COLOR=green><EM>-- sale, use or other dealings in this Software without prior written --</EM></FONT>
39 <FONT COLOR=green><EM>-- authorization. --</EM></FONT>
40 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
41 <FONT COLOR=green><EM>-- Author: Juergen Pfeifer, 1996</EM></FONT>
42 <FONT COLOR=green><EM>-- Version Control:</EM></FONT>
43 <FONT COLOR=green><EM>-- @Revision: 1.24 @</EM></FONT>
44 <FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT>
45 <FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT>
46 <FONT COLOR=green><EM>-- menu binding.</EM></FONT>
47 <FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT>
48 <FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT>
49 <FONT COLOR=green><EM>-- |</EM></FONT>
51 <b>with</b> Ada.Characters.Latin_1;
53 <b>package</b> Terminal_Interface.Curses.Menus <b>is</b>
54 <b>pragma</b> Preelaborate (Terminal_Interface.Curses.Menus);
55 <b>pragma</b> Linker_Options ("-lmenu");
56 <b>pragma</b> Linker_Options ("-lncurses");
58 Space : Character <b>renames</b> Ada.Characters.Latin_1.Space;
60 <b>type</b> <FONT COLOR=red><A NAME="56_9">Item</A></FONT> <b>is</b> <b>private</b>;
61 <b>type</b> Menu <b>is</b> <b>private</b>;
63 <FONT COLOR=green><EM>---------------------------</EM></FONT>
64 <FONT COLOR=green><EM>-- Interface constants --</EM></FONT>
65 <FONT COLOR=green><EM>---------------------------</EM></FONT>
66 <FONT COLOR=red><A NAME="62_4">Null_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A>;
67 Null_Menu : <b>constant</b> Menu;
69 <b>subtype</b> Menu_Request_Code <b>is</b> Key_Code
70 <b>range</b> (Key_Max + 1) .. (Key_Max + 17);
72 <FONT COLOR=green><EM>-- The prefix M_ stands for "Menu Request"</EM></FONT>
73 <FONT COLOR=red><A NAME="69_4">M_Left_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 1;
74 <FONT COLOR=red><A NAME="70_4">M_Right_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 2;
75 <FONT COLOR=red><A NAME="71_4">M_Up_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 3;
76 <FONT COLOR=red><A NAME="72_4">M_Down_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 4;
77 <FONT COLOR=red><A NAME="73_4">M_ScrollUp_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 5;
78 <FONT COLOR=red><A NAME="74_4">M_ScrollDown_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 6;
79 <FONT COLOR=red><A NAME="75_4">M_ScrollDown_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 7;
80 <FONT COLOR=red><A NAME="76_4">M_ScrollUp_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 8;
81 <FONT COLOR=red><A NAME="77_4">M_First_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 9;
82 <FONT COLOR=red><A NAME="78_4">M_Last_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 10;
83 <FONT COLOR=red><A NAME="79_4">M_Next_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 11;
84 <FONT COLOR=red><A NAME="80_4">M_Previous_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 12;
85 <FONT COLOR=red><A NAME="81_4">M_Toggle_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 13;
86 <FONT COLOR=red><A NAME="82_4">M_Clear_Pattern</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 14;
87 <FONT COLOR=red><A NAME="83_4">M_Back_Pattern</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 15;
88 <FONT COLOR=red><A NAME="84_4">M_Next_Match</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#205_4">Key_Max</A> + 16;
89 M_Previous_Match : <b>constant</b> Menu_Request_Code := Key_Max + 17;
91 <FONT COLOR=green><EM>-- For those who like the old 'C' names for the request codes</EM></FONT>
92 <FONT COLOR=red><A NAME="88_4">REQ_LEFT_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#69_4">M_Left_Item</A>;
93 <FONT COLOR=red><A NAME="89_4">REQ_RIGHT_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#70_4">M_Right_Item</A>;
94 <FONT COLOR=red><A NAME="90_4">REQ_UP_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#71_4">M_Up_Item</A>;
95 <FONT COLOR=red><A NAME="91_4">REQ_DOWN_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#72_4">M_Down_Item</A>;
96 <FONT COLOR=red><A NAME="92_4">REQ_SCR_ULINE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#73_4">M_ScrollUp_Line</A>;
97 <FONT COLOR=red><A NAME="93_4">REQ_SCR_DLINE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#74_4">M_ScrollDown_Line</A>;
98 <FONT COLOR=red><A NAME="94_4">REQ_SCR_DPAGE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#75_4">M_ScrollDown_Page</A>;
99 <FONT COLOR=red><A NAME="95_4">REQ_SCR_UPAGE</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#76_4">M_ScrollUp_Page</A>;
100 <FONT COLOR=red><A NAME="96_4">REQ_FIRST_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#77_4">M_First_Item</A>;
101 <FONT COLOR=red><A NAME="97_4">REQ_LAST_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#78_4">M_Last_Item</A>;
102 <FONT COLOR=red><A NAME="98_4">REQ_NEXT_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#79_4">M_Next_Item</A>;
103 <FONT COLOR=red><A NAME="99_4">REQ_PREV_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#80_4">M_Previous_Item</A>;
104 <FONT COLOR=red><A NAME="100_4">REQ_TOGGLE_ITEM</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#81_4">M_Toggle_Item</A>;
105 <FONT COLOR=red><A NAME="101_4">REQ_CLEAR_PATTERN</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#82_4">M_Clear_Pattern</A>;
106 <FONT COLOR=red><A NAME="102_4">REQ_BACK_PATTERN</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#83_4">M_Back_Pattern</A>;
107 <FONT COLOR=red><A NAME="103_4">REQ_NEXT_MATCH</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#64_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#84_4">M_Next_Match</A>;
108 REQ_PREV_MATCH : Menu_Request_Code <b>renames</b> M_Previous_Match;
110 <b>procedure</b> Request_Name (<FONT COLOR=red><A NAME="106_28">Key</A></FONT> : <b>in</b> Menu_Request_Code;
111 Name : <b>out</b> String);
113 <b>function</b> Request_Name (Key : Menu_Request_Code) <b>return</b> String;
114 <FONT COLOR=green><EM>-- Same as function</EM></FONT>
116 <FONT COLOR=green><EM>------------------</EM></FONT>
117 <FONT COLOR=green><EM>-- Exceptions --</EM></FONT>
118 <FONT COLOR=green><EM>------------------</EM></FONT>
120 Menu_Exception : <b>exception</b>;
121 <FONT COLOR=green><EM>--</EM></FONT>
122 <FONT COLOR=green><EM>-- Menu options</EM></FONT>
123 <FONT COLOR=green><EM>--</EM></FONT>
124 <b>pragma</b> Warnings (Off);
125 <b>type</b> Menu_Option_Set <b>is</b>
127 <FONT COLOR=red><A NAME="123_10">One_Valued</A></FONT> : Boolean;
128 <FONT COLOR=red><A NAME="124_10">Show_Descriptions</A></FONT> : Boolean;
129 <FONT COLOR=red><A NAME="125_10">Row_Major_Order</A></FONT> : Boolean;
130 <FONT COLOR=red><A NAME="126_10">Ignore_Case</A></FONT> : Boolean;
131 <FONT COLOR=red><A NAME="127_10">Show_Matches</A></FONT> : Boolean;
132 Non_Cyclic : Boolean;
133 <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm#120_9">;</A>
134 <b>pragma</b> Pack (Menu_Option_Set);
135 <b>pragma</b> Convention (C, Menu_Option_Set);
137 <b>for</b> Menu_Option_Set <b>use</b>
139 One_Valued <b>at</b> 0 <b>range</b> 0 .. 0;
140 Show_Descriptions <b>at</b> 0 <b>range</b> 1 .. 1;
141 Row_Major_Order <b>at</b> 0 <b>range</b> 2 .. 2;
142 Ignore_Case <b>at</b> 0 <b>range</b> 3 .. 3;
143 Show_Matches <b>at</b> 0 <b>range</b> 4 .. 4;
144 Non_Cyclic <b>at</b> 0 <b>range</b> 5 .. 5;
145 <b>end</b> <b>record</b>;
146 <b>for</b> Menu_Option_Set'Size <b>use</b> 32;
147 <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT>
148 <FONT COLOR=green><EM>-- different on your system.</EM></FONT>
149 <b>pragma</b> Warnings (On);
151 <b>function</b> Default_Menu_Options <b>return</b> Menu_Option_Set;
152 <FONT COLOR=green><EM>-- Initial default options for a menu.</EM></FONT>
153 <b>pragma</b> Inline (Default_Menu_Options);
154 <FONT COLOR=green><EM>--</EM></FONT>
155 <FONT COLOR=green><EM>-- Item options</EM></FONT>
156 <FONT COLOR=green><EM>--</EM></FONT>
157 <b>pragma</b> Warnings (Off);
158 <b>type</b> Item_Option_Set <b>is</b>
160 Selectable : Boolean;
161 <b>end</b> <b>record</b><A HREF="terminal_interface-curses-menus__ads.htm#153_9">;</A>
162 <b>pragma</b> Pack (Item_Option_Set);
163 <b>pragma</b> Convention (C, Item_Option_Set);
165 <b>for</b> Item_Option_Set <b>use</b>
167 Selectable <b>at</b> 0 <b>range</b> 0 .. 0;
168 <b>end</b> <b>record</b>;
169 <b>for</b> Item_Option_Set'Size <b>use</b> 32;
170 <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT>
171 <FONT COLOR=green><EM>-- different on your system.</EM></FONT>
172 <b>pragma</b> Warnings (On);
174 <b>function</b> Default_Item_Options <b>return</b> Item_Option_Set;
175 <FONT COLOR=green><EM>-- Initial default options for an item.</EM></FONT>
176 <b>pragma</b> Inline (Default_Item_Options);
178 <FONT COLOR=green><EM>--</EM></FONT>
179 <FONT COLOR=green><EM>-- Item Array</EM></FONT>
180 <FONT COLOR=green><EM>--</EM></FONT>
181 <b>type</b> Item_Array <b>is</b> <b>array</b> (Positive <b>range</b> <>) <b>of</b> <b>aliased</b> Item;
182 <b>pragma</b> Convention (C, Item_Array);
184 <b>type</b> Item_Array_Access <b>is</b> <b>access</b> Item_Array;
186 <b>procedure</b> Free (<FONT COLOR=red><A NAME="182_20">IA</A></FONT> : <b>in</b> <b>out</b> Item_Array_Access;
187 Free_Items : Boolean := False);
188 <FONT COLOR=green><EM>-- Release the memory for an allocated item array</EM></FONT>
189 <FONT COLOR=green><EM>-- If Free_Items is True, call Delete() for all the items in</EM></FONT>
190 <FONT COLOR=green><EM>-- the array.</EM></FONT>
192 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
193 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_new.3x.html">mitem_new.3x</A></EM></FONT>
194 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
196 <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT>
197 <b>function</b> Create (<FONT COLOR=red><A NAME="193_21">Name</A></FONT> : String;
198 Description : String := "") <b>return</b> Item;
199 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT>
200 <FONT COLOR=green><EM>-- Not inlined.</EM></FONT>
202 <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT>
203 <b>function</b> New_Item (<FONT COLOR=red><A NAME="199_23">Name</A></FONT> : String;
204 <A HREF="terminal_interface-curses-menus__ads.htm#192_13"> </A> Description : String := "") <b>return</b> Item
205 <b>renames</b> Create;
206 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">new_item()</A></EM></FONT>
208 <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT>
209 <b>procedure</b> Delete (Itm : <b>in</b> <b>out</b> Item);
210 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_new.3x.html">free_item()</A></EM></FONT>
211 <FONT COLOR=green><EM>-- Resets Itm to Null_Item</EM></FONT>
213 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
214 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_value.3x.html">mitem_value.3x</A></EM></FONT>
215 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
217 <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT>
218 <b>procedure</b> Set_Value (<FONT COLOR=red><A NAME="214_25">Itm</A></FONT> : <b>in</b> Item;
219 Value : <b>in</b> Boolean := True);
220 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_value.3x.html">set_item_value()</A></EM></FONT>
221 <b>pragma</b> Inline (Set_Value);
223 <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT>
224 <b>function</b> Value (Itm : Item) <b>return</b> Boolean;
225 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_value.3x.html">item_value()</A></EM></FONT>
226 <b>pragma</b> Inline (Value);
228 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
229 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_visible.3x.html">mitem_visible.3x</A></EM></FONT>
230 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
232 <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT>
233 <b>function</b> Visible (Itm : Item) <b>return</b> Boolean;
234 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_visible.3x.html">item_visible()</A></EM></FONT>
235 <b>pragma</b> Inline (Visible);
237 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
238 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_opts.3x.html">mitem_opts.3x</A></EM></FONT>
239 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
241 <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT>
242 <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="238_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item</A>;
243 Options : <b>in</b> Item_Option_Set);
244 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">set_item_opts()</A></EM></FONT>
245 <FONT COLOR=green><EM>-- An overloaded Set_Options is defined later. Pragma Inline appears there</EM></FONT>
247 <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT>
248 <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="244_30">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item</A>;
249 <FONT COLOR=red><A NAME="245_30">Options</A></FONT> : <b>in</b> Item_Option_Set;
250 On : Boolean := True);
251 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts_on()</A></EM></FONT>
252 <FONT COLOR=green><EM>-- AKA: item_opts_off()</EM></FONT>
253 <FONT COLOR=green><EM>-- An overloaded Switch_Options is defined later.</EM></FONT>
254 <FONT COLOR=green><EM>-- Pragma Inline appears there</EM></FONT>
256 <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT>
257 <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="253_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#153_9">Item</A>;
258 Options : <b>out</b> Item_Option_Set);
259 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT>
261 <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT>
262 <b>function</b> Get_Options (Itm : Item := Null_Item) <b>return</b> Item_Option_Set;
263 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_opts.3x.html">item_opts()</A></EM></FONT>
264 <FONT COLOR=green><EM>-- An overloaded Get_Options is defined later. Pragma Inline appears there</EM></FONT>
266 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
267 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_name.3x.html">mitem_name.3x</A></EM></FONT>
268 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
270 <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT>
271 <b>procedure</b> Name (<FONT COLOR=red><A NAME="267_20">Itm</A></FONT> : <b>in</b> Item;
272 Name : <b>out</b> String);
273 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT>
274 <b>function</b> Name (Itm : Item) <b>return</b> String;
275 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_name()</A></EM></FONT>
276 <FONT COLOR=green><EM>-- Implemented as function</EM></FONT>
277 <b>pragma</b> Inline (Name);
279 <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT>
280 <b>procedure</b> Description (<FONT COLOR=red><A NAME="276_27">Itm</A></FONT> : <b>in</b> Item;
281 Description : <b>out</b> String);
282 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT>
284 <b>function</b> Description (Itm : Item) <b>return</b> String;
285 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_name.3x.html">item_description();</A></EM></FONT>
286 <FONT COLOR=green><EM>-- Implemented as function</EM></FONT>
287 <b>pragma</b> Inline (Description);
289 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
290 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/mitem_current.3x.html">mitem_current.3x</A></EM></FONT>
291 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
293 <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT>
294 <b>procedure</b> Set_Current (<FONT COLOR=red><A NAME="290_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#55_9">Menu</A>;
295 Itm : <b>in</b> Item);
296 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">set_current_item()</A></EM></FONT>
297 <b>pragma</b> Inline (Set_Current);
299 <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT>
300 <b>function</b> Current (Men : Menu) <b>return</b> Item;
301 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">current_item()</A></EM></FONT>
302 <b>pragma</b> Inline (Current);
304 <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT>
305 <b>procedure</b> Set_Top_Row (<FONT COLOR=red><A NAME="301_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Menu</A>;
306 Line : <b>in</b> Line_Position);
307 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">set_top_row()</A></EM></FONT>
308 <b>pragma</b> Inline (Set_Top_Row);
310 <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT>
311 <b>function</b> Top_Row (Men : Menu) <b>return</b> Line_Position;
312 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">top_row()</A></EM></FONT>
313 <b>pragma</b> Inline (Top_Row);
315 <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT>
316 <b>function</b> Get_Index (Itm : Item) <b>return</b> Positive;
317 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/mitem_current.3x.html">item_index()</A></EM></FONT>
318 <FONT COLOR=green><EM>-- Please note that in this binding we start the numbering of items</EM></FONT>
319 <FONT COLOR=green><EM>-- with 1. So this is number is one more than you get from the low</EM></FONT>
320 <FONT COLOR=green><EM>-- level call.</EM></FONT>
321 <b>pragma</b> Inline (Get_Index);
323 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
324 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_post.3x.html">menu_post.3x</A></EM></FONT>
325 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
327 <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT>
328 <b>procedure</b> Post (<FONT COLOR=red><A NAME="324_20">Men</A></FONT> : <b>in</b> Menu;
329 Post : <b>in</b> Boolean := True);
330 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_post.3x.html">post_menu()</A></EM></FONT>
331 <FONT COLOR=green><EM>-- AKA: unpost_menu()</EM></FONT>
332 <b>pragma</b> Inline (Post);
334 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
335 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_opts.3x.html">menu_opts.3x</A></EM></FONT>
336 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
338 <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT>
339 <b>procedure</b> Set_Options (<FONT COLOR=red><A NAME="335_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu</A>;
340 Options : <b>in</b> Menu_Option_Set);
341 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">set_menu_opts()</A></EM></FONT>
342 <b>pragma</b> Inline (Set_Options);
344 <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT>
345 <b>procedure</b> Switch_Options (<FONT COLOR=red><A NAME="341_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu</A>;
346 <FONT COLOR=red><A NAME="342_30">Options</A></FONT> : <b>in</b> Menu_Option_Set;
347 On : Boolean := True);
348 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts_on()</A></EM></FONT>
349 <FONT COLOR=green><EM>-- AKA: menu_opts_off()</EM></FONT>
350 <b>pragma</b> Inline (Switch_Options);
352 <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT>
353 <b>procedure</b> Get_Options (<FONT COLOR=red><A NAME="349_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#120_9">Menu</A>;
354 Options : <b>out</b> Menu_Option_Set);
355 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT>
357 <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT>
358 <b>function</b> Get_Options (Men : Menu := Null_Menu) <b>return</b> Menu_Option_Set;
359 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_opts.3x.html">menu_opts()</A></EM></FONT>
360 <b>pragma</b> Inline (Get_Options);
362 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
363 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_win.3x.html">menu_win.3x</A></EM></FONT>
364 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
366 <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT>
367 <b>procedure</b> Set_Window (<FONT COLOR=red><A NAME="363_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Menu</A>;
368 Win : <b>in</b> Window);
369 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">set_menu_win()</A></EM></FONT>
370 <b>pragma</b> Inline (Set_Window);
372 <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT>
373 <b>function</b> Get_Window (Men : Menu) <b>return</b> Window;
374 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">menu_win()</A></EM></FONT>
375 <b>pragma</b> Inline (Get_Window);
377 <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT>
378 <b>procedure</b> Set_Sub_Window (<FONT COLOR=red><A NAME="374_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#56_9">Menu</A>;
379 Win : <b>in</b> Window);
380 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">set_menu_sub()</A></EM></FONT>
381 <b>pragma</b> Inline (Set_Sub_Window);
383 <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT>
384 <b>function</b> Get_Sub_Window (Men : Menu) <b>return</b> Window;
385 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">menu_sub()</A></EM></FONT>
386 <b>pragma</b> Inline (Get_Sub_Window);
388 <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT>
389 <b>procedure</b> Scale (<FONT COLOR=red><A NAME="385_21">Men</A></FONT> : <b>in</b> Menu;
390 <FONT COLOR=red><A NAME="386_21">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
391 Columns : <b>out</b> Column_Count);
392 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_win.3x.html">scale_menu()</A></EM></FONT>
393 <b>pragma</b> Inline (Scale);
395 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
396 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_cursor.3x.html">menu_cursor.3x</A></EM></FONT>
397 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
399 <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT>
400 <b>procedure</b> Position_Cursor (Men : Menu);
401 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_cursor.3x.html">pos_menu_cursor()</A></EM></FONT>
402 <b>pragma</b> Inline (Position_Cursor);
404 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
405 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_mark.3x.html">menu_mark.3x</A></EM></FONT>
406 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
408 <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT>
409 <b>procedure</b> Set_Mark (<FONT COLOR=red><A NAME="405_24">Men</A></FONT> : <b>in</b> Menu;
410 Mark : <b>in</b> String);
411 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">set_menu_mark()</A></EM></FONT>
412 <b>pragma</b> Inline (Set_Mark);
414 <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT>
415 <b>procedure</b> Mark (<FONT COLOR=red><A NAME="411_20">Men</A></FONT> : <b>in</b> Menu;
416 Mark : <b>out</b> String);
417 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT>
419 <b>function</b> Mark (Men : Menu) <b>return</b> String;
420 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_mark.3x.html">menu_mark()</A></EM></FONT>
421 <FONT COLOR=green><EM>-- Implemented as function</EM></FONT>
422 <b>pragma</b> Inline (Mark);
424 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
425 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_attribs.3x.html">menu_attribs.3x</A></EM></FONT>
426 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
428 <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT>
429 <b>procedure</b> Set_Foreground
430 (<FONT COLOR=red><A NAME="426_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
431 <FONT COLOR=red><A NAME="427_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A> := Normal_Video;
432 Color : <b>in</b> Color_Pair := Color_Pair'First);
433 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_fore()</A></EM></FONT>
434 <b>pragma</b> Inline (Set_Foreground);
436 <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT>
437 <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="433_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
438 Fore : <b>out</b> Character_Attribute_Set);
439 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT>
441 <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT>
442 <b>procedure</b> Foreground (<FONT COLOR=red><A NAME="438_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
443 <FONT COLOR=red><A NAME="439_26">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A>;
444 Color : <b>out</b> Color_Pair);
445 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_fore()</A></EM></FONT>
446 <b>pragma</b> Inline (Foreground);
448 <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT>
449 <b>procedure</b> Set_Background
450 (<FONT COLOR=red><A NAME="446_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
451 <FONT COLOR=red><A NAME="447_7">Back</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A> := Normal_Video;
452 Color : <b>in</b> Color_Pair := Color_Pair'First);
453 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_back()</A></EM></FONT>
454 <b>pragma</b> Inline (Set_Background);
456 <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT>
457 <b>procedure</b> Background (<FONT COLOR=red><A NAME="453_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
458 Back : <b>out</b> Character_Attribute_Set);
459 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT>
460 <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT>
462 <b>procedure</b> Background (<FONT COLOR=red><A NAME="458_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
463 <FONT COLOR=red><A NAME="459_26">Back</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A>;
464 Color : <b>out</b> Color_Pair);
465 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_back()</A></EM></FONT>
466 <b>pragma</b> Inline (Background);
468 <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT>
469 <b>procedure</b> Set_Grey
470 (<FONT COLOR=red><A NAME="466_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
471 <FONT COLOR=red><A NAME="467_7">Grey</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A> := Normal_Video;
472 Color : <b>in</b> Color_Pair := Color_Pair'First);
473 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_grey()</A></EM></FONT>
474 <b>pragma</b> Inline (Set_Grey);
476 <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT>
477 <b>procedure</b> Grey (<FONT COLOR=red><A NAME="473_20">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
478 Grey : <b>out</b> Character_Attribute_Set);
479 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT>
481 <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT>
482 <b>procedure</b> Grey
483 (<FONT COLOR=red><A NAME="479_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#305_9">Menu</A>;
484 <FONT COLOR=red><A NAME="480_7">Grey</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#297_9">Character_Attribute_Set</A>;
485 Color : <b>out</b> Color_Pair);
486 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_grey()</A></EM></FONT>
487 <b>pragma</b> Inline (Grey);
489 <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT>
490 <b>procedure</b> Set_Pad_Character (<FONT COLOR=red><A NAME="486_33">Men</A></FONT> : <b>in</b> Menu;
491 Pad : <b>in</b> Character := Space);
492 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">set_menu_pad()</A></EM></FONT>
493 <b>pragma</b> Inline (Set_Pad_Character);
495 <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT>
496 <b>procedure</b> Pad_Character (<FONT COLOR=red><A NAME="492_29">Men</A></FONT> : <b>in</b> Menu;
497 Pad : <b>out</b> Character);
498 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_attribs.3x.html">menu_pad()</A></EM></FONT>
499 <b>pragma</b> Inline (Pad_Character);
501 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
502 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_spacing.3x.html">menu_spacing.3x</A></EM></FONT>
503 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
505 <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT>
506 <b>procedure</b> Set_Spacing (<FONT COLOR=red><A NAME="502_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Menu</A>;
507 <FONT COLOR=red><A NAME="503_27">Descr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A> := 0;
508 <FONT COLOR=red><A NAME="504_27">Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A> := 0;
509 Col : <b>in</b> Column_Position := 0);
510 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_spacing.3x.html">set_menu_spacing()</A></EM></FONT>
511 <b>pragma</b> Inline (Set_Spacing);
513 <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT>
514 <b>procedure</b> Spacing (<FONT COLOR=red><A NAME="510_23">Men</A></FONT> : <b>in</b> Menu;
515 <FONT COLOR=red><A NAME="511_23">Descr</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#59_9">Column_Position</A>;
516 <FONT COLOR=red><A NAME="512_23">Row</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#60_9">Line_Position</A>;
517 Col : <b>out</b> Column_Position);
518 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_spacing.3x.html">menu_spacing()</A></EM></FONT>
519 <b>pragma</b> Inline (Spacing);
521 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
522 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_pattern.3x.html">menu_pattern.3x</A></EM></FONT>
523 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
525 <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT>
526 <b>function</b> Set_Pattern (<FONT COLOR=red><A NAME="522_26">Men</A></FONT> : Menu;
527 Text : String) <b>return</b> Boolean;
528 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_pattern.3x.html">set_menu_pattern()</A></EM></FONT>
529 <FONT COLOR=green><EM>-- Return TRUE if the pattern matches, FALSE otherwise</EM></FONT>
530 <b>pragma</b> Inline (Set_Pattern);
532 <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT>
533 <b>procedure</b> Pattern (<FONT COLOR=red><A NAME="529_23">Men</A></FONT> : <b>in</b> Menu;
534 Text : <b>out</b> String);
535 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_pattern.3x.html">menu_pattern()</A></EM></FONT>
536 <b>pragma</b> Inline (Pattern);
538 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
539 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_format.3x.html">menu_format.3x</A></EM></FONT>
540 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
542 <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT>
543 <b>procedure</b> Set_Format (<FONT COLOR=red><A NAME="539_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Menu</A>;
544 <FONT COLOR=red><A NAME="540_26">Lines</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
545 Columns : <b>in</b> Column_Count);
546 <FONT COLOR=green><EM>-- Not implemented: 0 argument for Lines or Columns;</EM></FONT>
547 <FONT COLOR=green><EM>-- instead use Format to get the current sizes</EM></FONT>
548 <FONT COLOR=green><EM>-- The default is 16 rows, 1 column. Calling</EM></FONT>
549 <FONT COLOR=green><EM>-- set_menu_format with a null menu pointer will change this</EM></FONT>
550 <FONT COLOR=green><EM>-- default. A zero row or column argument to set_menu_format</EM></FONT>
551 <FONT COLOR=green><EM>-- is interpreted as a request not to change the current</EM></FONT>
552 <FONT COLOR=green><EM>-- value.</EM></FONT>
553 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_format.3x.html">set_menu_format()</A></EM></FONT>
554 <b>pragma</b> Inline (Set_Format);
556 <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT>
557 <b>procedure</b> Format (<FONT COLOR=red><A NAME="553_22">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#62_12">Menu</A>;
558 <FONT COLOR=red><A NAME="554_22">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#64_12">Line_Count</A>;
559 Columns : <b>out</b> Column_Count);
560 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_format.3x.html">menu_format()</A></EM></FONT>
561 <b>pragma</b> Inline (Format);
563 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
564 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_hook.3x.html">menu_hook.3x</A></EM></FONT>
565 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
567 <b>type</b> Menu_Hook_Function <b>is</b> <b>access</b> <b>procedure</b> (Men : <b>in</b> Menu);
568 <b>pragma</b> Convention (C, Menu_Hook_Function);
570 <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT>
571 <b>procedure</b> Set_Item_Init_Hook (<FONT COLOR=red><A NAME="567_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#562_9">Menu</A>;
572 Proc : <b>in</b> Menu_Hook_Function);
573 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_item_init()</A></EM></FONT>
574 <b>pragma</b> Inline (Set_Item_Init_Hook);
576 <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT>
577 <b>procedure</b> Set_Item_Term_Hook (<FONT COLOR=red><A NAME="573_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#562_9">Menu</A>;
578 Proc : <b>in</b> Menu_Hook_Function);
579 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_item_term()</A></EM></FONT>
580 <b>pragma</b> Inline (Set_Item_Term_Hook);
582 <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT>
583 <b>procedure</b> Set_Menu_Init_Hook (<FONT COLOR=red><A NAME="579_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#562_9">Menu</A>;
584 Proc : <b>in</b> Menu_Hook_Function);
585 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_menu_init()</A></EM></FONT>
586 <b>pragma</b> Inline (Set_Menu_Init_Hook);
588 <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT>
589 <b>procedure</b> Set_Menu_Term_Hook (<FONT COLOR=red><A NAME="585_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#562_9">Menu</A>;
590 Proc : <b>in</b> Menu_Hook_Function);
591 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">set_menu_term()</A></EM></FONT>
592 <b>pragma</b> Inline (Set_Menu_Term_Hook);
594 <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT>
595 <b>function</b> Get_Item_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
596 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">item_init()</A></EM></FONT>
597 <b>pragma</b> Inline (Get_Item_Init_Hook);
599 <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT>
600 <b>function</b> Get_Item_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
601 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">item_term()</A></EM></FONT>
602 <b>pragma</b> Inline (Get_Item_Term_Hook);
604 <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT>
605 <b>function</b> Get_Menu_Init_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
606 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">menu_init()</A></EM></FONT>
607 <b>pragma</b> Inline (Get_Menu_Init_Hook);
609 <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT>
610 <b>function</b> Get_Menu_Term_Hook (Men : Menu) <b>return</b> Menu_Hook_Function;
611 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_hook.3x.html">menu_term()</A></EM></FONT>
612 <b>pragma</b> Inline (Get_Menu_Term_Hook);
614 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
615 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_items.3x.html">menu_items.3x</A></EM></FONT>
616 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
618 <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT>
619 <b>procedure</b> Redefine (<FONT COLOR=red><A NAME="615_24">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#179_9">Menu</A>;
620 Items : <b>in</b> Item_Array_Access);
621 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_items.3x.html">set_menu_items()</A></EM></FONT>
622 <b>pragma</b> Inline (Redefine);
624 <b>procedure</b> Set_Items (<FONT COLOR=red><A NAME="620_25">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#179_9">Menu</A>;
625 <A HREF="terminal_interface-curses-menus__ads.htm#619_14"> </A> Items : <b>in</b> Item_Array_Access) <b>renames</b> Redefine;
626 <b>pragma</b> Inline (Set_Items);
628 <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT>
629 <b>function</b> Items (<FONT COLOR=red><A NAME="625_20">Men</A></FONT> : Menu;
630 Index : Positive) <b>return</b> Item;
631 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_items.3x.html">menu_items()</A></EM></FONT>
632 <b>pragma</b> Inline (Items);
634 <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT>
635 <b>function</b> Item_Count (Men : Menu) <b>return</b> Natural;
636 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_items.3x.html">item_count()</A></EM></FONT>
637 <b>pragma</b> Inline (Item_Count);
639 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
640 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_new.3x.html">menu_new.3x</A></EM></FONT>
641 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
643 <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT>
644 <b>function</b> Create (Items : Item_Array_Access) <b>return</b> Menu;
645 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_new.3x.html">new_menu()</A></EM></FONT>
646 <FONT COLOR=green><EM>-- Not inlined</EM></FONT>
648 <b>function</b> New_Menu (Items : Item_Array_Access) <b>return</b> Menu <b>renames</b> Create;
650 <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT>
651 <b>procedure</b> Delete (Men : <b>in</b> <b>out</b> Menu);
652 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_new.3x.html">free_menu()</A></EM></FONT>
653 <FONT COLOR=green><EM>-- Reset Men to Null_Menu</EM></FONT>
654 <FONT COLOR=green><EM>-- Not inlined</EM></FONT>
656 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
657 <FONT COLOR=green><EM>-- | Man page <A HREF="../man/menu_driver.3x.html">menu_driver.3x</A></EM></FONT>
658 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT>
660 <b>type</b> Driver_Result <b>is</b> (<FONT COLOR=red><A NAME="656_27">Menu_Ok</A></FONT>,
661 <FONT COLOR=red><A NAME="657_27">Request_Denied</A></FONT>,
662 <FONT COLOR=red><A NAME="658_27">Unknown_Request</A></FONT>,
665 <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT>
666 <b>function</b> Driver (<FONT COLOR=red><A NAME="662_21">Men</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#67_9">Menu</A>;
667 Key : Key_Code) <b>return</b> Driver_Result;
668 <FONT COLOR=green><EM>-- AKA: <A HREF="../man/menu_driver.3x.html">menu_driver()</A></EM></FONT>
669 <FONT COLOR=green><EM>-- Driver is not inlined</EM></FONT>
671 <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT>
672 <FONT COLOR=green><EM>-- Not Implemented: menu_request_name, menu_request_by_name</EM></FONT>
673 <FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT>
675 <b>type</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
676 <b>type</b> Menu <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address;
678 <A HREF="terminal_interface-curses-menus__ads.htm#62_4">Null_Item</A> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#56_9">Item</A> := 0;
679 Null_Menu : <b>constant</b> Menu := 0;
681 <b>end</b> Terminal_Interface.Curses.Menus;