X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-alphanumeric__ads.htm;fp=Ada95%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-alphanumeric__ads.htm;h=d1302308e2d0350cbdbb45bf9010e7b414f29c3b;hp=ab299784a4d2e3c68d629c85cd96c0c3b624c025;hb=b1f61d9f3aa244512045a6b02e759825d7049d34;hpb=0eb88fc5281804773e2a0c7a488a4452463535ce diff --git a/Ada95/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm b/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm similarity index 90% rename from Ada95/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm rename to doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm index ab299784..d1302308 100644 --- a/Ada95/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm +++ b/doc/html/ada/terminal_interface-curses-forms-field_types-alphanumeric__ads.htm @@ -1,4 +1,4 @@ -terminal_interface-curses-forms-field_types-alphanumeric.ads +terminal_interface-curses-forms-field_types-alphanumeric.ads

File : terminal_interface-curses-forms-field_types-alphanumeric.ads


@@ -37,7 +37,7 @@
 -- sale, use or other dealings in this Software without prior written       --
 -- authorization.                                                           --
 ------------------------------------------------------------------------------
---  Jürgen Pfeifer (juergen.pfeifer@gmx.net) 1996                          --
+--  Author: Jürgen Pfeifer <<juergen.pfeifer@gmx.net>> 1996
 --  Version Control:
 --  @Revision: 1.9 @
 --  Binding Version 01.00
@@ -48,11 +48,11 @@
 
    type AlphaNumeric_Field is new Field_Type
      with record
-        Minimum_Field_Width : Natural := 0;
+        Minimum_Field_Width : Natural := 0;
      end record;
 
-   procedure Set_Field_Type (Fld : in Field;
-                             Typ : in AlphaNumeric_Field);
+   procedure Set_Field_Type (Fld : in Field;
+                             Typ : in AlphaNumeric_Field);
    pragma Inline (Set_Field_Type);
 
 end Terminal_Interface.Curses.Forms.Field_Types.AlphaNumeric;