X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-enumeration__adb.htm;fp=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-enumeration__adb.htm;h=6e4ce4306cf50234de11d7efa07f2f565fcd0898;hp=5096357bd428411ef882e8a365414fff8ea7bd0f;hb=c633e5103a29a38532cf1925257b91cea33fd090;hpb=b1f61d9f3aa244512045a6b02e759825d7049d34
diff --git a/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm b/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm
index 5096357b..6e4ce430 100644
--- a/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__adb.htm
@@ -65,7 +65,7 @@
E.Arr := new chars_ptr_array (size_t (1) .. L);
for I in 1 .. Positive (L - 1) loop
if Info.Names (I) = null then
- raise Form_Exception;
+ raise Form_Exception;
end if;
E.Arr (size_t (I)) := New_String (Info.Names (I).all);
if Auto_Release_Names then
@@ -85,20 +85,20 @@
loop
P := Enum.Arr (I);
exit when P = Null_Ptr;
- Free (P);
+ Free (P);
Enum.Arr (I) := Null_Ptr;
I := I + 1;
end loop;
Enum.Arr := null;
end Release;
- procedure Set_Field_Type (Fld : in Field;
+ procedure Set_Field_Type (Fld : in Field;
Typ : in Enumeration_Field)
is
C_Enum_Type : C_Field_Type;
pragma Import (C, C_Enum_Type, "TYPE_ENUM");
- function Set_Fld_Type (F : Field := Fld;
+ function Set_Fld_Type (F : Field := Fld;
Cft : C_Field_Type := C_Enum_Type;
Arg1 : chars_ptr_array;
Arg2 : C_Int;
@@ -108,7 +108,7 @@
Res : Eti_Error;
begin
if Typ.Arr = null then
- raise Form_Exception;
+ raise Form_Exception;
end if;
Res := Set_Fld_Type (Arg1 => Typ.Arr.all,
Arg2 => C_Int (Boolean'Pos (Typ.Case_Sensitive)),