Re: Constructors with multiple inheritance

[AdaMagica <christ-usch.grein@t-online.de>]

package Par_Pkg is

  type Par_Class is tagged private;

  function Construct (aValue: Integer; aName: Integer)
    return Par_Class;

private

  type Par_Class is tagged record
    theValue: Integer;
    theName : Integer;
  end record;

end Par_Pkg;
package body Par_Pkg is

  function Construct (aValue: Integer; aName: Integer)
                      return Par_Class is
  begin
    return (theValue => aValue,
            theName  => aName);
  end Construct;

end Par_Pkg;
with Par_Pkg;
use  Par_Pkg;

procedure Par_Main is

  Par_Obj: Par_Class := Construct (aValue => 12, aName => 23);

begin

  null;

end Par_Main;