DIRECTORY Xl, XlEndianPrivate, XlInputExtension, XlInputExtensionKeys, XlInputExtensionPrivate, XlKeyButPrivate, XlPrivate;

XlInputExtensionKeysImpl: CEDAR MONITOR
LOCKS c USING c: Xl.Connection 
IMPORTS XlInputExtensionPrivate, XlPrivate
EXPORTS XlInputExtensionKeys
SHARES Xl ~
BEGIN OPEN XlInputExtension, XlInputExtensionKeys, XlInputExtensionPrivate; 

ChangeKeyboardDevice: PUBLIC PROC [c: Xl.Connection, deviceId: DeviceId] RETURNS [status: ChangeReply] = {
reply: XlPrivate.Reply ¬ NIL;
action: PROC [c: Xl.Connection] = {
XlPrivate.BInit[c, cd.ex.majorOpcode, opChangeKeyboardDevice, 2];
XlPrivate.BPut8[c, deviceId];
XlPrivate.BSkip[c, 3];
reply ¬ XlPrivate.FinishWithReply[c];
};
cd: REF ConnectionData ~ GetConnectionData[c];
IF cd.ex=NIL THEN ERROR;
XlPrivate.DoWithLocks[c, action, NIL];
XlPrivate.Skip[reply, 7];
SELECT XlPrivate.Read8[reply] FROM
0 => status ¬ success;
1 => status ¬ alreadyGrabbed;
ENDCASE => status ¬ deviceFrozen;
};
END.

   Ð  
XlInputExtensionKeysImpl.mesa
Copyright Ó 1992 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, January 6, 1992 12:18:05 pm PST
Christian Jacobi, January 6, 1992 1:04 pm PST


 Êa  •NewlineDelimiter
–(cedarcode) style™ codešœ™Kšœ
Ïeœ1™<Kšœ<™<Kšœ-™-K™ —šÏk	œr˜{K˜ —šÏnœžœž˜'Kšžœžœ˜Kšžœ"˜*Kšžœ˜Kšžœ˜—KšžœžœB˜LK˜ šŸœžœ(žœ˜jKšœžœ˜šœžœ˜#KšœA˜AKšœ˜Kšœ˜K˜%K˜—Kšœžœ'˜.Kšžœžœžœžœ˜Kšœ&˜&Kšœ˜šžœž˜"K˜K˜Kšžœ˜!—K˜K™ —Kšžœ˜K˜ — …—    À  ñ  