XlPrivateTypes.mesa
Copyright Ó 1988, 1990, 1991, 1992, 1993 by Xerox Corporation. All rights reserved.
Christian Jacobi, April 13, 1988 12:24:42 pm PDT
Christian Jacobi, February 3, 1993 11:36 am PST
Private interface defining opaque types of Xl
DIRECTORY CardTab, RefTab, SymTab, Xl, XlExtensions;
XlPrivateTypes: CEDAR DEFINITIONS
~ BEGIN
This interface defines those opaque types of Xl which are hiddene to clients but widely used by Xl implementation modules and Xl extensions. It defines opaque types of its own, but these private opaque types hide information from other Xl-impl modules.
Defines
<<Xl.>>ConnectionPrivate: PUBLIC TYPE = XlPrivateTypes.ConnectionPrivateImplRec;
ConnectionPrivateImplRec: TYPE = RECORD [
refRefSelf: REF Xl.Connection ¬ NIL, --"RefSelf" nilled out when connection dies
nameToAtom: PRIVATE SymTab.Ref ¬ NIL, --for implementor InternAtom
atomToName: PRIVATE CardTab.Ref ¬ NIL, --for implementor of InternAtom
kMappings: PRIVATE REF KMappingCacheRep ¬ NIL,
mMappings: PRIVATE REF MMappingCacheRep ¬ NIL,
pMappings: PRIVATE REF PMappingCacheRep ¬ NIL,
graphicsRef: PRIVATE REF GraphicsRep ¬ NIL,
finalizationStuff: REF FinalizationRep ¬ NIL,
pointerGrabber: PRIVATE REF GrabberRec ¬ NIL,
serverGrabber: PRIVATE REF GrabberRec ¬ NIL,
keyboardGrabbed: PRIVATE BOOL ¬ FALSE,
keyboardGrabAtom: PRIVATE Xl.XAtom ¬ [0],
extensionTab: PRIVATE RefTab.Ref ¬ NIL,
extensionLock: PRIVATE BOOL ¬ FALSE,
extensions: PRIVATE XlExtensions.ExtensionData,
fontTable: PRIVATE REF FontPrivate ¬ NIL,
debug: PRIVATE REF ¬ NIL
];
KMappingCacheRep: TYPE;
PMappingCacheRep: TYPE;
MMappingCacheRep: TYPE;
GraphicsRep: TYPE;
FontPrivate: TYPE;
FinalizationRep: TYPE;
GrabberRec: PRIVATE TYPE;
END.