INTERFACE ObValueCBProxy;

IMPORT EmbProxiedObj, ObValueRep, ObValue, ObValueCB;

VAR
  MkProxyReplObjStdCB : PROCEDURE(x: ObValueCB.ReplObjStd) := NIL;

TYPE
  CBProxyReplObjStd = EmbProxiedObj.Proxy OBJECT METHODS
    pre_anyChange (READONLY obj: ObValue.ReplObjStd);
    post_anyChange (READONLY obj: ObValue.ReplObjStd);
    pre_InvokeUpdate (READONLY obj: ObValue.ReplObjStd;
                      label: TEXT;
                      argNo: INTEGER;
                      READONLY args: ObValue.Vals;
                      VAR hint: INTEGER): BOOLEAN;
    post_InvokeUpdate (READONLY obj: ObValue.ReplObjStd;
                       label: TEXT;
                       argNo: INTEGER;
                       READONLY args: ObValue.Vals;
                       VAR hint: INTEGER): BOOLEAN;
    pre_init (READONLY obj: ObValue.ReplObjStd): BOOLEAN;
    post_init (READONLY obj: ObValue.ReplObjStd): BOOLEAN;
    pre_Update (READONLY obj: ObValue.ReplObjStd;
                label: TEXT;
                val: ObValue.Val;
                internal: BOOLEAN;
                VAR hint: INTEGER): BOOLEAN;
    post_Update (READONLY obj: ObValue.ReplObjStd;
                 label: TEXT;
                 val: ObValue.Val;
                 internal: BOOLEAN;
                 VAR hint: INTEGER): BOOLEAN;
  END;

END ObValueCBProxy.