Re: Strongly coupled generic children?

[Pascal Ledru <Ledru#m#_Pascal@MSMAIL3.HAC.COM>]

What about using a formal package as a parameter of X.Z:

generic
  type P1_Type is private;
package P1 is
  procedure MainProc;
end P1;

generic
package P1.Y is
  procedure Somewhat;
end p1.Y;

with P1.Y;
generic
  with package P1Y is new P1.Y(<>);
package P1.Z is
  procedure DoSomething;
end;

package body P1.Z is
  procedure Dosomething is
  begin
    p1Y.Somewhat;
  end;
end;

with P1;
with P1.Y;
with P1.Z;
package test is

  package I1 is new P1(P1_Type => Integer);

  package I2 is new I1.Y;

  package I3 is new I1.Z(P1Y => I2);

end;