From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,d6fce62235e109c0 X-Google-Attributes: gid103376,public From: jsa@alexandria (Jon S Anthony) Subject: Re: Can you help with an Ada 95 OO Problem Date: 1997/01/20 Message-ID: #1/1 X-Deja-AN: 211186721 sender: news@organon.com (news) references: organization: Organon Motives, Inc. newsgroups: comp.lang.ada Date: 1997-01-20T00:00:00+00:00 List-Id: In article mheaney@ni.net (Matthew Heaney) writes: > Try a view conversion of the designated object, to get at its primitive > operation: > > Http.Headers.Init (Obj => Http.Headers.Header (Header_Ref.all)); > > I'm not sure that will work, but try it and let me know (so I can learn, too!). He doesn't have a "non-access" parameter version of the operation, so you need to add a 'Access to the converted object. That should work, but you can make it simpler. Just, Http.Headers.Init (Obj => Http.Headers.Header(Obj.all)'Access); The new access object is irrelevant. > There was some debate a while back about how to invoke the parent's > implementation of the operation. There was one case (cited by Mitch) that > required a very un-obvious technique. Perhaps your difficulties mean I think that had to do with "smoothly" changing the parent (by adding in an intermediate). This is fixed by using a subtype. Works just fine. I suppose the 'Parent thing would look a little nicer... /Jon -- Jon Anthony Organon Motives, Inc. Belmont, MA 02178 617.484.3383 jsa@organon.com