2 define(`HTMLNAME',`terminal_interface-curses-panels-user_data_s.html')dnl
4 ------------------------------------------------------------------------------
6 -- GNAT ncurses Binding --
8 -- Terminal_Interface.Curses.Panels.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 all User;
34 package Terminal_Interface.Curses.Panels.User_Data is
36 -- MANPAGE(`panel.3x')
38 -- ANCHOR(`set_panel_userptr',`Set_User_Data')
39 procedure Set_User_Data (Pan : in Panel;
40 Data : in User_Access);
42 pragma Convention (C, Set_User_Data);
44 -- ANCHOR(`panel_userptr',`Get_User_Data')
45 procedure Get_User_Data (Pan : in Panel;
46 Data : out User_Access);
48 pragma Convention (C, Get_User_Data);
50 end Terminal_Interface.Curses.Panels.User_Data;