X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io-aux__adb.htm;h=79157cc3e75f30dada5e09bb0cff60b84083f38c;hp=b4fa34cf9f17f9b7a29d8fee428cbac289edc720;hb=97cb42f22c43eb31a4bf11475bd73ab0e0b10923;hpb=761e4f0825b330e970558e82a4bd638383914429
diff --git a/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm b/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm
index b4fa34cf..79157cc3 100644
--- a/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-text_io-aux__adb.htm
@@ -56,10 +56,10 @@
-package body Terminal_Interface.Curses.Text_IO.Aux is
+package body Terminal_Interface.Curses.Text_IO.Aux is
procedure Put_Buf
- (Win : Window;
+ (Win : Window;
Buf : String;
Width : Field;
Signal : Boolean := True;
@@ -68,10 +68,10 @@
L : Field;
Len : Field;
W : Field := Width;
- LC : Line_Count;
- CC : Column_Count;
- Y : Line_Position;
- X : Column_Position;
+ LC : Line_Count;
+ CC : Column_Count;
+ Y : Line_Position;
+ X : Column_Position;
procedure Output (From, To : Field);
@@ -88,8 +88,8 @@
end if;
pragma Assert (Len <= W);
- Get_Size (Win, LC, CC);
- if Column_Count (Len) > CC then
+ Get_Size (Win, LC, CC);
+ if Column_Count (Len) > CC then
if Signal then
raise Layout_Error;
else
@@ -104,8 +104,8 @@
Put (Win, Filler);
end;
end if;
- Get_Cursor_Position (Win, Y, X);
- if (X + Column_Position (Len)) > CC then
+ Get_Cursor_Position (Win, Y, X);
+ if (X + Column_Position (Len)) > CC then
New_Line (Win);
end if;
Put (Win, Buf (From .. To));
@@ -122,7 +122,7 @@
end Output;
begin
- pragma Assert (Win /= Null_Window);
+ pragma Assert (Win /= Null_Window);
if Ljust then
L := 1;
for I in 1 .. Buf'Length loop
@@ -142,5 +142,5 @@
end if;
end Put_Buf;
-end Terminal_Interface.Curses.Text_IO.Aux;
+end Terminal_Interface.Curses.Text_IO.Aux;