<<>> <> <> <> <> <<>> DIRECTORY Menus USING [MouseButton], ViewerClasses USING [Viewer]; FileViewerOpsBackdoor: CEDAR DEFINITIONS = BEGIN ProcListItemRec: TYPE = RECORD[proc: ErrorLogProc, data: REF ANY]; ProcListItem: TYPE = REF ProcListItemRec; ErrorLogProc: TYPE = PROC[ log: ViewerClasses.Viewer, repeat: BOOLEAN, -- true if this is a repeat call since the log file was created clientData: REF ANY ¬ NIL, parent: ViewerClasses.Viewer, mouseButton: Menus.MouseButton ¬ red, shift, control: BOOL ¬ FALSE]; <> RegisterErrorLogProc: PUBLIC PROC[proc: ErrorLogProc, clientData: REF ANY]; UnregisterErrorLogProc: PUBLIC PROC[proc: ErrorLogProc]; <> GetProcList: PUBLIC PROC RETURNS [LIST OF ProcListItem]; END.