1. -- 
  2. -- Uwe R. Zimmer, Australia, 2013 
  3. -- 
  4.  
  5. with Queue_Pack_Object_Base_Private; use Queue_Pack_Object_Base_Private; 
  6.  
  7. package Queue_Pack_Object_Private is 
  8.  
  9.    type Ext_Queue_Type is new Queue_Type with private; 
  10.    subtype Depth_Type is Positive range 1 .. Queue_Size; 
  11.  
  12.    procedure Look_Ahead (Item  : out Element; 
  13.                          Depth :     Depth_Type; Queue : in out Ext_Queue_Type); 
  14.  
  15. private 
  16.    type Ext_Queue_Type is new Queue_Type with null record; 
  17.  
  18. end Queue_Pack_Object_Private;