X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses__ads.htm;h=09750abedd7681b9c17a37f966ca23e381774be4;hp=6d670cc05a23bcfea01c894ffaf9335219ad4e37;hb=f86cbeb5f9bd96ab041d34039c35749a14965039;hpb=90ffd624948c543a457324ee777717e4130f2ad2;ds=sidebyside diff --git a/doc/html/ada/terminal_interface-curses__ads.htm b/doc/html/ada/terminal_interface-curses__ads.htm index 6d670cc0..09750abe 100644 --- a/doc/html/ada/terminal_interface-curses__ads.htm +++ b/doc/html/ada/terminal_interface-curses__ads.htm @@ -49,15 +49,15 @@ -- Run the generator instead. -- | with System.Storage_Elements; -with Interfaces.C; -- We need this for some assertions. +with Interfaces.C; -- We need this for some assertions. package Terminal_Interface.Curses is pragma Preelaborate (Terminal_Interface.Curses); pragma Linker_Options ("-lncurses"); NC_Major_Version : constant := 5; -- Major version of the library - NC_Minor_Version : constant := 7; -- Minor version of the library - NC_Version : constant String := "5.7"; -- Version of library + NC_Minor_Version : constant := 8; -- Minor version of the library + NC_Version : constant String := "5.8"; -- Version of library type Window is private; Null_Window : constant Window; @@ -280,8 +280,8 @@ ------------------------------------------------------------------------------ - type Color_Number is range -1 .. Integer (Interfaces.C.short'Last); - for Color_Number'Size use Interfaces.C.short'Size; + type Color_Number is range -1 .. Integer (Interfaces.C.short'Last); + for Color_Number'Size use Interfaces.C.short'Size; -- (n)curses uses a short for the color index -- The model is, that a Color_Number is an index into an array of -- (potentially) definable colors. Some of those indices are @@ -297,8 +297,8 @@ Cyan : constant Color_Number := 6; White : constant Color_Number := 7; - type RGB_Value is range 0 .. Integer (Interfaces.C.short'Last); - for RGB_Value'Size use Interfaces.C.short'Size; + type RGB_Value is range 0 .. Integer (Interfaces.C.short'Last); + for RGB_Value'Size use Interfaces.C.short'Size; -- Some system may allow to redefine a color by setting RGB values. type Color_Pair is range 0 .. 255; @@ -1928,7 +1928,7 @@ Sizeof_bool : constant Natural := 1; -- bool Offset_XY : constant Natural := 1; -- int - type Curses_Bool is mod 2 ** Interfaces.C.char'Size; + type Curses_Bool is mod 2 ** Interfaces.C.char'Size; Curses_Bool_False : constant Curses_Bool := 0; end Terminal_Interface.Curses;