X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;ds=inline;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-enumeration__ads.htm;h=7a4bfbee16fcdcc409c27b0b1f5357f3975fdef8;hb=461e72d1826483cb2c2cb243412f2dc5b00b2b1a;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..7a4bfbee 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,8 @@
-
+
+
@@ -52,65 +53,65 @@
-
+
-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;
+ type String_Access is access String;
- type Type_Set is (Lower_Case, Upper_Case, Mixed_Case);
+ type Type_Set is (Lower_Case, Upper_Case, Mixed_Case);
type Enum_Array is array (Positive range <>)
- of String_Access;
+ of String_Access;
- type Enumeration_Info (C : Positive) is
+ type Enumeration_Info (C : Positive) is
record
- Names : Enum_Array (1 .. C);
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;
+ type Enumeration_Field is new Field_Type with private;
- function Create (Info : Enumeration_Info;
- Auto_Release_Names : Boolean := False)
- return Enumeration_Field;
+ function Create (Info : Enumeration_Info;
+ Auto_Release_Names : Boolean := False)
+ return Enumeration_Field;
- function Make_Enumeration_Type (Info : Enumeration_Info;
- Auto_Release_Names : Boolean := False)
- return Enumeration_Field renames Create;
+ function Make_Enumeration_Type (Info : Enumeration_Info;
+ Auto_Release_Names : Boolean := False)
+ return Enumeration_Field renames Create;
- procedure Release (Enum : in out Enumeration_Field);
+ procedure Release (Enum : in out Enumeration_Field);
-
+
- procedure Set_Field_Type (Fld : Field;
- Typ : Enumeration_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
+ type Enumeration_Field is new Field_Type with
record
- Case_Sensitive : Boolean := False;
- Match_Must_Be_Unique : Boolean := False;
- Arr : CPA_Access := null;
+ Case_Sensitive : Boolean := False;
+ Match_Must_Be_Unique : Boolean := False;
+ Arr : CPA_Access := null;
end record;
-end Terminal_Interface.Curses.Forms.Field_Types.Enumeration;
+end Terminal_Interface.Curses.Forms.Field_Types.Enumeration;