X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses__adb.htm;h=d3a6078541cfb1b91ba7477b2388d71a44489187;hp=62622d1d0f3c375a3c12180e8508bcefbe8fddb3;hb=bca50d0d8592defee6c584fdedd25f4b1a31345b;hpb=34d602f272c394e9a980438e636e1ce4d355f83b
diff --git a/doc/html/ada/terminal_interface-curses__adb.htm b/doc/html/ada/terminal_interface-curses__adb.htm
index 62622d1d..d3a60785 100644
--- a/doc/html/ada/terminal_interface-curses__adb.htm
+++ b/doc/html/ada/terminal_interface-curses__adb.htm
@@ -59,8 +59,8 @@
with System;
with Terminal_Interface.Curses.Aux;
-with Interfaces.C; use Interfaces.C;
-with Interfaces.C.Strings; use Interfaces.C.Strings;
+with Interfaces.C; use Interfaces.C;
+with Interfaces.C.Strings; use Interfaces.C.Strings;
with Ada.Characters.Handling; use Ada.Characters.Handling;
with Ada.Strings.Fixed;
@@ -1729,7 +1729,7 @@
if N > Str'Length then
raise Constraint_Error;
end if;
- Txt (0) := Interfaces.C.char'First;
+ Txt (0) := Interfaces.C.char'First;
if Winnstr (Win, Txt, C_Int (N)) = Curses_Err then
raise Curses_Exception;
end if;
@@ -1819,7 +1819,7 @@
if N > Str'Length then
raise Constraint_Error;
end if;
- Txt (0) := Interfaces.C.char'First;
+ Txt (0) := Interfaces.C.char'First;
if Wgetnstr (Win, Txt, C_Int (N)) = Curses_Err then
raise Curses_Exception;
end if;
@@ -2371,7 +2371,7 @@
function Lines return Line_Count
is
- function LINES_As_Function return Interfaces.C.int;
+ function LINES_As_Function return Interfaces.C.int;
pragma Import (C, LINES_As_Function, "LINES_as_function");
begin
return Line_Count (LINES_As_Function);
@@ -2379,7 +2379,7 @@
function Columns return Column_Count
is
- function COLS_As_Function return Interfaces.C.int;
+ function COLS_As_Function return Interfaces.C.int;
pragma Import (C, COLS_As_Function, "COLS_as_function");
begin
return Column_Count (COLS_As_Function);
@@ -2387,7 +2387,7 @@
function Tab_Size return Natural
is
- function TABSIZE_As_Function return Interfaces.C.int;
+ function TABSIZE_As_Function return Interfaces.C.int;
pragma Import (C, TABSIZE_As_Function, "TABSIZE_as_function");
begin
@@ -2396,7 +2396,7 @@
function Number_Of_Colors return Natural
is
- function COLORS_As_Function return Interfaces.C.int;
+ function COLORS_As_Function return Interfaces.C.int;
pragma Import (C, COLORS_As_Function, "COLORS_as_function");
begin
return Natural (COLORS_As_Function);
@@ -2404,7 +2404,7 @@
function Number_Of_Color_Pairs return Natural
is
- function COLOR_PAIRS_As_Function return Interfaces.C.int;
+ function COLOR_PAIRS_As_Function return Interfaces.C.int;
pragma Import (C, COLOR_PAIRS_As_Function, "COLOR_PAIRS_as_function");
begin
return Natural (COLOR_PAIRS_As_Function);