X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=Ada95%2Fsrc%2Fterminal_interface-curses-forms-field_types-alphanumeric.adb;fp=Ada95%2Fada_include%2Fterminal_interface-curses-forms-field_types-alphanumeric.adb;h=2e82305e1fcfa8792f6167fedf4098fffd823de7;hp=6d7eb3ad2e8e42c5cbd11ec8d0124644b2fda381;hb=refs%2Ftags%2Fv5.0;hpb=661078ddbde3ce0f3b06e95642fbb9b5fef7dca1 diff --git a/Ada95/ada_include/terminal_interface-curses-forms-field_types-alphanumeric.adb b/Ada95/src/terminal_interface-curses-forms-field_types-alphanumeric.adb similarity index 96% rename from Ada95/ada_include/terminal_interface-curses-forms-field_types-alphanumeric.adb rename to Ada95/src/terminal_interface-curses-forms-field_types-alphanumeric.adb index 6d7eb3ad..2e82305e 100644 --- a/Ada95/ada_include/terminal_interface-curses-forms-field_types-alphanumeric.adb +++ b/Ada95/src/terminal_interface-curses-forms-field_types-alphanumeric.adb @@ -33,17 +33,17 @@ -- sale, use or other dealings in this Software without prior written -- -- authorization. -- ------------------------------------------------------------------------------ --- Author: Juergen Pfeifer 1996 +-- Author: Juergen Pfeifer 1996 -- Version Control: --- $Revision: 1.3 $ --- Binding Version 00.93 +-- $Revision: 1.6 $ +-- Binding Version 01.00 ------------------------------------------------------------------------------ with Interfaces.C; with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux; package body Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric is - use type Interfaces.C.Int; + use type Interfaces.C.int; procedure Set_Field_Type (Fld : in Field; Typ : in AlphaNumeric_Field)