X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-enumeration__ads.htm;h=1c8eae3e6b864c49669435baac5921e10b3ac64c;hp=0aff774583e0a2b82275be4b17f78f148bd2844b;hb=a8987e73ec254703634802b4f7ee30d3a485524d;hpb=c633e5103a29a38532cf1925257b91cea33fd090
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 0aff7745..1c8eae3e 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
@@ -37,21 +37,21 @@
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
--- Author: Jürgen Pfeifer <<juergen.pfeifer@gmx.net>> 1996
+-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- @Revision: 1.9 @
+-- @Revision: 1.11 @
-- Binding Version 01.00
------------------------------------------------------------------------------
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);
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 Type_Set is (Lower_Case, Upper_Case, Mixed_Case);
type Enum_Array is array (Positive range <>)
of String_Access;
@@ -61,13 +61,13 @@
Names : Enum_Array (1 .. C);
Case_Sensitive : Boolean := False;
Match_Must_Be_Unique : Boolean := False;
- end record;
+ 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;
+ function Create (Info : Enumeration_Info;
Auto_Release_Names : Boolean := False)
- return Enumeration_Field;
+ return Enumeration_Field;
-- Make an fieldtype from the info. Enumerations are special, because
-- they normally don't copy the enum values into a private store, so
-- we have to care for the lifetime of the info we provide.
@@ -76,9 +76,9 @@
function Make_Enumeration_Type (Info : Enumeration_Info;
Auto_Release_Names : Boolean := False)
- return Enumeration_Field renames Create;
+ return Enumeration_Field renames Create;
- procedure Release (Enum : in out Enumeration_Field);
+ procedure Release (Enum : in out Enumeration_Field);
-- But we may want to release the field to release the memory allocated
-- by it internally. After that the Enumeration field is no longer usable.
@@ -86,18 +86,18 @@
-- not available in other curses implementations.
procedure Set_Field_Type (Fld : in Field;
- Typ : in Enumeration_Field);
- pragma Inline (Set_Field_Type);
+ Typ : in Enumeration_Field);
+ pragma Inline (Set_Field_Type);
private
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;
end record;
-end Terminal_Interface.Curses.Forms.Field_Types.Enumeration;
-