X-Git-Url: http://ncurses.scripts.mit.edu/?p=ncurses.git;a=blobdiff_plain;f=doc%2Fhtml%2Fada%2Fterminal_interface-curses-menus-item_user_data__ads.htm;h=31f1694c19b3e3a331b2e10ec4275b4ddaf2aa3c;hp=b583963189917ae3b77eae64a91895f90d0eafa4;hb=34d602f272c394e9a980438e636e1ce4d355f83b;hpb=c9c32236e27689a61c794b714c6b86c460866e35 diff --git a/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm b/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm index b5839631..31f1694c 100644 --- a/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm +++ b/doc/html/ada/terminal_interface-curses-menus-item_user_data__ads.htm @@ -60,8 +60,8 @@ generic type User is limited private; type User_Access is access User; -package Terminal_Interface.Curses.Menus.Item_User_Data is - pragma Preelaborate (Terminal_Interface.Curses.Menus.Item_User_Data); +package Terminal_Interface.Curses.Menus.Item_User_Data is + pragma Preelaborate (Terminal_Interface.Curses.Menus.Item_User_Data); -- The binding uses the same user pointer for menu items -- as the low level C implementation. So you can safely @@ -72,21 +72,21 @@ -- |===================================================================== -- #1A NAME="AFU_1"#2| - procedure Set_User_Data (Itm : Item; + procedure Set_User_Data (Itm : Item; Data : User_Access); -- AKA: set_item_userptr pragma Inline (Set_User_Data); -- #1A NAME="AFU_2"#2| - procedure Get_User_Data (Itm : Item; - Data : out User_Access); + procedure Get_User_Data (Itm : Item; + Data : out User_Access); -- AKA: item_userptr -- #1A NAME="AFU_3"#2| - function Get_User_Data (Itm : Item) return User_Access; + function Get_User_Data (Itm : Item) return User_Access; -- AKA: item_userptr -- Same as function pragma Inline (Get_User_Data); -end Terminal_Interface.Curses.Menus.Item_User_Data; +end Terminal_Interface.Curses.Menus.Item_User_Data;