X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=Ada95%2Fhtml%2Fterminal_interface-curses-menus_s.html;h=394bfff3fd8ffdc31fe70595dfaaf635cff52ebb;hp=cd1ce0cc19107fd036401e6052e2319a95983ec2;hb=refs%2Ftags%2Fv4.2;hpb=3a9b6a3bf0269231bef7de74757a910dedd04e0c diff --git a/Ada95/html/terminal_interface-curses-menus_s.html b/Ada95/html/terminal_interface-curses-menus_s.html index cd1ce0cc..394bfff3 100644 --- a/Ada95/html/terminal_interface-curses-menus_s.html +++ b/Ada95/html/terminal_interface-curses-menus_s.html @@ -13,25 +13,38 @@ -- -- -- S P E C -- -- -- --- Version 00.92 -- +------------------------------------------------------------------------------ +-- Copyright (c) 1998 Free Software Foundation, Inc. -- -- -- --- The ncurses Ada95 binding is copyrighted 1996 by -- --- Jürgen Pfeifer, Email: Juergen.Pfeifer@T-Online.de -- +-- Permission is hereby granted, free of charge, to any person obtaining a -- +-- copy of this software and associated documentation files (the -- +-- "Software"), to deal in the Software without restriction, including -- +-- without limitation the rights to use, copy, modify, merge, publish, -- +-- distribute, distribute with modifications, sublicense, and/or sell -- +-- copies of the Software, and to permit persons to whom the Software is -- +-- furnished to do so, subject to the following conditions: -- -- -- --- Permission is hereby granted to reproduce and distribute this -- --- binding by any means and for any fee, whether alone or as part -- --- of a larger distribution, in source or in binary form, PROVIDED -- --- this notice is included with any such distribution, and is not -- --- removed from any of its header files. Mention of ncurses and the -- --- author of this binding in any applications linked with it is -- --- highly appreciated. -- +-- The above copyright notice and this permission notice shall be included -- +-- in all copies or substantial portions of the Software. -- -- -- --- This binding comes AS IS with no warranty, implied or expressed. -- +-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS -- +-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF -- +-- MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. -- +-- IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, -- +-- DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR -- +-- OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR -- +-- THE USE OR OTHER DEALINGS IN THE SOFTWARE. -- +-- -- +-- Except as contained in this notice, the name(s) of the above copyright -- +-- holders shall not be used in advertising or otherwise to promote the -- +-- sale, use or other dealings in this Software without prior written -- +-- authorization. -- ------------------------------------------------------------------------------ +-- Jürgen Pfeifer, Email: Juergen.Pfeifer@T-Online.de -- -- Version Control: --- @Revision: 1.7 @ +-- @Revision: 1.8 @ ------------------------------------------------------------------------------ --- menu binding, generated at Sun Feb 2 17:21:44 1997 +-- menu binding. -- This module is generated. Please don't change it manually! -- Run the generator instead. -- | @@ -100,6 +113,9 @@ procedure Request_Name (Key : in Menu_Request_Code; Name : out String); + function Request_Name (Key : Menu_Request_Code) return String; + -- Same as function + ------------------ -- Exceptions -- ------------------ @@ -168,7 +184,13 @@ type Item_Array is array (Positive range <>) of aliased Item; pragma Convention (C, Item_Array); - type Item_Array_Access is access all Item_Array; + type Item_Array_Access is access Item_Array; + + procedure Free (IA : in out Item_Array_Access; + Free_Items : Boolean := False); + -- Release the memory for an allocated item array + -- If Free_Items is True, call Delete() for all the items in + -- the array. -- |===================================================================== -- | Man page mitem_new.3x @@ -244,12 +266,19 @@ procedure Name (Itm : in Item; Name : out String); -- AKA: item_name() + function Name (Itm : Item) return String; + -- AKA: item_name() + -- Implemented as function -- | procedure Description (Itm : in Item; Description : out String); -- AKA: item_description(); + function Description (Itm : Item) return String; + -- AKA: item_description(); + -- Implemented as function + -- |===================================================================== -- | Man page mitem_current.3x -- |===================================================================== @@ -364,6 +393,10 @@ Mark : out String); -- AKA: menu_mark() + function Mark (Men : Menu) return String; + -- AKA: menu_mark() + -- Implemented as function + -- |===================================================================== -- | Man page menu_attribs.3x -- |===================================================================== @@ -531,16 +564,15 @@ -- | procedure Redefine (Men : in Menu; - Items : in Item_Array); + Items : in Item_Array_Access); -- AKA: set_menu_items() - -- With a bit more comfort. You don´t need to terminate the Item_Array - -- with a null entry. This is handled internally in the binding. procedure Set_Items (Men : in Menu; - Items : in Item_Array) renames Redefine; + Items : in Item_Array_Access) renames Redefine; -- | - function Items (Men : Menu) return Item_Array_Access; + function Items (Men : Menu; + Index : Positive) return Item; -- AKA: menu_items() -- | @@ -552,10 +584,10 @@ -- |===================================================================== -- | - function Create (Items : Item_Array) return Menu; + function Create (Items : Item_Array_Access) return Menu; -- AKA: new_menu() - function New_Menu (Items : Item_Array) return Menu renames Create; + function New_Menu (Items : Item_Array_Access) return Menu renames Create; -- | procedure Delete (Men : in out Menu); @@ -584,21 +616,6 @@ Null_Item : constant Item := Item (System.Null_Address); Null_Menu : constant Menu := Menu (System.Null_Address); - -- This binding uses the original user pointer mechanism of a menu to store - -- specific informations about a menu. This wrapper record carries this - -- specifics and contains a field to maintain a new user pointer. Please - -- note that you must take this into account if you wan't to use the user - -- pointer mechanism of a menu created with this binding in low-level C - -- routines. - type Ada_User_Wrapper is - record - U : System.Address; - I : Item_Array_Access; - end record; - pragma Convention (C, Ada_User_Wrapper); - type Ada_User_Wrapper_Access is access all Ada_User_Wrapper; - pragma Controlled (Ada_User_Wrapper_Access); - Generation_Bit_Order : constant System.Bit_Order := System.Low_Order_First; -- This constant may be different on your system.