XlInputExtensionExtrasImpl.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:07 pm PST
DIRECTORY Xl, XlInputExtension, XlInputExtensionExtras, XlInputExtensionPrivate, XlPrivate;
XlInputExtensionExtrasImpl:
CEDAR
MONITOR
LOCKS c USING c: Xl.Connection
IMPORTS XlInputExtensionPrivate
EXPORTS XlInputExtensionExtras
SHARES Xl ~
BEGIN OPEN XlInputExtension, XlInputExtensionPrivate;
SendExtensionEvent:
PUBLIC
PROC [c: Xl.Connection, device, DeviceId, destination: Xl.Window, propagate:
BOOL ¬
TRUE, eventClass:
LIST
OF EventClass, event:
REF, details: Xl.Details ¬
NIL] = {
cd: REF ConnectionData ~ GetConnectionData[c];
IF cd.ex=NIL THEN ERROR;
ERROR; --NOT YET IMPLEMENTED
};
END.