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=2.1 required=5.0 tests=BAYES_20,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC 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: David Wallace <averon@argonet.co.uk>
Subject: Re: Can you help with an Ada 95 OO Problem (Solution !!!)
Date: 1997/01/21
Message-ID: <na.e91cab4750.a50140averon@argonet.co.uk>#1/1
X-Deja-AN: 211766326
distribution: world
references: <na.9173d8474e.a50140averon@argonet.co.uk>
 <na.fb04c5474f.a50140averon@argonet.co.uk>
followup-to: comp.lang.ada
organization: ArgoNet, but does not reflect its views
reply-to: David Wallace <averon@argonet.co.uk>
newsgroups: comp.lang.ada
Date: 1997-01-21T00:00:00+00:00
List-Id: <comp.lang.ada>


Thanks to Jon and JDesquilbet for the solution.

   The answer is to make the call to the parent type operation as follows:

   Htt.Headers.Init(Obj => Header(Obj.all)'Access);

   Obj.all is the object. Header(Obj.all) _converts_ towards the _root_
   (perfectly safe) and the 'Access generates the access value for the
   call on the parent operation.


   Many thanks,

         Dave Wallace

--
--. --. --. --. : : --- --- .---------------------------------------------.
|_| |_| | _ | | | | |_   |  |Internet provider for all Acorn RISC machines|
| | |\  | | | | |\| |    |  '---------------------------------------------'
| | | \ |_| |_| | | |__  |  averon@argonet.co.uk