X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types__ads.htm;h=b0388f1d1767ec3113c8c2e2def8c2f28654897f;hp=e11c2564b70d872686b06b9ac8acb29552e513ac;hb=a8987e73ec254703634802b4f7ee30d3a485524d;hpb=b1f61d9f3aa244512045a6b02e759825d7049d34
diff --git a/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm b/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm
index e11c2564..b0388f1d 100644
--- a/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-forms-field_types__ads.htm
@@ -38,9 +38,9 @@
-- 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.12 @
+-- @Revision: 1.14 @
-- Binding Version 01.00
------------------------------------------------------------------------------
with Interfaces.C;
@@ -143,18 +143,18 @@
-- | fieldtypes handled by this binding. Any other low-level fieldtype
-- | will result in a Form_Exception is function Get_Type.
-- |
- M_Generic_Type : C_Field_Type := null;
- M_Generic_Choice : C_Field_Type := null;
- M_Builtin_Router : C_Field_Type := null;
+ M_Generic_Type : C_Field_Type := null;
+ M_Generic_Choice : C_Field_Type := null;
+ M_Builtin_Router : C_Field_Type := null;
M_Choice_Router : C_Field_Type := null;
-- Two wrapper functions to access those low-level fieldtypes defined
-- in this package.
- function C_Builtin_Router return C_Field_Type;
+ function C_Builtin_Router return C_Field_Type;
function C_Choice_Router return C_Field_Type;
- procedure Wrap_Builtin (Fld : Field;
- Typ : Field_Type'Class;
+ procedure Wrap_Builtin (Fld : Field;
+ Typ : Field_Type'Class;
Cft : C_Field_Type := C_Builtin_Router);
-- This procedure has to be called by the Set_Field_Type implementation
-- for builtin low-level fieldtypes to replace it by an Ada95
@@ -215,7 +215,7 @@
-- introduced by this binding.
type Argument is record
Typ : Field_Type_Access; -- the Field_Type creating this record
- Usr : System.Address; -- original arg for builtin low-level types
+ Usr : System.Address; -- original arg for builtin low-level types
Cft : C_Field_Type; -- the original low-level type
end record;
type Argument_Access is access all Argument;
@@ -225,7 +225,7 @@
-- | Some Imports of libform routines to deal with low-level fieldtypes.
-- |
function New_Fieldtype (Fcheck : Field_Check_Function;
- Ccheck : Char_Check_Function)
+ Ccheck : Char_Check_Function)
return C_Field_Type;
pragma Import (C, New_Fieldtype, "new_fieldtype");
@@ -242,4 +242,4 @@
pragma Import (C, Set_Fieldtype_Choice, "set_fieldtype_choice");
end Terminal_Interface.Curses.Forms.Field_Types;
-