X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses__ads.htm;h=3d690414bf5a86e04e3de5800d2a18acf2c99ee6;hp=7cb70e7049490b96d577f94f68a44812ae3ee2f8;hb=2b635f090ec43c82958cef9369464aee4dd8975f;hpb=9776951416d7fb862b9dca1f4c9f8031a5c9059b
diff --git a/doc/html/ada/terminal_interface-curses__ads.htm b/doc/html/ada/terminal_interface-curses__ads.htm
index 7cb70e70..3d690414 100644
--- a/doc/html/ada/terminal_interface-curses__ads.htm
+++ b/doc/html/ada/terminal_interface-curses__ads.htm
@@ -416,19 +416,19 @@
-- 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))
@@ -480,12 +480,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);
@@ -1140,7 +1140,7 @@
-- |=====================================================================
-- #1A NAME="AFU_73"#2|
- procedure Untouch (Win : Window := Standard_Window);
+ procedure Untouch (Win : Window := Standard_Window);
-- AKA: untouchwin()
pragma Inline (Untouch);
@@ -1149,9 +1149,9 @@
-- AKA: touchwin()
-- #1A NAME="AFU_75"#2|
- procedure Touch (Win : Window := Standard_Window;
- Start : Line_Position;
- Count : Positive);
+ procedure Touch (Win : Window := Standard_Window;
+ Start : Line_Position;
+ Count : Positive);
-- AKA: touchline()
pragma Inline (Touch);
@@ -1164,12 +1164,12 @@
pragma Inline (Change_Lines_Status);
-- #1A NAME="AFU_77"#2|
- function Is_Touched (Win : Window := Standard_Window;
- Line : Line_Position) return Boolean;
+ function Is_Touched (Win : Window := Standard_Window;
+ Line : Line_Position) return Boolean;
-- AKA: is_linetouched()
-- #1A NAME="AFU_78"#2|
- function Is_Touched (Win : Window := Standard_Window) return Boolean;
+ function Is_Touched (Win : Window := Standard_Window) return Boolean;
-- AKA: is_wintouched()
pragma Inline (Is_Touched);
@@ -1178,28 +1178,28 @@
-- |=====================================================================
-- #1A NAME="AFU_79"#2|
- procedure Copy
- (Source_Window : Window;
- Destination_Window : Window;
- Source_Top_Row : Line_Position;
- Source_Left_Column : Column_Position;
- Destination_Top_Row : Line_Position;
- Destination_Left_Column : Column_Position;
- Destination_Bottom_Row : Line_Position;
- Destination_Right_Column : Column_Position;
- Non_Destructive_Mode : Boolean := True);
+ procedure Copy
+ (Source_Window : Window;
+ Destination_Window : Window;
+ Source_Top_Row : Line_Position;
+ Source_Left_Column : Column_Position;
+ Destination_Top_Row : Line_Position;
+ Destination_Left_Column : Column_Position;
+ Destination_Bottom_Row : Line_Position;
+ Destination_Right_Column : Column_Position;
+ Non_Destructive_Mode : Boolean := True);
-- AKA: copywin()
pragma Inline (Copy);
-- #1A NAME="AFU_80"#2|
- procedure Overwrite (Source_Window : Window;
- Destination_Window : Window);
+ procedure Overwrite (Source_Window : Window;
+ Destination_Window : Window);
-- AKA: overwrite()
pragma Inline (Overwrite);
-- #1A NAME="AFU_81"#2|
- procedure Overlay (Source_Window : Window;
- Destination_Window : Window);
+ procedure Overlay (Source_Window : Window;
+ Destination_Window : Window);
-- AKA: overlay()
pragma Inline (Overlay);
@@ -1208,21 +1208,21 @@
-- |=====================================================================
-- #1A NAME="AFU_82"#2|
- procedure Insert_Delete_Lines
- (Win : Window := Standard_Window;
- Lines : Integer := 1); -- default is to insert one line above
+ procedure Insert_Delete_Lines
+ (Win : Window := Standard_Window;
+ Lines : Integer := 1); -- default is to insert one line above
-- AKA: winsdelln()
-- AKA: insdelln()
pragma Inline (Insert_Delete_Lines);
-- #1A NAME="AFU_83"#2|
- procedure Delete_Line (Win : Window := Standard_Window);
+ procedure Delete_Line (Win : Window := Standard_Window);
-- AKA: wdeleteln()
-- AKA: deleteln()
pragma Inline (Delete_Line);
-- #1A NAME="AFU_84"#2|
- procedure Insert_Line (Win : Window := Standard_Window);
+ procedure Insert_Line (Win : Window := Standard_Window);
-- AKA: winsertln()
-- AKA: insertln()
pragma Inline (Insert_Line);
@@ -1232,35 +1232,35 @@
-- |=====================================================================
-- #1A NAME="AFU_85"#2|
- procedure Get_Size
- (Win : Window := Standard_Window;
- Number_Of_Lines : out Line_Count;
- Number_Of_Columns : out Column_Count);
+ procedure Get_Size
+ (Win : Window := Standard_Window;
+ Number_Of_Lines : out Line_Count;
+ Number_Of_Columns : out Column_Count);
-- AKA: getmaxyx()
pragma Inline (Get_Size);
-- #1A NAME="AFU_86"#2|
- procedure Get_Window_Position
- (Win : Window := Standard_Window;
- Top_Left_Line : out Line_Position;
- Top_Left_Column : out Column_Position);
+ procedure Get_Window_Position
+ (Win : Window := Standard_Window;
+ Top_Left_Line : out Line_Position;
+ Top_Left_Column : out Column_Position);
-- AKA: getbegyx()
pragma Inline (Get_Window_Position);
-- #1A NAME="AFU_87"#2|
- procedure Get_Cursor_Position
- (Win : Window := Standard_Window;
- Line : out Line_Position;
- Column : out Column_Position);
+ procedure Get_Cursor_Position
+ (Win : Window := Standard_Window;
+ Line : out Line_Position;
+ Column : out Column_Position);
-- AKA: getyx()
pragma Inline (Get_Cursor_Position);
-- #1A NAME="AFU_88"#2|
- procedure Get_Origin_Relative_To_Parent
- (Win : Window;
- Top_Left_Line : out Line_Position;
- Top_Left_Column : out Column_Position;
- Is_Not_A_Subwindow : out Boolean);
+ procedure Get_Origin_Relative_To_Parent
+ (Win : Window;
+ Top_Left_Line : out Line_Position;
+ Top_Left_Column : out Column_Position;
+ Is_Not_A_Subwindow : out Boolean);
-- AKA: getparyx()
-- Instead of placing -1 in the coordinates as return, we use a Boolean
-- to return the info that the window has no parent.
@@ -1271,54 +1271,54 @@
-- |=====================================================================
-- #1A NAME="AFU_89"#2|
- function New_Pad (Lines : Line_Count;
- Columns : Column_Count) return Window;
+ function New_Pad (Lines : Line_Count;
+ Columns : Column_Count) return Window;
-- AKA: newpad()
pragma Inline (New_Pad);
-- #1A NAME="AFU_90"#2|
- function Sub_Pad
- (Pad : Window;
- Number_Of_Lines : Line_Count;
- Number_Of_Columns : Column_Count;
- First_Line_Position : Line_Position;
- First_Column_Position : Column_Position) return Window;
+ function Sub_Pad
+ (Pad : Window;
+ Number_Of_Lines : Line_Count;
+ Number_Of_Columns : Column_Count;
+ First_Line_Position : Line_Position;
+ First_Column_Position : Column_Position) return Window;
-- AKA: subpad()
pragma Inline (Sub_Pad);
-- #1A NAME="AFU_91"#2|
- procedure Refresh
- (Pad : Window;
- Source_Top_Row : Line_Position;
- Source_Left_Column : Column_Position;
- Destination_Top_Row : Line_Position;
- Destination_Left_Column : Column_Position;
- Destination_Bottom_Row : Line_Position;
- Destination_Right_Column : Column_Position);
+ procedure Refresh
+ (Pad : Window;
+ Source_Top_Row : Line_Position;
+ Source_Left_Column : Column_Position;
+ Destination_Top_Row : Line_Position;
+ Destination_Left_Column : Column_Position;
+ Destination_Bottom_Row : Line_Position;
+ Destination_Right_Column : Column_Position);
-- AKA: prefresh()
pragma Inline (Refresh);
-- #1A NAME="AFU_92"#2|
- procedure Refresh_Without_Update
- (Pad : Window;
- Source_Top_Row : Line_Position;
- Source_Left_Column : Column_Position;
- Destination_Top_Row : Line_Position;
- Destination_Left_Column : Column_Position;
- Destination_Bottom_Row : Line_Position;
- Destination_Right_Column : Column_Position);
+ procedure Refresh_Without_Update
+ (Pad : Window;
+ Source_Top_Row : Line_Position;
+ Source_Left_Column : Column_Position;
+ Destination_Top_Row : Line_Position;
+ Destination_Left_Column : Column_Position;
+ Destination_Bottom_Row : Line_Position;
+ Destination_Right_Column : Column_Position);
-- AKA: pnoutrefresh()
pragma Inline (Refresh_Without_Update);
-- #1A NAME="AFU_93"#2|
- procedure Add_Character_To_Pad_And_Echo_It
- (Pad : Window;
- Ch : Attributed_Character);
+ procedure Add_Character_To_Pad_And_Echo_It
+ (Pad : Window;
+ Ch : Attributed_Character);
-- AKA: pechochar()
- procedure Add_Character_To_Pad_And_Echo_It
- (Pad : Window;
- Ch : Character);
+ procedure Add_Character_To_Pad_And_Echo_It
+ (Pad : Window;
+ Ch : Character);
pragma Inline (Add_Character_To_Pad_And_Echo_It);
-- |=====================================================================
@@ -1326,8 +1326,8 @@
-- |=====================================================================
-- #1A NAME="AFU_94"#2|
- procedure Scroll (Win : Window := Standard_Window;
- Amount : Integer := 1);
+ procedure Scroll (Win : Window := Standard_Window;
+ Amount : Integer := 1);
-- AKA: wscrl()
-- AKA: scroll()
-- AKA: scrl()
@@ -1338,15 +1338,15 @@
-- |=====================================================================
-- #1A NAME="AFU_95"#2|
- procedure Delete_Character (Win : Window := Standard_Window);
+ procedure Delete_Character (Win : Window := Standard_Window);
-- AKA: wdelch()
-- AKA: delch()
-- #1A NAME="AFU_96"#2|
- procedure Delete_Character
- (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position);
+ procedure Delete_Character
+ (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position);
-- AKA: mvwdelch()
-- AKA: mvdelch()
pragma Inline (Delete_Character);
@@ -1356,16 +1356,16 @@
-- |=====================================================================
-- #1A NAME="AFU_97"#2|
- function Peek (Win : Window := Standard_Window)
+ function Peek (Win : Window := Standard_Window)
return Attributed_Character;
-- AKA: inch()
-- AKA: winch()
-- #1A NAME="AFU_98"#2|
- function Peek
- (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position) return Attributed_Character;
+ function Peek
+ (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position) return Attributed_Character;
-- AKA: mvwinch()
-- AKA: mvinch()
-- More Peek's follow, pragma Inline appears later.
@@ -1375,16 +1375,16 @@
-- |=====================================================================
-- #1A NAME="AFU_99"#2|
- procedure Insert (Win : Window := Standard_Window;
- Ch : Attributed_Character);
+ procedure Insert (Win : Window := Standard_Window;
+ Ch : Attributed_Character);
-- AKA: winsch()
-- AKA: insch()
-- #1A NAME="AFU_100"#2|
- procedure Insert (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position;
- Ch : Attributed_Character);
+ procedure Insert (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position;
+ Ch : Attributed_Character);
-- AKA: mvwinsch()
-- AKA: mvinsch()
@@ -1393,20 +1393,20 @@
-- |=====================================================================
-- #1A NAME="AFU_101"#2|
- procedure Insert (Win : Window := Standard_Window;
- Str : String;
- Len : Integer := -1);
+ procedure Insert (Win : Window := Standard_Window;
+ Str : String;
+ Len : Integer := -1);
-- AKA: winsnstr()
-- AKA: winsstr()
-- AKA: insnstr()
-- AKA: insstr()
-- #1A NAME="AFU_102"#2|
- procedure Insert (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position;
- Str : String;
- Len : Integer := -1);
+ procedure Insert (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position;
+ Str : String;
+ Len : Integer := -1);
-- AKA: mvwinsnstr()
-- AKA: mvwinsstr()
-- AKA: mvinsnstr()
@@ -1418,20 +1418,20 @@
-- |=====================================================================
-- #1A NAME="AFU_103"#2|
- procedure Peek (Win : Window := Standard_Window;
- Str : out String;
- Len : Integer := -1);
+ procedure Peek (Win : Window := Standard_Window;
+ Str : out String;
+ Len : Integer := -1);
-- AKA: winnstr()
-- AKA: winstr()
-- AKA: innstr()
-- AKA: instr()
-- #1A NAME="AFU_104"#2|
- procedure Peek (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position;
- Str : out String;
- Len : Integer := -1);
+ procedure Peek (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position;
+ Str : out String;
+ Len : Integer := -1);
-- AKA: mvwinnstr()
-- AKA: mvwinstr()
-- AKA: mvinnstr()
@@ -1442,20 +1442,20 @@
-- |=====================================================================
-- #1A NAME="AFU_105"#2|
- procedure Peek (Win : Window := Standard_Window;
- Str : out Attributed_String;
- Len : Integer := -1);
+ procedure Peek (Win : Window := Standard_Window;
+ Str : out Attributed_String;
+ Len : Integer := -1);
-- AKA: winchnstr()
-- AKA: winchstr()
-- AKA: inchnstr()
-- AKA: inchstr()
-- #1A NAME="AFU_106"#2|
- procedure Peek (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position;
- Str : out Attributed_String;
- Len : Integer := -1);
+ procedure Peek (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position;
+ Str : out Attributed_String;
+ Len : Integer := -1);
-- AKA: mvwinchnstr()
-- AKA: mvwinchstr()
-- AKA: mvinchnstr()
@@ -1467,9 +1467,9 @@
-- |=====================================================================
-- #1A NAME="AFU_107"#2|
- procedure Get (Win : Window := Standard_Window;
- Str : out String;
- Len : Integer := -1);
+ procedure Get (Win : Window := Standard_Window;
+ Str : out String;
+ Len : Integer := -1);
-- AKA: wgetnstr()
-- AKA: wgetstr()
-- AKA: getnstr()
@@ -1478,11 +1478,11 @@
-- overflows.
-- #1A NAME="AFU_108"#2|
- procedure Get (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position;
- Str : out String;
- Len : Integer := -1);
+ procedure Get (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position;
+ Str : out String;
+ Len : Integer := -1);
-- AKA: mvwgetnstr()
-- AKA: mvwgetstr()
-- AKA: mvgetnstr()
@@ -1503,80 +1503,80 @@
type Label_Justification is (Left, Centered, Right);
-- #1A NAME="AFU_109"#2|
- procedure Init_Soft_Label_Keys
- (Format : Soft_Label_Key_Format := Three_Two_Three);
+ procedure Init_Soft_Label_Keys
+ (Format : Soft_Label_Key_Format := Three_Two_Three);
-- AKA: slk_init()
pragma Inline (Init_Soft_Label_Keys);
-- #1A NAME="AFU_110"#2|
- procedure Set_Soft_Label_Key (Label : Label_Number;
- Text : String;
- Fmt : Label_Justification := Left);
+ procedure Set_Soft_Label_Key (Label : Label_Number;
+ Text : String;
+ Fmt : Label_Justification := Left);
-- AKA: slk_set()
-- We do not inline this procedure
-- #1A NAME="AFU_111"#2|
- procedure Refresh_Soft_Label_Keys;
+ procedure Refresh_Soft_Label_Keys;
-- AKA: slk_refresh()
pragma Inline (Refresh_Soft_Label_Keys);
-- #1A NAME="AFU_112"#2|
- procedure Refresh_Soft_Label_Keys_Without_Update;
+ procedure Refresh_Soft_Label_Keys_Without_Update;
-- AKA: slk_noutrefresh()
pragma Inline (Refresh_Soft_Label_Keys_Without_Update);
-- #1A NAME="AFU_113"#2|
- procedure Get_Soft_Label_Key (Label : Label_Number;
- Text : out String);
+ procedure Get_Soft_Label_Key (Label : Label_Number;
+ Text : out String);
-- AKA: slk_label()
-- #1A NAME="AFU_114"#2|
- function Get_Soft_Label_Key (Label : Label_Number) return String;
+ function Get_Soft_Label_Key (Label : Label_Number) return String;
-- AKA: slk_label()
-- Same as function
pragma Inline (Get_Soft_Label_Key);
-- #1A NAME="AFU_115"#2|
- procedure Clear_Soft_Label_Keys;
+ procedure Clear_Soft_Label_Keys;
-- AKA: slk_clear()
pragma Inline (Clear_Soft_Label_Keys);
-- #1A NAME="AFU_116"#2|
- procedure Restore_Soft_Label_Keys;
+ procedure Restore_Soft_Label_Keys;
-- AKA: slk_restore()
pragma Inline (Restore_Soft_Label_Keys);
-- #1A NAME="AFU_117"#2|
- procedure Touch_Soft_Label_Keys;
+ procedure Touch_Soft_Label_Keys;
-- AKA: slk_touch()
pragma Inline (Touch_Soft_Label_Keys);
-- #1A NAME="AFU_118"#2|
- procedure Switch_Soft_Label_Key_Attributes
- (Attr : Character_Attribute_Set;
- On : Boolean := True);
+ procedure Switch_Soft_Label_Key_Attributes
+ (Attr : Character_Attribute_Set;
+ On : Boolean := True);
-- AKA: slk_attron()
-- AKA: slk_attroff()
pragma Inline (Switch_Soft_Label_Key_Attributes);
-- #1A NAME="AFU_119"#2|
- procedure Set_Soft_Label_Key_Attributes
- (Attr : Character_Attribute_Set := Normal_Video;
- Color : Color_Pair := Color_Pair'First);
+ procedure Set_Soft_Label_Key_Attributes
+ (Attr : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
-- AKA: slk_attrset()
pragma Inline (Set_Soft_Label_Key_Attributes);
-- #1A NAME="AFU_120"#2|
- function Get_Soft_Label_Key_Attributes return Character_Attribute_Set;
+ function Get_Soft_Label_Key_Attributes return Character_Attribute_Set;
-- AKA: slk_attr()
-- #1A NAME="AFU_121"#2|
- function Get_Soft_Label_Key_Attributes return Color_Pair;
+ function Get_Soft_Label_Key_Attributes return Color_Pair;
-- AKA: slk_attr()
pragma Inline (Get_Soft_Label_Key_Attributes);
-- #1A NAME="AFU_122"#2|
- procedure Set_Soft_Label_Key_Color (Pair : Color_Pair);
+ procedure Set_Soft_Label_Key_Color (Pair : Color_Pair);
-- AKA: slk_color()
pragma Inline (Set_Soft_Label_Key_Color);
@@ -1590,8 +1590,8 @@
-- |=====================================================================
-- #1A NAME="AFU_123"#2|
- procedure Enable_Key (Key : Special_Key_Code;
- Enable : Boolean := True);
+ procedure Enable_Key (Key : Special_Key_Code;
+ Enable : Boolean := True);
-- AKA: keyok()
pragma Inline (Enable_Key);
@@ -1600,8 +1600,8 @@
-- |=====================================================================
-- #1A NAME="AFU_124"#2|
- procedure Define_Key (Definition : String;
- Key : Special_Key_Code);
+ procedure Define_Key (Definition : String;
+ Key : Special_Key_Code);
-- AKA: define_key()
pragma Inline (Define_Key);
@@ -1626,23 +1626,23 @@
-- We do not inline this routine
-- #1A NAME="AFU_127"#2|
- procedure Un_Control (Ch : Attributed_Character;
- Str : out String);
+ procedure Un_Control (Ch : Attributed_Character;
+ Str : out String);
-- AKA: unctrl()
-- #1A NAME="AFU_128"#2|
- function Un_Control (Ch : Attributed_Character) return String;
+ function Un_Control (Ch : Attributed_Character) return String;
-- AKA: unctrl()
-- Same as function
pragma Inline (Un_Control);
-- #1A NAME="AFU_129"#2|
- procedure Delay_Output (Msecs : Natural);
+ procedure Delay_Output (Msecs : Natural);
-- AKA: delay_output()
pragma Inline (Delay_Output);
-- #1A NAME="AFU_130"#2|
- procedure Flush_Input;
+ procedure Flush_Input;
-- AKA: flushinp()
pragma Inline (Flush_Input);
@@ -1651,51 +1651,51 @@
-- |=====================================================================
-- #1A NAME="AFU_131"#2|
- function Baudrate return Natural;
+ function Baudrate return Natural;
-- AKA: baudrate()
pragma Inline (Baudrate);
-- #1A NAME="AFU_132"#2|
- function Erase_Character return Character;
+ function Erase_Character return Character;
-- AKA: erasechar()
pragma Inline (Erase_Character);
-- #1A NAME="AFU_133"#2|
- function Kill_Character return Character;
+ function Kill_Character return Character;
-- AKA: killchar()
pragma Inline (Kill_Character);
-- #1A NAME="AFU_134"#2|
- function Has_Insert_Character return Boolean;
+ function Has_Insert_Character return Boolean;
-- AKA: has_ic()
pragma Inline (Has_Insert_Character);
-- #1A NAME="AFU_135"#2|
- function Has_Insert_Line return Boolean;
+ function Has_Insert_Line return Boolean;
-- AKA: has_il()
pragma Inline (Has_Insert_Line);
-- #1A NAME="AFU_136"#2|
- function Supported_Attributes return Character_Attribute_Set;
+ function Supported_Attributes return Character_Attribute_Set;
-- AKA: termattrs()
pragma Inline (Supported_Attributes);
-- #1A NAME="AFU_137"#2|
- procedure Long_Name (Name : out String);
+ procedure Long_Name (Name : out String);
-- AKA: longname()
-- #1A NAME="AFU_138"#2|
- function Long_Name return String;
+ function Long_Name return String;
-- AKA: longname()
-- Same as function
pragma Inline (Long_Name);
-- #1A NAME="AFU_139"#2|
- procedure Terminal_Name (Name : out String);
+ procedure Terminal_Name (Name : out String);
-- AKA: termname()
-- #1A NAME="AFU_140"#2|
- function Terminal_Name return String;
+ function Terminal_Name return String;
-- AKA: termname()
-- Same as function
pragma Inline (Terminal_Name);
@@ -1716,42 +1716,42 @@
pragma Import (C, Start_Color, "start_color");
-- #1A NAME="AFU_142"#2|
- procedure Init_Pair (Pair : Redefinable_Color_Pair;
- Fore : Color_Number;
- Back : Color_Number);
+ procedure Init_Pair (Pair : Redefinable_Color_Pair;
+ Fore : Color_Number;
+ Back : Color_Number);
-- AKA: init_pair()
pragma Inline (Init_Pair);
-- #1A NAME="AFU_143"#2|
- procedure Pair_Content (Pair : Color_Pair;
- Fore : out Color_Number;
- Back : out Color_Number);
+ procedure Pair_Content (Pair : 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 : Color_Number;
- Red : RGB_Value;
- Green : RGB_Value;
- Blue : RGB_Value);
+ procedure Init_Color (Color : Color_Number;
+ Red : RGB_Value;
+ Green : RGB_Value;
+ Blue : 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 : Color_Number;
- Red : out RGB_Value;
- Green : out RGB_Value;
- Blue : out RGB_Value);
+ procedure Color_Content (Color : Color_Number;
+ Red : out RGB_Value;
+ Green : out RGB_Value;
+ Blue : out RGB_Value);
-- AKA: color_content()
pragma Inline (Color_Content);
@@ -1763,24 +1763,24 @@
type Curses_Mode is (Curses, Shell);
-- #1A NAME="AFU_148"#2|
- procedure Save_Curses_Mode (Mode : Curses_Mode);
+ procedure Save_Curses_Mode (Mode : 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 : Curses_Mode);
+ procedure Reset_Curses_Mode (Mode : 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);
@@ -1793,8 +1793,8 @@
-- and -1 otherwise.
-- #1A NAME="AFU_152"#2|
- procedure Rip_Off_Lines (Lines : Integer;
- Proc : Stdscr_Init_Proc);
+ procedure Rip_Off_Lines (Lines : Integer;
+ Proc : 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
@@ -1805,12 +1805,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 : Natural);
+ procedure Nap_Milli_Seconds (Ms : Natural);
-- AKA: napms()
pragma Inline (Nap_Milli_Seconds);
@@ -1818,11 +1818,11 @@
-- | Some useful helpers.
-- |=====================================================================
type Transform_Direction is (From_Screen, To_Screen);
- procedure Transform_Coordinates
- (W : Window := Standard_Window;
- Line : in out Line_Position;
- Column : in out Column_Position;
- Dir : Transform_Direction := From_Screen);
+ procedure Transform_Coordinates
+ (W : Window := Standard_Window;
+ Line : in out Line_Position;
+ Column : in out Column_Position;
+ Dir : 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 information for the physical device.
@@ -1835,13 +1835,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);
@@ -1850,12 +1850,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()
-- |=====================================================================
@@ -1863,7 +1863,7 @@
-- |=====================================================================
-- #1A NAME="AFU_159"#2|
- procedure Curses_Free_All;
+ procedure Curses_Free_All;
-- AKA: _nc_freeall()
-- |=====================================================================
@@ -1871,19 +1871,19 @@
-- |=====================================================================
-- #1A NAME="AFU_160"#2|
- procedure Screen_Dump_To_File (Filename : String);
+ procedure Screen_Dump_To_File (Filename : String);
-- AKA: scr_dump()
-- #1A NAME="AFU_161"#2|
- procedure Screen_Restore_From_File (Filename : String);
+ procedure Screen_Restore_From_File (Filename : String);
-- AKA: scr_restore()
-- #1A NAME="AFU_162"#2|
- procedure Screen_Init_From_File (Filename : String);
+ procedure Screen_Init_From_File (Filename : String);
-- AKA: scr_init()
-- #1A NAME="AFU_163"#2|
- procedure Screen_Set_File (Filename : String);
+ procedure Screen_Set_File (Filename : String);
-- AKA: scr_set()
-- |=====================================================================
@@ -1915,9 +1915,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