<> <> <> 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.