Re: Problem with protected type

["Ekkehard Morgenstern" <ekkehard.morgenstern@onlinehome.de>]

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.