X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses__ads.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses__ads.htm;h=4cc11941b80ba2538fac77429547100709c0fca3;hp=1bfad77d4a163240906182aefec821bdbc6d46ba;hb=f6718d80c998008de6cfe8e6296bee3958ff86d7;hpb=205f120bce7a338464e79ef846e4f07eff365d6c
diff --git a/doc/html/ada/terminal_interface-curses__ads.htm b/doc/html/ada/terminal_interface-curses__ads.htm
index 1bfad77d..4cc11941 100644
--- a/doc/html/ada/terminal_interface-curses__ads.htm
+++ b/doc/html/ada/terminal_interface-curses__ads.htm
@@ -53,7 +53,7 @@
package Terminal_Interface.Curses is
pragma Preelaborate (Terminal_Interface.Curses);
- pragma Linker_Options ("-lncurses");
+ pragma Linker_Options ("-lncursesw");
NC_Major_Version : constant := 5; -- Major version of the library
NC_Minor_Version : constant := 6; -- Minor version of the library
@@ -331,21 +331,21 @@
for Character_Attribute_Set use
record
- Stand_Out at 0 range 0 .. 0;
- Under_Line at 0 range 1 .. 1;
- Reverse_Video at 0 range 2 .. 2;
- Blink at 0 range 3 .. 3;
- Dim_Character at 0 range 4 .. 4;
- Bold_Character at 0 range 5 .. 5;
- Alternate_Character_Set at 0 range 6 .. 6;
- Invisible_Character at 0 range 7 .. 7;
- Protected_Character at 0 range 8 .. 8;
- Horizontal at 0 range 9 .. 9;
- Left at 0 range 10 .. 10;
- Low at 0 range 11 .. 11;
- Right at 0 range 12 .. 12;
- Top at 0 range 13 .. 13;
- Vertical at 0 range 14 .. 14;
+ Stand_Out at 0 range 0 .. 0;
+ Under_Line at 0 range 1 .. 1;
+ Reverse_Video at 0 range 2 .. 2;
+ Blink at 0 range 3 .. 3;
+ Dim_Character at 0 range 4 .. 4;
+ Bold_Character at 0 range 5 .. 5;
+ Alternate_Character_Set at 0 range 6 .. 6;
+ Invisible_Character at 0 range 7 .. 7;
+ Protected_Character at 0 range 8 .. 8;
+ Horizontal at 0 range 9 .. 9;
+ Left at 0 range 10 .. 10;
+ Low at 0 range 11 .. 11;
+ Right at 0 range 12 .. 12;
+ Top at 0 range 13 .. 13;
+ Vertical at 0 range 14 .. 14;
end record;
for Character_Attribute_Set'Size use 16;
-- Please note: this rep. clause is generated and may be
@@ -365,9 +365,9 @@
for Attributed_Character use
record
- Ch at 0 range 0 .. 7;
- Color at 0 range 8 .. 15;
- Attr at 0 range 16 .. 31;
+ Ch at 0 range 0 .. 7;
+ Color at 0 range 8 .. 15;
+ Attr at 0 range 16 .. 31;
end record;
for Attributed_Character'Size use 32;
-- Please note: this rep. clause is generated and may be
@@ -378,8 +378,8 @@
Color => Color_Pair'First,
Attr => (others => False)); -- preelaboratable Normal_Video
- type Attributed_String is array (Positive range <>) of Attributed_Character;
- pragma Pack (Attributed_String);
+ type Attributed_String is array (Positive range <>) of Attributed_Character;
+ pragma Pack (Attributed_String);
-- In this binding we allow strings of attributed characters.
------------------
@@ -414,24 +414,24 @@
-- this is to use functions.
--------------------------------------------------------------------------
- function Lines return Line_Count;
+ function Lines return Line_Count;
pragma Inline (Lines);
- function Columns return Column_Count;
+ function Columns return Column_Count;
pragma Inline (Columns);
- function Tab_Size return Natural;
+ function Tab_Size return Natural;
pragma Inline (Tab_Size);
- function Number_Of_Colors return Natural;
+ function Number_Of_Colors return Natural;
pragma Inline (Number_Of_Colors);
- function Number_Of_Color_Pairs return Natural;
+ function Number_Of_Color_Pairs return Natural;
pragma Inline (Number_Of_Color_Pairs);
- type C_ACS_Map is array (Character'Val (0) .. Character'Val (127))
+ type C_ACS_Map is array (Character'Val (0) .. Character'Val (127))
of Attributed_Character;
- ACS_Map : C_ACS_Map;
+ ACS_Map : C_ACS_Map;
pragma Import (C, ACS_Map, "acs_map");
--
--
@@ -478,12 +478,12 @@
-- | Not implemented: newterm, set_term, delscreen
-- #1A NAME="AFU_1"#2|
- function Standard_Window return Window;
+ function Standard_Window return Window;
-- AKA: stdscr
pragma Inline (Standard_Window);
-- #1A NAME="AFU_2"#2|
- function Current_Window return Window;
+ function Current_Window return Window;
-- AKA: curscr
pragma Inline (Current_Window);
@@ -680,7 +680,7 @@
-- #1A NAME="AFU_23"#2|
procedure Add (Win : in Window := Standard_Window;
- Str : in Attributed_String;
+ Str : in Attributed_String;
Len : in Integer := -1);
-- AKA: waddchnstr()
-- AKA: waddchstr()
@@ -691,7 +691,7 @@
procedure Add (Win : in Window := Standard_Window;
Line : in Line_Position;
Column : in Column_Position;
- Str : in Attributed_String;
+ Str : in Attributed_String;
Len : in Integer := -1);
-- AKA: mvwaddchnstr()
-- AKA: mvwaddchstr()
@@ -1441,7 +1441,7 @@
-- #1A NAME="AFU_105"#2|
procedure Peek (Win : in Window := Standard_Window;
- Str : out Attributed_String;
+ Str : out Attributed_String;
Len : in Integer := -1);
-- AKA: winchnstr()
-- AKA: winchstr()
@@ -1452,7 +1452,7 @@
procedure Peek (Win : in Window := Standard_Window;
Line : in Line_Position;
Column : in Column_Position;
- Str : out Attributed_String;
+ Str : out Attributed_String;
Len : in Integer := -1);
-- AKA: mvwinchnstr()
-- AKA: mvwinchstr()
@@ -1721,35 +1721,35 @@
pragma Inline (Init_Pair);
-- #1A NAME="AFU_143"#2|
- procedure Pair_Content (Pair : in Color_Pair;
- Fore : out Color_Number;
- Back : out Color_Number);
+ procedure Pair_Content (Pair : in Color_Pair;
+ Fore : out Color_Number;
+ Back : out Color_Number);
-- AKA: pair_content()
pragma Inline (Pair_Content);
-- #1A NAME="AFU_144"#2|
- function Has_Colors return Boolean;
+ function Has_Colors return Boolean;
-- AKA: has_colors()
pragma Inline (Has_Colors);
-- #1A NAME="AFU_145"#2|
- procedure Init_Color (Color : in Color_Number;
- Red : in RGB_Value;
- Green : in RGB_Value;
- Blue : in RGB_Value);
+ procedure Init_Color (Color : in Color_Number;
+ Red : in RGB_Value;
+ Green : in RGB_Value;
+ Blue : in RGB_Value);
-- AKA: init_color()
pragma Inline (Init_Color);
-- #1A NAME="AFU_146"#2|
- function Can_Change_Color return Boolean;
+ function Can_Change_Color return Boolean;
-- AKA: can_change_color()
pragma Inline (Can_Change_Color);
-- #1A NAME="AFU_147"#2|
- procedure Color_Content (Color : in Color_Number;
- Red : out RGB_Value;
- Green : out RGB_Value;
- Blue : out RGB_Value);
+ procedure Color_Content (Color : in Color_Number;
+ Red : out RGB_Value;
+ Green : out RGB_Value;
+ Blue : out RGB_Value);
-- AKA: color_content()
pragma Inline (Color_Content);
@@ -1761,24 +1761,24 @@
type Curses_Mode is (Curses, Shell);
-- #1A NAME="AFU_148"#2|
- procedure Save_Curses_Mode (Mode : in Curses_Mode);
+ procedure Save_Curses_Mode (Mode : in Curses_Mode);
-- AKA: def_prog_mode()
-- AKA: def_shell_mode()
pragma Inline (Save_Curses_Mode);
-- #1A NAME="AFU_149"#2|
- procedure Reset_Curses_Mode (Mode : in Curses_Mode);
+ procedure Reset_Curses_Mode (Mode : in Curses_Mode);
-- AKA: reset_prog_mode()
-- AKA: reset_shell_mode()
pragma Inline (Reset_Curses_Mode);
-- #1A NAME="AFU_150"#2|
- procedure Save_Terminal_State;
+ procedure Save_Terminal_State;
-- AKA: savetty()
pragma Inline (Save_Terminal_State);
-- #1A NAME="AFU_151"#2|
- procedure Reset_Terminal_State;
+ procedure Reset_Terminal_State;
-- AKA: resetty();
pragma Inline (Reset_Terminal_State);
@@ -1791,8 +1791,8 @@
-- and -1 otherwise.
-- #1A NAME="AFU_152"#2|
- procedure Rip_Off_Lines (Lines : in Integer;
- Proc : in Stdscr_Init_Proc);
+ procedure Rip_Off_Lines (Lines : in Integer;
+ Proc : in Stdscr_Init_Proc);
-- AKA: ripoffline()
-- N.B.: to be more precise, this uses a ncurses specific enhancement of
-- ripoffline(), in which the Lines argument absolute value is the
@@ -1803,12 +1803,12 @@
type Cursor_Visibility is (Invisible, Normal, Very_Visible);
-- #1A NAME="AFU_153"#2|
- procedure Set_Cursor_Visibility (Visibility : in out Cursor_Visibility);
+ procedure Set_Cursor_Visibility (Visibility : in out Cursor_Visibility);
-- AKA: curs_set()
pragma Inline (Set_Cursor_Visibility);
-- #1A NAME="AFU_154"#2|
- procedure Nap_Milli_Seconds (Ms : in Natural);
+ procedure Nap_Milli_Seconds (Ms : in Natural);
-- AKA: napms()
pragma Inline (Nap_Milli_Seconds);
@@ -1816,11 +1816,11 @@
-- | Some useful helpers.
-- |=====================================================================
type Transform_Direction is (From_Screen, To_Screen);
- procedure Transform_Coordinates
- (W : in Window := Standard_Window;
- Line : in out Line_Position;
- Column : in out Column_Position;
- Dir : in Transform_Direction := From_Screen);
+ procedure Transform_Coordinates
+ (W : in Window := Standard_Window;
+ Line : in out Line_Position;
+ Column : in out Column_Position;
+ Dir : in Transform_Direction := From_Screen);
-- This procedure transforms screen coordinates into coordinates relative
-- to the window and vice versa, depending on the Dir parameter.
-- Screen coordinates are the position informations on the physical device.
@@ -1833,13 +1833,13 @@
-- |=====================================================================
-- #1A NAME="AFU_155"#2|
- procedure Use_Default_Colors;
+ procedure Use_Default_Colors;
-- AKA: use_default_colors()
pragma Inline (Use_Default_Colors);
-- #1A NAME="AFU_156"#2|
- procedure Assume_Default_Colors (Fore : Color_Number := Default_Color;
- Back : Color_Number := Default_Color);
+ procedure Assume_Default_Colors (Fore : Color_Number := Default_Color;
+ Back : Color_Number := Default_Color);
-- AKA: assume_default_colors()
pragma Inline (Assume_Default_Colors);
@@ -1848,12 +1848,12 @@
-- |=====================================================================
-- #1A NAME="AFU_157"#2|
- function Curses_Version return String;
+ function Curses_Version return String;
-- AKA: curses_version()
-- #1A NAME="AFU_158"#2|
-- The returnvalue is the previous setting of the flag
- function Use_Extended_Names (Enable : Boolean) return Boolean;
+ function Use_Extended_Names (Enable : Boolean) return Boolean;
-- AKA: use_extended_names()
-- |=====================================================================
@@ -1861,7 +1861,7 @@
-- |=====================================================================
-- #1A NAME="AFU_159"#2|
- procedure Curses_Free_All;
+ procedure Curses_Free_All;
-- AKA: _nc_freeall()
-- |=====================================================================
@@ -1869,19 +1869,19 @@
-- |=====================================================================
-- #1A NAME="AFU_160"#2|
- procedure Screen_Dump_To_File (Filename : in String);
+ procedure Screen_Dump_To_File (Filename : in String);
-- AKA: scr_dump()
-- #1A NAME="AFU_161"#2|
- procedure Screen_Restore_From_File (Filename : in String);
+ procedure Screen_Restore_From_File (Filename : in String);
-- AKA: scr_restore()
-- #1A NAME="AFU_162"#2|
- procedure Screen_Init_From_File (Filename : in String);
+ procedure Screen_Init_From_File (Filename : in String);
-- AKA: scr_init()
-- #1A NAME="AFU_163"#2|
- procedure Screen_Set_File (Filename : in String);
+ procedure Screen_Set_File (Filename : in String);
-- AKA: scr_set()
-- |=====================================================================
@@ -1913,9 +1913,9 @@
-- |=====================================================================
-- #1A NAME="AFU_164"#2|
- procedure Resize (Win : Window := Standard_Window;
- Number_Of_Lines : Line_Count;
- Number_Of_Columns : Column_Count);
+ procedure Resize (Win : Window := Standard_Window;
+ Number_Of_Lines : Line_Count;
+ Number_Of_Columns : Column_Count);
-- AKA: wresize()
private