-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
--- Author: Juergen Pfeifer <Juergen.Pfeifer@T-Online.de> 1996
+-- Author: Juergen Pfeifer <juergen.pfeifer@gmx.net> 1996
-- Version Control:
--- $Revision: 1.4 $
--- Binding Version 00.93
+-- $Revision: 1.9 $
+-- Binding Version 01.00
------------------------------------------------------------------------------
-with Ada.Unchecked_Deallocation;
-with Terminal_Interface.Curses.Aux;
+with Interfaces.C;
package Terminal_Interface.Curses.Forms.Field_Types.User is
- pragma Preelaborate (User);
+ pragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types.User);
+ use type Interfaces.C.int;
+ subtype C_Int is Interfaces.C.int;
type User_Defined_Field_Type is abstract new Field_Type with null record;
-- This is the root of the mechanism we use to create field types in
-- | Private Part.
-- | Used by the Choice child package.
private
- use type Interfaces.C.Int;
+ use type Interfaces.C.int;
function C_Generic_Type return C_Field_Type;