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.1 required=5.0 tests=BAYES_00,
	PP_MIME_FAKE_ASCII_TEXT autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII
X-Google-Thread: 103376,3a34550290fdc12c
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-07-11 13:21:19 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!news-out1.nntp.be!propagator2-sterling!In.nntp.be!news.grnet.gr!news.ntua.gr!not-for-mail
From: "Papastefanos Serafeim" <serafeim@otenet.gr>
Newsgroups: comp.lang.ada
Subject: Re: Problems with tagged records and inheritance
Date: Fri, 11 Jul 2003 14:49:08 +0300
Organization: National Technical University of Athens, Greece
Message-ID: <ben67t$60c$1@ulysses.noc.ntua.gr>
References: <bekkpr$12eg$1@ulysses.noc.ntua.gr>
NNTP-Posting-Host: lami364-b003.otenet.gr
X-Trace: ulysses.noc.ntua.gr 1057954878 6156 62.103.228.99 (11 Jul 2003
 20:21:18 GMT)
X-Complaints-To: usenet@ulysses.noc.ntua.gr
NNTP-Posting-Date: Fri, 11 Jul 2003 20:21:18 +0000 (UTC)
X-Newsreader: Microsoft Outlook Express 4.72.3110.5
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Xref: archiver1.google.com comp.lang.ada:40206
Date: 2003-07-11T14:49:08+03:00
List-Id: <comp.lang.ada>

I got it, thanks for the answers...

� Papastefanos Serafeim ������ ��� ������ ...
>I have using a base type like this:
>...
>type Base is tagged private;
>...
>type Base is tagged record
>         AAA: Integer:=1;
>      end record;
>
>and a child type like this
>
>type Child is new Base with private;
>....
>type Child is new Base with record
>        BBB: Integer:=5;
>      end record;
>
>The problem is that the following is not working:
>
>   procedure Test(Ch: in Child) is
>   begin
>      Put(Ch.AAA); --<- This line has an error, it says no selector AAA for
>type Child
>      Put(Ch.BBB);
>   end Test;
>The procedure Test is declared in the same package
>as the type Child and defined at the package's Body.
>
>The error is becouse AAA is not part of Child.
>Why is that ? I thought that Child would contain
>AAA and BBB, and not only BBB...
>
>--
>Papastefanos Serafeim
>serafeim@otenet.gr
>
>