
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.
   Þ  
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
Ê'  •NewlineDelimiter
–(cedarcode) style™ codešœ™K™OKšœ
Ïeœ7™BK™&K˜ —šÏk	˜	Kšœ1˜1—K˜ šÐlnœžœž˜JK˜ Kšœžœ˜$Kšœžœ"˜2KšœžœÏc˜7Kšœžœ˜(Kšœžœ+˜DKšœžœ˜(Kšœ
žœ ˜.K˜ š
Ïnœžœžœžœžœ˜4K˜ —š¡œžœžœžœ7˜UKšžœ*˜/Kšœ˜K˜ —š¡œžœžœ˜K˜ —š¡œžœžœžœ#˜KKšœ˜K˜ —š
¡œžœžœžœžœ˜HKšžœžœ˜Kšœ˜K˜ —š¡
œžœžœžœ˜4Kšžœžœ˜Kšœ˜K˜ —š
¡	œžœžœžœžœ˜=Kšžœžœ˜Kšœ˜K˜ —š
¡œžœžœžœ
žœ˜RKšžœžœžœ˜Kšœ˜K˜ ——Kšžœ˜— …—    l  q  