
DIRECTORY 
PropList, UnsafePropList, Xl, XlEventProperties;

XlImplSpecialMonitor: CEDAR MONITOR  --used to be a different monitor; now isn't any more
IMPORTS PropList, UnsafePropList
EXPORTS Xl, XlEventProperties
~ BEGIN 


PutEventProp: PUBLIC PROC [ev: Xl.Event, key: REF, val: REF] RETURNS [REF] = TRUSTED {
event: REF Xl.EventRep ~ LOOPHOLE[ev];
RETURN [ UnsafePropList.PutProp[LOOPHOLE[@event.props], key, val] ]
};

GetEventProp: PUBLIC PROC [ev: Xl.Event, key: REF] RETURNS [REF] = TRUSTED {
event: REF Xl.EventRep ~ LOOPHOLE[ev];
RETURN [ UnsafePropList.GetProp[LOOPHOLE[@event.props], key] ]
};

PutConnectionProp: PUBLIC PROC [c: Xl.Connection, key: REF, val: REF] = {
[] м PropList.PutProp[c.properties, key, val]
};

GetConnectionProp: PUBLIC PROC [c: Xl.Connection, key: REF] RETURNS [REF] = {
RETURN [ PropList.GetProp[c.properties, key] ]
};

GetConnectionPropAndInit: PUBLIC PROC [c: Xl.Connection, key: REF, init: Xl.InitializeProcType ] RETURNS [val: REF] = {
WrapInit: PropList.InitializeProcType = {
val м init[NARROW[data], key]
};
val м PropList.GetPropOrInit[c.properties, key, WrapInit, c].val
};

PutScreenProp: PUBLIC PROC [screen: Xl.Screen, key: REF, val: REF м NIL] = {
[] м PropList.PutProp[screen.properties, key, val]
};

GetScreenProp: PUBLIC PROC [screen: Xl.Screen, key: REF] RETURNS [val: REF] = {
RETURN [ PropList.GetProp[screen.properties, key] ]
};
PutScreenDepthProp: PUBLIC PROC [sd: Xl.ScreenDepth, key: REF, val: REF м NIL] = {
[] м PropList.PutProp[sd.properties, key, val]
};

GetScreenDepthProp: PUBLIC PROC [sd: Xl.ScreenDepth, key: REF] RETURNS [val: REF] = {
RETURN [ PropList.GetProp[sd.properties, key] ]
};
PutVisualTypeProp: PUBLIC PROC [vt: Xl.VisualType, key: REF, val: REF м NIL] = {
[] м PropList.PutProp[vt.properties, key, val]
};

GetVisualTypeProp: PUBLIC PROC [vt: Xl.VisualType, key: REF] RETURNS [val: REF] = {
RETURN [ PropList.GetProp[vt.properties, key] ]
};

END.
 
  V  XlImplSpecialMonitor.mesa
Copyright ╙ 1988, 1989, 1990, 1991, 1992 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, May 10, 1988
Christian Jacobi, April 21, 1992 2:58 pm PDT

Property procedures need separate monitor:
The same property procedures work both inside and outside a connections regular monitor...


 Э╩я  Ц(cedarcode) styleХNewlineDelimiter
Ш codeЪЬЩKЪЬ
╧eЬIЩTKЪЬ)Щ)KЩ,KЩ ЧЪ╧k	ЬШ
KШ0KШ ЧЪ╧nЬЮЬЮЬ╧c4ШYKЪЮЬШ KЪЮЬШЧЪЬЮЬШKШ ЧЪЬ*Щ*KЪЬZЩZKШ ЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШVJЪЬЮЬЮЬШ&JЪЮЬЮЬШCKШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШLJЪЬЮЬЮЬШ&KЪЮЬЮЬШ>KЪЬШЧKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШIJШ-KШЧKШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШMKЪЮЬ(Ш.KЪЬШЧKШ ЪЯЬЮЬЮЬЮЬ ЮЬЮЬШwЪЯЬ!Ш)KЪЬЮЬШKШЧKШ@KШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШLJШ2KШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШOKЪЮЬ-Ш3KШKЩ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШRJШ.KШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШUKЪЮЬ)Ш/KШKЩ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШPJШ.KШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШSKЪЮЬ)Ш/KШЧKШ KЪЮЬШKШЧ ЕЧ    Т  ╫  