ColorDisplayManagerImpl.mesa
Contents: completely stubbed out ColorDisplayManager implementation for PCedar.
Copyright Ó 1988, 1991 by Xerox Corporation. All rights reserved.
Pier, November 21, 1988 5:55:25 pm PST
DIRECTORY
ColorDisplayManager, Imager, Rope, ViewerClasses;
ColorDisplayManagerImpl:
CEDAR MONITOR EXPORTS ColorDisplayManager ~
BEGIN
Viewer: TYPE ~ ViewerClasses.Viewer;
Resolution: TYPE ~ ColorDisplayManager.Resolution;
Side: TYPE ~ ColorDisplayManager.Side; -- {left, right}
Level: TYPE ~ ColorDisplayManager.Level;
ColorContextCreator: TYPE ~ ColorDisplayManager.ColorContextCreator;
State: TYPE ~ ColorDisplayManager.State;
StateRep: TYPE ~ ColorDisplayManager.StateRep;
Error:
PUBLIC
ERROR [explanation: Rope.
ROPE] ~
CODE;
Start:
PUBLIC
PROC [type:
ATOM, side: Side, level: Level, resolution: Resolution] ~ {
ERROR Error["No color display for PCedar yet"];
};
RegisterCreator:
PUBLIC
PROC [type:
ATOM, creator: ColorContextCreator] ~ {
};
FetchCreator:
PUBLIC
PROC [type:
ATOM]
RETURNS [ColorContextCreator] ~ {
RETURN[NIL];
};
GetContext:
PUBLIC
PROC
RETURNS [Imager.Context] ~ {
RETURN[NIL];
};
NextState:
PUBLIC
ENTRY
PROC [old: State]
RETURNS [State] ~ {
RETURN[NIL];
};
CallWhileCurrentStateLocked:
PUBLIC
ENTRY
PROC [action:
PROC [current: State]] ~ {
ENABLE UNWIND => NULL;
};