Dispatching problem.

[petter_fryklund@hotmail.com]

Hi all!

I get compilation error when I  try to dispatch a call using class
wide access variables stating that I cannot call abstract program.

Perhaps oversimplified example is:

package PBN is
   type Item_T is abstract tagged null record;
   type Item_Ptr is access all Item_T'Class;
   function  Create (From : in String) return access Item_T'Class is
abstract;
   function  Img (From : access Item_T'Class) return String is
abstract;
end PBN;

package PBN.Site is
   type Site_T is new Item_T with
      record
         Name :  ASU.Unbounded_String;
      end record;
   type Site_Ptr is access all Site_T;

   function  Create (From : in String) return Site_Ptr;
   function  Img (From : access Site_T) return String;
end PBN.Site;

with Ada.Text_IO;
with PBN;
with PBN.Site;
procedure Print is
    Site :  PBN.Item_Ptr;
begin
    Site := PBN.Site.Create ("[Site qwerty]");
    Ada.Text_IO.Put_Line (Site.Img);             <-----------------
cannot call abstract program
end Print;

Any suggestions (apart from taking extensive course in OOD ;-) ?

Regards,
Petter