mirror of
https://github.com/Aigor44/ncursesw-morphos.git
synced 2025-01-24 15:13:56 +08:00
60 lines
3.2 KiB
Ada
60 lines
3.2 KiB
Ada
-- -*- 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<61>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;
|