X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;ds=sidebyside;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-enumeration__ads.htm;h=c16e302a4cea6b42ef6a56baae7ecff1d079fb53;hb=efa78d11c3ea7f51c7078b64a34c98b44ecb0e1a;hp=a5ae694168ca34690462c949448d4560174f116e;hpb=761e4f0825b330e970558e82a4bd638383914429;p=ncurses.git
diff --git a/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm b/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm
index a5ae6941..c16e302a 100644
--- a/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-forms-field_types-enumeration__ads.htm
@@ -24,7 +24,7 @@
-
+
@@ -52,14 +52,14 @@
-
+
-with Interfaces.C.Strings;
+with Interfaces.C.Strings;
-package Terminal_Interface.Curses.Forms.Field_Types.Enumeration is
+package Terminal_Interface.Curses.Forms.Field_Types.Enumeration is
pragma Preelaborate
- (Terminal_Interface.Curses.Forms.Field_Types.Enumeration);
+ (Terminal_Interface.Curses.Forms.Field_Types.Enumeration);
type String_Access is access String;
@@ -71,9 +71,9 @@
type Enumeration_Info (C : Positive) is
record
- Names : Enum_Array (1 .. C);
- Case_Sensitive : Boolean := False;
- Match_Must_Be_Unique : Boolean := False;
+ Case_Sensitive : Boolean := False;
+ Match_Must_Be_Unique : Boolean := False;
+ Names : Enum_Array (1 .. C);
end record;
type Enumeration_Field is new Field_Type with private;
@@ -98,12 +98,12 @@
- procedure Set_Field_Type (Fld : Field;
+ procedure Set_Field_Type (Fld : Field;
Typ : Enumeration_Field);
pragma Inline (Set_Field_Type);
private
- type CPA_Access is access Interfaces.C.Strings.chars_ptr_array;
+ type CPA_Access is access Interfaces.C.Strings.chars_ptr_array;
type Enumeration_Field is new Field_Type with
record
@@ -112,5 +112,5 @@
Arr : CPA_Access := null;
end record;
-end Terminal_Interface.Curses.Forms.Field_Types.Enumeration;
+end Terminal_Interface.Curses.Forms.Field_Types.Enumeration;