SwapContextsImpl.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Michael Plass, June 3, 1985 7:18:56 pm PDT
DIRECTORY
InterminalBackdoor USING [terminal],
ViewerPrivate USING [SetCreator, ContextCreatorProc],
ImagerTerminal USING [BWContext, ColorContext];
SwapContextsImpl: CEDAR PROGRAM
IMPORTS ViewerPrivate, ImagerTerminal, InterminalBackdoor
~
BEGIN
CreateContext: ViewerPrivate.ContextCreatorProc ~ {
SELECT screen
FROM
bw => RETURN [ImagerTerminal.BWContext[vt: InterminalBackdoor.terminal, pixelUnits: TRUE]];
color => RETURN [ImagerTerminal.ColorContext[vt: InterminalBackdoor.terminal, pixelUnits: TRUE]];
ENDCASE => ERROR;
};
[] ← ViewerPrivate.SetCreator[CreateContext];
END.