Solo Programadores 22/SOLO_22.iso/docs/lovelace/items.ads

Text File | 1995-10-24 | 329 b | 15 lines

with Occupants;
use  Occupants;

package Items is
 type Item     is new Occupant with private;
 type Item_Access       is access Item'Class;
 function May_I_Get(Direct_Object : access Item;
                    Agent : access Occupant'Class) return Boolean;

private
 type Item     is new Occupant with null record;

end Items;