OberonCore

DIOPCGroupEvent = POINTER TO ABSTRACT RECORD (CtlT.OutObject)
         (this: DIOPCGroupEvent) AsyncCancelComplete (CancelID: INTEGER), NEW, ABSTRACT;
         (this: DIOPCGroupEvent) AsyncReadComplete (TransactionID, NumItems: INTEGER; ClientHandles, ItemValues, Qualities, TimeStamps, Errors: CtlT.Any), NEW, ABSTRACT;
         (this: DIOPCGroupEvent) AsyncWriteComplete (TransactionID, NumItems: INTEGER; ClientHandles, Errors: CtlT.Any), NEW, ABSTRACT;
         (this: DIOPCGroupEvent) DataChange (TransactionID, NumItems: INTEGER; ClientHandles, ItemValues, Qualities, TimeStamps: CtlT.Any), NEW, ABSTRACT;
         (this: DIOPCGroupEvent) GetIID (OUT iid: COM.GUID);
         (this: DIOPCGroupEvent) Invoke (id, n: INTEGER; VAR par: CtlT.ParList; VAR ret: WinOleAut.VARIANT)
      END;

...
My_DIOPCGroupEvent = POINTER TO RECORD (DIOPCGroupEvent) END;
...
PROCEDURE (this: My_DIOPCGroupEvent) AsyncCancelComplete (CancelID: INTEGER);
BEGIN
END AsyncCancelComplete;
...