X-Git-Url: https://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-enumeration__ads.htm;h=1322bfe28a38990f647a8fa33e85b1ab39680984;hb=3511767aa77f332927de0c4a610f9fb37ea18101;hp=8ff65ab55a02f1b2550b2c53a75f9addaeab9c53;hpb=55ccd2b959766810cf7db8d1c4462f338ce0afc8;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 8ff65ab5..1322bfe2 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
@@ -43,23 +43,23 @@
-- @Revision: 1.11 @
-- Binding Version 01.00
------------------------------------------------------------------------------
-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_Set is used by the child package Ada
type Type_Set is (Lower_Case, Upper_Case, Mixed_Case);
- type Enum_Array is array (Positive range <>)
+ type Enum_Array is array (Positive range <>)
of String_Access;
- type Enumeration_Info (C : Positive) is
+ type Enumeration_Info (C : Positive) is
record
- Names : Enum_Array (1 .. C);
+ Names : Enum_Array (1 .. C);
Case_Sensitive : Boolean := False;
Match_Must_Be_Unique : Boolean := False;
end record;
@@ -86,12 +86,12 @@
-- The next type defintions are all ncurses extensions. They are typically
-- not available in other curses implementations.
- procedure Set_Field_Type (Fld : in Field;
+ procedure Set_Field_Type (Fld : in Field;
Typ : in 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
@@ -100,5 +100,5 @@
Arr : CPA_Access := null;
end record;
-end Terminal_Interface.Curses.Forms.Field_Types.Enumeration;
+end Terminal_Interface.Curses.Forms.Field_Types.Enumeration;