2 define(`HTMLNAME',`terminal_interface-curses-menus-item_user_data_s.html')dnl
4 ------------------------------------------------------------------------------
6 -- GNAT ncurses Binding --
8 -- Terminal_Interface.Curses.Menus.Item_User_Data --
14 -- The ncurses Ada95 binding is copyrighted 1996 by --
15 -- Juergen Pfeifer, Email: Juergen.Pfeifer@T-Online.de --
17 -- Permission is hereby granted to reproduce and distribute this --
18 -- binding by any means and for any fee, whether alone or as part --
19 -- of a larger distribution, in source or in binary form, PROVIDED --
20 -- this notice is included with any such distribution, and is not --
21 -- removed from any of its header files. Mention of ncurses and the --
22 -- author of this binding in any applications linked with it is --
23 -- highly appreciated. --
25 -- This binding comes AS IS with no warranty, implied or expressed. --
26 ------------------------------------------------------------------------------
29 ------------------------------------------------------------------------------
32 type User is limited private;
33 type User_Access is access User;
34 package Terminal_Interface.Curses.Menus.Item_User_Data is
36 -- The binding uses the same user pointer for menu items
37 -- as the low level C implementation. So you can safely
38 -- read or write the user pointer also with the C routines
40 -- MANPAGE(`mitem_userptr.3x')
42 -- ANCHOR(`set_item_userptr',`Set_User_Data')
43 procedure Set_User_Data (Itm : in Item;
44 Data : in User_Access);
46 pragma Convention (C, Set_User_Data);
48 -- ANCHOR(`item_userptr',`Get_User_Data')
49 procedure Get_User_Data (Itm : in Item;
50 Data : out User_Access);
52 pragma Convention (C, Get_User_Data);
54 end Terminal_Interface.Curses.Menus.Item_User_Data;