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;h=36f9892dea79e175f26979189d05d05db14fb265;hp=00c5798e047d8683ff156e83e1286565833bb914;hb=bca50d0d8592defee6c584fdedd25f4b1a31345b;hpb=2e5d72d6396bb38a8d1d1b3534f62e28aebaa600
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 00c5798e..36f9892d 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
@@ -24,7 +24,7 @@
-
+
@@ -52,21 +52,22 @@
-
+
-with Interfaces.C;
+with Interfaces.C;
+with Terminal_Interface.Curses.Aux;
-package Terminal_Interface.Curses.Forms.Field_Types is
- pragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types);
- use type Interfaces.C.int;
- subtype C_Int is Interfaces.C.int;
+package Terminal_Interface.Curses.Forms.Field_Types is
+ pragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types);
+ use type Interfaces.C.int;
+ subtype C_Int is Interfaces.C.int;
- type Field_Type is abstract tagged null record;
+ type Field_Type is abstract tagged null record;
@@ -77,11 +78,11 @@
- type Field_Type_Access is access all Field_Type'Class;
+ type Field_Type_Access is access all Field_Type'Class;
- procedure Set_Field_Type (Fld : Field;
- Fld_Type : Field_Type) is abstract;
+ procedure Set_Field_Type (Fld : Field;
+ Fld_Type : Field_Type) is abstract;
@@ -93,7 +94,7 @@
- function Get_Type (Fld : Field) return Field_Type_Access;
+ function Get_Type (Fld : Field) return Field_Type_Access;
@@ -106,68 +107,68 @@
private
- type Makearg_Function is access
- function (Args : System.Address) return System.Address;
- pragma Convention (C, Makearg_Function);
+ type Makearg_Function is access
+ function (Args : System.Address) return System.Address;
+ pragma Convention (C, Makearg_Function);
- type Copyarg_Function is access
- function (Usr : System.Address) return System.Address;
- pragma Convention (C, Copyarg_Function);
+ type Copyarg_Function is access
+ function (Usr : System.Address) return System.Address;
+ pragma Convention (C, Copyarg_Function);
- type Freearg_Function is access
- procedure (Usr : System.Address);
- pragma Convention (C, Freearg_Function);
+ type Freearg_Function is access
+ procedure (Usr : System.Address);
+ pragma Convention (C, Freearg_Function);
- type Field_Check_Function is access
- function (Fld : Field; Usr : System.Address) return Curses_Bool;
- pragma Convention (C, Field_Check_Function);
+ type Field_Check_Function is access
+ function (Fld : Field; Usr : System.Address) return Curses_Bool;
+ pragma Convention (C, Field_Check_Function);
- type Char_Check_Function is access
- function (Ch : C_Int; Usr : System.Address) return Curses_Bool;
- pragma Convention (C, Char_Check_Function);
+ type Char_Check_Function is access
+ function (Ch : C_Int; Usr : System.Address) return Curses_Bool;
+ pragma Convention (C, Char_Check_Function);
- type Choice_Function is access
- function (Fld : Field; Usr : System.Address) return Curses_Bool;
- pragma Convention (C, Choice_Function);
+ type Choice_Function is access
+ function (Fld : Field; Usr : System.Address) return Curses_Bool;
+ pragma Convention (C, Choice_Function);
- type Low_Level_Field_Type is
+ type Low_Level_Field_Type is
record
- Status : Interfaces.C.unsigned_short;
- Ref_Count : Interfaces.C.long;
- Left, Right : System.Address;
- Makearg : Makearg_Function;
- Copyarg : Copyarg_Function;
- Freearg : Freearg_Function;
- Fcheck : Field_Check_Function;
- Ccheck : Char_Check_Function;
- Next, Prev : Choice_Function;
+ Status : Interfaces.C.unsigned_short;
+ Ref_Count : Interfaces.C.long;
+ Left, Right : System.Address;
+ Makearg : Makearg_Function;
+ Copyarg : Copyarg_Function;
+ Freearg : Freearg_Function;
+ Fcheck : Field_Check_Function;
+ Ccheck : Char_Check_Function;
+ Next, Prev : Choice_Function;
end record;
- pragma Convention (C, Low_Level_Field_Type);
- type C_Field_Type is access all Low_Level_Field_Type;
+ pragma Convention (C, Low_Level_Field_Type);
+ type C_Field_Type is access all Low_Level_Field_Type;
- Null_Field_Type : constant C_Field_Type := null;
+ Null_Field_Type : constant C_Field_Type := null;
- M_Generic_Type : C_Field_Type := null;
- M_Generic_Choice : C_Field_Type := null;
- M_Builtin_Router : C_Field_Type := null;
- M_Choice_Router : C_Field_Type := null;
+ M_Generic_Type : C_Field_Type := null;
+ M_Generic_Choice : C_Field_Type := null;
+ M_Builtin_Router : C_Field_Type := null;
+ M_Choice_Router : C_Field_Type := null;
- function C_Builtin_Router return C_Field_Type;
- function C_Choice_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;
- Cft : C_Field_Type := C_Builtin_Router);
+ procedure Wrap_Builtin (Fld : Field;
+ Typ : Field_Type'Class;
+ Cft : C_Field_Type := C_Builtin_Router);
@@ -176,48 +177,48 @@
- function Make_Arg (Args : System.Address) return System.Address;
+ function Make_Arg (Args : System.Address) return System.Address;
pragma Import (C, Make_Arg, "void_star_make_arg");
- function Copy_Arg (Usr : System.Address) return System.Address;
- pragma Convention (C, Copy_Arg);
+ function Copy_Arg (Usr : System.Address) return System.Address;
+ pragma Convention (C, Copy_Arg);
- procedure Free_Arg (Usr : System.Address);
- pragma Convention (C, Free_Arg);
+ procedure Free_Arg (Usr : System.Address);
+ pragma Convention (C, Free_Arg);
- function Field_Check_Router (Fld : Field;
- Usr : System.Address) return Curses_Bool;
- pragma Convention (C, Field_Check_Router);
+ function Field_Check_Router (Fld : Field;
+ Usr : System.Address) return Curses_Bool;
+ pragma Convention (C, Field_Check_Router);
- function Char_Check_Router (Ch : C_Int;
- Usr : System.Address) return Curses_Bool;
- pragma Convention (C, Char_Check_Router);
+ function Char_Check_Router (Ch : C_Int;
+ Usr : System.Address) return Curses_Bool;
+ pragma Convention (C, Char_Check_Router);
- function Next_Router (Fld : Field;
- Usr : System.Address) return Curses_Bool;
- pragma Convention (C, Next_Router);
+ function Next_Router (Fld : Field;
+ Usr : System.Address) return Curses_Bool;
+ pragma Convention (C, Next_Router);
- function Prev_Router (Fld : Field;
- Usr : System.Address) return Curses_Bool;
- pragma Convention (C, Prev_Router);
+ function Prev_Router (Fld : Field;
+ Usr : System.Address) return Curses_Bool;
+ pragma Convention (C, Prev_Router);
@@ -225,33 +226,33 @@
- type Argument is record
- Typ : Field_Type_Access;
- Usr : System.Address;
- Cft : C_Field_Type;
+ type Argument is record
+ Typ : Field_Type_Access;
+ Usr : System.Address;
+ Cft : C_Field_Type;
end record;
- type Argument_Access is access all Argument;
+ type Argument_Access is access all Argument;
- function New_Fieldtype (Fcheck : Field_Check_Function;
- Ccheck : Char_Check_Function)
- return C_Field_Type;
+ 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;
- Fre : Freearg_Function := Free_Arg'Access)
- return C_Int;
+ 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 Aux.Eti_Error;
pragma Import (C, Set_Fieldtype_Arg, "set_fieldtype_arg");
- function Set_Fieldtype_Choice (Cft : C_Field_Type;
- Next, Prev : Choice_Function)
- return C_Int;
+ function Set_Fieldtype_Choice (Cft : C_Field_Type;
+ Next, Prev : Choice_Function)
+ return Aux.Eti_Error;
pragma Import (C, Set_Fieldtype_Choice, "set_fieldtype_choice");
-end Terminal_Interface.Curses.Forms.Field_Types;
+end Terminal_Interface.Curses.Forms.Field_Types;