Inherited Methods and such

[shaunpatterson@gmail.com]

Hi,

    I'm trying to get sub-packages to override superclass methods.
Specifically, I'm trying to implement a Template Design pattern
in Ada.

I want a function in the base package that calls two methods
and some other code.  Something like:


--- BASE CLASS ---

package body Base is

procedure Load is begin
   go;
end Load;

procedure Test1 is begin
   Put_Line ("Test1 FROM BASE CLASS");
end Test1;

procedure Test2 is begin
    Put_Line ("Test2 FROM BASE CLASS");
end Test2;

procedure Do is begin
   Test1;
   Put_Line ("Doing something");
   Test2;

end Do;

end Base;

---------

then in the sub classes, I'd like to over ride Test1 and 2 into
something like:

package Base.SubclassA is
   procedure Test1 is begin
       Put_Line ("Test1 FROM SUBCLASS A");
   end Test1;

   procedure Test2 is begin
        Put_Line ("Test2 FROM SUBCLASS A");
   end Test2;
end Base.SubclassA;


---------------------

Now I'd like to call it something like:

if UsingBaseClass then

     Base.go;

else

     Base.SubclassA.go;

end if;


--------------------

If the baseclass test passes, I'd like the output:

Test1 FROM BASE CLASS
doing something
Test2 FROM BASE CLASS

else

Test1 FROM SUBCLASSA
doing something
Test2 FROM SUBCLASSA



Is this type of method inheritance supported in ada? If so,
where am I going wrong?

Thanks
--
Shaun Patterson