-- -*- ada -*- define(`HTMLNAME',`terminal_interface-curses-forms-field_user_data_s.html')dnl include(M4MACRO)dnl ------------------------------------------------------------------------------ -- -- -- GNAT ncurses Binding -- -- -- -- Terminal_Interface.Curses.Forms.Field_User_Data -- -- -- -- S P E C -- -- -- -- Version 00.92 -- -- -- -- The ncurses Ada95 binding is copyrighted 1996 by -- -- Juergen Pfeifer, Email: Juergen.Pfeifer@T-Online.de -- -- -- -- 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. -- -- -- -- This binding comes AS IS with no warranty, implied or expressed. -- ------------------------------------------------------------------------------ -- Version Control: -- $Revision: 1.3 $ ------------------------------------------------------------------------------ generic type User is limited private; type User_Access is access User; package Terminal_Interface.Curses.Forms.Field_User_Data is -- The binding uses the C level user pointer already for its own -- internal purposes. So you canīt easily manipulate the user pointer -- with the low level C routines for this field without taking care of -- this special situation. If you want to read or write with C routines -- the user pointer of this field, you should get first the low level -- user pointer. This points to a record, that always has as its first -- member the Ada95 user pointer for this field. You should never change -- the low level user pointer of an Ada created field. -- -- MANPAGE(`form_field_userptr.3x') -- ANCHOR(`set_field_userptr',`Set_User_Data') procedure Set_User_Data (Fld : in Field; Data : in User_Access); -- AKA pragma Convention (C, Set_User_Data); -- ANCHOR(`field_userptr',`Get_User_Data') procedure Get_User_Data (Fld : in Field; Data : out User_Access); -- AKA pragma Convention (C, Get_User_Data); end Terminal_Interface.Curses.Forms.Field_User_Data;