X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io__adb.htm;h=d4008b75bf8d6660064e811256d9cbe9538cf4f6;hp=cca6461d2ce9d38a66a30e10fb8e8bb1ae37f993;hb=027ae42953e3186daed8f3882da73de48291b606;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8
diff --git a/doc/html/ada/terminal_interface-curses-text_io__adb.htm b/doc/html/ada/terminal_interface-curses-text_io__adb.htm
index cca6461d..d4008b75 100644
--- a/doc/html/ada/terminal_interface-curses-text_io__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-text_io__adb.htm
@@ -12,7 +12,7 @@
-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998,2004 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-2004,2006 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
@@ -40,11 +40,11 @@
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- @Revision: 1.17 @
--- @Date: 2004/08/21 21:37:00 @
+-- @Revision: 1.18 @
+-- @Date: 2006/06/25 14:24:40 @
-- Binding Version 01.00
------------------------------------------------------------------------------
-package body Terminal_Interface.Curses.Text_IO is
+package body Terminal_Interface.Curses.Text_IO is
Default_Window : Window := Null_Window;
@@ -133,7 +133,7 @@
is
P_Size : constant Count := Page_Length (Win);
begin
- if Spacing not in Positive_Count then
+ if not Spacing'Valid then
raise Constraint_Error;
end if;
@@ -171,7 +171,7 @@
X2 : Column_Position;
N : Natural;
begin
- if To not in Positive_Count then
+ if not To'Valid then
raise Constraint_Error;
end if;
@@ -205,7 +205,7 @@
X : Column_Position;
N : Natural;
begin
- if To not in Positive_Count then
+ if not To'Valid then
raise Constraint_Error;
end if;
@@ -339,5 +339,5 @@
Put_Line (Get_Window, Item);
end Put_Line;
-end Terminal_Interface.Curses.Text_IO;
+end Terminal_Interface.Curses.Text_IO;