<<>> <> <> <> <> <<>> 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.