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=a7ae771b62c3b97ef7bddf18356ac78d23951ded;hp=d4008b75bf8d6660064e811256d9cbe9538cf4f6;hb=3ec8f79f3ceda990461c80de2f96d66b886e00d5;hpb=027ae42953e3186daed8f3882da73de48291b606
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 d4008b75..a7ae771b 100644
--- a/doc/html/ada/terminal_interface-curses-text_io__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-text_io__adb.htm
@@ -58,7 +58,7 @@
is
begin
if Default_Window = Null_Window then
- return Standard_Window;
+ return Standard_Window;
else
return Default_Window;
end if;
@@ -68,7 +68,7 @@
procedure Flush (Win : in Window)
is
begin
- Refresh (Win);
+ Refresh (Win);
end Flush;
procedure Flush
@@ -91,7 +91,7 @@
N_Lines : Line_Count;
N_Cols : Column_Count;
begin
- Get_Size (Win, N_Lines, N_Cols);
+ Get_Size (Win, N_Lines, N_Cols);
-- if Natural (N_Cols) > Natural (Count'Last) then
-- raise Layout_Error;
-- end if;
@@ -109,10 +109,10 @@
N_Lines : Line_Count;
N_Cols : Column_Count;
begin
- if Scrolling_Allowed (Win) then
+ if Scrolling_Allowed (Win) then
return 0;
else
- Get_Size (Win, N_Lines, N_Cols);
+ Get_Size (Win, N_Lines, N_Cols);
-- if Natural (N_Lines) > Natural (Count'Last) then
-- raise Layout_Error;
-- end if;
@@ -141,7 +141,7 @@
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;
@@ -155,7 +155,7 @@
procedure New_Page (Win : in Window)
is
begin
- Clear (Win);
+ Clear (Win);
end New_Page;
procedure New_Page
@@ -175,7 +175,7 @@
raise Constraint_Error;
end if;
- Get_Cursor_Position (Win, Y, X1);
+ Get_Cursor_Position (Win, Y, X1);
N := Natural (To); N := N - 1;
X2 := Column_Position (N);
if X1 > X2 then
@@ -209,7 +209,7 @@
raise Constraint_Error;
end if;
- Get_Cursor_Position (Win, Y1, X);
+ Get_Cursor_Position (Win, Y1, X);
N := Natural (To); N := N - 1;
Y2 := Line_Position (N);
if Y2 < Y1 then
@@ -233,7 +233,7 @@
X : Column_Position;
N : Natural;
begin
- Get_Cursor_Position (Win, Y, X);
+ Get_Cursor_Position (Win, Y, X);
N := Natural (X); N := N + 1;
-- if N > Natural (Count'Last) then
-- raise Layout_Error;
@@ -253,7 +253,7 @@
X : Column_Position;
N : Natural;
begin
- Get_Cursor_Position (Win, Y, X);
+ Get_Cursor_Position (Win, Y, X);
N := Natural (Y); N := N + 1;
-- if N > Natural (Count'Last) then
-- raise Layout_Error;
@@ -280,13 +280,13 @@
C : Column_Count;
begin
if P_Size > 0 then
- Get_Cursor_Position (Win, Y, X);
- Get_Size (Win, L, C);
+ Get_Cursor_Position (Win, Y, X);
+ Get_Size (Win, L, C);
if (Y + 1) = L and then (X + 1) = C then
New_Page (Win);
end if;
end if;
- Add (Win, Item);
+ Add (Win, Item);
end Put;
procedure Put (Item : in Character)
@@ -308,13 +308,13 @@
C : Column_Count;
begin
if P_Size > 0 then
- Get_Cursor_Position (Win, Y, X);
- Get_Size (Win, L, C);
+ Get_Cursor_Position (Win, Y, X);
+ Get_Size (Win, L, C);
if (Y + 1) = L and then (X + 1 + Item'Length) >= C then
New_Page (Win);
end if;
end if;
- Add (Win, Item);
+ Add (Win, Item);
end Put;
procedure Put (Item : in String)