1<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> 2<HTML><HEAD><TITLE>terminal_interface-curses-menus.ads</TITLE></HEAD> 3<BODY> 4<HR><DIV ALIGN="center"><H1> File : terminal_interface-curses-menus.ads </H1></DIV><HR> 5<PRE> 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,2006 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.27 @</EM></FONT> 44<FONT COLOR=green><EM>-- @Date: 2007/05/05 20:20:52 @</EM></FONT> 45<FONT COLOR=green><EM>-- Binding Version 01.00</EM></FONT> 46<FONT COLOR=green><EM>------------------------------------------------------------------------------</EM></FONT> 47<FONT COLOR=green><EM>-- menu binding.</EM></FONT> 48<FONT COLOR=green><EM>-- This module is generated. Please don't change it manually!</EM></FONT> 49<FONT COLOR=green><EM>-- Run the generator instead.</EM></FONT> 50<FONT COLOR=green><EM>-- |</EM></FONT> 51<b>with</b> System; 52<b>with</b> Ada.Characters.Latin_1; 53 54<b>package</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<FONT COLOR=red><A NAME="ref_49_35" HREF="terminal_interface-curses-menus__adb.htm#ref_51_40">Menus</A></FONT> <b>is</b> 55 <b>pragma</b> Preelaborate (<A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-menus__ads.htm#ref_49_35">Menus</A>); 56 <b>pragma</b> Linker_Options ("-lmenuw"); 57 <b>pragma</b> Linker_Options ("-lncursesw"); 58 59 Space : Character <b>renames</b> Ada.Characters.Latin_1.Space; 60 61 <b>type</b> <FONT COLOR=red><A NAME="ref_56_9">Item</A></FONT> <b>is</b> <b>private</b>; 62 <b>type</b> <FONT COLOR=red><A NAME="ref_57_9">Menu</A></FONT> <b>is</b> <b>private</b>; 63 64 <FONT COLOR=green><EM>---------------------------</EM></FONT> 65 <FONT COLOR=green><EM>-- Interface constants --</EM></FONT> 66 <FONT COLOR=green><EM>---------------------------</EM></FONT> 67 <FONT COLOR=red><A NAME="ref_62_4">Null_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 68 <FONT COLOR=red><A NAME="ref_63_4">Null_Menu</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 69 70 <b>subtype</b> <FONT COLOR=red><A NAME="ref_65_12">Menu_Request_Code</A></FONT> <b>is</b> <A HREF="terminal_interface-curses__ads.htm#ref_68_9">Key_Code</A> 71 <b>range</b> (<A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 1) .. (<A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 17); 72 73 <FONT COLOR=green><EM>-- The prefix M_ stands for "Menu Request"</EM></FONT> 74 <FONT COLOR=red><A NAME="ref_69_4">M_Left_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 1; 75 <FONT COLOR=red><A NAME="ref_70_4">M_Right_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 2; 76 <FONT COLOR=red><A NAME="ref_71_4">M_Up_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 3; 77 <FONT COLOR=red><A NAME="ref_72_4">M_Down_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 4; 78 <FONT COLOR=red><A NAME="ref_73_4">M_ScrollUp_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 5; 79 <FONT COLOR=red><A NAME="ref_74_4">M_ScrollDown_Line</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 6; 80 <FONT COLOR=red><A NAME="ref_75_4">M_ScrollDown_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 7; 81 <FONT COLOR=red><A NAME="ref_76_4">M_ScrollUp_Page</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 8; 82 <FONT COLOR=red><A NAME="ref_77_4">M_First_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 9; 83 <FONT COLOR=red><A NAME="ref_78_4">M_Last_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 10; 84 <FONT COLOR=red><A NAME="ref_79_4">M_Next_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 11; 85 <FONT COLOR=red><A NAME="ref_80_4">M_Previous_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 12; 86 <FONT COLOR=red><A NAME="ref_81_4">M_Toggle_Item</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 13; 87 <FONT COLOR=red><A NAME="ref_82_4">M_Clear_Pattern</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 14; 88 <FONT COLOR=red><A NAME="ref_83_4">M_Back_Pattern</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 15; 89 <FONT COLOR=red><A NAME="ref_84_4">M_Next_Match</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 16; 90 <FONT COLOR=red><A NAME="ref_85_4">M_Previous_Match</A></FONT> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> := <A HREF="terminal_interface-curses__ads.htm#ref_207_4">Key_Max</A> + 17; 91 92 <FONT COLOR=green><EM>-- For those who like the old 'C' names for the request codes</EM></FONT> 93 REQ_LEFT_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_69_4">M_Left_Item</A>; 94 REQ_RIGHT_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_70_4">M_Right_Item</A>; 95 REQ_UP_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_71_4">M_Up_Item</A>; 96 REQ_DOWN_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_72_4">M_Down_Item</A>; 97 REQ_SCR_ULINE : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_73_4">M_ScrollUp_Line</A>; 98 REQ_SCR_DLINE : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_74_4">M_ScrollDown_Line</A>; 99 REQ_SCR_DPAGE : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_75_4">M_ScrollDown_Page</A>; 100 REQ_SCR_UPAGE : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_76_4">M_ScrollUp_Page</A>; 101 REQ_FIRST_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_77_4">M_First_Item</A>; 102 REQ_LAST_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_78_4">M_Last_Item</A>; 103 REQ_NEXT_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_79_4">M_Next_Item</A>; 104 REQ_PREV_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_80_4">M_Previous_Item</A>; 105 REQ_TOGGLE_ITEM : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_81_4">M_Toggle_Item</A>; 106 REQ_CLEAR_PATTERN : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_82_4">M_Clear_Pattern</A>; 107 REQ_BACK_PATTERN : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_83_4">M_Back_Pattern</A>; 108 REQ_NEXT_MATCH : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_84_4">M_Next_Match</A>; 109 REQ_PREV_MATCH : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_85_4">M_Previous_Match</A>; 110 111 <b>procedure</b> <FONT COLOR=red><A NAME="ref_106_14" HREF="terminal_interface-curses-menus__adb.htm#ref_77_14">Request_Name</A></FONT> (<FONT COLOR=red><A NAME="ref_106_28" HREF="terminal_interface-curses-menus__adb.htm#ref_77_28">Key</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A>; 112 <FONT COLOR=red><A NAME="ref_107_28" HREF="terminal_interface-curses-menus__adb.htm#ref_78_28">Name</A></FONT> : <b>out</b> String); 113 114 <b>function</b> <FONT COLOR=red><A NAME="ref_109_14" HREF="terminal_interface-curses-menus__adb.htm#ref_86_13">Request_Name</A></FONT> (<FONT COLOR=red><A NAME="ref_109_28" HREF="terminal_interface-curses-menus__adb.htm#ref_86_27">Key</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_65_12">Menu_Request_Code</A>) <b>return</b> String; 115 <FONT COLOR=green><EM>-- Same as function</EM></FONT> 116 117 <FONT COLOR=green><EM>------------------</EM></FONT> 118 <FONT COLOR=green><EM>-- Exceptions --</EM></FONT> 119 <FONT COLOR=green><EM>------------------</EM></FONT> 120 121 <FONT COLOR=red><A NAME="ref_116_4">Menu_Exception</A></FONT> : <b>exception</b>; 122 <FONT COLOR=green><EM>--</EM></FONT> 123 <FONT COLOR=green><EM>-- Menu options</EM></FONT> 124 <FONT COLOR=green><EM>--</EM></FONT> 125 <b>pragma</b> Warnings (Off); 126 <b>type</b> <FONT COLOR=red><A NAME="ref_121_9">Menu_Option_Set</A></FONT> <b>is</b> 127 <b>record</b> 128 <FONT COLOR=red><A NAME="ref_123_10">One_Valued</A></FONT> : Boolean; 129 <FONT COLOR=red><A NAME="ref_124_10">Show_Descriptions</A></FONT> : Boolean; 130 <FONT COLOR=red><A NAME="ref_125_10">Row_Major_Order</A></FONT> : Boolean; 131 <FONT COLOR=red><A NAME="ref_126_10">Ignore_Case</A></FONT> : Boolean; 132 <FONT COLOR=red><A NAME="ref_127_10">Show_Matches</A></FONT> : Boolean; 133 <FONT COLOR=red><A NAME="ref_128_10">Non_Cyclic</A></FONT> : Boolean; 134 <b>end</b> <b>record</b>; 135 <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-menus__ads.htm#ref_121_9">Menu_Option_Set</A>); 136 137 <b>for</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_121_9">Menu_Option_Set</A> <b>use</b> 138 <b>record</b> 139 <A HREF="terminal_interface-curses-menus__ads.htm#ref_123_10">One_Valued</A> <b>at</b> 0 <b>range</b> 0 .. 0; 140 <A HREF="terminal_interface-curses-menus__ads.htm#ref_124_10">Show_Descriptions</A> <b>at</b> 0 <b>range</b> 1 .. 1; 141 <A HREF="terminal_interface-curses-menus__ads.htm#ref_125_10">Row_Major_Order</A> <b>at</b> 0 <b>range</b> 2 .. 2; 142 <A HREF="terminal_interface-curses-menus__ads.htm#ref_126_10">Ignore_Case</A> <b>at</b> 0 <b>range</b> 3 .. 3; 143 <A HREF="terminal_interface-curses-menus__ads.htm#ref_127_10">Show_Matches</A> <b>at</b> 0 <b>range</b> 4 .. 4; 144 <A HREF="terminal_interface-curses-menus__ads.htm#ref_128_10">Non_Cyclic</A> <b>at</b> 0 <b>range</b> 5 .. 5; 145 <b>end</b> <b>record</b>; 146 <b>for</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_121_9">Menu_Option_Set</A>'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); 150 151 <b>function</b> <FONT COLOR=red><A NAME="ref_146_13" HREF="terminal_interface-curses-menus__adb.htm#ref_1009_13">Default_Menu_Options</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_121_9">Menu_Option_Set</A>; 152 <FONT COLOR=green><EM>-- Initial default options for a menu.</EM></FONT> 153 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_146_13">Default_Menu_Options</A>); 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> <FONT COLOR=red><A NAME="ref_153_9">Item_Option_Set</A></FONT> <b>is</b> 159 <b>record</b> 160 <FONT COLOR=red><A NAME="ref_155_10">Selectable</A></FONT> : Boolean; 161 <b>end</b> <b>record</b>; 162 <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-menus__ads.htm#ref_153_9">Item_Option_Set</A>); 163 164 <b>for</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_153_9">Item_Option_Set</A> <b>use</b> 165 <b>record</b> 166 <A HREF="terminal_interface-curses-menus__ads.htm#ref_155_10">Selectable</A> <b>at</b> 0 <b>range</b> 0 .. 0; 167 <b>end</b> <b>record</b>; 168 <b>for</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_153_9">Item_Option_Set</A>'Size <b>use</b> 32; 169 <FONT COLOR=green><EM>-- Please note: this rep. clause is generated and may be</EM></FONT> 170 <FONT COLOR=green><EM>-- different on your system.</EM></FONT> 171 <b>pragma</b> Warnings (On); 172 173 <b>function</b> <FONT COLOR=red><A NAME="ref_168_13" HREF="terminal_interface-curses-menus__adb.htm#ref_1015_13">Default_Item_Options</A></FONT> <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_153_9">Item_Option_Set</A>; 174 <FONT COLOR=green><EM>-- Initial default options for an item.</EM></FONT> 175 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_168_13">Default_Item_Options</A>); 176 177 <FONT COLOR=green><EM>--</EM></FONT> 178 <FONT COLOR=green><EM>-- Item Array</EM></FONT> 179 <FONT COLOR=green><EM>--</EM></FONT> 180 <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_56_9">Item</A>; 181 <b>pragma</b> Convention (C, Item_Array); 182 183 <b>type</b> <FONT COLOR=red><A NAME="ref_178_9">Item_Array_Access</A></FONT> <b>is</b> <b>access</b> Item_Array; 184 185 <b>procedure</b> <FONT COLOR=red><A NAME="ref_180_14" HREF="terminal_interface-curses-menus__adb.htm#ref_992_14">Free</A></FONT> (<FONT COLOR=red><A NAME="ref_180_20" HREF="terminal_interface-curses-menus__adb.htm#ref_992_20">IA</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_178_9">Item_Array_Access</A>; 186 <FONT COLOR=red><A NAME="ref_181_20" HREF="terminal_interface-curses-menus__adb.htm#ref_993_20">Free_Items</A></FONT> : Boolean := False); 187 <FONT COLOR=green><EM>-- Release the memory for an allocated item array</EM></FONT> 188 <FONT COLOR=green><EM>-- If Free_Items is True, call Delete() for all the items in</EM></FONT> 189 <FONT COLOR=green><EM>-- the array.</EM></FONT> 190 191 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 192 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/mitem_new.3x.html">mitem_new.3x</A></EM></FONT> 193 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 194 195 <FONT COLOR=green><EM>-- #1A NAME="AFU_1"#2|</EM></FONT> 196 <b>function</b> <FONT COLOR=red><A NAME="ref_191_13" HREF="terminal_interface-curses-menus__adb.htm#ref_94_13">Create</A></FONT> (<FONT COLOR=red><A NAME="ref_191_21" HREF="terminal_interface-curses-menus__adb.htm#ref_94_21">Name</A></FONT> : String; 197 <FONT COLOR=red><A NAME="ref_192_21" HREF="terminal_interface-curses-menus__adb.htm#ref_95_21">Description</A></FONT> : String := "") <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 198 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_new.3x.html">new_item()</A></EM></FONT> 199 <FONT COLOR=green><EM>-- Not inlined.</EM></FONT> 200 201 <FONT COLOR=green><EM>-- #1A NAME="AFU_2"#2|</EM></FONT> 202 <b>function</b> New_Item (<FONT COLOR=red><A NAME="ref_197_23">Name</A></FONT> : String; 203 <FONT COLOR=red><A NAME="ref_198_23">Description</A></FONT> : String := "") <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A> 204 <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_191_13">Create</A>; 205 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_new.3x.html">new_item()</A></EM></FONT> 206 207 <FONT COLOR=green><EM>-- #1A NAME="AFU_3"#2|</EM></FONT> 208 <b>procedure</b> <FONT COLOR=red><A NAME="ref_203_14" HREF="terminal_interface-curses-menus__adb.htm#ref_124_14">Delete</A></FONT> (<FONT COLOR=red><A NAME="ref_203_22" HREF="terminal_interface-curses-menus__adb.htm#ref_124_22">Itm</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>); 209 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_new.3x.html">free_item()</A></EM></FONT> 210 <FONT COLOR=green><EM>-- Resets Itm to Null_Item</EM></FONT> 211 212 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 213 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/mitem_value.3x.html">mitem_value.3x</A></EM></FONT> 214 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 215 216 <FONT COLOR=green><EM>-- #1A NAME="AFU_4"#2|</EM></FONT> 217 <b>procedure</b> <FONT COLOR=red><A NAME="ref_212_14" HREF="terminal_interface-curses-menus__adb.htm#ref_152_14">Set_Value</A></FONT> (<FONT COLOR=red><A NAME="ref_212_25" HREF="terminal_interface-curses-menus__adb.htm#ref_152_25">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 218 <FONT COLOR=red><A NAME="ref_213_25" HREF="terminal_interface-curses-menus__adb.htm#ref_153_25">Value</A></FONT> : <b>in</b> Boolean := True); 219 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_value.3x.html">set_item_value()</A></EM></FONT> 220 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_212_14">Set_Value</A>); 221 222 <FONT COLOR=green><EM>-- #1A NAME="AFU_5"#2|</EM></FONT> 223 <b>function</b> <FONT COLOR=red><A NAME="ref_218_13" HREF="terminal_interface-curses-menus__adb.htm#ref_166_13">Value</A></FONT> (<FONT COLOR=red><A NAME="ref_218_20" HREF="terminal_interface-curses-menus__adb.htm#ref_166_20">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>) <b>return</b> Boolean; 224 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_value.3x.html">item_value()</A></EM></FONT> 225 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_218_13">Value</A>); 226 227 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 228 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/mitem_visible.3x.html">mitem_visible.3x</A></EM></FONT> 229 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 230 231 <FONT COLOR=green><EM>-- #1A NAME="AFU_6"#2|</EM></FONT> 232 <b>function</b> <FONT COLOR=red><A NAME="ref_227_13" HREF="terminal_interface-curses-menus__adb.htm#ref_179_13">Visible</A></FONT> (<FONT COLOR=red><A NAME="ref_227_22" HREF="terminal_interface-curses-menus__adb.htm#ref_179_22">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>) <b>return</b> Boolean; 233 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_visible.3x.html">item_visible()</A></EM></FONT> 234 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_227_13">Visible</A>); 235 236 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 237 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/mitem_opts.3x.html">mitem_opts.3x</A></EM></FONT> 238 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 239 240 <FONT COLOR=green><EM>-- #1A NAME="AFU_7"#2|</EM></FONT> 241 <b>procedure</b> <FONT COLOR=red><A NAME="ref_236_14" HREF="terminal_interface-curses-menus__adb.htm#ref_191_14">Set_Options</A></FONT> (<FONT COLOR=red><A NAME="ref_236_27" HREF="terminal_interface-curses-menus__adb.htm#ref_191_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 242 <FONT COLOR=red><A NAME="ref_237_27" HREF="terminal_interface-curses-menus__adb.htm#ref_192_27">Options</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_153_9">Item_Option_Set</A>); 243 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_opts.3x.html">set_item_opts()</A></EM></FONT> 244 <FONT COLOR=green><EM>-- An overloaded Set_Options is defined later. Pragma Inline appears there</EM></FONT> 245 246 <FONT COLOR=green><EM>-- #1A NAME="AFU_8"#2|</EM></FONT> 247 <b>procedure</b> <FONT COLOR=red><A NAME="ref_242_14" HREF="terminal_interface-curses-menus__adb.htm#ref_207_14">Switch_Options</A></FONT> (<FONT COLOR=red><A NAME="ref_242_30" HREF="terminal_interface-curses-menus__adb.htm#ref_207_30">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 248 <FONT COLOR=red><A NAME="ref_243_30" HREF="terminal_interface-curses-menus__adb.htm#ref_208_30">Options</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_153_9">Item_Option_Set</A>; 249 <FONT COLOR=red><A NAME="ref_244_30" HREF="terminal_interface-curses-menus__adb.htm#ref_209_30">On</A></FONT> : Boolean := True); 250 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_opts.3x.html">item_opts_on()</A></EM></FONT> 251 <FONT COLOR=green><EM>-- AKA: item_opts_off()</EM></FONT> 252 <FONT COLOR=green><EM>-- An overloaded Switch_Options is defined later.</EM></FONT> 253 <FONT COLOR=green><EM>-- Pragma Inline appears there</EM></FONT> 254 255 <FONT COLOR=green><EM>-- #1A NAME="AFU_9"#2|</EM></FONT> 256 <b>procedure</b> <FONT COLOR=red><A NAME="ref_251_14" HREF="terminal_interface-curses-menus__adb.htm#ref_231_14">Get_Options</A></FONT> (<FONT COLOR=red><A NAME="ref_251_27" HREF="terminal_interface-curses-menus__adb.htm#ref_231_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 257 <FONT COLOR=red><A NAME="ref_252_27" HREF="terminal_interface-curses-menus__adb.htm#ref_232_27">Options</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_153_9">Item_Option_Set</A>); 258 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_opts.3x.html">item_opts()</A></EM></FONT> 259 260 <FONT COLOR=green><EM>-- #1A NAME="AFU_10"#2|</EM></FONT> 261 <b>function</b> <FONT COLOR=red><A NAME="ref_256_13" HREF="terminal_interface-curses-menus__adb.htm#ref_242_13">Get_Options</A></FONT> (<FONT COLOR=red><A NAME="ref_256_26" HREF="terminal_interface-curses-menus__adb.htm#ref_242_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A> := <A HREF="terminal_interface-curses-menus__ads.htm#ref_62_4">Null_Item</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_153_9">Item_Option_Set</A>; 262 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_opts.3x.html">item_opts()</A></EM></FONT> 263 <FONT COLOR=green><EM>-- An overloaded Get_Options is defined later. Pragma Inline appears there</EM></FONT> 264 265 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 266 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/mitem_name.3x.html">mitem_name.3x</A></EM></FONT> 267 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 268 269 <FONT COLOR=green><EM>-- #1A NAME="AFU_11"#2|</EM></FONT> 270 <b>procedure</b> <FONT COLOR=red><A NAME="ref_265_14" HREF="terminal_interface-curses-menus__adb.htm#ref_250_14">Name</A></FONT> (<FONT COLOR=red><A NAME="ref_265_20" HREF="terminal_interface-curses-menus__adb.htm#ref_250_20">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 271 <FONT COLOR=red><A NAME="ref_266_20" HREF="terminal_interface-curses-menus__adb.htm#ref_251_20">Name</A></FONT> : <b>out</b> String); 272 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_name.3x.html">item_name()</A></EM></FONT> 273 <b>function</b> <FONT COLOR=red><A NAME="ref_268_14" HREF="terminal_interface-curses-menus__adb.htm#ref_259_13">Name</A></FONT> (<FONT COLOR=red><A NAME="ref_268_20" HREF="terminal_interface-curses-menus__adb.htm#ref_259_19">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>) <b>return</b> String; 274 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_name.3x.html">item_name()</A></EM></FONT> 275 <FONT COLOR=green><EM>-- Implemented as function</EM></FONT> 276 <b>pragma</b> Inline (Name); 277 278 <FONT COLOR=green><EM>-- #1A NAME="AFU_12"#2|</EM></FONT> 279 <b>procedure</b> <FONT COLOR=red><A NAME="ref_274_14" HREF="terminal_interface-curses-menus__adb.htm#ref_267_14">Description</A></FONT> (<FONT COLOR=red><A NAME="ref_274_27" HREF="terminal_interface-curses-menus__adb.htm#ref_267_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 280 <FONT COLOR=red><A NAME="ref_275_27" HREF="terminal_interface-curses-menus__adb.htm#ref_268_27">Description</A></FONT> : <b>out</b> String); 281 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_name.3x.html">item_description();</A></EM></FONT> 282 283 <b>function</b> <FONT COLOR=red><A NAME="ref_278_14" HREF="terminal_interface-curses-menus__adb.htm#ref_276_13">Description</A></FONT> (<FONT COLOR=red><A NAME="ref_278_27" HREF="terminal_interface-curses-menus__adb.htm#ref_276_26">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>) <b>return</b> String; 284 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_name.3x.html">item_description();</A></EM></FONT> 285 <FONT COLOR=green><EM>-- Implemented as function</EM></FONT> 286 <b>pragma</b> Inline (Description); 287 288 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 289 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/mitem_current.3x.html">mitem_current.3x</A></EM></FONT> 290 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 291 292 <FONT COLOR=green><EM>-- #1A NAME="AFU_13"#2|</EM></FONT> 293 <b>procedure</b> <FONT COLOR=red><A NAME="ref_288_14" HREF="terminal_interface-curses-menus__adb.htm#ref_284_14">Set_Current</A></FONT> (<FONT COLOR=red><A NAME="ref_288_27" HREF="terminal_interface-curses-menus__adb.htm#ref_284_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 294 <FONT COLOR=red><A NAME="ref_289_27" HREF="terminal_interface-curses-menus__adb.htm#ref_285_27">Itm</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>); 295 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_current.3x.html">set_current_item()</A></EM></FONT> 296 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_288_14">Set_Current</A>); 297 298 <FONT COLOR=green><EM>-- #1A NAME="AFU_14"#2|</EM></FONT> 299 <b>function</b> <FONT COLOR=red><A NAME="ref_294_13" HREF="terminal_interface-curses-menus__adb.htm#ref_298_13">Current</A></FONT> (<FONT COLOR=red><A NAME="ref_294_22" HREF="terminal_interface-curses-menus__adb.htm#ref_298_22">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 300 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_current.3x.html">current_item()</A></EM></FONT> 301 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_294_13">Current</A>); 302 303 <FONT COLOR=green><EM>-- #1A NAME="AFU_15"#2|</EM></FONT> 304 <b>procedure</b> <FONT COLOR=red><A NAME="ref_299_14" HREF="terminal_interface-curses-menus__adb.htm#ref_311_14">Set_Top_Row</A></FONT> (<FONT COLOR=red><A NAME="ref_299_27" HREF="terminal_interface-curses-menus__adb.htm#ref_311_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 305 <FONT COLOR=red><A NAME="ref_300_27" HREF="terminal_interface-curses-menus__adb.htm#ref_312_27">Line</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>); 306 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_current.3x.html">set_top_row()</A></EM></FONT> 307 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_299_14">Set_Top_Row</A>); 308 309 <FONT COLOR=green><EM>-- #1A NAME="AFU_16"#2|</EM></FONT> 310 <b>function</b> <FONT COLOR=red><A NAME="ref_305_13" HREF="terminal_interface-curses-menus__adb.htm#ref_325_13">Top_Row</A></FONT> (<FONT COLOR=red><A NAME="ref_305_22" HREF="terminal_interface-curses-menus__adb.htm#ref_325_22">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 311 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_current.3x.html">top_row()</A></EM></FONT> 312 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_305_13">Top_Row</A>); 313 314 <FONT COLOR=green><EM>-- #1A NAME="AFU_17"#2|</EM></FONT> 315 <b>function</b> <FONT COLOR=red><A NAME="ref_310_13" HREF="terminal_interface-curses-menus__adb.htm#ref_338_13">Get_Index</A></FONT> (<FONT COLOR=red><A NAME="ref_310_24" HREF="terminal_interface-curses-menus__adb.htm#ref_338_24">Itm</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>) <b>return</b> Positive; 316 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/mitem_current.3x.html">item_index()</A></EM></FONT> 317 <FONT COLOR=green><EM>-- Please note that in this binding we start the numbering of items</EM></FONT> 318 <FONT COLOR=green><EM>-- with 1. So this is number is one more than you get from the low</EM></FONT> 319 <FONT COLOR=green><EM>-- level call.</EM></FONT> 320 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_310_13">Get_Index</A>); 321 322 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 323 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_post.3x.html">menu_post.3x</A></EM></FONT> 324 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 325 326 <FONT COLOR=green><EM>-- #1A NAME="AFU_18"#2|</EM></FONT> 327 <b>procedure</b> <FONT COLOR=red><A NAME="ref_322_14" HREF="terminal_interface-curses-menus__adb.htm#ref_351_14">Post</A></FONT> (<FONT COLOR=red><A NAME="ref_322_20" HREF="terminal_interface-curses-menus__adb.htm#ref_351_20">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 328 <FONT COLOR=red><A NAME="ref_323_20" HREF="terminal_interface-curses-menus__adb.htm#ref_352_20">Post</A></FONT> : <b>in</b> Boolean := True); 329 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_post.3x.html">post_menu()</A></EM></FONT> 330 <FONT COLOR=green><EM>-- AKA: unpost_menu()</EM></FONT> 331 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_322_14">Post</A>); 332 333 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 334 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_opts.3x.html">menu_opts.3x</A></EM></FONT> 335 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 336 337 <FONT COLOR=green><EM>-- #1A NAME="AFU_19"#2|</EM></FONT> 338 <b>procedure</b> <FONT COLOR=red><A NAME="ref_333_14" HREF="terminal_interface-curses-menus__adb.htm#ref_371_14">Set_Options</A></FONT> (<FONT COLOR=red><A NAME="ref_333_27" HREF="terminal_interface-curses-menus__adb.htm#ref_371_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 339 <FONT COLOR=red><A NAME="ref_334_27" HREF="terminal_interface-curses-menus__adb.htm#ref_372_27">Options</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_121_9">Menu_Option_Set</A>); 340 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_opts.3x.html">set_menu_opts()</A></EM></FONT> 341 <b>pragma</b> Inline (Set_Options); 342 343 <FONT COLOR=green><EM>-- #1A NAME="AFU_20"#2|</EM></FONT> 344 <b>procedure</b> <FONT COLOR=red><A NAME="ref_339_14" HREF="terminal_interface-curses-menus__adb.htm#ref_387_14">Switch_Options</A></FONT> (<FONT COLOR=red><A NAME="ref_339_30" HREF="terminal_interface-curses-menus__adb.htm#ref_387_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 345 <FONT COLOR=red><A NAME="ref_340_30" HREF="terminal_interface-curses-menus__adb.htm#ref_388_30">Options</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_121_9">Menu_Option_Set</A>; 346 <FONT COLOR=red><A NAME="ref_341_30" HREF="terminal_interface-curses-menus__adb.htm#ref_389_30">On</A></FONT> : Boolean := True); 347 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_opts.3x.html">menu_opts_on()</A></EM></FONT> 348 <FONT COLOR=green><EM>-- AKA: menu_opts_off()</EM></FONT> 349 <b>pragma</b> Inline (Switch_Options); 350 351 <FONT COLOR=green><EM>-- #1A NAME="AFU_21"#2|</EM></FONT> 352 <b>procedure</b> <FONT COLOR=red><A NAME="ref_347_14" HREF="terminal_interface-curses-menus__adb.htm#ref_411_14">Get_Options</A></FONT> (<FONT COLOR=red><A NAME="ref_347_27" HREF="terminal_interface-curses-menus__adb.htm#ref_411_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 353 <FONT COLOR=red><A NAME="ref_348_27" HREF="terminal_interface-curses-menus__adb.htm#ref_412_32">Options</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_121_9">Menu_Option_Set</A>); 354 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_opts.3x.html">menu_opts()</A></EM></FONT> 355 356 <FONT COLOR=green><EM>-- #1A NAME="AFU_22"#2|</EM></FONT> 357 <b>function</b> <FONT COLOR=red><A NAME="ref_352_13" HREF="terminal_interface-curses-menus__adb.htm#ref_422_13">Get_Options</A></FONT> (<FONT COLOR=red><A NAME="ref_352_26" HREF="terminal_interface-curses-menus__adb.htm#ref_422_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A> := <A HREF="terminal_interface-curses-menus__ads.htm#ref_63_4">Null_Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_121_9">Menu_Option_Set</A>; 358 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_opts.3x.html">menu_opts()</A></EM></FONT> 359 <b>pragma</b> Inline (Get_Options); 360 361 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 362 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_win.3x.html">menu_win.3x</A></EM></FONT> 363 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 364 365 <FONT COLOR=green><EM>-- #1A NAME="AFU_23"#2|</EM></FONT> 366 <b>procedure</b> <FONT COLOR=red><A NAME="ref_361_14" HREF="terminal_interface-curses-menus__adb.htm#ref_430_14">Set_Window</A></FONT> (<FONT COLOR=red><A NAME="ref_361_26" HREF="terminal_interface-curses-menus__adb.htm#ref_430_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 367 <FONT COLOR=red><A NAME="ref_362_26" HREF="terminal_interface-curses-menus__adb.htm#ref_431_26">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>); 368 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_win.3x.html">set_menu_win()</A></EM></FONT> 369 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_361_14">Set_Window</A>); 370 371 <FONT COLOR=green><EM>-- #1A NAME="AFU_24"#2|</EM></FONT> 372 <b>function</b> <FONT COLOR=red><A NAME="ref_367_13" HREF="terminal_interface-curses-menus__adb.htm#ref_444_13">Get_Window</A></FONT> (<FONT COLOR=red><A NAME="ref_367_25" HREF="terminal_interface-curses-menus__adb.htm#ref_444_25">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 373 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_win.3x.html">menu_win()</A></EM></FONT> 374 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_367_13">Get_Window</A>); 375 376 <FONT COLOR=green><EM>-- #1A NAME="AFU_25"#2|</EM></FONT> 377 <b>procedure</b> <FONT COLOR=red><A NAME="ref_372_14" HREF="terminal_interface-curses-menus__adb.htm#ref_454_14">Set_Sub_Window</A></FONT> (<FONT COLOR=red><A NAME="ref_372_30" HREF="terminal_interface-curses-menus__adb.htm#ref_454_30">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 378 <FONT COLOR=red><A NAME="ref_373_30" HREF="terminal_interface-curses-menus__adb.htm#ref_455_30">Win</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>); 379 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_win.3x.html">set_menu_sub()</A></EM></FONT> 380 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_372_14">Set_Sub_Window</A>); 381 382 <FONT COLOR=green><EM>-- #1A NAME="AFU_26"#2|</EM></FONT> 383 <b>function</b> <FONT COLOR=red><A NAME="ref_378_13" HREF="terminal_interface-curses-menus__adb.htm#ref_468_13">Get_Sub_Window</A></FONT> (<FONT COLOR=red><A NAME="ref_378_29" HREF="terminal_interface-curses-menus__adb.htm#ref_468_29">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses__ads.htm#ref_57_9">Window</A>; 384 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_win.3x.html">menu_sub()</A></EM></FONT> 385 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_378_13">Get_Sub_Window</A>); 386 387 <FONT COLOR=green><EM>-- #1A NAME="AFU_27"#2|</EM></FONT> 388 <b>procedure</b> <FONT COLOR=red><A NAME="ref_383_14" HREF="terminal_interface-curses-menus__adb.htm#ref_478_14">Scale</A></FONT> (<FONT COLOR=red><A NAME="ref_383_21" HREF="terminal_interface-curses-menus__adb.htm#ref_478_21">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 389 <FONT COLOR=red><A NAME="ref_384_21" HREF="terminal_interface-curses-menus__adb.htm#ref_479_21">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 390 <FONT COLOR=red><A NAME="ref_385_21" HREF="terminal_interface-curses-menus__adb.htm#ref_480_21">Columns</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>); 391 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_win.3x.html">scale_menu()</A></EM></FONT> 392 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_383_14">Scale</A>); 393 394 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 395 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_cursor.3x.html">menu_cursor.3x</A></EM></FONT> 396 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 397 398 <FONT COLOR=green><EM>-- #1A NAME="AFU_28"#2|</EM></FONT> 399 <b>procedure</b> <FONT COLOR=red><A NAME="ref_394_14" HREF="terminal_interface-curses-menus__adb.htm#ref_497_14">Position_Cursor</A></FONT> (<FONT COLOR=red><A NAME="ref_394_31" HREF="terminal_interface-curses-menus__adb.htm#ref_497_31">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>); 400 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_cursor.3x.html">pos_menu_cursor()</A></EM></FONT> 401 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_394_14">Position_Cursor</A>); 402 403 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 404 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_mark.3x.html">menu_mark.3x</A></EM></FONT> 405 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 406 407 <FONT COLOR=green><EM>-- #1A NAME="AFU_29"#2|</EM></FONT> 408 <b>procedure</b> <FONT COLOR=red><A NAME="ref_403_14" HREF="terminal_interface-curses-menus__adb.htm#ref_510_14">Set_Mark</A></FONT> (<FONT COLOR=red><A NAME="ref_403_24" HREF="terminal_interface-curses-menus__adb.htm#ref_510_24">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 409 <FONT COLOR=red><A NAME="ref_404_24" HREF="terminal_interface-curses-menus__adb.htm#ref_511_24">Mark</A></FONT> : <b>in</b> String); 410 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_mark.3x.html">set_menu_mark()</A></EM></FONT> 411 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_403_14">Set_Mark</A>); 412 413 <FONT COLOR=green><EM>-- #1A NAME="AFU_30"#2|</EM></FONT> 414 <b>procedure</b> <FONT COLOR=red><A NAME="ref_409_14" HREF="terminal_interface-curses-menus__adb.htm#ref_529_14">Mark</A></FONT> (<FONT COLOR=red><A NAME="ref_409_20" HREF="terminal_interface-curses-menus__adb.htm#ref_529_20">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 415 <FONT COLOR=red><A NAME="ref_410_20" HREF="terminal_interface-curses-menus__adb.htm#ref_530_20">Mark</A></FONT> : <b>out</b> String); 416 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_mark.3x.html">menu_mark()</A></EM></FONT> 417 418 <b>function</b> <FONT COLOR=red><A NAME="ref_413_14" HREF="terminal_interface-curses-menus__adb.htm#ref_538_13">Mark</A></FONT> (<FONT COLOR=red><A NAME="ref_413_20" HREF="terminal_interface-curses-menus__adb.htm#ref_538_19">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> String; 419 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_mark.3x.html">menu_mark()</A></EM></FONT> 420 <FONT COLOR=green><EM>-- Implemented as function</EM></FONT> 421 <b>pragma</b> Inline (Mark); 422 423 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 424 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_attributes.3x.html">menu_attributes.3x</A></EM></FONT> 425 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 426 427 <FONT COLOR=green><EM>-- #1A NAME="AFU_31"#2|</EM></FONT> 428 <b>procedure</b> <FONT COLOR=red><A NAME="ref_423_14" HREF="terminal_interface-curses-menus__adb.htm#ref_547_14">Set_Foreground</A></FONT> 429 (<FONT COLOR=red><A NAME="ref_424_7" HREF="terminal_interface-curses-menus__adb.htm#ref_548_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 430 <FONT COLOR=red><A NAME="ref_425_7" HREF="terminal_interface-curses-menus__adb.htm#ref_549_7">Fore</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>; 431 <FONT COLOR=red><A NAME="ref_426_7" HREF="terminal_interface-curses-menus__adb.htm#ref_550_7">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First); 432 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">set_menu_fore()</A></EM></FONT> 433 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_423_14">Set_Foreground</A>); 434 435 <FONT COLOR=green><EM>-- #1A NAME="AFU_32"#2|</EM></FONT> 436 <b>procedure</b> <FONT COLOR=red><A NAME="ref_431_14" HREF="terminal_interface-curses-menus__adb.htm#ref_566_14">Foreground</A></FONT> (<FONT COLOR=red><A NAME="ref_431_26" HREF="terminal_interface-curses-menus__adb.htm#ref_566_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 437 <FONT COLOR=red><A NAME="ref_432_26" HREF="terminal_interface-curses-menus__adb.htm#ref_567_26">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>); 438 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">menu_fore()</A></EM></FONT> 439 440 <FONT COLOR=green><EM>-- #1A NAME="AFU_33"#2|</EM></FONT> 441 <b>procedure</b> <FONT COLOR=red><A NAME="ref_436_14" HREF="terminal_interface-curses-menus__adb.htm#ref_575_14">Foreground</A></FONT> (<FONT COLOR=red><A NAME="ref_436_26" HREF="terminal_interface-curses-menus__adb.htm#ref_575_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 442 <FONT COLOR=red><A NAME="ref_437_26" HREF="terminal_interface-curses-menus__adb.htm#ref_576_26">Fore</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>; 443 <FONT COLOR=red><A NAME="ref_438_26" HREF="terminal_interface-curses-menus__adb.htm#ref_577_26">Color</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>); 444 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">menu_fore()</A></EM></FONT> 445 <b>pragma</b> Inline (Foreground); 446 447 <FONT COLOR=green><EM>-- #1A NAME="AFU_34"#2|</EM></FONT> 448 <b>procedure</b> <FONT COLOR=red><A NAME="ref_443_14" HREF="terminal_interface-curses-menus__adb.htm#ref_586_14">Set_Background</A></FONT> 449 (<FONT COLOR=red><A NAME="ref_444_7" HREF="terminal_interface-curses-menus__adb.htm#ref_587_7">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 450 <FONT COLOR=red><A NAME="ref_445_7" HREF="terminal_interface-curses-menus__adb.htm#ref_588_7">Back</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>; 451 <FONT COLOR=red><A NAME="ref_446_7" HREF="terminal_interface-curses-menus__adb.htm#ref_589_7">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First); 452 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">set_menu_back()</A></EM></FONT> 453 <b>pragma</b> Inline (Set_Background); 454 455 <FONT COLOR=green><EM>-- #1A NAME="AFU_35"#2|</EM></FONT> 456 <b>procedure</b> <FONT COLOR=red><A NAME="ref_451_14" HREF="terminal_interface-curses-menus__adb.htm#ref_605_14">Background</A></FONT> (<FONT COLOR=red><A NAME="ref_451_26" HREF="terminal_interface-curses-menus__adb.htm#ref_605_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 457 <FONT COLOR=red><A NAME="ref_452_26" HREF="terminal_interface-curses-menus__adb.htm#ref_606_26">Back</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>); 458 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">menu_back()</A></EM></FONT> 459 <FONT COLOR=green><EM>-- #1A NAME="AFU_36"#2|</EM></FONT> 460 461 <b>procedure</b> <FONT COLOR=red><A NAME="ref_456_14" HREF="terminal_interface-curses-menus__adb.htm#ref_614_14">Background</A></FONT> (<FONT COLOR=red><A NAME="ref_456_26" HREF="terminal_interface-curses-menus__adb.htm#ref_614_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 462 <FONT COLOR=red><A NAME="ref_457_26" HREF="terminal_interface-curses-menus__adb.htm#ref_615_26">Back</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>; 463 <FONT COLOR=red><A NAME="ref_458_26" HREF="terminal_interface-curses-menus__adb.htm#ref_616_26">Color</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>); 464 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">menu_back()</A></EM></FONT> 465 <b>pragma</b> Inline (Background); 466 467 <FONT COLOR=green><EM>-- #1A NAME="AFU_37"#2|</EM></FONT> 468 <b>procedure</b> <FONT COLOR=red><A NAME="ref_463_14" HREF="terminal_interface-curses-menus__adb.htm#ref_625_14">Set_Grey</A></FONT> 469 (<FONT COLOR=red><A NAME="ref_464_7" HREF="terminal_interface-curses-menus__adb.htm#ref_625_24">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 470 <FONT COLOR=red><A NAME="ref_465_7" HREF="terminal_interface-curses-menus__adb.htm#ref_626_24">Grey</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A> := <A HREF="terminal_interface-curses__ads.htm#ref_350_4">Normal_Video</A>; 471 <FONT COLOR=red><A NAME="ref_466_7" HREF="terminal_interface-curses-menus__adb.htm#ref_627_24">Color</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A> := <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>'First); 472 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">set_menu_grey()</A></EM></FONT> 473 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_463_14">Set_Grey</A>); 474 475 <FONT COLOR=green><EM>-- #1A NAME="AFU_38"#2|</EM></FONT> 476 <b>procedure</b> <FONT COLOR=red><A NAME="ref_471_14" HREF="terminal_interface-curses-menus__adb.htm#ref_644_14">Grey</A></FONT> (<FONT COLOR=red><A NAME="ref_471_20" HREF="terminal_interface-curses-menus__adb.htm#ref_644_20">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 477 <FONT COLOR=red><A NAME="ref_472_20" HREF="terminal_interface-curses-menus__adb.htm#ref_645_20">Grey</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>); 478 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">menu_grey()</A></EM></FONT> 479 480 <FONT COLOR=green><EM>-- #1A NAME="AFU_39"#2|</EM></FONT> 481 <b>procedure</b> <FONT COLOR=red><A NAME="ref_476_14" HREF="terminal_interface-curses-menus__adb.htm#ref_653_14">Grey</A></FONT> 482 (<FONT COLOR=red><A NAME="ref_477_7" HREF="terminal_interface-curses-menus__adb.htm#ref_653_20">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 483 <FONT COLOR=red><A NAME="ref_478_7" HREF="terminal_interface-curses-menus__adb.htm#ref_654_20">Grey</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_307_9">Character_Attribute_Set</A>; 484 <FONT COLOR=red><A NAME="ref_479_7" HREF="terminal_interface-curses-menus__adb.htm#ref_655_20">Color</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_299_9">Color_Pair</A>); 485 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">menu_grey()</A></EM></FONT> 486 <b>pragma</b> Inline (Grey); 487 488 <FONT COLOR=green><EM>-- #1A NAME="AFU_40"#2|</EM></FONT> 489 <b>procedure</b> <FONT COLOR=red><A NAME="ref_484_14" HREF="terminal_interface-curses-menus__adb.htm#ref_664_14">Set_Pad_Character</A></FONT> (<FONT COLOR=red><A NAME="ref_484_33" HREF="terminal_interface-curses-menus__adb.htm#ref_664_33">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 490 <FONT COLOR=red><A NAME="ref_485_33" HREF="terminal_interface-curses-menus__adb.htm#ref_665_33">Pad</A></FONT> : <b>in</b> Character := Space); 491 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">set_menu_pad()</A></EM></FONT> 492 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_484_14">Set_Pad_Character</A>); 493 494 <FONT COLOR=green><EM>-- #1A NAME="AFU_41"#2|</EM></FONT> 495 <b>procedure</b> <FONT COLOR=red><A NAME="ref_490_14" HREF="terminal_interface-curses-menus__adb.htm#ref_679_14">Pad_Character</A></FONT> (<FONT COLOR=red><A NAME="ref_490_29" HREF="terminal_interface-curses-menus__adb.htm#ref_679_29">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 496 <FONT COLOR=red><A NAME="ref_491_29" HREF="terminal_interface-curses-menus__adb.htm#ref_680_29">Pad</A></FONT> : <b>out</b> Character); 497 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_attributes.3x.html">menu_pad()</A></EM></FONT> 498 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_490_14">Pad_Character</A>); 499 500 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 501 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_spacing.3x.html">menu_spacing.3x</A></EM></FONT> 502 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 503 504 <FONT COLOR=green><EM>-- #1A NAME="AFU_42"#2|</EM></FONT> 505 <b>procedure</b> <FONT COLOR=red><A NAME="ref_500_14" HREF="terminal_interface-curses-menus__adb.htm#ref_688_14">Set_Spacing</A></FONT> (<FONT COLOR=red><A NAME="ref_500_27" HREF="terminal_interface-curses-menus__adb.htm#ref_688_27">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 506 <FONT COLOR=red><A NAME="ref_501_27" HREF="terminal_interface-curses-menus__adb.htm#ref_689_27">Descr</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A> := 0; 507 <FONT COLOR=red><A NAME="ref_502_27" HREF="terminal_interface-curses-menus__adb.htm#ref_690_27">Row</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A> := 0; 508 <FONT COLOR=red><A NAME="ref_503_27" HREF="terminal_interface-curses-menus__adb.htm#ref_691_27">Col</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A> := 0); 509 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_spacing.3x.html">set_menu_spacing()</A></EM></FONT> 510 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_500_14">Set_Spacing</A>); 511 512 <FONT COLOR=green><EM>-- #1A NAME="AFU_43"#2|</EM></FONT> 513 <b>procedure</b> <FONT COLOR=red><A NAME="ref_508_14" HREF="terminal_interface-curses-menus__adb.htm#ref_707_14">Spacing</A></FONT> (<FONT COLOR=red><A NAME="ref_508_23" HREF="terminal_interface-curses-menus__adb.htm#ref_707_23">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 514 <FONT COLOR=red><A NAME="ref_509_23" HREF="terminal_interface-curses-menus__adb.htm#ref_708_23">Descr</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>; 515 <FONT COLOR=red><A NAME="ref_510_23" HREF="terminal_interface-curses-menus__adb.htm#ref_709_23">Row</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_60_9">Line_Position</A>; 516 <FONT COLOR=red><A NAME="ref_511_23" HREF="terminal_interface-curses-menus__adb.htm#ref_710_23">Col</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_61_9">Column_Position</A>); 517 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_spacing.3x.html">menu_spacing()</A></EM></FONT> 518 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_508_14">Spacing</A>); 519 520 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 521 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_pattern.3x.html">menu_pattern.3x</A></EM></FONT> 522 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 523 524 <FONT COLOR=green><EM>-- #1A NAME="AFU_44"#2|</EM></FONT> 525 <b>function</b> <FONT COLOR=red><A NAME="ref_520_13" HREF="terminal_interface-curses-menus__adb.htm#ref_732_13">Set_Pattern</A></FONT> (<FONT COLOR=red><A NAME="ref_520_26" HREF="terminal_interface-curses-menus__adb.htm#ref_732_26">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 526 <FONT COLOR=red><A NAME="ref_521_26" HREF="terminal_interface-curses-menus__adb.htm#ref_733_26">Text</A></FONT> : String) <b>return</b> Boolean; 527 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_pattern.3x.html">set_menu_pattern()</A></EM></FONT> 528 <FONT COLOR=green><EM>-- Return TRUE if the pattern matches, FALSE otherwise</EM></FONT> 529 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_520_13">Set_Pattern</A>); 530 531 <FONT COLOR=green><EM>-- #1A NAME="AFU_45"#2|</EM></FONT> 532 <b>procedure</b> <FONT COLOR=red><A NAME="ref_527_14" HREF="terminal_interface-curses-menus__adb.htm#ref_755_14">Pattern</A></FONT> (<FONT COLOR=red><A NAME="ref_527_23" HREF="terminal_interface-curses-menus__adb.htm#ref_755_23">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 533 <FONT COLOR=red><A NAME="ref_528_23" HREF="terminal_interface-curses-menus__adb.htm#ref_756_23">Text</A></FONT> : <b>out</b> String); 534 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_pattern.3x.html">menu_pattern()</A></EM></FONT> 535 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_527_14">Pattern</A>); 536 537 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 538 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_format.3x.html">menu_format.3x</A></EM></FONT> 539 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 540 541 <FONT COLOR=green><EM>-- #1A NAME="AFU_46"#2|</EM></FONT> 542 <b>procedure</b> <FONT COLOR=red><A NAME="ref_537_14" HREF="terminal_interface-curses-menus__adb.htm#ref_764_14">Set_Format</A></FONT> (<FONT COLOR=red><A NAME="ref_537_26" HREF="terminal_interface-curses-menus__adb.htm#ref_764_26">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 543 <FONT COLOR=red><A NAME="ref_538_26" HREF="terminal_interface-curses-menus__adb.htm#ref_765_26">Lines</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 544 <FONT COLOR=red><A NAME="ref_539_26" HREF="terminal_interface-curses-menus__adb.htm#ref_766_26">Columns</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>); 545 <FONT COLOR=green><EM>-- Not implemented: 0 argument for Lines or Columns;</EM></FONT> 546 <FONT COLOR=green><EM>-- instead use Format to get the current sizes</EM></FONT> 547 <FONT COLOR=green><EM>-- The default format is 16 rows, 1 column. Calling</EM></FONT> 548 <FONT COLOR=green><EM>-- set_menu_format with a null menu pointer will change this</EM></FONT> 549 <FONT COLOR=green><EM>-- default. A zero row or column argument to set_menu_format</EM></FONT> 550 <FONT COLOR=green><EM>-- is interpreted as a request not to change the current</EM></FONT> 551 <FONT COLOR=green><EM>-- value.</EM></FONT> 552 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_format.3x.html">set_menu_format()</A></EM></FONT> 553 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_537_14">Set_Format</A>); 554 555 <FONT COLOR=green><EM>-- #1A NAME="AFU_47"#2|</EM></FONT> 556 <b>procedure</b> <FONT COLOR=red><A NAME="ref_551_14" HREF="terminal_interface-curses-menus__adb.htm#ref_782_14">Format</A></FONT> (<FONT COLOR=red><A NAME="ref_551_22" HREF="terminal_interface-curses-menus__adb.htm#ref_782_22">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 557 <FONT COLOR=red><A NAME="ref_552_22" HREF="terminal_interface-curses-menus__adb.htm#ref_783_22">Lines</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_63_12">Line_Count</A>; 558 <FONT COLOR=red><A NAME="ref_553_22" HREF="terminal_interface-curses-menus__adb.htm#ref_784_22">Columns</A></FONT> : <b>out</b> <A HREF="terminal_interface-curses__ads.htm#ref_65_12">Column_Count</A>); 559 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_format.3x.html">menu_format()</A></EM></FONT> 560 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_551_14">Format</A>); 561 562 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 563 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_hook.3x.html">menu_hook.3x</A></EM></FONT> 564 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 565 566 <b>type</b> <FONT COLOR=red><A NAME="ref_561_9">Menu_Hook_Function</A></FONT> <b>is</b> <b>access</b> <b>procedure</b> (<FONT COLOR=red><A NAME="ref_561_49">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>); 567 <b>pragma</b> Convention (C, <A HREF="terminal_interface-curses-menus__ads.htm#ref_561_9">Menu_Hook_Function</A>); 568 569 <FONT COLOR=green><EM>-- #1A NAME="AFU_48"#2|</EM></FONT> 570 <b>procedure</b> <FONT COLOR=red><A NAME="ref_565_14" HREF="terminal_interface-curses-menus__adb.htm#ref_802_14">Set_Item_Init_Hook</A></FONT> (<FONT COLOR=red><A NAME="ref_565_34" HREF="terminal_interface-curses-menus__adb.htm#ref_802_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 571 <FONT COLOR=red><A NAME="ref_566_34" HREF="terminal_interface-curses-menus__adb.htm#ref_803_34">Proc</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_561_9">Menu_Hook_Function</A>); 572 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_hook.3x.html">set_item_init()</A></EM></FONT> 573 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_565_14">Set_Item_Init_Hook</A>); 574 575 <FONT COLOR=green><EM>-- #1A NAME="AFU_49"#2|</EM></FONT> 576 <b>procedure</b> <FONT COLOR=red><A NAME="ref_571_14" HREF="terminal_interface-curses-menus__adb.htm#ref_816_14">Set_Item_Term_Hook</A></FONT> (<FONT COLOR=red><A NAME="ref_571_34" HREF="terminal_interface-curses-menus__adb.htm#ref_816_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 577 <FONT COLOR=red><A NAME="ref_572_34" HREF="terminal_interface-curses-menus__adb.htm#ref_817_34">Proc</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_561_9">Menu_Hook_Function</A>); 578 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_hook.3x.html">set_item_term()</A></EM></FONT> 579 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_571_14">Set_Item_Term_Hook</A>); 580 581 <FONT COLOR=green><EM>-- #1A NAME="AFU_50"#2|</EM></FONT> 582 <b>procedure</b> <FONT COLOR=red><A NAME="ref_577_14" HREF="terminal_interface-curses-menus__adb.htm#ref_830_14">Set_Menu_Init_Hook</A></FONT> (<FONT COLOR=red><A NAME="ref_577_34" HREF="terminal_interface-curses-menus__adb.htm#ref_830_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 583 <FONT COLOR=red><A NAME="ref_578_34" HREF="terminal_interface-curses-menus__adb.htm#ref_831_34">Proc</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_561_9">Menu_Hook_Function</A>); 584 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_hook.3x.html">set_menu_init()</A></EM></FONT> 585 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_577_14">Set_Menu_Init_Hook</A>); 586 587 <FONT COLOR=green><EM>-- #1A NAME="AFU_51"#2|</EM></FONT> 588 <b>procedure</b> <FONT COLOR=red><A NAME="ref_583_14" HREF="terminal_interface-curses-menus__adb.htm#ref_844_14">Set_Menu_Term_Hook</A></FONT> (<FONT COLOR=red><A NAME="ref_583_34" HREF="terminal_interface-curses-menus__adb.htm#ref_844_34">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 589 <FONT COLOR=red><A NAME="ref_584_34" HREF="terminal_interface-curses-menus__adb.htm#ref_845_34">Proc</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_561_9">Menu_Hook_Function</A>); 590 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_hook.3x.html">set_menu_term()</A></EM></FONT> 591 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_583_14">Set_Menu_Term_Hook</A>); 592 593 <FONT COLOR=green><EM>-- #1A NAME="AFU_52"#2|</EM></FONT> 594 <b>function</b> <FONT COLOR=red><A NAME="ref_589_13" HREF="terminal_interface-curses-menus__adb.htm#ref_858_13">Get_Item_Init_Hook</A></FONT> (<FONT COLOR=red><A NAME="ref_589_33" HREF="terminal_interface-curses-menus__adb.htm#ref_858_33">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_561_9">Menu_Hook_Function</A>; 595 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_hook.3x.html">item_init()</A></EM></FONT> 596 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_589_13">Get_Item_Init_Hook</A>); 597 598 <FONT COLOR=green><EM>-- #1A NAME="AFU_53"#2|</EM></FONT> 599 <b>function</b> <FONT COLOR=red><A NAME="ref_594_13" HREF="terminal_interface-curses-menus__adb.htm#ref_866_13">Get_Item_Term_Hook</A></FONT> (<FONT COLOR=red><A NAME="ref_594_33" HREF="terminal_interface-curses-menus__adb.htm#ref_866_33">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_561_9">Menu_Hook_Function</A>; 600 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_hook.3x.html">item_term()</A></EM></FONT> 601 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_594_13">Get_Item_Term_Hook</A>); 602 603 <FONT COLOR=green><EM>-- #1A NAME="AFU_54"#2|</EM></FONT> 604 <b>function</b> <FONT COLOR=red><A NAME="ref_599_13" HREF="terminal_interface-curses-menus__adb.htm#ref_874_13">Get_Menu_Init_Hook</A></FONT> (<FONT COLOR=red><A NAME="ref_599_33" HREF="terminal_interface-curses-menus__adb.htm#ref_874_33">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_561_9">Menu_Hook_Function</A>; 605 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_hook.3x.html">menu_init()</A></EM></FONT> 606 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_599_13">Get_Menu_Init_Hook</A>); 607 608 <FONT COLOR=green><EM>-- #1A NAME="AFU_55"#2|</EM></FONT> 609 <b>function</b> <FONT COLOR=red><A NAME="ref_604_13" HREF="terminal_interface-curses-menus__adb.htm#ref_882_13">Get_Menu_Term_Hook</A></FONT> (<FONT COLOR=red><A NAME="ref_604_33" HREF="terminal_interface-curses-menus__adb.htm#ref_882_33">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_561_9">Menu_Hook_Function</A>; 610 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_hook.3x.html">menu_term()</A></EM></FONT> 611 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_604_13">Get_Menu_Term_Hook</A>); 612 613 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 614 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_items.3x.html">menu_items.3x</A></EM></FONT> 615 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 616 617 <FONT COLOR=green><EM>-- #1A NAME="AFU_56"#2|</EM></FONT> 618 <b>procedure</b> <FONT COLOR=red><A NAME="ref_613_14" HREF="terminal_interface-curses-menus__adb.htm#ref_890_14">Redefine</A></FONT> (<FONT COLOR=red><A NAME="ref_613_24" HREF="terminal_interface-curses-menus__adb.htm#ref_890_24">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 619 <FONT COLOR=red><A NAME="ref_614_24" HREF="terminal_interface-curses-menus__adb.htm#ref_891_24">Items</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_178_9">Item_Array_Access</A>); 620 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_items.3x.html">set_menu_items()</A></EM></FONT> 621 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_613_14">Redefine</A>); 622 623 <b>procedure</b> <FONT COLOR=red><A NAME="ref_618_14">Set_Items</A></FONT> (<FONT COLOR=red><A NAME="ref_618_25">Men</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 624 <FONT COLOR=red><A NAME="ref_619_25">Items</A></FONT> : <b>in</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_178_9">Item_Array_Access</A>) <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_613_14">Redefine</A>; 625 <FONT COLOR=green><EM>-- pragma Inline (Set_Items);</EM></FONT> 626 627 <FONT COLOR=green><EM>-- #1A NAME="AFU_57"#2|</EM></FONT> 628 <b>function</b> <FONT COLOR=red><A NAME="ref_623_13" HREF="terminal_interface-curses-menus__adb.htm#ref_918_13">Items</A></FONT> (<FONT COLOR=red><A NAME="ref_623_20" HREF="terminal_interface-curses-menus__adb.htm#ref_918_20">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 629 <FONT COLOR=red><A NAME="ref_624_20" HREF="terminal_interface-curses-menus__adb.htm#ref_919_20">Index</A></FONT> : Positive) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A>; 630 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_items.3x.html">menu_items()</A></EM></FONT> 631 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_623_13">Items</A>); 632 633 <FONT COLOR=green><EM>-- #1A NAME="AFU_58"#2|</EM></FONT> 634 <b>function</b> <FONT COLOR=red><A NAME="ref_629_13" HREF="terminal_interface-curses-menus__adb.htm#ref_910_13">Item_Count</A></FONT> (<FONT COLOR=red><A NAME="ref_629_25" HREF="terminal_interface-curses-menus__adb.htm#ref_910_25">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>) <b>return</b> Natural; 635 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_items.3x.html">item_count()</A></EM></FONT> 636 <b>pragma</b> Inline (<A HREF="terminal_interface-curses-menus__ads.htm#ref_629_13">Item_Count</A>); 637 638 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 639 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_new.3x.html">menu_new.3x</A></EM></FONT> 640 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 641 642 <FONT COLOR=green><EM>-- #1A NAME="AFU_59"#2|</EM></FONT> 643 <b>function</b> <FONT COLOR=red><A NAME="ref_638_13" HREF="terminal_interface-curses-menus__adb.htm#ref_937_13">Create</A></FONT> (<FONT COLOR=red><A NAME="ref_638_21" HREF="terminal_interface-curses-menus__adb.htm#ref_937_21">Items</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_178_9">Item_Array_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 644 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_new.3x.html">new_menu()</A></EM></FONT> 645 <FONT COLOR=green><EM>-- Not inlined</EM></FONT> 646 647 <b>function</b> New_Menu (<FONT COLOR=red><A NAME="ref_642_23">Items</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_178_9">Item_Array_Access</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A> <b>renames</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_638_13">Create</A>; 648 649 <FONT COLOR=green><EM>-- #1A NAME="AFU_60"#2|</EM></FONT> 650 <b>procedure</b> <FONT COLOR=red><A NAME="ref_645_14" HREF="terminal_interface-curses-menus__adb.htm#ref_956_14">Delete</A></FONT> (<FONT COLOR=red><A NAME="ref_645_22" HREF="terminal_interface-curses-menus__adb.htm#ref_956_22">Men</A></FONT> : <b>in</b> <b>out</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>); 651 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_new.3x.html">free_menu()</A></EM></FONT> 652 <FONT COLOR=green><EM>-- Reset Men to Null_Menu</EM></FONT> 653 <FONT COLOR=green><EM>-- Not inlined</EM></FONT> 654 655 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 656 <FONT COLOR=green><EM>-- | Man page <A HREF="/man/menu_driver.3x.html">menu_driver.3x</A></EM></FONT> 657 <FONT COLOR=green><EM>-- |=====================================================================</EM></FONT> 658 659 <b>type</b> <FONT COLOR=red><A NAME="ref_654_9">Driver_Result</A></FONT> <b>is</b> (<FONT COLOR=red><A NAME="ref_654_27">Menu_Ok</A></FONT>, 660 <FONT COLOR=red><A NAME="ref_655_27">Request_Denied</A></FONT>, 661 <FONT COLOR=red><A NAME="ref_656_27">Unknown_Request</A></FONT>, 662 <FONT COLOR=red><A NAME="ref_657_27">No_Match</A></FONT>); 663 664 <FONT COLOR=green><EM>-- #1A NAME="AFU_61"#2|</EM></FONT> 665 <b>function</b> <FONT COLOR=red><A NAME="ref_660_13" HREF="terminal_interface-curses-menus__adb.htm#ref_970_13">Driver</A></FONT> (<FONT COLOR=red><A NAME="ref_660_21" HREF="terminal_interface-curses-menus__adb.htm#ref_970_21">Men</A></FONT> : <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A>; 666 <FONT COLOR=red><A NAME="ref_661_21" HREF="terminal_interface-curses-menus__adb.htm#ref_971_21">Key</A></FONT> : <A HREF="terminal_interface-curses__ads.htm#ref_68_9">Key_Code</A>) <b>return</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_654_9">Driver_Result</A>; 667 <FONT COLOR=green><EM>-- AKA: <A HREF="/man/menu_driver.3x.html">menu_driver()</A></EM></FONT> 668 <FONT COLOR=green><EM>-- Driver is not inlined</EM></FONT> 669 670 <FONT COLOR=green><EM>-- #1A NAME="AFU_62"#2|</EM></FONT> 671 <FONT COLOR=green><EM>-- Not Implemented: menu_request_name, menu_request_by_name</EM></FONT> 672<FONT COLOR=green><EM>-------------------------------------------------------------------------------</EM></FONT> 673<b>private</b> 674 <b>type</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; 675 <b>type</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A> <b>is</b> <b>new</b> System.Storage_Elements.Integer_Address; 676 677 <A HREF="terminal_interface-curses-menus__ads.htm#ref_62_4">Null_Item</A> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_56_9">Item</A> := 0; 678 <A HREF="terminal_interface-curses-menus__ads.htm#ref_63_4">Null_Menu</A> : <b>constant</b> <A HREF="terminal_interface-curses-menus__ads.htm#ref_57_9">Menu</A> := 0; 679 680<b>end</b> <A HREF="terminal_interface__ads.htm#ref_42_9">Terminal_Interface</A>.<A HREF="terminal_interface-curses__ads.htm#ref_49_28">Curses</A>.<A HREF="terminal_interface-curses-menus__ads.htm#ref_49_35">Menus</A>; 681</PRE></BODY></HTML> 682