X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_user_data__ads.htm;h=16f88510182de2e1e4c192c4a0a16dc693dd55bf;hp=b380bf1adbd5a2c35e2077b91c7284f360990667;hb=f7b8e526e024ce141e61633e966255400de67772;hpb=9c9ca6d67ecb4d929b7239cadbd79db649bdf8c6
diff --git a/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm b/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm
index b380bf1a..16f88510 100644
--- a/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm
+++ b/doc/html/ada/terminal_interface-curses-forms-field_user_data__ads.htm
@@ -3,7 +3,6 @@
File : terminal_interface-curses-forms-field_user_data.ads
-
------------------------------------------------------------------------------
-- --
-- GNAT ncurses Binding --
@@ -46,31 +45,31 @@
------------------------------------------------------------------------------
generic
- type User is limited private;
- type User_Access is access User;
-package Terminal_Interface.Curses.Forms.Field_User_Data is
- pragma Preelaborate (Terminal_Interface.Curses.Forms.Field_User_Data);
+ type User is limited private;
+ type User_Access is access User;
+package Terminal_Interface.Curses.Forms.Field_User_Data is
+ pragma Preelaborate (Terminal_Interface.Curses.Forms.Field_User_Data);
-- |=====================================================================
-- | Man page form_field_userptr.3x
-- |=====================================================================
-- #1A NAME="AFU_1"#2|
- procedure Set_User_Data (Fld : in Field;
- Data : in User_Access);
+ procedure Set_User_Data (Fld : in Field;
+ Data : in User_Access);
-- AKA: set_field_userptr
- pragma Inline (Set_User_Data);
+ pragma Inline (Set_User_Data);
-- #1A NAME="AFU_2"#2|
- procedure Get_User_Data (Fld : in Field;
- Data : out User_Access);
+ procedure Get_User_Data (Fld : in Field;
+ Data : out User_Access);
-- AKA: field_userptr
-- #1A NAME="AFU_3"#2|
- function Get_User_Data (Fld : in Field) return User_Access;
+ function Get_User_Data (Fld : in Field) return User_Access;
-- AKA: field_userptr
-- Sama as function
pragma Inline (Get_User_Data);
-end Terminal_Interface.Curses.Forms.Field_User_Data;
+end Terminal_Interface.Curses.Forms.Field_User_Data;