X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-user__adb.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-user__adb.htm;h=95dfeda820a5d21dc3de571440bb76d1d5e77516;hp=4e54495c5f8d0204d6a96acbad1904cbec457305;hb=c633e5103a29a38532cf1925257b91cea33fd090;hpb=b1f61d9f3aa244512045a6b02e759825d7049d34;ds=sidebyside
diff --git a/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm b/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm
index 4e54495c..95dfeda8 100644
--- a/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-forms-field_types-user__adb.htm
@@ -50,13 +50,13 @@
use type Interfaces.C.int;
- procedure Set_Field_Type (Fld : in Field;
+ procedure Set_Field_Type (Fld : in Field;
Typ : in User_Defined_Field_Type)
is
function Allocate_Arg (T : User_Defined_Field_Type'Class)
return Argument_Access;
- function Set_Fld_Type (F : Field := Fld;
+ function Set_Fld_Type (F : Field := Fld;
Cft : C_Field_Type := C_Generic_Type;
Arg1 : Argument_Access)
return C_Int;
@@ -84,7 +84,7 @@
function To_Argument_Access is new Ada.Unchecked_Conversion
(System.Address, Argument_Access);
- function Generic_Field_Check (Fld : Field;
+ function Generic_Field_Check (Fld : Field;
Usr : System.Address) return C_Int
is
Result : Boolean;
@@ -117,7 +117,7 @@
T := New_Fieldtype (Generic_Field_Check'Access,
Generic_Char_Check'Access);
if T = Null_Field_Type then
- raise Form_Exception;
+ raise Form_Exception;
else
Res := Set_Fieldtype_Arg (T,
Make_Arg'Access,