X-Git-Url: http://ncurses.scripts.mit.edu/?a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-forms-form_user_data__adb.htm;h=c1208aaf78815e620102fe1e746af4a4befdacfc;hb=refs%2Ftags%2Fv5.4;hp=46d298a5dfdac65378e16029f50b7bab634f0d7c;hpb=c633e5103a29a38532cf1925257b91cea33fd090;p=ncurses.git
diff --git a/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm b/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm
index 46d298a5..c1208aaf 100644
--- a/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm
+++ b/doc/html/ada/terminal_interface-curses-forms-form_user_data__adb.htm
@@ -37,9 +37,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.10 @
+-- @Revision: 1.12 @
-- Binding Version 01.00
------------------------------------------------------------------------------
-- |
@@ -49,7 +49,7 @@
-- |
with Terminal_Interface.Curses.Aux; use Terminal_Interface.Curses.Aux;
-package body Terminal_Interface.Curses.Forms.Form_User_Data is
+package body Terminal_Interface.Curses.Forms.Form_User_Data is
use type Interfaces.C.int;
@@ -68,24 +68,24 @@
if Res /= E_Ok then
Eti_Exception (Res);
end if;
- end Set_User_Data;
+ end Set_User_Data;
-- |
-- |
-- |
- function Get_User_Data (Frm : in Form) return User_Access
+ function Get_User_Data (Frm : in Form) return User_Access
is
function Form_Userptr (Frm : Form) return User_Access;
pragma Import (C, Form_Userptr, "form_userptr");
begin
return Form_Userptr (Frm);
- end Get_User_Data;
+ end Get_User_Data;
procedure Get_User_Data (Frm : in Form;
Data : out User_Access)
is
begin
Data := Get_User_Data (Frm);
- end Get_User_Data;
+ end Get_User_Data;
-end Terminal_Interface.Curses.Forms.Form_User_Data;
-