-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998 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 --
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
--- Author: Juergen Pfeifer <juergen.pfeifer@gmx.net> 1996
+-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- $Revision: 1.11 $
+-- $Revision: 1.18 $
+-- $Date: 2006/06/25 14:24:40 $
-- Binding Version 01.00
------------------------------------------------------------------------------
package body Terminal_Interface.Curses.Text_IO is
N_Cols : Column_Count;
begin
Get_Size (Win, N_Lines, N_Cols);
- if Natural (N_Cols) > Natural (Count'Last) then
- raise Layout_Error;
- end if;
+ -- if Natural (N_Cols) > Natural (Count'Last) then
+ -- raise Layout_Error;
+ -- end if;
return Count (N_Cols);
end Line_Length;
return 0;
else
Get_Size (Win, N_Lines, N_Cols);
- if Natural (N_Lines) > Natural (Count'Last) then
- raise Layout_Error;
- end if;
+ -- if Natural (N_Lines) > Natural (Count'Last) then
+ -- raise Layout_Error;
+ -- end if;
return Count (N_Lines);
end if;
end Page_Length;
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;
if P_Size > 0 and then Line (Win) >= P_Size then
New_Page (Win);
else
- Add (Win, Ascii.LF);
+ Add (Win, ASCII.LF);
end if;
end loop;
end New_Line;
X2 : Column_Position;
N : Natural;
begin
- if To not in Positive_Count then
+ if not To'Valid then
raise Constraint_Error;
end if;
X : Column_Position;
N : Natural;
begin
- if To not in Positive_Count then
+ if not To'Valid then
raise Constraint_Error;
end if;
begin
Get_Cursor_Position (Win, Y, X);
N := Natural (X); N := N + 1;
- if N > Natural (Count'Last) then
- raise Layout_Error;
- end if;
+ -- if N > Natural (Count'Last) then
+ -- raise Layout_Error;
+ -- end if;
return Positive_Count (N);
end Col;
begin
Get_Cursor_Position (Win, Y, X);
N := Natural (Y); N := N + 1;
- if N > Natural (Count'Last) then
- raise Layout_Error;
- end if;
+ -- if N > Natural (Count'Last) then
+ -- raise Layout_Error;
+ -- end if;
return Positive_Count (N);
end Line;