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=fb818d03411604327dffac431f35d53642ffda55;hp=f53067fe729455db54895fe529869159f367ac5f;hb=3ab4db240283db0682a66a8587f2174508348bc6;hpb=761e4f0825b330e970558e82a4bd638383914429
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 f53067fe..fb818d03 100644
--- a/doc/html/ada/terminal_interface-curses-text_io__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-text_io__adb.htm
@@ -24,7 +24,7 @@
-
+
@@ -52,35 +52,35 @@
-
-
+
+
-package body Terminal_Interface.Curses.Text_IO is
+package body Terminal_Interface.Curses.Text_IO is
- Default_Window : Window := Null_Window;
+ Default_Window : Window := Null_Window;
- procedure Set_Window (Win : Window)
+ procedure Set_Window (Win : Window)
is
begin
Default_Window := Win;
end Set_Window;
- function Get_Window return Window
+ function Get_Window return Window
is
begin
- if Default_Window = Null_Window then
- return Standard_Window;
+ if Default_Window = Null_Window then
+ return Standard_Window;
else
return Default_Window;
end if;
end Get_Window;
pragma Inline (Get_Window);
- procedure Flush (Win : Window)
+ procedure Flush (Win : Window)
is
begin
- Refresh (Win);
+ Refresh (Win);
end Flush;
procedure Flush
@@ -98,12 +98,12 @@
- function Line_Length (Win : Window) return Count
+ function Line_Length (Win : Window) return Count
is
- N_Lines : Line_Count;
- N_Cols : Column_Count;
+ N_Lines : Line_Count;
+ N_Cols : Column_Count;
begin
- Get_Size (Win, N_Lines, N_Cols);
+ Get_Size (Win, N_Lines, N_Cols);
@@ -116,15 +116,15 @@
return Line_Length (Get_Window);
end Line_Length;
- function Page_Length (Win : Window) return Count
+ function Page_Length (Win : Window) return Count
is
- N_Lines : Line_Count;
- N_Cols : Column_Count;
+ 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);
@@ -141,7 +141,7 @@
- procedure New_Line (Win : Window; Spacing : Positive_Count := 1)
+ procedure New_Line (Win : Window; Spacing : Positive_Count := 1)
is
P_Size : constant Count := Page_Length (Win);
begin
@@ -153,7 +153,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;
@@ -164,10 +164,10 @@
New_Line (Get_Window, Spacing);
end New_Line;
- procedure New_Page (Win : Window)
+ procedure New_Page (Win : Window)
is
begin
- Clear (Win);
+ Clear (Win);
end New_Page;
procedure New_Page
@@ -176,20 +176,20 @@
New_Page (Get_Window);
end New_Page;
- procedure Set_Col (Win : Window; To : Positive_Count)
+ procedure Set_Col (Win : Window; To : Positive_Count)
is
- Y : Line_Position;
- X1 : Column_Position;
- X2 : Column_Position;
+ Y : Line_Position;
+ X1 : Column_Position;
+ X2 : Column_Position;
N : Natural;
begin
if not To'Valid then
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);
+ X2 := Column_Position (N);
if X1 > X2 then
New_Line (Win, 1);
X1 := 0;
@@ -210,21 +210,21 @@
Set_Col (Get_Window, To);
end Set_Col;
- procedure Set_Line (Win : Window; To : Positive_Count)
+ procedure Set_Line (Win : Window; To : Positive_Count)
is
- Y1 : Line_Position;
- Y2 : Line_Position;
- X : Column_Position;
+ Y1 : Line_Position;
+ Y2 : Line_Position;
+ X : Column_Position;
N : Natural;
begin
if not To'Valid then
raise Constraint_Error;
end if;
- Get_Cursor_Position (Win, Y1, X);
- pragma Unreferenced (X);
+ Get_Cursor_Position (Win, Y1, X);
+ pragma Warnings (Off, X);
N := Natural (To); N := N - 1;
- Y2 := Line_Position (N);
+ Y2 := Line_Position (N);
if Y2 < Y1 then
New_Page (Win);
Y1 := 0;
@@ -240,13 +240,13 @@
Set_Line (Get_Window, To);
end Set_Line;
- function Col (Win : Window) return Positive_Count
+ function Col (Win : Window) return Positive_Count
is
- Y : Line_Position;
- X : Column_Position;
+ Y : Line_Position;
+ X : Column_Position;
N : Natural;
begin
- Get_Cursor_Position (Win, Y, X);
+ Get_Cursor_Position (Win, Y, X);
N := Natural (X); N := N + 1;
@@ -260,13 +260,13 @@
return Col (Get_Window);
end Col;
- function Line (Win : Window) return Positive_Count
+ function Line (Win : Window) return Positive_Count
is
- Y : Line_Position;
- X : Column_Position;
+ Y : Line_Position;
+ X : Column_Position;
N : Natural;
begin
- Get_Cursor_Position (Win, Y, X);
+ Get_Cursor_Position (Win, Y, X);
N := Natural (Y); N := N + 1;
@@ -284,22 +284,22 @@
- procedure Put (Win : Window; Item : Character)
+ procedure Put (Win : Window; Item : Character)
is
P_Size : constant Count := Page_Length (Win);
- Y : Line_Position;
- X : Column_Position;
- L : Line_Count;
- C : Column_Count;
+ Y : Line_Position;
+ X : Column_Position;
+ L : Line_Count;
+ 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 : Character)
@@ -312,22 +312,22 @@
- procedure Put (Win : Window; Item : String)
+ procedure Put (Win : Window; Item : String)
is
P_Size : constant Count := Page_Length (Win);
- Y : Line_Position;
- X : Column_Position;
- L : Line_Count;
- C : Column_Count;
+ Y : Line_Position;
+ X : Column_Position;
+ L : Line_Count;
+ 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 : String)
@@ -337,7 +337,7 @@
end Put;
procedure Put_Line
- (Win : Window;
+ (Win : Window;
Item : String)
is
begin
@@ -352,5 +352,5 @@
Put_Line (Get_Window, Item);
end Put_Line;
-end Terminal_Interface.Curses.Text_IO;
+end Terminal_Interface.Curses.Text_IO;