X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses__ads.htm;h=bb7831504648d730c2a03947d2e144e23df2ee02;hp=e2bab26ad82a9fab5443c93ab21917e3258912ac;hb=cb4427a16794d98049b4d790b810d62217501f9f;hpb=cdaf29481becd3e1c21baa574ac1ab88ea5f3d38
diff --git a/doc/html/ada/terminal_interface-curses__ads.htm b/doc/html/ada/terminal_interface-curses__ads.htm
index e2bab26a..bb783150 100644
--- a/doc/html/ada/terminal_interface-curses__ads.htm
+++ b/doc/html/ada/terminal_interface-curses__ads.htm
@@ -564,19 +564,19 @@
- 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);
subtype ACS_Index is Character range
@@ -657,36 +657,36 @@
-
+
function Standard_Window return Window;
pragma Import (C, Standard_Window, "stdscr_as_function");
pragma Inline (Standard_Window);
-
+
function Current_Window return Window;
pragma Import (C, Current_Window, "curscr_as_function");
pragma Inline (Current_Window);
-
- procedure Init_Screen;
+
+ procedure Init_Screen;
-
+
procedure Init_Windows renames Init_Screen;
pragma Inline (Init_Screen);
-
- procedure End_Windows;
+
+ procedure End_Windows;
procedure End_Screen renames End_Windows;
pragma Inline (End_Windows);
-
- function Is_End_Window return Boolean;
+
+ function Is_End_Window return Boolean;
pragma Inline (Is_End_Window);
@@ -694,10 +694,10 @@
-
- procedure Move_Cursor (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position);
+
+ procedure Move_Cursor (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position);
pragma Inline (Move_Cursor);
@@ -706,44 +706,44 @@
-
- procedure Add (Win : Window := Standard_Window;
- Ch : Attributed_Character);
+
+ procedure Add (Win : Window := Standard_Window;
+ Ch : Attributed_Character);
- procedure Add (Win : Window := Standard_Window;
- Ch : Character);
+ procedure Add (Win : Window := Standard_Window;
+ Ch : Character);
-
- procedure Add
- (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position;
- Ch : Attributed_Character);
+
+ procedure Add
+ (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position;
+ Ch : Attributed_Character);
- procedure Add
- (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position;
- Ch : Character);
+ procedure Add
+ (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position;
+ Ch : Character);
-
- procedure Add_With_Immediate_Echo
- (Win : Window := Standard_Window;
- Ch : Attributed_Character);
+
+ procedure Add_With_Immediate_Echo
+ (Win : Window := Standard_Window;
+ Ch : Attributed_Character);
- procedure Add_With_Immediate_Echo
- (Win : Window := Standard_Window;
- Ch : Character);
+ procedure Add_With_Immediate_Echo
+ (Win : Window := Standard_Window;
+ Ch : Character);
pragma Inline (Add_With_Immediate_Echo);
@@ -752,12 +752,12 @@
-
- function Create
- (Number_Of_Lines : Line_Count;
- Number_Of_Columns : Column_Count;
- First_Line_Position : Line_Position;
- First_Column_Position : Column_Position) return Window;
+
+ function Create
+ (Number_Of_Lines : Line_Count;
+ Number_Of_Columns : Column_Count;
+ First_Line_Position : Line_Position;
+ First_Column_Position : Column_Position) return Window;
@@ -771,64 +771,64 @@
renames Create;
-
- procedure Delete (Win : in out Window);
+
+ procedure Delete (Win : in out Window);
pragma Inline (Delete);
-
- function Sub_Window
- (Win : Window := Standard_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_Window
+ (Win : Window := Standard_Window;
+ Number_Of_Lines : Line_Count;
+ Number_Of_Columns : Column_Count;
+ First_Line_Position : Line_Position;
+ First_Column_Position : Column_Position) return Window;
pragma Inline (Sub_Window);
-
- function Derived_Window
- (Win : Window := Standard_Window;
- Number_Of_Lines : Line_Count;
- Number_Of_Columns : Column_Count;
- First_Line_Position : Line_Position;
- First_Column_Position : Column_Position) return Window;
+
+ function Derived_Window
+ (Win : Window := Standard_Window;
+ Number_Of_Lines : Line_Count;
+ Number_Of_Columns : Column_Count;
+ First_Line_Position : Line_Position;
+ First_Column_Position : Column_Position) return Window;
pragma Inline (Derived_Window);
-
- function Duplicate (Win : Window) return Window;
+
+ function Duplicate (Win : Window) return Window;
pragma Inline (Duplicate);
-
- procedure Move_Window (Win : Window;
- Line : Line_Position;
- Column : Column_Position);
+
+ procedure Move_Window (Win : Window;
+ Line : Line_Position;
+ Column : Column_Position);
pragma Inline (Move_Window);
-
- procedure Move_Derived_Window (Win : Window;
- Line : Line_Position;
- Column : Column_Position);
+
+ procedure Move_Derived_Window (Win : Window;
+ Line : Line_Position;
+ Column : Column_Position);
pragma Inline (Move_Derived_Window);
-
+
procedure Synchronize_Upwards (Win : Window);
pragma Import (C, Synchronize_Upwards, "wsyncup");
-
+
procedure Synchronize_Downwards (Win : Window);
pragma Import (C, Synchronize_Downwards, "wsyncdown");
-
- procedure Set_Synch_Mode (Win : Window := Standard_Window;
- Mode : Boolean := False);
+
+ procedure Set_Synch_Mode (Win : Window := Standard_Window;
+ Mode : Boolean := False);
pragma Inline (Set_Synch_Mode);
@@ -836,21 +836,21 @@
-
- procedure Add (Win : Window := Standard_Window;
- Str : String;
- Len : Integer := -1);
+
+ procedure Add (Win : Window := Standard_Window;
+ Str : String;
+ Len : Integer := -1);
-
- procedure Add (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position;
- Str : String;
- Len : Integer := -1);
+
+ procedure Add (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position;
+ Str : String;
+ Len : Integer := -1);
@@ -860,21 +860,21 @@
-
- procedure Add (Win : Window := Standard_Window;
- Str : Attributed_String;
- Len : Integer := -1);
+
+ procedure Add (Win : Window := Standard_Window;
+ Str : Attributed_String;
+ Len : Integer := -1);
-
- procedure Add (Win : Window := Standard_Window;
- Line : Line_Position;
- Column : Column_Position;
- Str : Attributed_String;
- Len : Integer := -1);
+
+ procedure Add (Win : Window := Standard_Window;
+ Line : Line_Position;
+ Column : Column_Position;
+ Str : Attributed_String;
+ Len : Integer := -1);
@@ -887,44 +887,44 @@
-
- procedure Border
- (Win : Window := Standard_Window;
- Left_Side_Symbol : Attributed_Character := Default_Character;
- Right_Side_Symbol : Attributed_Character := Default_Character;
- Top_Side_Symbol : Attributed_Character := Default_Character;
- Bottom_Side_Symbol : Attributed_Character := Default_Character;
- Upper_Left_Corner_Symbol : Attributed_Character := Default_Character;
- Upper_Right_Corner_Symbol : Attributed_Character := Default_Character;
- Lower_Left_Corner_Symbol : Attributed_Character := Default_Character;
- Lower_Right_Corner_Symbol : Attributed_Character := Default_Character
+
+ procedure Border
+ (Win : Window := Standard_Window;
+ Left_Side_Symbol : Attributed_Character := Default_Character;
+ Right_Side_Symbol : Attributed_Character := Default_Character;
+ Top_Side_Symbol : Attributed_Character := Default_Character;
+ Bottom_Side_Symbol : Attributed_Character := Default_Character;
+ Upper_Left_Corner_Symbol : Attributed_Character := Default_Character;
+ Upper_Right_Corner_Symbol : Attributed_Character := Default_Character;
+ Lower_Left_Corner_Symbol : Attributed_Character := Default_Character;
+ Lower_Right_Corner_Symbol : Attributed_Character := Default_Character
);
pragma Inline (Border);
-
- procedure Box
- (Win : Window := Standard_Window;
- Vertical_Symbol : Attributed_Character := Default_Character;
- Horizontal_Symbol : Attributed_Character := Default_Character);
+
+ procedure Box
+ (Win : Window := Standard_Window;
+ Vertical_Symbol : Attributed_Character := Default_Character;
+ Horizontal_Symbol : Attributed_Character := Default_Character);
pragma Inline (Box);
-
- procedure Horizontal_Line
- (Win : Window := Standard_Window;
- Line_Size : Natural;
- Line_Symbol : Attributed_Character := Default_Character);
+
+ procedure Horizontal_Line
+ (Win : Window := Standard_Window;
+ Line_Size : Natural;
+ Line_Symbol : Attributed_Character := Default_Character);
pragma Inline (Horizontal_Line);
-
- procedure Vertical_Line
- (Win : Window := Standard_Window;
- Line_Size : Natural;
- Line_Symbol : Attributed_Character := Default_Character);
+
+ procedure Vertical_Line
+ (Win : Window := Standard_Window;
+ Line_Size : Natural;
+ Line_Symbol : Attributed_Character := Default_Character);
pragma Inline (Vertical_Line);
@@ -934,8 +934,8 @@
-
- function Get_Keystroke (Win : Window := Standard_Window)
+
+ function Get_Keystroke (Win : Window := Standard_Window)
return Real_Key_Code;
@@ -945,32 +945,32 @@
pragma Inline (Get_Keystroke);
-
- procedure Undo_Keystroke (Key : Real_Key_Code);
+
+ procedure Undo_Keystroke (Key : Real_Key_Code);
pragma Inline (Undo_Keystroke);
-
- function Has_Key (Key : Special_Key_Code) return Boolean;
+
+ function Has_Key (Key : Special_Key_Code) return Boolean;
pragma Inline (Has_Key);
- function Is_Function_Key (Key : Special_Key_Code) return Boolean;
+ function Is_Function_Key (Key : Special_Key_Code) return Boolean;
pragma Inline (Is_Function_Key);
subtype Function_Key_Number is Integer range 0 .. 63;
- function Function_Key (Key : Real_Key_Code) return Function_Key_Number;
+ function Function_Key (Key : Real_Key_Code) return Function_Key_Number;
pragma Inline (Function_Key);
- function Function_Key_Code (Key : Function_Key_Number) return Real_Key_Code;
+ function Function_Key_Code (Key : Function_Key_Number) return Real_Key_Code;
pragma Inline (Function_Key_Code);
@@ -983,68 +983,68 @@
-
- procedure Standout (Win : Window := Standard_Window;
- On : Boolean := True);
+
+ procedure Standout (Win : Window := Standard_Window;
+ On : Boolean := True);
-
- procedure Switch_Character_Attribute
- (Win : Window := Standard_Window;
- Attr : Character_Attribute_Set := Normal_Video;
- On : Boolean := True);
+
+ procedure Switch_Character_Attribute
+ (Win : Window := Standard_Window;
+ Attr : Character_Attribute_Set := Normal_Video;
+ On : Boolean := True);
-
- procedure Set_Character_Attributes
- (Win : Window := Standard_Window;
- Attr : Character_Attribute_Set := Normal_Video;
- Color : Color_Pair := Color_Pair'First);
+
+ procedure Set_Character_Attributes
+ (Win : Window := Standard_Window;
+ Attr : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
pragma Inline (Set_Character_Attributes);
-
- function Get_Character_Attribute
- (Win : Window := Standard_Window) return Character_Attribute_Set;
+
+ function Get_Character_Attribute
+ (Win : Window := Standard_Window) return Character_Attribute_Set;
-
- function Get_Character_Attribute
- (Win : Window := Standard_Window) return Color_Pair;
+
+ function Get_Character_Attribute
+ (Win : Window := Standard_Window) return Color_Pair;
pragma Inline (Get_Character_Attribute);
-
- procedure Set_Color (Win : Window := Standard_Window;
- Pair : Color_Pair);
+
+ procedure Set_Color (Win : Window := Standard_Window;
+ Pair : Color_Pair);
pragma Inline (Set_Color);
-
- procedure Change_Attributes
- (Win : Window := Standard_Window;
- Count : Integer := -1;
- Attr : Character_Attribute_Set := Normal_Video;
- Color : Color_Pair := Color_Pair'First);
+
+ procedure Change_Attributes
+ (Win : Window := Standard_Window;
+ Count : Integer := -1;
+ Attr : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
-
- procedure Change_Attributes
- (Win : Window := Standard_Window;
- Line : Line_Position := Line_Position'First;
- Column : Column_Position := Column_Position'First;
- Count : Integer := -1;
- Attr : Character_Attribute_Set := Normal_Video;
- Color : Color_Pair := Color_Pair'First);
+
+ procedure Change_Attributes
+ (Win : Window := Standard_Window;
+ Line : Line_Position := Line_Position'First;
+ Column : Column_Position := Column_Position'First;
+ Count : Integer := -1;
+ Attr : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
pragma Inline (Change_Attributes);
@@ -1053,13 +1053,13 @@
-
- procedure Beep;
+
+ procedure Beep;
pragma Inline (Beep);
-
- procedure Flash_Screen;
+
+ procedure Flash_Screen;
pragma Inline (Flash_Screen);
@@ -1069,76 +1069,76 @@
-
- procedure Set_Cbreak_Mode (SwitchOn : Boolean := True);
+
+ procedure Set_Cbreak_Mode (SwitchOn : Boolean := True);
pragma Inline (Set_Cbreak_Mode);
-
- procedure Set_Raw_Mode (SwitchOn : Boolean := True);
+
+ procedure Set_Raw_Mode (SwitchOn : Boolean := True);
pragma Inline (Set_Raw_Mode);
-
- procedure Set_Echo_Mode (SwitchOn : Boolean := True);
+
+ procedure Set_Echo_Mode (SwitchOn : Boolean := True);
pragma Inline (Set_Echo_Mode);
-
- procedure Set_Meta_Mode (Win : Window := Standard_Window;
- SwitchOn : Boolean := True);
+
+ procedure Set_Meta_Mode (Win : Window := Standard_Window;
+ SwitchOn : Boolean := True);
pragma Inline (Set_Meta_Mode);
-
- procedure Set_KeyPad_Mode (Win : Window := Standard_Window;
- SwitchOn : Boolean := True);
+
+ procedure Set_KeyPad_Mode (Win : Window := Standard_Window;
+ SwitchOn : Boolean := True);
pragma Inline (Set_KeyPad_Mode);
- function Get_KeyPad_Mode (Win : Window := Standard_Window)
+ function Get_KeyPad_Mode (Win : Window := Standard_Window)
return Boolean;
type Half_Delay_Amount is range 1 .. 255;
-
- procedure Half_Delay (Amount : Half_Delay_Amount);
+
+ procedure Half_Delay (Amount : Half_Delay_Amount);
pragma Inline (Half_Delay);
-
- procedure Set_Flush_On_Interrupt_Mode
- (Win : Window := Standard_Window;
- Mode : Boolean := True);
+
+ procedure Set_Flush_On_Interrupt_Mode
+ (Win : Window := Standard_Window;
+ Mode : Boolean := True);
pragma Inline (Set_Flush_On_Interrupt_Mode);
-
- procedure Set_Queue_Interrupt_Mode
- (Win : Window := Standard_Window;
- Flush : Boolean := True);
+
+ procedure Set_Queue_Interrupt_Mode
+ (Win : Window := Standard_Window;
+ Flush : Boolean := True);
pragma Inline (Set_Queue_Interrupt_Mode);
-
- procedure Set_NoDelay_Mode
- (Win : Window := Standard_Window;
- Mode : Boolean := False);
+
+ procedure Set_NoDelay_Mode
+ (Win : Window := Standard_Window;
+ Mode : Boolean := False);
pragma Inline (Set_NoDelay_Mode);
type Timeout_Mode is (Blocking, Non_Blocking, Delayed);
-
- procedure Set_Timeout_Mode (Win : Window := Standard_Window;
- Mode : Timeout_Mode;
- Amount : Natural);
+
+ procedure Set_Timeout_Mode (Win : Window := Standard_Window;
+ Mode : Timeout_Mode;
+ Amount : Natural);
@@ -1147,10 +1147,10 @@
-
- procedure Set_Escape_Timer_Mode
- (Win : Window := Standard_Window;
- Timer_Off : Boolean := False);
+
+ procedure Set_Escape_Timer_Mode
+ (Win : Window := Standard_Window;
+ Timer_Off : Boolean := False);
pragma Inline (Set_Escape_Timer_Mode);
@@ -1158,63 +1158,63 @@
-
- procedure Set_NL_Mode (SwitchOn : Boolean := True);
+
+ procedure Set_NL_Mode (SwitchOn : Boolean := True);
pragma Inline (Set_NL_Mode);
-
- procedure Clear_On_Next_Update
- (Win : Window := Standard_Window;
- Do_Clear : Boolean := True);
+
+ procedure Clear_On_Next_Update
+ (Win : Window := Standard_Window;
+ Do_Clear : Boolean := True);
pragma Inline (Clear_On_Next_Update);
-
- procedure Use_Insert_Delete_Line
- (Win : Window := Standard_Window;
- Do_Idl : Boolean := True);
+
+ procedure Use_Insert_Delete_Line
+ (Win : Window := Standard_Window;
+ Do_Idl : Boolean := True);
pragma Inline (Use_Insert_Delete_Line);
-
- procedure Use_Insert_Delete_Character
- (Win : Window := Standard_Window;
- Do_Idc : Boolean := True);
+
+ procedure Use_Insert_Delete_Character
+ (Win : Window := Standard_Window;
+ Do_Idc : Boolean := True);
pragma Inline (Use_Insert_Delete_Character);
-
- procedure Leave_Cursor_After_Update
- (Win : Window := Standard_Window;
- Do_Leave : Boolean := True);
+
+ procedure Leave_Cursor_After_Update
+ (Win : Window := Standard_Window;
+ Do_Leave : Boolean := True);
pragma Inline (Leave_Cursor_After_Update);
-
- procedure Immediate_Update_Mode
- (Win : Window := Standard_Window;
- Mode : Boolean := False);
+
+ procedure Immediate_Update_Mode
+ (Win : Window := Standard_Window;
+ Mode : Boolean := False);
pragma Inline (Immediate_Update_Mode);
-
- procedure Allow_Scrolling
- (Win : Window := Standard_Window;
- Mode : Boolean := False);
+
+ procedure Allow_Scrolling
+ (Win : Window := Standard_Window;
+ Mode : Boolean := False);
pragma Inline (Allow_Scrolling);
- function Scrolling_Allowed (Win : Window := Standard_Window) return Boolean;
+ function Scrolling_Allowed (Win : Window := Standard_Window) return Boolean;
pragma Inline (Scrolling_Allowed);
-
- procedure Set_Scroll_Region
- (Win : Window := Standard_Window;
- Top_Line : Line_Position;
- Bottom_Line : Line_Position);
+
+ procedure Set_Scroll_Region
+ (Win : Window := Standard_Window;
+ Top_Line : Line_Position;
+ Bottom_Line : Line_Position);
pragma Inline (Set_Scroll_Region);
@@ -1223,33 +1223,33 @@
-
- procedure Update_Screen;
+
+ procedure Update_Screen;
pragma Inline (Update_Screen);
-
- procedure Refresh (Win : Window := Standard_Window);
+
+ procedure Refresh (Win : Window := Standard_Window);
-
- procedure Refresh_Without_Update
- (Win : Window := Standard_Window);
+
+ procedure Refresh_Without_Update
+ (Win : Window := Standard_Window);
-
- procedure Redraw (Win : Window := Standard_Window);
+
+ procedure Redraw (Win : Window := Standard_Window);
-
- procedure Redraw (Win : Window := Standard_Window;
- Begin_Line : Line_Position;
- Line_Count : Positive);
+
+ procedure Redraw (Win : Window := Standard_Window;
+ Begin_Line : Line_Position;
+ Line_Count : Positive);
pragma Inline (Redraw);
@@ -1257,29 +1257,29 @@
-
- procedure Erase (Win : Window := Standard_Window);
+
+ procedure Erase (Win : Window := Standard_Window);
pragma Inline (Erase);
-
- procedure Clear
- (Win : Window := Standard_Window);
+
+ procedure Clear
+ (Win : Window := Standard_Window);
pragma Inline (Clear);
-
- procedure Clear_To_End_Of_Screen
- (Win : Window := Standard_Window);
+
+ procedure Clear_To_End_Of_Screen
+ (Win : Window := Standard_Window);
pragma Inline (Clear_To_End_Of_Screen);
-
- procedure Clear_To_End_Of_Line
- (Win : Window := Standard_Window);
+
+ procedure Clear_To_End_Of_Line
+ (Win : Window := Standard_Window);
pragma Inline (Clear_To_End_Of_Line);
@@ -1288,28 +1288,28 @@
-
+
- procedure Set_Background
- (Win : Window := Standard_Window;
- Ch : Attributed_Character);
+ procedure Set_Background
+ (Win : Window := Standard_Window;
+ Ch : Attributed_Character);
pragma Inline (Set_Background);
-
- procedure Change_Background
- (Win : Window := Standard_Window;
- Ch : Attributed_Character);
+
+ procedure Change_Background
+ (Win : Window := Standard_Window;
+ Ch : Attributed_Character);
pragma Inline (Change_Background);
-
+
- function Get_Background (Win : Window := Standard_Window)
+ function Get_Background (Win : Window := Standard_Window)
return Attributed_Character;
@@ -1319,37 +1319,37 @@
-
- procedure Untouch (Win : Window := Standard_Window);
+
+ procedure Untouch (Win : Window := Standard_Window);
pragma Inline (Untouch);
-
- procedure Touch (Win : Window := Standard_Window);
+
+ procedure Touch (Win : Window := Standard_Window);
-
- procedure Touch (Win : Window := Standard_Window;
- Start : Line_Position;
- Count : Positive);
+
+ procedure Touch (Win : Window := Standard_Window;
+ Start : Line_Position;
+ Count : Positive);
pragma Inline (Touch);
-
- procedure Change_Lines_Status (Win : Window := Standard_Window;
- Start : Line_Position;
- Count : Positive;
- State : Boolean);
+
+ procedure Change_Lines_Status (Win : Window := Standard_Window;
+ Start : Line_Position;
+ Count : Positive;
+ State : Boolean);
pragma Inline (Change_Lines_Status);
-
- function Is_Touched (Win : Window := Standard_Window;
- Line : Line_Position) return Boolean;
+
+ function Is_Touched (Win : Window := Standard_Window;
+ Line : Line_Position) return Boolean;
-
- function Is_Touched (Win : Window := Standard_Window) return Boolean;
+
+ function Is_Touched (Win : Window := Standard_Window) return Boolean;
pragma Inline (Is_Touched);
@@ -1357,29 +1357,29 @@
-
- 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);
pragma Inline (Copy);
-
- procedure Overwrite (Source_Window : Window;
- Destination_Window : Window);
+
+ procedure Overwrite (Source_Window : Window;
+ Destination_Window : Window);
pragma Inline (Overwrite);
-
- procedure Overlay (Source_Window : Window;
- Destination_Window : Window);
+
+ procedure Overlay (Source_Window : Window;
+ Destination_Window : Window);
pragma Inline (Overlay);
@@ -1387,22 +1387,22 @@
-
- procedure Insert_Delete_Lines
- (Win : Window := Standard_Window;
- Lines : Integer := 1);
+
+ procedure Insert_Delete_Lines
+ (Win : Window := Standard_Window;
+ Lines : Integer := 1);
pragma Inline (Insert_Delete_Lines);
-
- procedure Delete_Line (Win : Window := Standard_Window);
+
+ procedure Delete_Line (Win : Window := Standard_Window);
pragma Inline (Delete_Line);
-
- procedure Insert_Line (Win : Window := Standard_Window);
+
+ procedure Insert_Line (Win : Window := Standard_Window);
pragma Inline (Insert_Line);
@@ -1411,36 +1411,36 @@
-
- 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);
pragma Inline (Get_Size);
-
- 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);
pragma Inline (Get_Window_Position);
-
- 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);
pragma Inline (Get_Cursor_Position);
-
- 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);
@@ -1450,64 +1450,64 @@
-
- function New_Pad (Lines : Line_Count;
- Columns : Column_Count) return Window;
+
+ function New_Pad (Lines : Line_Count;
+ Columns : Column_Count) return Window;
pragma Inline (New_Pad);
-
- 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;
pragma Inline (Sub_Pad);
-
- 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);
pragma Inline (Refresh);
-
- 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);
pragma Inline (Refresh_Without_Update);
-
- 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);
- 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);
-
- procedure Scroll (Win : Window := Standard_Window;
- Amount : Integer := 1);
+
+ procedure Scroll (Win : Window := Standard_Window;
+ Amount : Integer := 1);
@@ -1517,16 +1517,16 @@
-
- procedure Delete_Character (Win : Window := Standard_Window);
+
+ procedure Delete_Character (Win : Window := Standard_Window);
-
- 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);
pragma Inline (Delete_Character);
@@ -1535,17 +1535,17 @@
-
- function Peek (Win : Window := Standard_Window)
+
+ function Peek (Win : Window := Standard_Window)
return Attributed_Character;
-
- 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;
@@ -1554,17 +1554,17 @@
-
- procedure Insert (Win : Window := Standard_Window;
- Ch : Attributed_Character);
+
+ procedure Insert (Win : Window := Standard_Window;
+ Ch : Attributed_Character);
-
- 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);
@@ -1572,21 +1572,21 @@
-
- procedure Insert (Win : Window := Standard_Window;
- Str : String;
- Len : Integer := -1);
+
+ procedure Insert (Win : Window := Standard_Window;
+ Str : String;
+ Len : Integer := -1);
-
- 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);
@@ -1597,21 +1597,21 @@
-
- procedure Peek (Win : Window := Standard_Window;
- Str : out String;
- Len : Integer := -1);
+
+ procedure Peek (Win : Window := Standard_Window;
+ Str : out String;
+ Len : Integer := -1);
-
- 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);
@@ -1621,21 +1621,21 @@
-
- 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);
-
- 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);
@@ -1646,10 +1646,10 @@
-
- procedure Get (Win : Window := Standard_Window;
- Str : out String;
- Len : Integer := -1);
+
+ procedure Get (Win : Window := Standard_Window;
+ Str : out String;
+ Len : Integer := -1);
@@ -1657,12 +1657,12 @@
-
- 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);
@@ -1682,81 +1682,81 @@
type Label_Number is new Positive range 1 .. 12;
type Label_Justification is (Left, Centered, Right);
-
- 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);
pragma Inline (Init_Soft_Label_Keys);
-
- 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);
-
- procedure Refresh_Soft_Label_Keys;
+
+ procedure Refresh_Soft_Label_Keys;
pragma Inline (Refresh_Soft_Label_Keys);
-
- procedure Refresh_Soft_Label_Keys_Without_Update;
+
+ procedure Refresh_Soft_Label_Keys_Without_Update;
pragma Inline (Refresh_Soft_Label_Keys_Without_Update);
-
- procedure Get_Soft_Label_Key (Label : Label_Number;
- Text : out String);
+
+ procedure Get_Soft_Label_Key (Label : Label_Number;
+ Text : out String);
-
- function Get_Soft_Label_Key (Label : Label_Number) return String;
+
+ function Get_Soft_Label_Key (Label : Label_Number) return String;
pragma Inline (Get_Soft_Label_Key);
-
- procedure Clear_Soft_Label_Keys;
+
+ procedure Clear_Soft_Label_Keys;
pragma Inline (Clear_Soft_Label_Keys);
-
- procedure Restore_Soft_Label_Keys;
+
+ procedure Restore_Soft_Label_Keys;
pragma Inline (Restore_Soft_Label_Keys);
-
- procedure Touch_Soft_Label_Keys;
+
+ procedure Touch_Soft_Label_Keys;
pragma Inline (Touch_Soft_Label_Keys);
-
- 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);
pragma Inline (Switch_Soft_Label_Key_Attributes);
-
- 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);
pragma Inline (Set_Soft_Label_Key_Attributes);
-
- function Get_Soft_Label_Key_Attributes return Character_Attribute_Set;
+
+ function Get_Soft_Label_Key_Attributes return Character_Attribute_Set;
-
- function Get_Soft_Label_Key_Attributes return Color_Pair;
+
+ function Get_Soft_Label_Key_Attributes return Color_Pair;
pragma Inline (Get_Soft_Label_Key_Attributes);
-
- procedure Set_Soft_Label_Key_Color (Pair : Color_Pair);
+
+ procedure Set_Soft_Label_Key_Color (Pair : Color_Pair);
pragma Inline (Set_Soft_Label_Key_Color);
@@ -1769,9 +1769,9 @@
-
- procedure Enable_Key (Key : Special_Key_Code;
- Enable : Boolean := True);
+
+ procedure Enable_Key (Key : Special_Key_Code;
+ Enable : Boolean := True);
pragma Inline (Enable_Key);
@@ -1779,9 +1779,9 @@
-
- procedure Define_Key (Definition : String;
- Key : Special_Key_Code);
+
+ procedure Define_Key (Definition : String;
+ Key : Special_Key_Code);
pragma Inline (Define_Key);
@@ -1793,36 +1793,36 @@
-
- procedure Key_Name (Key : Real_Key_Code;
- Name : out String);
+
+ procedure Key_Name (Key : Real_Key_Code;
+ Name : out String);
-
- function Key_Name (Key : Real_Key_Code) return String;
+
+ function Key_Name (Key : Real_Key_Code) return String;
-
- procedure Un_Control (Ch : Attributed_Character;
- Str : out String);
+
+ procedure Un_Control (Ch : Attributed_Character;
+ Str : out String);
-
- function Un_Control (Ch : Attributed_Character) return String;
+
+ function Un_Control (Ch : Attributed_Character) return String;
pragma Inline (Un_Control);
-
- procedure Delay_Output (Msecs : Natural);
+
+ procedure Delay_Output (Msecs : Natural);
pragma Inline (Delay_Output);
-
- procedure Flush_Input;
+
+ procedure Flush_Input;
pragma Inline (Flush_Input);
@@ -1830,52 +1830,52 @@
-
- function Baudrate return Natural;
+
+ function Baudrate return Natural;
pragma Inline (Baudrate);
-
- function Erase_Character return Character;
+
+ function Erase_Character return Character;
pragma Inline (Erase_Character);
-
- function Kill_Character return Character;
+
+ function Kill_Character return Character;
pragma Inline (Kill_Character);
-
- function Has_Insert_Character return Boolean;
+
+ function Has_Insert_Character return Boolean;
pragma Inline (Has_Insert_Character);
-
- function Has_Insert_Line return Boolean;
+
+ function Has_Insert_Line return Boolean;
pragma Inline (Has_Insert_Line);
-
- function Supported_Attributes return Character_Attribute_Set;
+
+ function Supported_Attributes return Character_Attribute_Set;
pragma Inline (Supported_Attributes);
-
- procedure Long_Name (Name : out String);
+
+ procedure Long_Name (Name : out String);
-
- function Long_Name return String;
+
+ function Long_Name return String;
pragma Inline (Long_Name);
-
- procedure Terminal_Name (Name : out String);
+
+ procedure Terminal_Name (Name : out String);
-
- function Terminal_Name return String;
+
+ function Terminal_Name return String;
pragma Inline (Terminal_Name);
@@ -1890,48 +1890,48 @@
-
+
procedure Start_Color;
pragma Import (C, Start_Color, "start_color");
-
- 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);
pragma Inline (Init_Pair);
-
- 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);
pragma Inline (Pair_Content);
-
- function Has_Colors return Boolean;
+
+ function Has_Colors return Boolean;
pragma Inline (Has_Colors);
-
- 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);
pragma Inline (Init_Color);
-
- function Can_Change_Color return Boolean;
+
+ function Can_Change_Color return Boolean;
pragma Inline (Can_Change_Color);
-
- 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);
pragma Inline (Color_Content);
@@ -1942,25 +1942,25 @@
type Curses_Mode is (Curses, Shell);
-
- procedure Save_Curses_Mode (Mode : Curses_Mode);
+
+ procedure Save_Curses_Mode (Mode : Curses_Mode);
pragma Inline (Save_Curses_Mode);
-
- procedure Reset_Curses_Mode (Mode : Curses_Mode);
+
+ procedure Reset_Curses_Mode (Mode : Curses_Mode);
pragma Inline (Reset_Curses_Mode);
-
- procedure Save_Terminal_State;
+
+ procedure Save_Terminal_State;
pragma Inline (Save_Terminal_State);
-
- procedure Reset_Terminal_State;
+
+ procedure Reset_Terminal_State;
pragma Inline (Reset_Terminal_State);
@@ -1972,9 +1972,9 @@
-
- procedure Rip_Off_Lines (Lines : Integer;
- Proc : Stdscr_Init_Proc);
+
+ procedure Rip_Off_Lines (Lines : Integer;
+ Proc : Stdscr_Init_Proc);
@@ -1984,13 +1984,13 @@
type Cursor_Visibility is (Invisible, Normal, Very_Visible);
-
- procedure Set_Cursor_Visibility (Visibility : in out Cursor_Visibility);
+
+ procedure Set_Cursor_Visibility (Visibility : in out Cursor_Visibility);
pragma Inline (Set_Cursor_Visibility);
-
- procedure Nap_Milli_Seconds (Ms : Natural);
+
+ procedure Nap_Milli_Seconds (Ms : Natural);
pragma Inline (Nap_Milli_Seconds);
@@ -1998,11 +1998,11 @@
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);
@@ -2016,14 +2016,14 @@
Default_Color : constant Color_Number := -1;
-
- procedure Use_Default_Colors;
+
+ procedure Use_Default_Colors;
pragma Inline (Use_Default_Colors);
-
- 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);
pragma Inline (Assume_Default_Colors);
@@ -2031,41 +2031,41 @@
-
- function Curses_Version return String;
+
+ function Curses_Version return String;
-
+
- function Use_Extended_Names (Enable : Boolean) return Boolean;
+ function Use_Extended_Names (Enable : Boolean) return Boolean;
-
- procedure Curses_Free_All;
+
+ procedure Curses_Free_All;
-
- procedure Screen_Dump_To_File (Filename : String);
+
+ procedure Screen_Dump_To_File (Filename : String);
-
- procedure Screen_Restore_From_File (Filename : String);
+
+ procedure Screen_Restore_From_File (Filename : String);
-
- procedure Screen_Init_From_File (Filename : String);
+
+ procedure Screen_Init_From_File (Filename : String);
-
- procedure Screen_Set_File (Filename : String);
+
+ procedure Screen_Set_File (Filename : String);
@@ -2096,10 +2096,10 @@
-
- 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);
private