<<>> <> <> <> <> <<>> <> <<>> DIRECTORY KeyTypes USING [KeyCode, KeySym], RelativeTimes USING [TimeStamp], UserInput USING [Handle], UserInputTypes USING [Acceptance]; UserInputInsertActions: CEDAR DEFINITIONS = BEGIN Acceptance: TYPE ~ UserInputTypes.Acceptance; DeltaTime: TYPE ~ INT32; -- in milliseconds. Handle: TYPE ~ UserInput.Handle; KeyCode: TYPE ~ KeyTypes.KeyCode; KeySym: TYPE ~ KeyTypes.KeySym; TimeStamp: TYPE ~ RelativeTimes.TimeStamp; <> <> <<>> InsertTimeIsPassing: PROC [handle: Handle, deltaTime: DeltaTime, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> InsertKey: PROC [handle: Handle, deltaTime: DeltaTime, down: BOOL, keyCode: KeyCode ¬ NULL, preferredSym: KeySym ¬ [0], device: REF ¬ NIL, user: REF ¬ NIL, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> <<>> InsertIntegerPosition: PROC [handle: Handle, deltaTime: DeltaTime, x, y: INTEGER, device: REF ¬ NIL, user: REF ¬ NIL, display: REF ¬ NIL, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> <<>> InsertPosition: PROC [handle: Handle, deltaTime: DeltaTime, x, y: REAL, device: REF ¬ NIL, user: REF ¬ NIL, display: REF ¬ NIL, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> InsertFakePosition: PROC [handle: Handle, deltaTime: DeltaTime, device: REF ¬ NIL, user: REF ¬ NIL, display: REF ¬ NIL, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> <<>> InsertEnter: PROC [handle: Handle, deltaTime: DeltaTime, device: REF ¬ NIL, user: REF ¬ NIL, display: REF ¬ NIL, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> <<>> InsertExit: PROC [handle: Handle, deltaTime: DeltaTime, device: REF ¬ NIL, user: REF ¬ NIL, display: REF ¬ NIL, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> <<>> InsertRef: PROC [handle: Handle, deltaTime: DeltaTime, ref: REF, acceptance: Acceptance, device: REF ¬ NIL, user: REF ¬ NIL, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> <<>> <> <<>> InsertEventTime: PROC [handle: Handle, eventTime: TimeStamp, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> InsertAllUp: PROC [handle: Handle, deltaTime: DeltaTime, device: REF ¬ NIL, user: REF ¬ NIL, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> InsertKeyStillDown: PROC [handle: Handle, deltaTime: DeltaTime, keyCode: KeyCode ¬ NULL, preferredSym: KeySym ¬ [0], device: REF ¬ NIL, user: REF ¬ NIL, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> <<>> InsertEnd: PROC [handle: Handle, deltaTime: DeltaTime, data: REF ¬ NIL, eventSource: REF READONLY ANY ¬ NIL]; <> END.