X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types__ads.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types__ads.htm;h=4e50349e6262f738d953b8e6138cfbab9f22ece1;hp=86927ddb748a73393701229440a8bf7f08f0191f;hb=027ae42953e3186daed8f3882da73de48291b606;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8
diff --git a/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm b/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm
index 86927ddb..4e50349e 100644
--- a/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm
@@ -69,7 +69,7 @@
type Field_Type_Access is access all Field_Type'Class;
-- #1A NAME="AFU_1"#2|
- procedure Set_Field_Type (Fld : in Field;
+ procedure Set_Field_Type (Fld : in Field;
Fld_Type : in Field_Type) is abstract;
-- AKA: set_field_type()
-- But: we hide the vararg mechanism of the C interface. You always
@@ -124,7 +124,7 @@
-- |
type Low_Level_Field_Type is
record
- Status : Interfaces.C.short;
+ Status : Interfaces.C.short;
Ref_Count : Interfaces.C.long;
Left, Right : System.Address;
Makearg : Makearg_Function;
@@ -151,11 +151,11 @@
-- Two wrapper functions to access those low-level fieldtypes defined
-- in this package.
- function C_Builtin_Router return C_Field_Type;
+ function C_Builtin_Router return C_Field_Type;
function C_Choice_Router return C_Field_Type;
- procedure Wrap_Builtin (Fld : Field;
- Typ : Field_Type'Class;
+ procedure Wrap_Builtin (Fld : Field;
+ Typ : Field_Type'Class;
Cft : C_Field_Type := C_Builtin_Router);
-- This procedure has to be called by the Set_Field_Type implementation
-- for builtin low-level fieldtypes to replace it by an Ada95
@@ -180,7 +180,7 @@
-- This is the Freearg_Function for the internal low-level types
-- introduced by this binding.
- function Field_Check_Router (Fld : Field;
+ function Field_Check_Router (Fld : Field;
Usr : System.Address) return C_Int;
pragma Convention (C, Field_Check_Router);
-- This is the Field_Check_Function for the internal low-level types
@@ -188,7 +188,7 @@
-- type. It routes the call to the corresponding low-level validation
-- function.
- function Char_Check_Router (Ch : C_Int;
+ function Char_Check_Router (Ch : C_Int;
Usr : System.Address) return C_Int;
pragma Convention (C, Char_Check_Router);
-- This is the Char_Check_Function for the internal low-level types
@@ -196,7 +196,7 @@
-- type. It routes the call to the corresponding low-level validation
-- function.
- function Next_Router (Fld : Field;
+ function Next_Router (Fld : Field;
Usr : System.Address) return C_Int;
pragma Convention (C, Next_Router);
-- This is the Choice_Function for the internal low-level types
@@ -204,7 +204,7 @@
-- type. It routes the call to the corresponding low-level next_choice
-- function.
- function Prev_Router (Fld : Field;
+ function Prev_Router (Fld : Field;
Usr : System.Address) return C_Int;
pragma Convention (C, Prev_Router);
-- This is the Choice_Function for the internal low-level types
@@ -225,19 +225,19 @@
-- |
-- | Some Imports of libform routines to deal with low-level fieldtypes.
-- |
- function New_Fieldtype (Fcheck : Field_Check_Function;
+ function New_Fieldtype (Fcheck : Field_Check_Function;
Ccheck : Char_Check_Function)
return C_Field_Type;
pragma Import (C, New_Fieldtype, "new_fieldtype");
- function Set_Fieldtype_Arg (Cft : C_Field_Type;
- Mak : Makearg_Function := Make_Arg'Access;
- Cop : Copyarg_Function := Copy_Arg'Access;
+ function Set_Fieldtype_Arg (Cft : C_Field_Type;
+ Mak : Makearg_Function := Make_Arg'Access;
+ Cop : Copyarg_Function := Copy_Arg'Access;
Fre : Freearg_Function := Free_Arg'Access)
return C_Int;
pragma Import (C, Set_Fieldtype_Arg, "set_fieldtype_arg");
- function Set_Fieldtype_Choice (Cft : C_Field_Type;
+ function Set_Fieldtype_Choice (Cft : C_Field_Type;
Next, Prev : Choice_Function)
return C_Int;
pragma Import (C, Set_Fieldtype_Choice, "set_fieldtype_choice");