X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-text_io__adb.htm;h=de70100f3f15de53bd6b81f2809cb2cecb43198b;hb=9776951416d7fb862b9dca1f4c9f8031a5c9059b;hp=fdeafd3c121b19234a89c6de9bc68dae838ee4cf;hpb=687aeec3e382083652c3bb2e94fb6d3bf101a1f9;p=ncurses.git 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 fdeafd3c..de70100f 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 : 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 : 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 : 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 : String)