INTERFACEThe Proxy Maker (PM) procedure for MouseCB.T is registered by assigning it to MkProxyT.MouseCBProxy ; IMPORT CB, ProxiedObj; FROM MouseCB IMPORT T, Rec;
VAR MkProxyT : PROCEDURE (x : T) := NIL; TYPE Proxy = ProxiedObj.Proxy OBJECT METHODS invoke (mr : Rec) RAISES {CB.BadMethod}; END; END MouseCBProxy.