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__ads.htm;h=7a4bfbee16fcdcc409c27b0b1f5357f3975fdef8;hp=90e86ad1ed5c4cf449d5239365a8e47aff9e54dd;hb=95bcbd4bb8e933c86e6fc4aba9ea1c7fd3d30e3d;hpb=c55d387cebf1cee4757ca2c2ef4fbeae59ee4175
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 90e86ad1..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;
-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
- Case_Sensitive : Boolean := False;
- Match_Must_Be_Unique : Boolean := False;
- 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;