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=953ebbec7c36ad2ed6aa80ffda42a3338f7030bd;hb=71c0306f0824ef2b10c4c5813fb003db48f3012e;hp=c7d2901c151688d58ce0a1775522183aa89cf0ac;hpb=46722468f47c2b77b3987729b4bcf2321cccfd01;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 c7d2901c..953ebbec 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
@@ -1,3 +1,4 @@
+
terminal_interface-curses-forms-field_types-enumeration.ads
File : terminal_interface-curses-forms-field_types-enumeration.ads
@@ -11,7 +12,7 @@
-- S P E C --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998 Free Software Foundation, Inc. --
+-- Copyright (c) 1998-2003,2009 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
@@ -37,68 +38,67 @@
-- sale, use or other dealings in this Software without prior written --
-- authorization. --
------------------------------------------------------------------------------
--- Author: Jürgen Pfeifer, 1996
--- Contact: www.familiepfeifer.de/Contact.aspx?Lang=en
+-- Author: Juergen Pfeifer, 1996
-- Version Control:
--- @Revision: 1.10 @
+-- @Revision: 1.12 @
-- 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 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;
+ 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);
- 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;
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;
-- 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.
-- The Auto_Release_Names flag may be used to automatically releases
-- the strings in the Names array of the Enumeration_Info.
- 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);
-- 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.
-- The next type defintions are all ncurses extensions. They are typically
-- not available in other curses implementations.
- procedure Set_Field_Type (Fld : in Field;
- Typ : in 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;
-
\ No newline at end of file
+end Terminal_Interface.Curses.Forms.Field_Types.Enumeration;
+