<> <> <> <> <> <> <> DIRECTORY ClassInscript USING [Inscript], Intime USING [MsTicks], TerminalDefs USING [Cursor, DownUp, KeyName, KeyState]; Interminal: CEDAR DEFINITIONS = BEGIN StartActionRecorder: PROC [scr: ClassInscript.Inscript]; MousePosition: TYPE = MACHINE DEPENDENT RECORD [ mouseX: INTEGER, color: BOOL, mouseY: [-16383..16383] ]; <> PenPosition: TYPE = MousePosition; CursorArray: TYPE = TerminalDefs.Cursor; DownUp: TYPE = TerminalDefs.DownUp; KeyName: TYPE = TerminalDefs.KeyName; KeyState: TYPE = TerminalDefs.KeyState; SetCursorOffset: PROC[deltaX, deltaY: INTEGER, enableTracking: BOOL _ TRUE]; <> <> <<>> GetCursorOffset: PROC RETURNS[deltaX, deltaY: INTEGER, trackingEnabled: BOOL]; SetCursorPosition: PROC[posX, posY: INTEGER, enableTracking: BOOL _ TRUE]; <> <> <> <<>> GetCursorPosition: PROC RETURNS[deltaX, deltaY: INTEGER, trackingEnabled: BOOL]; <> <> SetMousePosition: PROC[pos: MousePosition]; <> <> <<>> GetMousePosition: PROC RETURNS [pos: MousePosition]; <> <> DefaultMouseGrain: PROC RETURNS [ticks: Intime.MsTicks, dots: INTEGER]; SetMouseGrain: PROC [ticks: Intime.MsTicks, dots: INTEGER]; SetCursorPattern: PROC [cursorPattern: CursorArray]; <> <<>> GetCursorPattern: PROC RETURNS [cursorPattern: CursorArray]; <> <<>> Side: TYPE ~ {left, right}; TurnOnColorCursor: PROC [side: Side]; <> <> <<>> TurnOffColorCursor: PROC; GetColorDisplaySide: PROC RETURNS [Side]; SetColorDisplaySide: PROC [side: Side]; HasPenType: TYPE = {none, main, color}; HasPen: PROC [display: HasPenType]; <> END.