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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,b0f4738b8e27cca3
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2003-11-25 07:43:32 PST
Path: 
 archiver1.google.com!news2.google.com!news.maxwell.syr.edu!takemy.news.telefonica.de!telefonica.de!feed.news.schlund.de!schlund.de!news.online.de!not-for-mail
From: "Ekkehard Morgenstern" <ekkehard.morgenstern@onlinehome.de>
Newsgroups: comp.lang.ada
Subject: Re: Problem with protected type
Date: Tue, 25 Nov 2003 16:43:33 +0100
Organization: 1&1 Internet AG
Message-ID: <bpvtb2$a1o$1@online.de>
References: <bpvrlt$6cs$1@online.de>
NNTP-Posting-Host: p508c004b.dip0.t-ipconnect.de
X-Trace: online.de 1069775010 10296 80.140.0.75 (25 Nov 2003 15:43:30 GMT)
X-Complaints-To: abuse@einsundeins.com
NNTP-Posting-Date: Tue, 25 Nov 2003 15:43:30 +0000 (UTC)
X-Priority: 3
X-MSMail-Priority: Normal
X-Newsreader: Microsoft Outlook Express 6.00.2800.1158
X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1165
Xref: archiver1.google.com comp.lang.ada:2924
Date: 2003-11-25T16:43:33+01:00
List-Id: <comp.lang.ada>


I solved the problem by using a class-wide type access and an init
procedure:

 type CoreEvent is tagged private;
 type CoreEvent_Ptr is access all CoreEvent'Class;

 function CreateCoreEvent return CoreEvent_Ptr;

 protected BaseEvent is
  procedure Init;
  entry Wait;
  procedure Signal;
  procedure ManualMode;
  procedure AutoMode;
  procedure Reset;
  function IsSignaled return Boolean;
 private
  EventObject : CoreEvent_Ptr := null;
  ManualReset : Boolean      := FALSE;
 end BaseEvent;

But why is this necessary?

And can I create inheritable protected classes?

regards,
Ekkehard.