X-Git-Url: https://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-field_user_data__ads.htm;h=f506ab5daeca85d1e5de6cd1aea878eec5839565;hp=de086738b84434ebc9dc94c6617b7c5454aac14f;hb=refs%2Ftags%2Fv5.5;hpb=a8987e73ec254703634802b4f7ee30d3a485524d
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 de086738..f506ab5d 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
@@ -1,3 +1,4 @@
+
terminal_interface-curses-forms-field_user_data.ads
File : terminal_interface-curses-forms-field_user_data.ads
@@ -45,8 +46,8 @@
------------------------------------------------------------------------------
generic
- type User is limited private;
- type User_Access is access User;
+ 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);
@@ -55,13 +56,13 @@
-- |=====================================================================
-- #1A NAME="AFU_1"#2|
- procedure Set_User_Data (Fld : in Field;
+ procedure Set_User_Data (Fld : in Field;
Data : in User_Access);
-- AKA: set_field_userptr
pragma Inline (Set_User_Data);
-- #1A NAME="AFU_2"#2|
- procedure Get_User_Data (Fld : in Field;
+ procedure Get_User_Data (Fld : in Field;
Data : out User_Access);
-- AKA: field_userptr