Package spec Items

 
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;

You may also see the corresponding body. The following compilation units refer to ("with") Package spec Items:

The following compilation units are referred to ("with"'ed) by Package spec Items: You may return to the Program Small Home Page

This hypertext format was generated by David A. Wheeler's ada2html