pkgobj/derived/PackageObj_Monitor_v1.i3


INTERFACE PackageObj_Monitor_v1;

IMPORT Thread, NetObj, StubLib, Rd, Wr, PackageObj;
TYPE Surrogate_PackageObj_Monitor = PackageObj.Monitor OBJECT
      OVERRIDES
        report := Surrogate_report;
      END;

PROCEDURE Surrogate_report(self: PackageObj.Monitor; arg: REFANY)
     RAISES {NetObj.Error, Thread.Alerted};

PROCEDURE Stub_report(
    self: PackageObj.Monitor;
    c: StubLib.Conn;
    rep: StubLib.DataRep) RAISES {NetObj.Error, Rd.Failure, Wr.Failure,
    Thread.Alerted};

END PackageObj_Monitor_v1.