Problem implementing Iterators

[Laurent <daemon2@internet.lu>]

Hi

I tried to add an iterator to my double linked list using the example from John Barnes Ada 2005 book, chapter about iterators.

For the moment the only procedure using the iterator is the Display one.

In my test app I get this error when I compile it:

   package GL_String is
     new Double_Linked_Lists_Generic (Element_Type    => Name_Type,
                                      Display_Element => Display_String );
L1 : GL_String.List ;

   GL_String.Display (L1); <-- error

expected an access type with designated private type "List" defined at double_linked_lists_generic.ads:7, instance at line 23 
found private type "List" defined at double_linked_lists_generic.ads:7, instance at line 23 

List and Iterator are defined as: 

 type List is limited private;
 type Iterator (L : access List) is limited private;

(...)
private

   type List_Node;
   type List_Ptr is access List_Node;
   type List_Node is record
      Element : Element_Type;
      Next    : List_Ptr;
      Previous:List_Ptr;
   end record;

   type List is record <-- example in the book is a list without head/tail
      Head : List_Ptr;
      Tail : List_Ptr;
   end record;

   type Iterator (L : access List) is limited
      record
         This :  List_Ptr;
      end record;

So how do I get this to work?

Thanks