X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_types-alpha__ads.htm;h=ab3427ab67b62ca05a3c24f38d467a57d094028b;hb=b9a2bd87a73d976d1c916815e2d370bf1090d1b2;hp=1c7e1a2e40c2fd99201a921e3011a9bacbacf968;hpb=761e4f0825b330e970558e82a4bd638383914429;p=ncurses.git
diff --git a/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm b/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm
index 1c7e1a2e..ab3427ab 100644
--- a/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-forms-field_types-alpha__ads.htm
@@ -55,17 +55,17 @@
-package Terminal_Interface.Curses.Forms.Field_Types.Alpha is
- pragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types.Alpha);
+package Terminal_Interface.Curses.Forms.Field_Types.Alpha is
+ pragma Preelaborate (Terminal_Interface.Curses.Forms.Field_Types.Alpha);
- type Alpha_Field is new Field_Type
+ type Alpha_Field is new Field_Type
with record
Minimum_Field_Width : Natural := 0;
end record;
- procedure Set_Field_Type (Fld : Field;
+ procedure Set_Field_Type (Fld : Field;
Typ : Alpha_Field);
pragma Inline (Set_Field_Type);
-end Terminal_Interface.Curses.Forms.Field_Types.Alpha;
+end Terminal_Interface.Curses.Forms.Field_Types.Alpha;