ImplErrorsImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Doug Wyatt, April 14, 1985 11:50:43 pm PST
Russ Atkinson (RRA) June 19, 1985 2:03:30 pm PDT
DIRECTORY
ViewerPrivate USING [Severity],
Rope USING [ROPE],
UserProfile USING [Boolean];
ImplErrorsImpl:
CEDAR
MONITOR
IMPORTS UserProfile
EXPORTS ViewerPrivate
= BEGIN
Severity: TYPE ~ ViewerPrivate.Severity;
Error: PUBLIC SIGNAL [severity: Severity ← fatal, msg: Rope.ROPE ← NIL] = CODE;
UserErrorQuery:
PUBLIC
ENTRY
PROC
RETURNS [continue:
BOOL ←
FALSE] =
TRUSTED {
RRA: formerly used to query user as to whether or not to continue when an uncaught error occurs in a paint or TIP notification procedure (not currently used, perhaps this entire module should go away).
ENABLE UNWIND => NULL;
IF UserProfile.Boolean["Viewers.WorldSwapDebug", FALSE] THEN RETURN [FALSE];
};
END.