X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms__ads.htm;h=2053855972eeec965bc50638597340fcb1f41d4b;hb=b025434573f466efe27862656a6a9d41dd2bd609;hp=e140dee92d34671171bcff94ec538fc7dc832ba6;hpb=bca50d0d8592defee6c584fdedd25f4b1a31345b;p=ncurses.git
diff --git a/doc/html/ada/terminal_interface-curses-forms__ads.htm b/doc/html/ada/terminal_interface-curses-forms__ads.htm
index e140dee9..20538559 100644
--- a/doc/html/ada/terminal_interface-curses-forms__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-forms__ads.htm
@@ -307,7 +307,7 @@
-
+
function Create (Height : Line_Count;
Width : Column_Count;
Top : Line_Position;
@@ -318,7 +318,7 @@
-
+
function New_Field (Height : Line_Count;
Width : Column_Count;
Top : Line_Position;
@@ -329,20 +329,20 @@
pragma Inline (New_Field);
-
+
procedure Delete (Fld : in out Field);
-
+
function Duplicate (Fld : Field;
Top : Line_Position;
Left : Column_Position) return Field;
pragma Inline (Duplicate);
-
+
function Link (Fld : Field;
Top : Line_Position;
Left : Column_Position) return Field;
@@ -353,13 +353,13 @@
-
+
procedure Set_Justification (Fld : Field;
Just : Field_Justification := None);
pragma Inline (Set_Justification);
-
+
function Get_Justification (Fld : Field) return Field_Justification;
pragma Inline (Get_Justification);
@@ -368,7 +368,7 @@
-
+
procedure Set_Buffer
(Fld : Field;
Buffer : Buffer_Number := Buffer_Number'First;
@@ -376,7 +376,7 @@
-
+
procedure Get_Buffer
(Fld : Field;
Buffer : Buffer_Number := Buffer_Number'First;
@@ -390,18 +390,18 @@
pragma Inline (Get_Buffer);
-
+
procedure Set_Status (Fld : Field;
Status : Boolean := True);
pragma Inline (Set_Status);
-
+
function Changed (Fld : Field) return Boolean;
pragma Inline (Changed);
-
+
procedure Set_Maximum_Size (Fld : Field;
Max : Natural := 0);
@@ -411,13 +411,13 @@
-
+
procedure Set_Options (Fld : Field;
Options : Field_Option_Set);
-
+
procedure Switch_Options (Fld : Field;
Options : Field_Option_Set;
On : Boolean := True);
@@ -425,12 +425,12 @@
-
+
procedure Get_Options (Fld : Field;
Options : out Field_Option_Set);
-
+
function Get_Options (Fld : Field := Null_Field)
return Field_Option_Set;
@@ -440,7 +440,7 @@
-
+
procedure Set_Foreground
(Fld : Field;
Fore : Character_Attribute_Set := Normal_Video;
@@ -448,19 +448,19 @@
pragma Inline (Set_Foreground);
-
+
procedure Foreground (Fld : Field;
Fore : out Character_Attribute_Set);
-
+
procedure Foreground (Fld : Field;
Fore : out Character_Attribute_Set;
Color : out Color_Pair);
pragma Inline (Foreground);
-
+
procedure Set_Background
(Fld : Field;
Back : Character_Attribute_Set := Normal_Video;
@@ -468,25 +468,25 @@
pragma Inline (Set_Background);
-
+
procedure Background (Fld : Field;
Back : out Character_Attribute_Set);
-
+
procedure Background (Fld : Field;
Back : out Character_Attribute_Set;
Color : out Color_Pair);
pragma Inline (Background);
-
+
procedure Set_Pad_Character (Fld : Field;
Pad : Character := Space);
pragma Inline (Set_Pad_Character);
-
+
procedure Pad_Character (Fld : Field;
Pad : out Character);
@@ -496,7 +496,7 @@
-
+
procedure Info (Fld : Field;
Lines : out Line_Count;
Columns : out Column_Count;
@@ -507,7 +507,7 @@
pragma Inline (Info);
-
+
procedure Dynamic_Info (Fld : Field;
Lines : out Line_Count;
Columns : out Column_Count;
@@ -519,29 +519,29 @@
-
+
procedure Set_Window (Frm : Form;
Win : Window);
pragma Inline (Set_Window);
-
+
function Get_Window (Frm : Form) return Window;
pragma Inline (Get_Window);
-
+
procedure Set_Sub_Window (Frm : Form;
Win : Window);
pragma Inline (Set_Sub_Window);
-
+
function Get_Sub_Window (Frm : Form) return Window;
pragma Inline (Get_Sub_Window);
-
+
procedure Scale (Frm : Form;
Lines : out Line_Count;
Columns : out Column_Count);
@@ -555,46 +555,46 @@
type Form_Hook_Function is access procedure (Frm : Form);
pragma Convention (C, Form_Hook_Function);
-
+
procedure Set_Field_Init_Hook (Frm : Form;
Proc : Form_Hook_Function);
pragma Inline (Set_Field_Init_Hook);
-
+
procedure Set_Field_Term_Hook (Frm : Form;
Proc : Form_Hook_Function);
pragma Inline (Set_Field_Term_Hook);
-
+
procedure Set_Form_Init_Hook (Frm : Form;
Proc : Form_Hook_Function);
pragma Inline (Set_Form_Init_Hook);
-
+
procedure Set_Form_Term_Hook (Frm : Form;
Proc : Form_Hook_Function);
pragma Inline (Set_Form_Term_Hook);
-
+
function Get_Field_Init_Hook (Frm : Form) return Form_Hook_Function;
pragma Import (C, Get_Field_Init_Hook, "field_init");
-
+
function Get_Field_Term_Hook (Frm : Form) return Form_Hook_Function;
pragma Import (C, Get_Field_Term_Hook, "field_term");
-
+
function Get_Form_Init_Hook (Frm : Form) return Form_Hook_Function;
pragma Import (C, Get_Form_Init_Hook, "form_init");
-
+
function Get_Form_Term_Hook (Frm : Form) return Form_Hook_Function;
pragma Import (C, Get_Form_Term_Hook, "form_term");
@@ -603,30 +603,30 @@
-
+
procedure Redefine (Frm : Form;
Flds : Field_Array_Access);
pragma Inline (Redefine);
-
+
procedure Set_Fields (Frm : Form;
Flds : Field_Array_Access) renames Redefine;
-
+
function Fields (Frm : Form;
Index : Positive) return Field;
pragma Inline (Fields);
-
+
function Field_Count (Frm : Form) return Natural;
pragma Inline (Field_Count);
-
+
procedure Move (Fld : Field;
Line : Line_Position;
Column : Column_Position);
@@ -637,18 +637,18 @@
-
+
function Create (Fields : Field_Array_Access) return Form;
pragma Inline (Create);
-
+
function New_Form (Fields : Field_Array_Access) return Form
renames Create;
-
+
procedure Delete (Frm : in out Form);
@@ -658,13 +658,13 @@
-
+
procedure Set_Options (Frm : Form;
Options : Form_Option_Set);
pragma Inline (Set_Options);
-
+
procedure Switch_Options (Frm : Form;
Options : Form_Option_Set;
On : Boolean := True);
@@ -672,12 +672,12 @@
pragma Inline (Switch_Options);
-
+
procedure Get_Options (Frm : Form;
Options : out Form_Option_Set);
-
+
function Get_Options (Frm : Form := Null_Form) return Form_Option_Set;
pragma Inline (Get_Options);
@@ -686,7 +686,7 @@
-
+
procedure Post (Frm : Form;
Post : Boolean := True);
@@ -697,7 +697,7 @@
-
+
procedure Position_Cursor (Frm : Form);
pragma Inline (Position_Cursor);
@@ -706,12 +706,12 @@
-
+
function Data_Ahead (Frm : Form) return Boolean;
pragma Inline (Data_Ahead);
-
+
function Data_Behind (Frm : Form) return Boolean;
pragma Inline (Data_Behind);
@@ -725,7 +725,7 @@
Unknown_Request,
Invalid_Field);
-
+
function Driver (Frm : Form;
Key : Key_Code) return Driver_Result;
@@ -737,29 +737,29 @@
type Page_Number is new Natural;
-
+
procedure Set_Current (Frm : Form;
Fld : Field);
pragma Inline (Set_Current);
-
+
function Current (Frm : Form) return Field;
pragma Inline (Current);
-
+
procedure Set_Page (Frm : Form;
Page : Page_Number := Page_Number'First);
pragma Inline (Set_Page);
-
+
function Page (Frm : Form) return Page_Number;
pragma Inline (Page);
-
+
function Get_Index (Fld : Field) return Positive;
@@ -771,13 +771,13 @@
-
+
procedure Set_New_Page (Fld : Field;
New_Page : Boolean := True);
pragma Inline (Set_New_Page);
-
+
function Is_New_Page (Fld : Field) return Boolean;
pragma Inline (Is_New_Page);