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. n 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 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. returns list of registered procedures Κ…•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ Οeœ7™BK™-K™'K™šΟk ˜ Kšœžœ˜Kšœžœ ˜K˜——šΟnœžœž œžœ˜1K˜Kš œžœžœžœžœ˜CKšœžœžœ˜)šœžœžœ˜Kšœ˜KšœžœΟc?˜PKšœ žœžœžœ˜Kšœ˜Kšœ%˜%Kšœžœžœ˜—K˜Kšœ‹™‹šŸœž œ!žœžœ˜KK˜—KšŸœž œ˜8K˜Kšœ%™%Kš Ÿ œžœžœžœžœžœ˜8K˜K˜—Kšžœ˜K˜—…—΄§