<<>> <> <> <> <> DIRECTORY BasicTime USING [nullGMT, GMT], KeyMappingTypes USING [Mapping], KeyStateTypes USING [UpDown], KeyTypes USING [KeyCode, KeySym], RelativeTimes USING [nullTimeStamp, TimeStamp], UserInput USING [Handle]; UserInputOps: CEDAR DEFINITIONS ~ BEGIN Handle: TYPE = UserInput.Handle; Create: PROC [source: PROC [handle: Handle] ¬ NIL, sourceData: REF ANY ¬ NIL, name: ATOM ¬ $UnNamed] RETURNS [Handle]; <> <<>> Close: PROC [handle: Handle]; <> SetAtLatest: PROC [handle: Handle]; <> <<>> <> <> SetMapping: PROC [handle: Handle, mapping: KeyMappingTypes.Mapping]; <> GetMapping: PROC [handle: Handle] RETURNS [mapping: KeyMappingTypes.Mapping]; <> <<>> GetKeyState: PROC [handle: Handle, keyCode: KeyTypes.KeyCode] RETURNS [state: KeyStateTypes.UpDown]; <<>> GetLatestKeyState: PROC [handle: Handle, keyCode: KeyTypes.KeyCode] RETURNS [state: KeyStateTypes.UpDown]; <<>> GetKeySymState: PROC [handle: Handle, keySym: KeyTypes.KeySym] RETURNS [state: KeyStateTypes.UpDown]; <<>> GetLatestKeySymState: PROC [handle: Handle, keySym: KeyTypes.KeySym] RETURNS [state: KeyStateTypes.UpDown]; IsMouseButton: PUBLIC PROC [handle: Handle, keyCode: KeyTypes.KeyCode] RETURNS [BOOL]; <> <> <> <> <> <<>> GetTime: PUBLIC PROC [handle: Handle] RETURNS [RelativeTimes.TimeStamp]; GetLatestTime: PUBLIC PROC [handle: Handle] RETURNS [RelativeTimes.TimeStamp]; <> SetAbsoluteTime: PROC [handle: Handle, epochGMT: BasicTime.GMT ¬ BasicTime.nullGMT, epochTimeStamp: RelativeTimes.TimeStamp ¬ RelativeTimes.nullTimeStamp]; <> GetAbsoluteTime: PROC [handle: Handle, timeStamp: RelativeTimes.TimeStamp] RETURNS [gmt: BasicTime.GMT, milliseconds: INT]; <> END.