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);