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 @@ -- | Man page form_field_new.3x -- |===================================================================== - -- #1A NAME="AFU_1"#2| + -- | function Create (Height : Line_Count; Width : Column_Count; Top : Line_Position; @@ -318,7 +318,7 @@ -- AKA: new_field() -- An overloaded Create is defined later. Pragma Inline appears there. - -- #1A NAME="AFU_2"#2| + -- | function New_Field (Height : Line_Count; Width : Column_Count; Top : Line_Position; @@ -329,20 +329,20 @@ -- AKA: new_field() pragma Inline (New_Field); - -- #1A NAME="AFU_3"#2| + -- | procedure Delete (Fld : in out Field); -- AKA: free_field() -- Reset Fld to Null_Field -- An overloaded Delete is defined later. Pragma Inline appears there. - -- #1A NAME="AFU_4"#2| + -- | function Duplicate (Fld : Field; Top : Line_Position; Left : Column_Position) return Field; -- AKA: dup_field() pragma Inline (Duplicate); - -- #1A NAME="AFU_5"#2| + -- | function Link (Fld : Field; Top : Line_Position; Left : Column_Position) return Field; @@ -353,13 +353,13 @@ -- | Man page form_field_just.3x -- |===================================================================== - -- #1A NAME="AFU_6"#2| + -- | procedure Set_Justification (Fld : Field; Just : Field_Justification := None); -- AKA: set_field_just() pragma Inline (Set_Justification); - -- #1A NAME="AFU_7"#2| + -- | function Get_Justification (Fld : Field) return Field_Justification; -- AKA: field_just() pragma Inline (Get_Justification); @@ -368,7 +368,7 @@ -- | Man page form_field_buffer.3x -- |===================================================================== - -- #1A NAME="AFU_8"#2| + -- | procedure Set_Buffer (Fld : Field; Buffer : Buffer_Number := Buffer_Number'First; @@ -376,7 +376,7 @@ -- AKA: set_field_buffer() -- Not inlined - -- #1A NAME="AFU_9"#2| + -- | procedure Get_Buffer (Fld : Field; Buffer : Buffer_Number := Buffer_Number'First; @@ -390,18 +390,18 @@ -- Same but as function pragma Inline (Get_Buffer); - -- #1A NAME="AFU_10"#2| + -- | procedure Set_Status (Fld : Field; Status : Boolean := True); -- AKA: set_field_status() pragma Inline (Set_Status); - -- #1A NAME="AFU_11"#2| + -- | function Changed (Fld : Field) return Boolean; -- AKA: field_status() pragma Inline (Changed); - -- #1A NAME="AFU_12"#2| + -- | procedure Set_Maximum_Size (Fld : Field; Max : Natural := 0); -- AKA: set_field_max() @@ -411,13 +411,13 @@ -- | Man page form_field_opts.3x -- |===================================================================== - -- #1A NAME="AFU_13"#2| + -- | procedure Set_Options (Fld : Field; Options : Field_Option_Set); -- AKA: set_field_opts() -- An overloaded version is defined later. Pragma Inline appears there - -- #1A NAME="AFU_14"#2| + -- | procedure Switch_Options (Fld : Field; Options : Field_Option_Set; On : Boolean := True); @@ -425,12 +425,12 @@ -- AKA: field_opts_off() -- An overloaded version is defined later. Pragma Inline appears there - -- #1A NAME="AFU_15"#2| + -- | procedure Get_Options (Fld : Field; Options : out Field_Option_Set); -- AKA: field_opts() - -- #1A NAME="AFU_16"#2| + -- | function Get_Options (Fld : Field := Null_Field) return Field_Option_Set; -- AKA: field_opts() @@ -440,7 +440,7 @@ -- | Man page form_field_attributes.3x -- |===================================================================== - -- #1A NAME="AFU_17"#2| + -- | procedure Set_Foreground (Fld : Field; Fore : Character_Attribute_Set := Normal_Video; @@ -448,19 +448,19 @@ -- AKA: set_field_fore() pragma Inline (Set_Foreground); - -- #1A NAME="AFU_18"#2| + -- | procedure Foreground (Fld : Field; Fore : out Character_Attribute_Set); -- AKA: field_fore() - -- #1A NAME="AFU_19"#2| + -- | procedure Foreground (Fld : Field; Fore : out Character_Attribute_Set; Color : out Color_Pair); -- AKA: field_fore() pragma Inline (Foreground); - -- #1A NAME="AFU_20"#2| + -- | procedure Set_Background (Fld : Field; Back : Character_Attribute_Set := Normal_Video; @@ -468,25 +468,25 @@ -- AKA: set_field_back() pragma Inline (Set_Background); - -- #1A NAME="AFU_21"#2| + -- | procedure Background (Fld : Field; Back : out Character_Attribute_Set); -- AKA: field_back() - -- #1A NAME="AFU_22"#2| + -- | procedure Background (Fld : Field; Back : out Character_Attribute_Set; Color : out Color_Pair); -- AKA: field_back() pragma Inline (Background); - -- #1A NAME="AFU_23"#2| + -- | procedure Set_Pad_Character (Fld : Field; Pad : Character := Space); -- AKA: set_field_pad() pragma Inline (Set_Pad_Character); - -- #1A NAME="AFU_24"#2| + -- | procedure Pad_Character (Fld : Field; Pad : out Character); -- AKA: field_pad() @@ -496,7 +496,7 @@ -- | Man page form_field_info.3x -- |===================================================================== - -- #1A NAME="AFU_25"#2| + -- | procedure Info (Fld : Field; Lines : out Line_Count; Columns : out Column_Count; @@ -507,7 +507,7 @@ -- AKA: field_info() pragma Inline (Info); - -- #1A NAME="AFU_26"#2| + -- | procedure Dynamic_Info (Fld : Field; Lines : out Line_Count; Columns : out Column_Count; @@ -519,29 +519,29 @@ -- | Man page form_win.3x -- |===================================================================== - -- #1A NAME="AFU_27"#2| + -- | procedure Set_Window (Frm : Form; Win : Window); -- AKA: set_form_win() pragma Inline (Set_Window); - -- #1A NAME="AFU_28"#2| + -- | function Get_Window (Frm : Form) return Window; -- AKA: form_win() pragma Inline (Get_Window); - -- #1A NAME="AFU_29"#2| + -- | procedure Set_Sub_Window (Frm : Form; Win : Window); -- AKA: set_form_sub() pragma Inline (Set_Sub_Window); - -- #1A NAME="AFU_30"#2| + -- | function Get_Sub_Window (Frm : Form) return Window; -- AKA: form_sub() pragma Inline (Get_Sub_Window); - -- #1A NAME="AFU_31"#2| + -- | 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); - -- #1A NAME="AFU_32"#2| + -- | procedure Set_Field_Init_Hook (Frm : Form; Proc : Form_Hook_Function); -- AKA: set_field_init() pragma Inline (Set_Field_Init_Hook); - -- #1A NAME="AFU_33"#2| + -- | procedure Set_Field_Term_Hook (Frm : Form; Proc : Form_Hook_Function); -- AKA: set_field_term() pragma Inline (Set_Field_Term_Hook); - -- #1A NAME="AFU_34"#2| + -- | procedure Set_Form_Init_Hook (Frm : Form; Proc : Form_Hook_Function); -- AKA: set_form_init() pragma Inline (Set_Form_Init_Hook); - -- #1A NAME="AFU_35"#2| + -- | procedure Set_Form_Term_Hook (Frm : Form; Proc : Form_Hook_Function); -- AKA: set_form_term() pragma Inline (Set_Form_Term_Hook); - -- #1A NAME="AFU_36"#2| + -- | function Get_Field_Init_Hook (Frm : Form) return Form_Hook_Function; -- AKA: field_init() pragma Import (C, Get_Field_Init_Hook, "field_init"); - -- #1A NAME="AFU_37"#2| + -- | function Get_Field_Term_Hook (Frm : Form) return Form_Hook_Function; -- AKA: field_term() pragma Import (C, Get_Field_Term_Hook, "field_term"); - -- #1A NAME="AFU_38"#2| + -- | function Get_Form_Init_Hook (Frm : Form) return Form_Hook_Function; -- AKA: form_init() pragma Import (C, Get_Form_Init_Hook, "form_init"); - -- #1A NAME="AFU_39"#2| + -- | function Get_Form_Term_Hook (Frm : Form) return Form_Hook_Function; -- AKA: form_term() pragma Import (C, Get_Form_Term_Hook, "form_term"); @@ -603,30 +603,30 @@ -- | Man page form_field.3x -- |===================================================================== - -- #1A NAME="AFU_40"#2| + -- | procedure Redefine (Frm : Form; Flds : Field_Array_Access); -- AKA: set_form_fields() pragma Inline (Redefine); - -- #1A NAME="AFU_41"#2| + -- | procedure Set_Fields (Frm : Form; Flds : Field_Array_Access) renames Redefine; -- AKA: set_form_fields() -- pragma Inline (Set_Fields); - -- #1A NAME="AFU_42"#2| + -- | function Fields (Frm : Form; Index : Positive) return Field; -- AKA: form_fields() pragma Inline (Fields); - -- #1A NAME="AFU_43"#2| + -- | function Field_Count (Frm : Form) return Natural; -- AKA: field_count() pragma Inline (Field_Count); - -- #1A NAME="AFU_44"#2| + -- | procedure Move (Fld : Field; Line : Line_Position; Column : Column_Position); @@ -637,18 +637,18 @@ -- | Man page form_new.3x -- |===================================================================== - -- #1A NAME="AFU_45"#2| + -- | function Create (Fields : Field_Array_Access) return Form; -- AKA: new_form() pragma Inline (Create); - -- #1A NAME="AFU_46"#2| + -- | function New_Form (Fields : Field_Array_Access) return Form renames Create; -- AKA: new_form() -- pragma Inline (New_Form); - -- #1A NAME="AFU_47"#2| + -- | procedure Delete (Frm : in out Form); -- AKA: free_form() -- Reset Frm to Null_Form @@ -658,13 +658,13 @@ -- | Man page form_opts.3x -- |===================================================================== - -- #1A NAME="AFU_48"#2| + -- | procedure Set_Options (Frm : Form; Options : Form_Option_Set); -- AKA: set_form_opts() pragma Inline (Set_Options); - -- #1A NAME="AFU_49"#2| + -- | procedure Switch_Options (Frm : Form; Options : Form_Option_Set; On : Boolean := True); @@ -672,12 +672,12 @@ -- AKA: form_opts_off() pragma Inline (Switch_Options); - -- #1A NAME="AFU_50"#2| + -- | procedure Get_Options (Frm : Form; Options : out Form_Option_Set); -- AKA: form_opts() - -- #1A NAME="AFU_51"#2| + -- | function Get_Options (Frm : Form := Null_Form) return Form_Option_Set; -- AKA: form_opts() pragma Inline (Get_Options); @@ -686,7 +686,7 @@ -- | Man page form_post.3x -- |===================================================================== - -- #1A NAME="AFU_52"#2| + -- | procedure Post (Frm : Form; Post : Boolean := True); -- AKA: post_form() @@ -697,7 +697,7 @@ -- | Man page form_cursor.3x -- |===================================================================== - -- #1A NAME="AFU_53"#2| + -- | procedure Position_Cursor (Frm : Form); -- AKA: pos_form_cursor() pragma Inline (Position_Cursor); @@ -706,12 +706,12 @@ -- | Man page form_data.3x -- |===================================================================== - -- #1A NAME="AFU_54"#2| + -- | function Data_Ahead (Frm : Form) return Boolean; -- AKA: data_ahead() pragma Inline (Data_Ahead); - -- #1A NAME="AFU_55"#2| + -- | function Data_Behind (Frm : Form) return Boolean; -- AKA: data_behind() pragma Inline (Data_Behind); @@ -725,7 +725,7 @@ Unknown_Request, Invalid_Field); - -- #1A NAME="AFU_56"#2| + -- | function Driver (Frm : Form; Key : Key_Code) return Driver_Result; -- AKA: form_driver() @@ -737,29 +737,29 @@ type Page_Number is new Natural; - -- #1A NAME="AFU_57"#2| + -- | procedure Set_Current (Frm : Form; Fld : Field); -- AKA: set_current_field() pragma Inline (Set_Current); - -- #1A NAME="AFU_58"#2| + -- | function Current (Frm : Form) return Field; -- AKA: current_field() pragma Inline (Current); - -- #1A NAME="AFU_59"#2| + -- | procedure Set_Page (Frm : Form; Page : Page_Number := Page_Number'First); -- AKA: set_form_page() pragma Inline (Set_Page); - -- #1A NAME="AFU_60"#2| + -- | function Page (Frm : Form) return Page_Number; -- AKA: form_page() pragma Inline (Page); - -- #1A NAME="AFU_61"#2| + -- | function Get_Index (Fld : Field) return Positive; -- AKA: field_index() -- Please note that in this binding we start the numbering of fields @@ -771,13 +771,13 @@ -- | Man page form_new_page.3x -- |===================================================================== - -- #1A NAME="AFU_62"#2| + -- | procedure Set_New_Page (Fld : Field; New_Page : Boolean := True); -- AKA: set_new_page() pragma Inline (Set_New_Page); - -- #1A NAME="AFU_63"#2| + -- | function Is_New_Page (Fld : Field) return Boolean; -- AKA: new_page() pragma Inline (Is_New_Page);