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. „SwapContextsImpl.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Michael Plass, June 3, 1985 7:18:56 pm PDT Êâ˜™Icodešœ Ïmœ1™