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"];
};
Stop: PUBLIC PROC ~ {};
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;
};
END.