ncurses 5.0

[ncurses.git] / Ada95 / src / terminal_interface-curses-text_io.ads

diff --git a/Ada95/ada_include/terminal_interface-curses-text_io.ads b/Ada95/src/terminal_interface-curses-text_io.ads
similarity index 96%
rename from Ada95/ada_include/terminal_interface-curses-text_io.ads
rename to Ada95/src/terminal_interface-curses-text_io.ads
index e80f33fb3bdfa9e53d00ae05386881561f3bb8f7..02c3b7d54fc0f88c9f1925a374f85cd77bd0be2c 100644 (file)
--- a/Ada95/ada_include/terminal_interface-curses-text_io.ads
+++ b/Ada95/src/terminal_interface-curses-text_io.ads
@@ -33,13 +33,11 @@
 -- 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.8 $
---  Binding Version 00.93
+--  $Revision: 1.11 $
+--  Binding Version 01.00
 ------------------------------------------------------------------------------
-with System;
-with System.Parameters;
 with Ada.Text_IO;
 with Ada.IO_Exceptions;
 
@@ -49,7 +47,7 @@ package Terminal_Interface.Curses.Text_IO is
    subtype Count is Ada.Text_IO.Count;
    subtype Positive_Count is Count range 1 .. Count'Last;
 
-   subtype Field is Integer range 0 .. System.Parameters.Field_Max;
+   subtype Field is Ada.Text_IO.Field;
    subtype Number_Base is Integer range 2 .. 16;
 
    type Type_Set is (Lower_Case, Upper_Case, Mixed_Case);