-- B O D Y --
-- --
------------------------------------------------------------------------------
--- Copyright (c) 1998-2004,2008 Free Software Foundation, Inc. --
+-- Copyright 2020 Thomas E. Dickey --
+-- Copyright 1998-2008,2011 Free Software Foundation, Inc. --
-- --
-- Permission is hereby granted, free of charge, to any person obtaining a --
-- copy of this software and associated documentation files (the --
------------------------------------------------------------------------------
-- Author: Juergen Pfeifer, 1996
-- Version Control
--- $Revision: 1.18 $
--- $Date: 2008/07/26 18:48:30 $
+-- $Revision: 1.20 $
+-- $Date: 2020/02/02 23:34:34 $
-- Binding Version 01.00
------------------------------------------------------------------------------
with Terminal_Interface.Curses; use Terminal_Interface.Curses;
O : Item_Option_Set;
begin
for J in I'Range loop
- Get_Options (I (J), O);
+ Get_Options (I.all (J), O);
O.Selectable := True;
if Hide_Long then
case J is
when others => null;
end case;
end if;
- Set_Options (I (J), O);
+ Set_Options (I.all (J), O);
end loop;
end;
return False;
Set_Pad_Character (M, '|');
MUD.Set_User_Data (M, U1);
- IUD.Set_User_Data (Itm (1), U3);
+ IUD.Set_User_Data (Itm.all (1), U3);
Mh.Drive_Me (M);
MUD.Get_User_Data (M, U2);
pragma Assert (U1 = U2 and U1.all = 4711);
- IUD.Get_User_Data (Itm (1), U4);
+ IUD.Get_User_Data (Itm.all (1), U4);
pragma Assert (U3 = U4 and U3.all = 4712);
Pop_Environment;