X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms__ads.htm;h=ee5ce13bcf371a3b8887595b661af01ce533d47e;hb=d61c3c6a831d18ef0ed6f797ac97d60fffc2f158;hp=2a244ab7cdd1fc30a8bb6cdf8b08c908782a1c9c;hpb=761e4f0825b330e970558e82a4bd638383914429;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 2a244ab7..ee5ce13b 100644
--- a/doc/html/ada/terminal_interface-curses-forms__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-forms__ads.htm
@@ -24,7 +24,8 @@
-
+
+
@@ -52,180 +53,179 @@
-
-
+
+
-
-
-
-
with System;
with Ada.Characters.Latin_1;
-package Terminal_Interface.Curses.Forms is
- pragma Preelaborate (Terminal_Interface.Curses.Forms);
- pragma Linker_Options ("-lform");
- pragma Linker_Options ("-lncurses");
+package Terminal_Interface.Curses.Forms is
+ pragma Preelaborate (Terminal_Interface.Curses.Forms);
+ pragma Linker_Options ("-lform" & Curses_Constants.DFT_ARG_SUFFIX);
Space : Character renames Ada.Characters.Latin_1.Space;
- type Field is private;
- type Form is private;
+ type Field is private;
+ type Form is private;
- Null_Field : constant Field;
- Null_Form : constant Form;
+ Null_Field : constant Field;
+ Null_Form : constant Form;
- type Field_Justification is (None,
- Left,
- Center,
- Right);
+ type Field_Justification is (None,
+ Left,
+ Center,
+ Right);
- pragma Warnings (Off);
- type Field_Option_Set is
+ type Field_Option_Set is
record
- Visible : Boolean;
- Active : Boolean;
- Public : Boolean;
- Edit : Boolean;
- Wrap : Boolean;
- Blank : Boolean;
- Auto_Skip : Boolean;
- Null_Ok : Boolean;
- Pass_Ok : Boolean;
- Static : Boolean;
+ Visible : Boolean;
+ Active : Boolean;
+ Public : Boolean;
+ Edit : Boolean;
+ Wrap : Boolean;
+ Blank : Boolean;
+ Auto_Skip : Boolean;
+ Null_Ok : Boolean;
+ Pass_Ok : Boolean;
+ Static : Boolean;
end record;
- pragma Convention (C, Field_Option_Set);
+ pragma Convention (C_Pass_By_Copy, Field_Option_Set);
- for Field_Option_Set use
+ for Field_Option_Set use
record
- Visible at 0 range 0 .. 0;
- Active at 0 range 1 .. 1;
- Public at 0 range 2 .. 2;
- Edit at 0 range 3 .. 3;
- Wrap at 0 range 4 .. 4;
- Blank at 0 range 5 .. 5;
- Auto_Skip at 0 range 6 .. 6;
- Null_Ok at 0 range 7 .. 7;
- Pass_Ok at 0 range 8 .. 8;
- Static at 0 range 9 .. 9;
+ Visible at 0 range Curses_Constants.O_VISIBLE_First
+ .. Curses_Constants.O_VISIBLE_Last;
+ Active at 0 range Curses_Constants.O_ACTIVE_First
+ .. Curses_Constants.O_ACTIVE_Last;
+ Public at 0 range Curses_Constants.O_PUBLIC_First
+ .. Curses_Constants.O_PUBLIC_Last;
+ Edit at 0 range Curses_Constants.O_EDIT_First
+ .. Curses_Constants.O_EDIT_Last;
+ Wrap at 0 range Curses_Constants.O_WRAP_First
+ .. Curses_Constants.O_WRAP_Last;
+ Blank at 0 range Curses_Constants.O_BLANK_First
+ .. Curses_Constants.O_BLANK_Last;
+ Auto_Skip at 0 range Curses_Constants.O_AUTOSKIP_First
+ .. Curses_Constants.O_AUTOSKIP_Last;
+ Null_Ok at 0 range Curses_Constants.O_NULLOK_First
+ .. Curses_Constants.O_NULLOK_Last;
+ Pass_Ok at 0 range Curses_Constants.O_PASSOK_First
+ .. Curses_Constants.O_PASSOK_Last;
+ Static at 0 range Curses_Constants.O_STATIC_First
+ .. Curses_Constants.O_STATIC_Last;
end record;
- pragma Warnings (Off); for Field_Option_Set'Size use 32;
- pragma Warnings (On);
-
-
-
+ pragma Warnings (Off);
+ for Field_Option_Set'Size use Curses_Constants.Field_Options_Size;
pragma Warnings (On);
- function Default_Field_Options return Field_Option_Set;
+ function Default_Field_Options return Field_Option_Set;
- pragma Inline (Default_Field_Options);
+ pragma Inline (Default_Field_Options);
- pragma Warnings (Off);
- type Form_Option_Set is
+ type Form_Option_Set is
record
- NL_Overload : Boolean;
- BS_Overload : Boolean;
+ NL_Overload : Boolean;
+ BS_Overload : Boolean;
end record;
- pragma Convention (C, Form_Option_Set);
+ pragma Convention (C_Pass_By_Copy, Form_Option_Set);
- for Form_Option_Set use
+ for Form_Option_Set use
record
- NL_Overload at 0 range 0 .. 0;
- BS_Overload at 0 range 1 .. 1;
+ NL_Overload at 0 range Curses_Constants.O_NL_OVERLOAD_First
+ .. Curses_Constants.O_NL_OVERLOAD_Last;
+ BS_Overload at 0 range Curses_Constants.O_BS_OVERLOAD_First
+ .. Curses_Constants.O_BS_OVERLOAD_Last;
end record;
- pragma Warnings (Off); for Form_Option_Set'Size use 32;
- pragma Warnings (On);
-
-
-
+ pragma Warnings (Off);
+ for Form_Option_Set'Size use Curses_Constants.Field_Options_Size;
pragma Warnings (On);
- function Default_Form_Options return Form_Option_Set;
+ function Default_Form_Options return Form_Option_Set;
pragma Inline (Default_Form_Options);
type Buffer_Number is new Natural;
- type Field_Array is array (Positive range <>) of aliased Field;
+ type Field_Array is array (Positive range <>) of aliased Field;
pragma Convention (C, Field_Array);
type Field_Array_Access is access Field_Array;
- procedure Free (FA : in out Field_Array_Access;
- Free_Fields : Boolean := False);
+ procedure Free (FA : in out Field_Array_Access;
+ Free_Fields : Boolean := False);
- subtype Form_Request_Code is Key_Code range (Key_Max + 1) .. (Key_Max + 57);
+ subtype Form_Request_Code is Key_Code range (Key_Max + 1) .. (Key_Max + 57);
- F_Next_Page : constant Form_Request_Code := Key_Max + 1;
- F_Previous_Page : constant Form_Request_Code := Key_Max + 2;
- F_First_Page : constant Form_Request_Code := Key_Max + 3;
- F_Last_Page : constant Form_Request_Code := Key_Max + 4;
-
- F_Next_Field : constant Form_Request_Code := Key_Max + 5;
- F_Previous_Field : constant Form_Request_Code := Key_Max + 6;
- F_First_Field : constant Form_Request_Code := Key_Max + 7;
- F_Last_Field : constant Form_Request_Code := Key_Max + 8;
- F_Sorted_Next_Field : constant Form_Request_Code := Key_Max + 9;
- F_Sorted_Previous_Field : constant Form_Request_Code := Key_Max + 10;
- F_Sorted_First_Field : constant Form_Request_Code := Key_Max + 11;
- F_Sorted_Last_Field : constant Form_Request_Code := Key_Max + 12;
- F_Left_Field : constant Form_Request_Code := Key_Max + 13;
- F_Right_Field : constant Form_Request_Code := Key_Max + 14;
- F_Up_Field : constant Form_Request_Code := Key_Max + 15;
- F_Down_Field : constant Form_Request_Code := Key_Max + 16;
-
- F_Next_Char : constant Form_Request_Code := Key_Max + 17;
- F_Previous_Char : constant Form_Request_Code := Key_Max + 18;
- F_Next_Line : constant Form_Request_Code := Key_Max + 19;
- F_Previous_Line : constant Form_Request_Code := Key_Max + 20;
- F_Next_Word : constant Form_Request_Code := Key_Max + 21;
- F_Previous_Word : constant Form_Request_Code := Key_Max + 22;
- F_Begin_Field : constant Form_Request_Code := Key_Max + 23;
- F_End_Field : constant Form_Request_Code := Key_Max + 24;
- F_Begin_Line : constant Form_Request_Code := Key_Max + 25;
- F_End_Line : constant Form_Request_Code := Key_Max + 26;
- F_Left_Char : constant Form_Request_Code := Key_Max + 27;
- F_Right_Char : constant Form_Request_Code := Key_Max + 28;
- F_Up_Char : constant Form_Request_Code := Key_Max + 29;
- F_Down_Char : constant Form_Request_Code := Key_Max + 30;
-
- F_New_Line : constant Form_Request_Code := Key_Max + 31;
- F_Insert_Char : constant Form_Request_Code := Key_Max + 32;
- F_Insert_Line : constant Form_Request_Code := Key_Max + 33;
- F_Delete_Char : constant Form_Request_Code := Key_Max + 34;
- F_Delete_Previous : constant Form_Request_Code := Key_Max + 35;
- F_Delete_Line : constant Form_Request_Code := Key_Max + 36;
- F_Delete_Word : constant Form_Request_Code := Key_Max + 37;
- F_Clear_EOL : constant Form_Request_Code := Key_Max + 38;
- F_Clear_EOF : constant Form_Request_Code := Key_Max + 39;
- F_Clear_Field : constant Form_Request_Code := Key_Max + 40;
- F_Overlay_Mode : constant Form_Request_Code := Key_Max + 41;
- F_Insert_Mode : constant Form_Request_Code := Key_Max + 42;
+ F_Next_Page : constant Form_Request_Code := Key_Max + 1;
+ F_Previous_Page : constant Form_Request_Code := Key_Max + 2;
+ F_First_Page : constant Form_Request_Code := Key_Max + 3;
+ F_Last_Page : constant Form_Request_Code := Key_Max + 4;
+
+ F_Next_Field : constant Form_Request_Code := Key_Max + 5;
+ F_Previous_Field : constant Form_Request_Code := Key_Max + 6;
+ F_First_Field : constant Form_Request_Code := Key_Max + 7;
+ F_Last_Field : constant Form_Request_Code := Key_Max + 8;
+ F_Sorted_Next_Field : constant Form_Request_Code := Key_Max + 9;
+ F_Sorted_Previous_Field : constant Form_Request_Code := Key_Max + 10;
+ F_Sorted_First_Field : constant Form_Request_Code := Key_Max + 11;
+ F_Sorted_Last_Field : constant Form_Request_Code := Key_Max + 12;
+ F_Left_Field : constant Form_Request_Code := Key_Max + 13;
+ F_Right_Field : constant Form_Request_Code := Key_Max + 14;
+ F_Up_Field : constant Form_Request_Code := Key_Max + 15;
+ F_Down_Field : constant Form_Request_Code := Key_Max + 16;
+
+ F_Next_Char : constant Form_Request_Code := Key_Max + 17;
+ F_Previous_Char : constant Form_Request_Code := Key_Max + 18;
+ F_Next_Line : constant Form_Request_Code := Key_Max + 19;
+ F_Previous_Line : constant Form_Request_Code := Key_Max + 20;
+ F_Next_Word : constant Form_Request_Code := Key_Max + 21;
+ F_Previous_Word : constant Form_Request_Code := Key_Max + 22;
+ F_Begin_Field : constant Form_Request_Code := Key_Max + 23;
+ F_End_Field : constant Form_Request_Code := Key_Max + 24;
+ F_Begin_Line : constant Form_Request_Code := Key_Max + 25;
+ F_End_Line : constant Form_Request_Code := Key_Max + 26;
+ F_Left_Char : constant Form_Request_Code := Key_Max + 27;
+ F_Right_Char : constant Form_Request_Code := Key_Max + 28;
+ F_Up_Char : constant Form_Request_Code := Key_Max + 29;
+ F_Down_Char : constant Form_Request_Code := Key_Max + 30;
+
+ F_New_Line : constant Form_Request_Code := Key_Max + 31;
+ F_Insert_Char : constant Form_Request_Code := Key_Max + 32;
+ F_Insert_Line : constant Form_Request_Code := Key_Max + 33;
+ F_Delete_Char : constant Form_Request_Code := Key_Max + 34;
+ F_Delete_Previous : constant Form_Request_Code := Key_Max + 35;
+ F_Delete_Line : constant Form_Request_Code := Key_Max + 36;
+ F_Delete_Word : constant Form_Request_Code := Key_Max + 37;
+ F_Clear_EOL : constant Form_Request_Code := Key_Max + 38;
+ F_Clear_EOF : constant Form_Request_Code := Key_Max + 39;
+ F_Clear_Field : constant Form_Request_Code := Key_Max + 40;
+ F_Overlay_Mode : constant Form_Request_Code := Key_Max + 41;
+ F_Insert_Mode : constant Form_Request_Code := Key_Max + 42;
- F_ScrollForward_Line : constant Form_Request_Code := Key_Max + 43;
- F_ScrollBackward_Line : constant Form_Request_Code := Key_Max + 44;
- F_ScrollForward_Page : constant Form_Request_Code := Key_Max + 45;
- F_ScrollBackward_Page : constant Form_Request_Code := Key_Max + 46;
- F_ScrollForward_HalfPage : constant Form_Request_Code := Key_Max + 47;
- F_ScrollBackward_HalfPage : constant Form_Request_Code := Key_Max + 48;
+ F_ScrollForward_Line : constant Form_Request_Code := Key_Max + 43;
+ F_ScrollBackward_Line : constant Form_Request_Code := Key_Max + 44;
+ F_ScrollForward_Page : constant Form_Request_Code := Key_Max + 45;
+ F_ScrollBackward_Page : constant Form_Request_Code := Key_Max + 46;
+ F_ScrollForward_HalfPage : constant Form_Request_Code := Key_Max + 47;
+ F_ScrollBackward_HalfPage : constant Form_Request_Code := Key_Max + 48;
- F_HScrollForward_Char : constant Form_Request_Code := Key_Max + 49;
- F_HScrollBackward_Char : constant Form_Request_Code := Key_Max + 50;
- F_HScrollForward_Line : constant Form_Request_Code := Key_Max + 51;
- F_HScrollBackward_Line : constant Form_Request_Code := Key_Max + 52;
- F_HScrollForward_HalfLine : constant Form_Request_Code := Key_Max + 53;
- F_HScrollBackward_HalfLine : constant Form_Request_Code := Key_Max + 54;
+ F_HScrollForward_Char : constant Form_Request_Code := Key_Max + 49;
+ F_HScrollBackward_Char : constant Form_Request_Code := Key_Max + 50;
+ F_HScrollForward_Line : constant Form_Request_Code := Key_Max + 51;
+ F_HScrollBackward_Line : constant Form_Request_Code := Key_Max + 52;
+ F_HScrollForward_HalfLine : constant Form_Request_Code := Key_Max + 53;
+ F_HScrollBackward_HalfLine : constant Form_Request_Code := Key_Max + 54;
- F_Validate_Field : constant Form_Request_Code := Key_Max + 55;
- F_Next_Choice : constant Form_Request_Code := Key_Max + 56;
- F_Previous_Choice : constant Form_Request_Code := Key_Max + 57;
+ F_Validate_Field : constant Form_Request_Code := Key_Max + 55;
+ F_Next_Choice : constant Form_Request_Code := Key_Max + 56;
+ F_Previous_Choice : constant Form_Request_Code := Key_Max + 57;
REQ_NEXT_PAGE : Form_Request_Code renames F_Next_Page;
@@ -292,10 +292,10 @@
REQ_NEXT_CHOICE : Form_Request_Code renames F_Next_Choice;
REQ_PREV_CHOICE : Form_Request_Code renames F_Previous_Choice;
- procedure Request_Name (Key : Form_Request_Code;
- Name : out String);
+ procedure Request_Name (Key : Form_Request_Code;
+ Name : out String);
- function Request_Name (Key : Form_Request_Code) return String;
+ function Request_Name (Key : Form_Request_Code) return String;
pragma Inline (Request_Name);
@@ -308,45 +308,45 @@
-
- function Create (Height : Line_Count;
- Width : Column_Count;
- Top : Line_Position;
- Left : Column_Position;
- Off_Screen : Natural := 0;
- More_Buffers : Buffer_Number := Buffer_Number'First)
- return Field;
+
+ function Create (Height : Line_Count;
+ Width : Column_Count;
+ Top : Line_Position;
+ Left : Column_Position;
+ Off_Screen : Natural := 0;
+ More_Buffers : Buffer_Number := Buffer_Number'First)
+ return Field;
-
- function New_Field (Height : Line_Count;
- Width : Column_Count;
- Top : Line_Position;
- Left : Column_Position;
+
+ function New_Field (Height : Line_Count;
+ Width : Column_Count;
+ Top : Line_Position;
+ Left : Column_Position;
Off_Screen : Natural := 0;
More_Buffers : Buffer_Number := Buffer_Number'First)
- return Field renames Create;
+ return Field renames Create;
pragma Inline (New_Field);
-
- procedure Delete (Fld : in out Field);
+
+ procedure Delete (Fld : in out Field);
-
- function Duplicate (Fld : Field;
- Top : Line_Position;
- Left : Column_Position) return 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;
+
+ function Link (Fld : Field;
+ Top : Line_Position;
+ Left : Column_Position) return Field;
pragma Inline (Link);
@@ -354,14 +354,14 @@
-
- procedure Set_Justification (Fld : Field;
- Just : Field_Justification := None);
+
+ procedure Set_Justification (Fld : Field;
+ Just : Field_Justification := None);
pragma Inline (Set_Justification);
-
- function Get_Justification (Fld : Field) return Field_Justification;
+
+ function Get_Justification (Fld : Field) return Field_Justification;
pragma Inline (Get_Justification);
@@ -369,42 +369,42 @@
-
- procedure Set_Buffer
- (Fld : Field;
- Buffer : Buffer_Number := Buffer_Number'First;
- Str : String);
+
+ procedure Set_Buffer
+ (Fld : Field;
+ Buffer : Buffer_Number := Buffer_Number'First;
+ Str : String);
-
- procedure Get_Buffer
- (Fld : Field;
- Buffer : Buffer_Number := Buffer_Number'First;
- Str : out String);
+
+ procedure Get_Buffer
+ (Fld : Field;
+ Buffer : Buffer_Number := Buffer_Number'First;
+ Str : out String);
- function Get_Buffer
- (Fld : Field;
- Buffer : Buffer_Number := Buffer_Number'First) return String;
+ function Get_Buffer
+ (Fld : Field;
+ Buffer : Buffer_Number := Buffer_Number'First) return String;
pragma Inline (Get_Buffer);
-
- procedure Set_Status (Fld : Field;
- Status : Boolean := True);
+
+ procedure Set_Status (Fld : Field;
+ Status : Boolean := True);
pragma Inline (Set_Status);
-
- function Changed (Fld : Field) return Boolean;
+
+ function Changed (Fld : Field) return Boolean;
pragma Inline (Changed);
-
- procedure Set_Maximum_Size (Fld : Field;
- Max : Natural := 0);
+
+ procedure Set_Maximum_Size (Fld : Field;
+ Max : Natural := 0);
pragma Inline (Set_Maximum_Size);
@@ -412,28 +412,28 @@
-
- procedure Set_Options (Fld : Field;
- Options : Field_Option_Set);
+
+ procedure Set_Options (Fld : Field;
+ Options : Field_Option_Set);
-
- procedure Switch_Options (Fld : Field;
- Options : Field_Option_Set;
- On : Boolean := True);
+
+ procedure Switch_Options (Fld : Field;
+ Options : Field_Option_Set;
+ On : Boolean := True);
-
- procedure Get_Options (Fld : Field;
- Options : out Field_Option_Set);
+
+ procedure Get_Options (Fld : Field;
+ Options : out Field_Option_Set);
-
- function Get_Options (Fld : Field := Null_Field)
- return Field_Option_Set;
+
+ function Get_Options (Fld : Field := Null_Field)
+ return Field_Option_Set;
@@ -441,55 +441,55 @@
-
- procedure Set_Foreground
- (Fld : Field;
- Fore : Character_Attribute_Set := Normal_Video;
- Color : Color_Pair := Color_Pair'First);
+
+ procedure Set_Foreground
+ (Fld : Field;
+ Fore : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
pragma Inline (Set_Foreground);
-
- procedure Foreground (Fld : Field;
- Fore : out Character_Attribute_Set);
+
+ procedure Foreground (Fld : Field;
+ Fore : out Character_Attribute_Set);
-
- procedure Foreground (Fld : Field;
- Fore : out Character_Attribute_Set;
- Color : out Color_Pair);
+
+ 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;
- Color : Color_Pair := Color_Pair'First);
+
+ procedure Set_Background
+ (Fld : Field;
+ Back : Character_Attribute_Set := Normal_Video;
+ Color : Color_Pair := Color_Pair'First);
pragma Inline (Set_Background);
-
- procedure Background (Fld : Field;
- Back : out Character_Attribute_Set);
+
+ procedure Background (Fld : Field;
+ Back : out Character_Attribute_Set);
-
- procedure Background (Fld : Field;
- Back : out Character_Attribute_Set;
- Color : out Color_Pair);
+
+ 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);
+
+ procedure Set_Pad_Character (Fld : Field;
+ Pad : Character := Space);
pragma Inline (Set_Pad_Character);
-
- procedure Pad_Character (Fld : Field;
- Pad : out Character);
+
+ procedure Pad_Character (Fld : Field;
+ Pad : out Character);
pragma Inline (Pad_Character);
@@ -497,22 +497,22 @@
-
- procedure Info (Fld : Field;
- Lines : out Line_Count;
- Columns : out Column_Count;
- First_Row : out Line_Position;
- First_Column : out Column_Position;
- Off_Screen : out Natural;
- Additional_Buffers : out Buffer_Number);
+
+ procedure Info (Fld : Field;
+ Lines : out Line_Count;
+ Columns : out Column_Count;
+ First_Row : out Line_Position;
+ First_Column : out Column_Position;
+ Off_Screen : out Natural;
+ Additional_Buffers : out Buffer_Number);
pragma Inline (Info);
-
- procedure Dynamic_Info (Fld : Field;
- Lines : out Line_Count;
- Columns : out Column_Count;
- Max : out Natural);
+
+ procedure Dynamic_Info (Fld : Field;
+ Lines : out Line_Count;
+ Columns : out Column_Count;
+ Max : out Natural);
pragma Inline (Dynamic_Info);
@@ -520,32 +520,32 @@
-
- procedure Set_Window (Frm : Form;
- Win : Window);
+
+ procedure Set_Window (Frm : Form;
+ Win : Window);
pragma Inline (Set_Window);
-
- function Get_Window (Frm : Form) return Window;
+
+ function Get_Window (Frm : Form) return Window;
pragma Inline (Get_Window);
-
- procedure Set_Sub_Window (Frm : Form;
- Win : Window);
+
+ procedure Set_Sub_Window (Frm : Form;
+ Win : Window);
pragma Inline (Set_Sub_Window);
-
- function Get_Sub_Window (Frm : Form) return 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);
+
+ procedure Scale (Frm : Form;
+ Lines : out Line_Count;
+ Columns : out Column_Count);
pragma Inline (Scale);
@@ -553,50 +553,50 @@
- type Form_Hook_Function is access procedure (Frm : Form);
+ 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);
+
+ 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);
+
+ 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);
+
+ 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);
+
+ 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;
+
+ 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;
+
+ 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;
+
+ 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;
+
+ function Get_Form_Term_Hook (Frm : Form) return Form_Hook_Function;
pragma Import (C, Get_Form_Term_Hook, "form_term");
@@ -604,33 +604,33 @@
-
- procedure Redefine (Frm : Form;
- Flds : Field_Array_Access);
+
+ procedure Redefine (Frm : Form;
+ Flds : Field_Array_Access);
pragma Inline (Redefine);
-
- procedure Set_Fields (Frm : Form;
+
+ procedure Set_Fields (Frm : Form;
Flds : Field_Array_Access) renames Redefine;
-
- function Fields (Frm : Form;
- Index : Positive) return Field;
+
+ function Fields (Frm : Form;
+ Index : Positive) return Field;
pragma Inline (Fields);
-
- function Field_Count (Frm : Form) return Natural;
+
+ function Field_Count (Frm : Form) return Natural;
pragma Inline (Field_Count);
-
- procedure Move (Fld : Field;
- Line : Line_Position;
- Column : Column_Position);
+
+ procedure Move (Fld : Field;
+ Line : Line_Position;
+ Column : Column_Position);
pragma Inline (Move);
@@ -638,19 +638,19 @@
-
- function Create (Fields : Field_Array_Access) return Form;
+
+ function Create (Fields : Field_Array_Access) return Form;
pragma Inline (Create);
-
- function New_Form (Fields : Field_Array_Access) return Form
+
+ function New_Form (Fields : Field_Array_Access) return Form
renames Create;
-
- procedure Delete (Frm : in out Form);
+
+ procedure Delete (Frm : in out Form);
pragma Inline (Delete);
@@ -659,27 +659,27 @@
-
- procedure Set_Options (Frm : Form;
- Options : Form_Option_Set);
+
+ 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);
+
+ procedure Switch_Options (Frm : Form;
+ Options : Form_Option_Set;
+ On : Boolean := True);
pragma Inline (Switch_Options);
-
- procedure Get_Options (Frm : Form;
- Options : out Form_Option_Set);
+
+ procedure Get_Options (Frm : Form;
+ Options : out Form_Option_Set);
-
- function Get_Options (Frm : Form := Null_Form) return Form_Option_Set;
+
+ function Get_Options (Frm : Form := Null_Form) return Form_Option_Set;
pragma Inline (Get_Options);
@@ -687,9 +687,9 @@
-
- procedure Post (Frm : Form;
- Post : Boolean := True);
+
+ procedure Post (Frm : Form;
+ Post : Boolean := True);
pragma Inline (Post);
@@ -698,8 +698,8 @@
-
- procedure Position_Cursor (Frm : Form);
+
+ procedure Position_Cursor (Frm : Form);
pragma Inline (Position_Cursor);
@@ -707,13 +707,13 @@
-
- function Data_Ahead (Frm : Form) return Boolean;
+
+ function Data_Ahead (Frm : Form) return Boolean;
pragma Inline (Data_Ahead);
-
- function Data_Behind (Frm : Form) return Boolean;
+
+ function Data_Behind (Frm : Form) return Boolean;
pragma Inline (Data_Behind);
@@ -726,9 +726,9 @@
Unknown_Request,
Invalid_Field);
-
- function Driver (Frm : Form;
- Key : Key_Code) return Driver_Result;
+
+ function Driver (Frm : Form;
+ Key : Key_Code) return Driver_Result;
@@ -738,30 +738,30 @@
type Page_Number is new Natural;
-
- procedure Set_Current (Frm : Form;
- Fld : Field);
+
+ procedure Set_Current (Frm : Form;
+ Fld : Field);
pragma Inline (Set_Current);
-
- function Current (Frm : Form) return Field;
+
+ function Current (Frm : Form) return Field;
pragma Inline (Current);
-
- procedure Set_Page (Frm : Form;
- Page : Page_Number := Page_Number'First);
+
+ procedure Set_Page (Frm : Form;
+ Page : Page_Number := Page_Number'First);
pragma Inline (Set_Page);
-
- function Page (Frm : Form) return Page_Number;
+
+ function Page (Frm : Form) return Page_Number;
pragma Inline (Page);
-
- function Get_Index (Fld : Field) return Positive;
+
+ function Get_Index (Fld : Field) return Positive;
@@ -772,14 +772,14 @@
-
- procedure Set_New_Page (Fld : Field;
- New_Page : Boolean := True);
+
+ procedure Set_New_Page (Fld : Field;
+ New_Page : Boolean := True);
pragma Inline (Set_New_Page);
-
- function Is_New_Page (Fld : Field) return Boolean;
+
+ function Is_New_Page (Fld : Field) return Boolean;
pragma Inline (Is_New_Page);
@@ -790,11 +790,11 @@
private
- type Field is new System.Storage_Elements.Integer_Address;
- type Form is new System.Storage_Elements.Integer_Address;
+ type Field is new System.Storage_Elements.Integer_Address;
+ type Form is new System.Storage_Elements.Integer_Address;
- Null_Field : constant Field := 0;
- Null_Form : constant Form := 0;
+ Null_Field : constant Field := 0;
+ Null_Form : constant Form := 0;
-end Terminal_Interface.Curses.Forms;
+end Terminal_Interface.Curses.Forms;