Re: Dispatching problem.

[petter.fryklund.konsult@dynamics.saab.se (Petter Fryklund)]

> package A is
>    type Msg is abstract tagged null record;
>    procedure Y (X : in out Msg) is abstract;
> 
>    type M1 is new Msg with ...;
>    procedure Y (X : in out Msg);
> 
>    type M2 is new Msg with ...;
>    procedure Y (X : in out Msg);
> end A;
> 
> with A;
> package B is
>    type M1 is new A.M1 with ...;
>    procedure Y (X : in out M1);
> 
>    type M2 is new A.M2 with ...;
>    procedure Y (X : in out M2);
> end B;
> 
> BTW, the package B looks superfluos, as it possibly is, if you are
> saying that A.Mi = B.Mi.
> 
> ---
> Regards,
> Dmitry Kazakov
> www.dmitry-kazakov.de

ur. We forgot to redesign, we just thought of what we already had.
We're changing A to just containing type definitions, since it's
needed in several other places and B to holds the oo stuff.

Thx,
Petter