Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
Created on Fri Jul 22 16:56:51 PDT 1994 by najork
MODULE PositionCB EXPORTS PositionCB, PositionCBProxy;
IMPORT CB;
REVEAL
T = Public BRANDED OBJECT
OVERRIDES
init := Init;
invoke := Invoke;
END;
PROCEDURE Init (self : T) : T =
BEGIN
self.proxy := NIL;
IF MkProxyT # NIL THEN
MkProxyT (self);
END;
RETURN self;
END Init;
PROCEDURE Invoke (self : T; pr : Rec) RAISES {CB.BadMethod} =
BEGIN
IF self.proxy # NIL THEN
NARROW (self.proxy, Proxy).invoke (pr);
ELSE
RAISE CB.BadMethod("PositionCB.T.invoke method is undefined");
END;
END Invoke;
BEGIN
END PositionCB.