FileViewerOpsBackdoor.mesa
Copyright Ó 1989, 1991 by Xerox Corporation. All rights reserved.
David Goldberg April 27, 1989 12:15:10 pm PDT
Willie-s, October 31, 1991 12:59 pm PST
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];
Add proc to the list of procedures executed on the second and subsequent clicks on the ErrorLog button. The first click brings up the log.
RegisterErrorLogProc:
PUBLIC PROC[proc: ErrorLogProc, clientData:
REF
ANY];
UnregisterErrorLogProc: PUBLIC PROC[proc: ErrorLogProc];
returns list of registered procedures
GetProcList: PUBLIC PROC RETURNS [LIST OF ProcListItem];