-- 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.Choice is
- pragma Preelaborate (Choice);
+ pragma Preelaborate
+ (Terminal_Interface.Curses.Forms.Field_Types.User.Choice);
+
+ use type Interfaces.C.int;
+ subtype C_Int is Interfaces.C.int;
type User_Defined_Field_Type_With_Choice is abstract new
User_Defined_Field_Type with null record;
-- | Private Part.
-- |
private
- use type Interfaces.C.Int;
+ use type Interfaces.C.int;
function C_Generic_Choice return C_Field_Type;