From: "Adrian Hoe" <byhoe@greenlime.com>
Subject: How to access parent class/object?
Date: 24 Mar 2005 22:57:10 -0800
Date: 2005-03-24T22:57:10-08:00 [thread overview]
Message-ID: <1111733830.271744.235420@f14g2000cwb.googlegroups.com> (raw)
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?
Thanks.
--
Adrian Hoe
next reply other threads:[~2005-03-25 6:57 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2005-03-25 6:57 Adrian Hoe [this message]
2005-03-25 7:48 ` How to access parent class/object? Dmitry A. Kazakov
2005-03-25 8:10 ` Adrian Hoe
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