From: "Adrian Hoe" <byhoe@greenlime.com>
Subject: Re: How to access parent class/object?
Date: 25 Mar 2005 00:10:33 -0800
Date: 2005-03-25T00:10:33-08:00 [thread overview]
Message-ID: <1111738233.319058.319790@g14g2000cwa.googlegroups.com> (raw)
In-Reply-To: <1a1i0bsj6w543.qanvlsnuodfy$.dlg@40tude.net>
Thanks Dmitry. I have just posted the solution.
I did not think hard enough. Sorry, anyway thanks again.
Cheers,
--
Adrian Hoe
Dmitry A. Kazakov wrote:
> On 24 Mar 2005 22:57:10 -0800, Adrian Hoe wrote:
>
> > Hi,
> >
> > I have the following codes (abbreviated):
> >
> > package A is
> > type A_Object is tagged private;
> > ...
> > end A;
> >
> > package B is
> > type B_Object is new A_Object with private;
> > ...
> > end B;
> >
> > package C is
> > type C_Object is new B_Object with private;
> > ...
> > end C;
> >
> > package D is
> > type D_Object is new C_Object with private;
> > ...
> > end D;
> >
> > Now, I have the following declaration:
> >
> > My_D_Object is D.D_Object;
> >
> > How can I reference the parent objects?
> >
> > procedure Process_C (C_Obj : access C_Object);
> > procedure Process_D (D_Obj : access D_Object);
> >
> > How can I pass C_Object and D_Object into Process_C and Process_D
> > respectively given only My_D_Object is D.D_Object?
>
> My_D_Object : aliased D_Object := ...;
>
> Process_C (C_Object (My_D_Object)'Access);
> Process_D (My_D_Object'Access);
>
> --
> Regards,
> Dmitry A. Kazakov
> http://www.dmitry-kazakov.de
next prev parent reply other threads:[~2005-03-25 8:10 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-03-25 6:57 How to access parent class/object? Adrian Hoe
2005-03-25 7:48 ` Dmitry A. Kazakov
2005-03-25 8:10 ` Adrian Hoe [this message]
2005-03-25 8:08 ` Adrian Hoe
2005-03-25 8:08 ` Adrian Hoe
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox