

DIRECTORY 
Xl,
XlCursor,
XlPrivateResources,
CardTab,
Rope;

XlCursorImpl: CEDAR MONITOR 
IMPORTS Xl, XlPrivateResources, CardTab
EXPORTS XlCursor =
BEGIN OPEN Xl, XlCursor;

myPropKey: REF ATOM ¬ NEW[ATOM ¬ $XlCursorImpl];

cache: ConnectionCache ¬ NEW[ConnectionCacheRec]; --never NIL; caching is valuable because we will allways have lots of operation on very few connections

ConnectionCache: TYPE = REF ConnectionCacheRec;
ConnectionCacheRec: TYPE = RECORD [
connection: Connection ¬ NIL,
cursorFont: Font ¬ nullFont,
sharedStandardCursors: CardTab.Ref ¬ NIL
];

GetConnectionData: PROC [c: Connection] RETURNS [ca: ConnectionCache] = {
ca ¬ cache; --local, immutable copy
IF ca.connection#c THEN { 
ca ¬ NARROW[Xl.GetConnectionPropAndInit[c, myPropKey, InitConnection]];
cache ¬ ca; --atomic
};
};

InitConnection: InitializeProcType = {
ca: ConnectionCache ¬ NEW[ConnectionCacheRec ¬ [
connection: c,
cursorFont: Xl.OpenFont[c, "cursor"],
sharedStandardCursors: CardTab.Create[]
]];
RETURN [ca]
};

StandardCursorFont: PUBLIC PROC [c: Connection] RETURNS [Font] = {
data: ConnectionCache ¬ GetConnectionData[c];
RETURN [data.cursorFont];
};

SharedStandardCursor: PUBLIC PROC [c: Connection, source: StandardFontCursors] RETURNS [cursor: Cursor] = {
data: ConnectionCache ¬ GetConnectionData[c];
WITH CardTab.Fetch[data.sharedStandardCursors, ORD[source]].val SELECT FROM
cc: REF Cursor => RETURN [cc­];
ENDCASE => {
cursor ¬ MutableStandardCursor[c, source];
XlPrivateResources.Attach[c, cursor, $immutableCursor];
[] ¬ CardTab.Store[data.sharedStandardCursors, ORD[source], NEW[Cursor ¬ cursor]]
};
}; 

MutableStandardCursor: PUBLIC PROC [c: Xl.Connection, source: StandardFontCursors] RETURNS [cursor: Xl.Cursor] = {
data: ConnectionCache ¬ GetConnectionData[c];
cursor ¬ CreateGlyphCursor[c: data.connection, sourceFont: data.cursorFont, sourceChar: ORD[source], maskFont: data.cursorFont, maskChar: ORD[source]+1];
};
END.

    Ò  XlCursorImpl.mesa
Copyright Ó 1988, 1989, 1990, 1991 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, October 11, 1988 12:16:16 pm PDT
Christian Jacobi, March 7, 1991 5:48 pm PST

Ê¬  –(cedarcode) style•NewlineDelimiter
˜ codešœ™Kšœ
ÏeœC™NKšœ=™=Kšœ+™+—K˜ šÏk	œ˜
Kšœ˜Kšœ	˜	Kšœ˜Kšœ˜Kšœ˜K˜ —šÏnœžœžœ˜Kšžœ ˜'Kšžœ˜—šžœžœ˜K˜ —Kš	œžœžœžœžœ˜0K˜ KšœžœÏcg˜™K˜ Kšœžœžœ˜/šœžœžœ˜#Kšœžœ˜K˜Kšœ%ž˜(K˜K˜ —šŸœžœžœ˜IKšœ ˜#šžœžœ˜Kšœžœ<˜GKšœ ˜K˜—K˜—K˜ šŸœ˜&šœžœ˜0Kšœ˜Kšœ%˜%Kšœ'˜'Kšœ˜—Kšžœ˜Kšœ˜—K˜ šŸœžœžœžœ˜BKšœ-˜-Kšžœ˜Kšœ˜K˜ —šŸœžœžœ.žœ˜kKšœ-˜-šžœ+žœžœž˜KKšœžœžœ˜šžœ˜Kšœ*˜*Kšœ7˜7Kšœ/žœ
žœ˜QKšœ˜——Kšœ˜—K˜ šŸœžœžœ1žœ˜rKšœ-˜-KšœXžœ/žœ˜™K˜K™ —Kšžœ˜K˜ — …—    ”    