DIRECTORYColorDisplay,InterminalExtraExtra USING [GetColorDisplaySide, SetColorDisplaySide],MonitorToolDefsExtras USING [Start640Monitor, Start1024Monitor],Process USING [Detach, InitializeCondition, Pause, Ticks],Rope USING [Equal, ROPE],Terminal USING [BitmapState, ChannelsVisible, ColorMode, Current, GetColorBitmapState, GetColorMode, GetVisibility, SetColorBitmapState, Virtual],UserProfile USING [Number, Token],ViewerClasses USING [Viewer],ViewerOps USING [ChangeColumn, CloseViewer, ComputeColumn, EnumerateViewers, EnumProc, OpenIcon],WindowManager USING [colorDisplayOn, ScreenPos, StartColorViewers, StopColorViewers];ColorDisplayImpl: CEDAR MONITOR IMPORTS InterminalExtraExtra, MonitorToolDefsExtras, Process, Rope, Terminal, UserProfile, ViewerOps, WindowManagerEXPORTS ColorDisplay~ {OPEN ColorDisplay;bppLast: PUBLIC CARDINAL _ 8;onLeftLast: PUBLIC BOOLEAN _ TRUE;monitorTypeLast: PUBLIC Rope.ROPE _ "640x480";DefaultBpp, Bpp: PUBLIC PROC RETURNS [bpp: CARDINAL] ~ {	--Has side effect of remembering bppIF WindowManager.colorDisplayOn THEN {OPEN Terminal;colorMode: ColorMode _ GetColorMode[Current[]];bpp _ (IF colorMode.full THEN 24 ELSE colorMode.bitsPerPixelChannelA);}ELSE bpp _ bppLast;bppLast _ bpp;						--Remember the setting of the screen};DefaultOnLeft, OnLeft: PUBLIC PROC RETURNS [onLeft: BOOLEAN] ~ {SELECT TRUE FROM~WindowManager.colorDisplayOn => onLeft _ onLeftLast;InterminalExtraExtra.GetColorDisplaySide[] = left => onLeft _ TRUE;ENDCASE => onLeft _ FALSE;onLeftLast _ onLeft;};DefaultOn: PUBLIC PROC RETURNS [BOOLEAN] ~ {RETURN[WindowManager.colorDisplayOn];};DefaultMonitorType: PUBLIC PROC RETURNS [Rope.ROPE] ~ {RETURN[monitorTypeLast];};SetColorDisplayStatus: PUBLIC ENTRY PROC[on: BOOLEAN _ DefaultOn[],onLeft: BOOLEAN _ DefaultOnLeft[],bpp: CARDINAL _ DefaultBpp[],monitorType: Rope.ROPE _ DefaultMonitorType[]]~ {NOTIFY forCDChanges;		--Let the informant know...IF (on=WindowManager.colorDisplayOn AND bpp=Bpp[] AND monitorType=monitorTypeLast) THEN {	--Only side of display possibly changing...IF on THEN InterminalExtraExtra.SetColorDisplaySide[IF onLeft THEN left ELSE right];RETURN;};{colorViewerList, colorIconList: LIST OF ViewerClasses.Viewer _ NIL;ListColorViewers: PROC ~ TRUSTED {			--Constructs a list of the color viewersEnumColorViewers: ViewerOps.EnumProc ~ TRUSTED {IF v.column=color THENIF v.iconic THEN colorIconList _ CONS[v,colorIconList] ELSE {ViewerOps.CloseViewer[v, FALSE];colorViewerList _ CONS[v,colorViewerList];};};ViewerOps.EnumerateViewers[enum: EnumColorViewers];ViewerOps.ComputeColumn[static];};ReopenColorViewers: PROC ~ TRUSTED {		--Reopen the listed color viewersFOR each: LIST OF ViewerClasses.Viewer _ colorViewerList, each.rest UNTIL each=NIL DOViewerOps.ChangeColumn[each.first, color];ViewerOps.OpenIcon[icon: each.first, paint: FALSE];ENDLOOP;ViewerOps.ComputeColumn[color];FOR each: LIST OF ViewerClasses.Viewer _ colorIconList, each.rest UNTIL each=NIL DOViewerOps.ChangeColumn[each.first, color];ENDLOOP;};side: WindowManager.ScreenPos _ IF onLeft THEN left ELSE right;onLeftLast _ onLeft;bppLast _ bpp;monitorTypeLast _ monitorType;		--Back up the given parametersListColorViewers[];WindowManager.StopColorViewers[];IF on THEN {SELECT TRUE FROMRope.Equal[s1: monitorType, s2: "640x480", case: FALSE] => TRUSTED {MonitorToolDefsExtras.Start640Monitor[bitsPerPixel: bpp, pos: side]};Rope.Equal[s1: monitorType, s2: "1024x768", case: FALSE] => TRUSTED {MonitorToolDefsExtras.Start1024Monitor[bitsPerPixel: bpp, pos: side]};ENDCASE => WindowManager.StartColorViewers[screenPos: side, bitsPerPixel: bpp];ReopenColorViewers[];};};};GetColorDisplayStatus: PUBLIC ENTRY PROC RETURNS [on, onLeft: BOOLEAN, bpp: CARDINAL, monitorType: Rope.ROPE] ~ {ENABLE UNWIND => NULL;[on, onLeft, bpp, monitorType] _ GetColorDisplayStatusInternal[];};GetCDState: INTERNAL PROC RETURNS [state: CDState] ~ INLINE {[state.on, state.onLeft, state.bpp, state.monitorType] _ GetColorDisplayStatusInternal[];};GetColorDisplayStatusInternal: INTERNAL PROC RETURNS [on, onLeft: BOOLEAN, bpp: CARDINAL, monitorType: Rope.ROPE] ~ {on _ WindowManager.colorDisplayOn;onLeft _ OnLeft[];bpp _ Bpp[];monitorType _ monitorTypeLast;};GetColorDisplayProfile: PUBLIC PROC RETURNS [on, onLeft: BOOLEAN, bpp: CARDINAL, monitorType: Rope.ROPE] ~ {RightOrLeft: PROC RETURNS[rl: Rope.ROPE] ~ INLINE {rl _ IF onLeftLast THEN "left" ELSE "right"};tBpp: INTEGER;			--Temporary bits per pixelon _ WindowManager.colorDisplayOn;SELECT tBpp _ UserProfile.Number["ColorDisplay.BitsPerPoint", Bpp[]] FROM1,2,4,8,24 => bpp _ tBpp;ENDCASE => bpp _ Bpp[];onLeft _ Rope.Equal[UserProfile.Token["ColorDisplay.Side", RightOrLeft[]], "left", FALSE];monitorType _ UserProfile.Token["ColorDisplay.Type", monitorTypeLast];};procList: LIST OF CDNotifyProc _ NIL;RegisterCDNotifyProc: PUBLIC ENTRY PROC [proc: CDNotifyProc] ~ {ENABLE UNWIND => NULL;procList _ CONS[proc, procList];};forCDChanges: CONDITION;WatchForChanges: ENTRY PROC ~ {ENABLE UNWIND => NULL;old, new: CDState _ GetCDState[];DOWHILE old = (new _ GetCDState[]) DOWAIT forCDChanges;ENDLOOP;FOR each: LIST OF CDNotifyProc _ procList, each.rest UNTIL each=NIL DOTRUSTED {Process.Detach[FORK each.first[old, new]];}ENDLOOP;old _ new;ENDLOOP;};SleepColorDisplay: PUBLIC ENTRY PROC [ticks: Process.Ticks] ~ {OPEN Terminal;ENABLE UNWIND => NULL;vt: Virtual _ Current[];state: BitmapState _ GetColorBitmapState[vt];mode: ColorMode _ GetColorMode[vt];visible: ChannelsVisible _ GetVisibility[vt];IF state#displayed THEN RETURN;[] _ SetColorBitmapState[vt, allocated, mode, none];Process.Pause[ticks];[] _ SetColorBitmapState[vt, state, mode, visible];};Init: PROC[] RETURNS[] ~ {[,onLeftLast, bppLast, monitorTypeLast] _ GetColorDisplayProfile[];TRUSTED {Process.InitializeCondition[@forCDChanges, 300];Process.Detach[FORK WatchForChanges[]];};};Init[];}.   ь  ColorDisplayImpl.mesaCreated from old ColorDisplay by Mik Lamming and Ken PierLast Edited by: Nickell, April 1, 1985 5:01:29 am PSTLast Edited by: Beach, August 17, 1984 5:24:14 pm PDTLast Edited by: Pier, November 19, 1984 3:10:48 pm PSTbppLast and sideLast are examined only when the color display is off.  This lets the ColorDisplay package know where to default them to when the color display is turned on again.  NOTE:  Every call to the ColorDisplay package will cause these values to be updated with the actual state of the machine, if it is on.Here, we need to play with everything...Reset the icons that WOULD have been opened on the color display back thereRead the user profile to establish the initial back settings... Э╩:  Ш ЩJЩ9JЩ5JЩ5JЩ6ЧЪ╧k	Ш	JЪЬШJЪЬЭЬ,ШFJЪЬЭЬ%Ш@IcodeЪЬЭЬ-Ш:JЪЬЭЬ	ЭЬШKЪЬ	ЭЬДШТJЪЬЭЬШ"JЪЬЭЬ
ШJЪЬ
ЭЬRШaJЪЬЭЬBШUЧJШ ЪЬЭЬЭЬШ KЪЭЬlШsJЪЭЬШJЪЬШЪЭЬШJШ ЧJЩ║JЪЬ	ЭЬЭЬШJЪЬЭЬЭЬЭЬШ"JЪЬЭЬЭЬШ.JШ JШ Ъ╧n
ЬЮЬЭЬЭЬЭЬЭЬ╧c$Ш]ЪЭЬЭЬШ&JЪЭЬ
ШJШ/JЪЬЭЬЭЬЭЬ!ШFJШЧJЪЭЬШJЪЬЯ$Ш8JШJШ ЧЪ
ЮЬЭЬЭЬЭЬ
ЭЬШ@ЪЭЬЭЬЭШKЪЬ5Ш5KЪЬ>ЭЬШCKЪЭЬЭЬШЧJШШJШ ЧЧЪ
Ю	ЬЭЬЭЬЭЬЭЬШ,JЪЭЬШ%JШJШ ЧЪ
ЮЬЭЬЭЬЭЬЭЬШ7JЪЭЬШJШJШ ЧЪЮЬЭЬЭЬЭШ(JЪЬЭЬШJЪЬЭЬШ"JЪЬЭЬШJЪЬЭЬШ.JЪЬШKЪЭЬЯШ1Ъ	ЭЬ"ЭЬЭЬЭЬЯ+ШЕKЪ
ЭЬЭЬ*ЭЬЭЬЭЬШTKЪЭЬШKЪЬШЧЪЬШJЩ(KЪЬ ЭЬЭЬЭЬШCЪЮЬЭЬЭЬЯ(ШMЪЮЬЭЬШ0ЪЭЬЭШЪЭЬ
ЭЬЭЬЭЬШ=KЪЬЭЬШ KЪЬЭЬШ*KЪЬШЧЧJШЧJШ3JШ JШЧЪЮЬЭЬЭЬЯ!ШGЪЭЬЭЬЭЬ3ЭЬЭЬЭШUKШ*JЪЬ,ЭЬШ3KЪЭШЧJШJЩ JЩKЪЭЬЭЬЭЬ1ЭЬЭЬЭШSKШ*KЪЭШЧJШЧJЩ JЪЬ ЭЬЭЬЭЬШ?JШJШJЪЬ ЯШ>JШJШ!ЪЭЬЭЬШЪЭЬЭЬЭШKХStartOfExpansion[]ЪЬ1ЭЬЭЬGШЙKЦ[]ЪЬ2ЭЬЭЬHШЛJЪЭЬHШOЧJШJШЧKЪЬШЧJЪЬШJШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШqKЪЭЬЭЬЭЬШKЪЬAШAKЪЬШKШ ЧЪ
Ю
ЬЭЬЭЬЭЬЭЬШ=KЪЬYШYKШKШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШuJЪЬ"Ш"JЪЬШJЪЬШJЪЬШJШJШ ЧЪЮЬЭЬЭЬЭЬЭЬЭЬЭЬШlЪ
ЮЬЭЬЭЬ
ЭЬЭЬШ3JЪЬЭЬЭЬЭЬ
Ш-ЧJЪЬЭЬЯШ+JШ JЪЬ"Ш"ЪЭЬ?ЭШIJЪЬШJЪЭЬШЧJЪЬSЭЬШZJЪЬFШFJЪЬШJШ ЧKЪЬ
ЭЬЭЬЭЬШ%ЪЮЬЭЬЭЬЭЬШ@KЪЭЬЭЬЭЬШKЪЬЭЬШ KШKШ ЧKЪЬЭ	ЬШЪЮЬЭ
ЬШKЪЭЬЭЬЭЬШKШ!ЪЭШЪЭЬЭШ#KЪЭЬШKЪЭШЧЪЭЬЭЬЭЬ$ЭЬЭЬЭШFKЪЭЬЭЬШ4KЪЭШЧKШ
KЪЭШЧKШKШ ЧЪЮЬЭЬЭЬЭЬШ?KЪЭЬ
ШKЪЭЬЭЬЭЬШKШKШ-KШ#KШ-KШ KЪЭЬЭЬЭЬШKШ4KШKШ3KШKШ ЧЪЮЬЭЬЭЬШJЩ?JШCЪЭЬШ	KЪЬ0Ш0JЪЬЭЬШ'KЪЬШЧJШJШ ЧШJШ ЧJЪЬШЧЧ ЕЧ    z  !а  