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. φInterminal.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Swinehart, 24-Nov-81 9:26:43, mouse grains Maureen Stone, June 5, 1982 12:57 pm, pen and color cursor Paul Rovner, August 15, 1983 10:00 am Russ Atkinson, September 23, 1983 10:15 am Doug Wyatt, April 14, 1985 8:14:49 pm PST color=true indicates that the mouse is on the colordisplay Offsets origin of cursor bitmap by the specified number of screen points enableTracking _ FALSE to disable automatic cursor tracking. Sets the cursor position directly to the desired value (useful for cursor gridding) enableTracking _ FALSE to disable automatic cursor tracking. Position may not be in synch with Inscript fetches. Returns the current cursor position. Position may not be in synch with Inscript fetches. modifies hardware interpretation of mouse position; to be used at own peril!! possibly useful for locking mouse into nearby position, etc. returns the current position, may be out of synch with inscript fetches!! Recording grain hints. This are provided by higher levels at the time those levels are created. Subsequent recorded events will be entered at the specified grain. Unless the higher levels are running in more or less real time, these hints will not be too valuable. changes the cursor bit array fetches the cursor bit array Enables the color display; assumes the color display is to the given side of the b/w display. The cursor will slide between the two displays. this declares on which display the pen is located Κ˜codešœ™Kšœ Οmœ1™